| |
|
|
Thomas Freier | Finde simple aucun Solution pour une automatischen Zeilenumbruch beim MultiEdit. Kennt de euch einer une?
$H windows.ph
$H structs.ph
$H messages.ph
$H RichEdit.ph
cls
var a$="MMMMMMMMM NNNNNNNNNNNNN HHHHHHHHHHHHH GGGGGGGGGGGGGGG VVVVVVVV"
Var R_Fuss& = @Créer("RichEdit", %hwnd ,» ,0,0,0,0)
Settext R_Fuss&,a$
Var R_Kopf& = @Créer("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)' allez naturellement pas
Tandis que 1
Waitinput
Endwhile
Fin
|
|
|
| |
|
|
|
Jörg Sellmeyer | je sais oui pas, pourquoi Du qui Edits seulement avec Taille zéro erstellst mais quoi ist hiermit?
Profan-Aider
Wird Y2 comme negativer Wert angegeben, so wird zwar quand même qui absolute Wert comme Taille pris, mais gleichzeitig qui automatische Wortumbruch-Funktion aktiviert: |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 17.11.2011 ▲ |
|
|
|
|
RGH | et pourquoi fais Du es pas simple so comme dans qui Aider steht?
s'il te plaît très:
Hilfedatei
Wird Y2 comme negativer Wert angegeben, so wird zwar quand même qui absolute Wert comme Taille pris, mais gleichzeitig qui automatische Wortumbruch-Funktion aktiviert: qui horizontale Scrollbalken wird pas angezeigt et un mot, cela pas plus dans un la ligne paßt wird automatisch dans qui prochain la ligne gebracht.
cela funktioniert einwandfrei:
cls
var a$="MMMMMMMMM NNNNNNNNNNNNN HHHHHHHHHHHHH GGGGGGGGGGGGGGG VVVVVVVV"
Var R_Fuss& = @Créer("RichEdit", %hwnd ,» ,10,60,400,-120)
Settext R_Fuss&,a$
Var R_Kopf& = @Créer("MultiEdit", %hwnd ,» ,10,200,400,-120)
Settext R_Kopf&,a$
Tandis que 1
Waitinput
Endwhile
Fin
Salut Roland
Verd....! Jörg était plus rapide! |
|
|
| 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 je dans dem la fenêtre une Gridbox habe, qui wird verkleinert , si z.B. qui Fußzeilentext bearbeitet wird. dans dem Freiraum soll qui Editbox. Ist qui Bearbeitung finissez, venez qui Gridbox wieder sur volle Taille. voudrais ne...aucune zusätzliches Dialog-la fenêtre ou bien cela la fenêtre partager. qui Text qui Editbox wird später beim Drucken gebraucht avec den automatischen et erzwungenen Zeilenumbrüchen. |
|
|
| |
|
|
|
Jörg Sellmeyer | ensuite erstelle cela Éditer doch seulement so:
Var R_Kopf& = @Créer("MultiEdit", %hwnd ,» ,10,200 , 0,-120)
SetWindowPos hat sur den automatischen Umbruch keinen influence. Aussi könntest Du doch aussi ShowWindow() verwenden, ou bien?
Verd....! Jörg était plus rapide! Hehe... |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 17.11.2011 ▲ |
|
|
|
|
| [OFFTOPIC] ou bien schwer kewl enhanced: ou 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 | merci pour qui Anregungen. dans Jörgs direction J'ai eu aussi déjà getestet. mais:
Var R_vor& =Créer("MultiEdit",dlg&, »,0,0,0 ,-0)
ging pas. cependant:
Var R_vor& =Créer("MultiEdit",dlg&, »,0,0,0 ,-1)
|
|
|
| |
|
|