| |
|
|
Thomas Freier | Finde einfach keine Lösung per einen automatischen Zeilenumbruch beim MultiEdit. Kennt von euch einer eine?
$H windows.ph
$H structs.ph
$H messages.ph
$H RichEdit.ph
cls
var a$="MMMMMMMMM NNNNNNNNNNNNN HHHHHHHHHHHHH GGGGGGGGGGGGGGG VVVVVVVV"
Var R_Fuss& = @Create("RichEdit", %hwnd ,"" ,0,0,0,0)
Settext R_Fuss&,a$
Var R_Kopf& = @Create("MultiEdit", %hwnd ,"" ,0,0,0,0)
Settext R_Kopf&,a$
SetWindowPos R_Fuss& = 10,60 - 400,120
SendMessage(R_Fuss&,~EM_SETTARGETDEVICE,0,0)
SetWindowPos R_Kopf& = 10,200 - 400,120
SendMessage(R_Kopf&,~EM_SETTARGETDEVICE,0,0)' geht naturalmente nicht
While 1
Waitinput
EndWhile
End
|
|
|
| |
|
|
|
Jörg Sellmeyer | Ich weiß ja nicht, warum Du die Edits erst mit Dimensione Null erstellst aber was ist hiermit?
Profan-Aiuto
Wird Y2 als negativer Wert angegeben, so wird zwar trotzdem der absolute Wert als Dimensione genommen, aber gleichzeitig die automatische Wortumbruch-Funktion aktiviert: |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 17.11.2011 ▲ |
|
|
|
|
RGH | Und warum machst Du es nicht einfach so wie es in der Aiuto steht?
Bitte sehr:
Hilfedatei
Wird Y2 als negativer Wert angegeben, so wird zwar trotzdem der absolute Wert als Dimensione genommen, aber gleichzeitig die automatische Wortumbruch-Funktion aktiviert: Der horizontale Scrollbalken wird nicht angezeigt und ein Wort, das nicht mehr in un Zeile paßt wird automatisch in die nächste Zeile gebracht.
Das funktioniert einwandfrei:
cls
var a$="MMMMMMMMM NNNNNNNNNNNNN HHHHHHHHHHHHH GGGGGGGGGGGGGGG VVVVVVVV"
Var R_Fuss& = @Create("RichEdit", %hwnd ,"" ,10,60,400,-120)
Settext R_Fuss&,a$
Var R_Kopf& = @Create("MultiEdit", %hwnd ,"" ,10,200,400,-120)
Settext R_Kopf&,a$
While 1
Waitinput
EndWhile
End
Saluto Roland
Verd....! Jörg war schneller! |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 17.11.2011 ▲ |
|
|
|
|
Thomas Freier | Weil ich in dem Fenster eine Gridbox habe, die wird verkleinert , wenn z.B. der Fußzeilentext bearbeitet wird. In dem Freiraum soll die Editbox. Ist die Bearbeitung beendet, kommt die Gridbox wieder auf volle Dimensione. Möchte kein zusätzliches Dialog-Fenster oder das Fenster teilen. Der Text der Editbox wird später beim Drucken gebraucht mit den automatischen und erzwungenen Zeilenumbrüchen. |
|
|
| |
|
|
|
Jörg Sellmeyer | Dann erstelle das Edit doch erst so:
SetWindowPos hat auf den automatischen Umbruch keinen Einfluß. Außerdem könntest Du doch auch ShowWindow() verwenden, oder?
Verd....! Jörg war schneller! Hehe... |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 17.11.2011 ▲ |
|
|
|
|
| [OFFTOPIC] Oder schwer kewl enhanced: bzw. cls
long r_kopf=createMultiEdit(hWnd,"",,,,-1)
setWindowPos r_kopf,10,10,100,100
setText r_kopf,"Nihil novi sub sole"
waitinput
end
^^ [/OFFTOPIC] |
|
|
| |
|
|
|
Thomas Freier | Danke per die Anregungen. In Jörgs Richtung hatte ich auch schon getestet. Aber:
Var R_vor& =Create("MultiEdit",dlg&, "",0,0,0 ,-0)
ging nicht. Jedoch:
Var R_vor& =Create("MultiEdit",dlg&, "",0,0,0 ,-1)
|
|
|
| |
|
|