FMemo

Mehrzeiliges Edit - Control

PropertyDatentyp(Read/Write)Hinweise
LeftInteger (R/W) Linke Position
TopInteger (R/W) Obere Position
WidthInteger (R/W) Weite
HeightInteger (R/W) Höhe
VisibleInteger (R/W) TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar
EnabledInteger (R/W) TRUE = aktiv (voreingestellt) ; FALSE = inaktiv
ColorUInteger (R/W) Hintergrundfarbe ; voreingestellt ist weiss
TextColorUInteger (R/W) Textfarbe ; voreingestellt ist schwarz
HandleHWND (R) Handle des Control(nur lesen !)
BorderInteger (W) 0 = ohne
1 = sunken
2 = Umrandung
TextLenInteger (R) Länge des Textes
TextString (R/W) Text des Control
ReadOnlyInteger (R/W) TRUE oder FALSE. Voreingestellt ist FALSE
AutoHScrollInteger (R/W) TRUE oder FALSE. Voreingestellt ist FALSE.
AutoVScrollInteger (R/W) TRUE oder FALSE. Voreingestellt ist TRUE
HScrollInteger (R/W) TRUE oder FALSE. Voreingestellt ist TRUE
VScrollInteger (R/W) TRUE oder FALSE. Voreingestellt ist TRUE
LineCountInteger (R) Anzahl der Zeilen. ( Basis 1)
CurLineInteger (R/W) Zeile in der sich das Caret befindet oder gestzt werden soll.( Basis 1)
LMarginInteger (R/W) Linker Rand im Control
RMarginInteger (R/W) Rechter Rand im Control
Sub/FunctionArgumenteHinweise
SUB Create (ByVal hParent As HWND,
ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer )
Handle des Elternfenster
Dimensionen x,y,Weite,Höhe
Function GetLineText (ByVal LineNr As Integer) as String Gibt den Text einer Zeile zurück ( LineNr Basis 1)
Sub ReplaceLineText (ByVal LineNr As Integer, sTxt As String) Ersetzt den Text einer Zeile ( LineNr Basis 1)
Sub AddLine ( sTxt As String) Hängt eine Zeile an den Text an
Sub SaveFile ( sFilename As String) Speichert den Inhalt in eine Datei
Sub LoadFile ( sFilename As String) Läd den Inhalt einer Datei in das Control
Sub Copy keine Kopiert die aktuelle Auswahl in die Zwischenablage (Clipboard)
Sub Cut keine Kopiert die aktuelle Auswahl in die Zwischenablage (Clipboard) und löscht diese im Control
Sub Paste keine Fügt den Inhalt der Zwischenablage (Clipboard)an der Caret-Position ein
Sub Clear keine Löscht die aktuelle Auswahl
Sub ClearAll keine Löscht den gesamten Text
Sub Invalidate keine Veranlasst das senden einer WM_PAINT Botschaft
Sub Repaint keine Wie Invalidate aber mit Nicht-Clientbereich
Sub setFont (Face As String,
ByVal size As Integer,
ByVal bold As Integer,
ByVal italic As Integer,
ByVal underlin As Integer)
Schrift-Name
Schriftgröße
1=bold,0=normal
1=italic,0=normal
1=underlin,0=normal
Event SUBArgumenteHinweis
onChangekeine Inhalt wird geändert
onUpdatekeine Inhalt wurde geändert
OnKeyDown(nKey AS Integer,
lKeyStatus As Integer)
gedrückte Taste
kann VK_SHIFT,VK_CONTROL oder VK_MENU sein
OnKeyUp(nKey AS Integer,
lKeyStatus As Integer)
Taste auf
kann VK_SHIFT,VK_CONTROL oder VK_MENU sein
OnSetFocus(ByVal hWnd As HWND) Control hat den Focus bekommen
onLButtondown(ByVal x As Short, ByVal y As Short) Wenn auf dem Control mit der linker Mousetaste geklickt wird
x und y ist dabei die Position des Mousezeigers
onLButtonUp(ByVal x As Short, ByVal y As Short) Wenn auf dem Control mit der linker Mousetaste losgelassen wird
x und y ist dabei die Position des Mousezeigers
onRButtondown(ByVal x As Short, ByVal y As Short) Wenn auf dem Control mit der rechter Mousetaste geklickt wird
x und y ist dabei die Position des Mousezeigers
Beispiel :
    #Include "winFBgui.bi"

Dim Shared As FForm form1
Dim Shared As FMemo memo1


form1.Create("Testform",0,0,870,720)

memo1.Create(form1.Handle,10,10,400,320)


form1.Show
ExitProcess(0)
End