| |
| |
|
Thomas
Freier | find simply no Solution for a automatischen Line break at MultiEdit. knows of you of/ one a?
$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)' goes naturally not
While 1
Waitinput
EndWhile
End
|
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 11/16/11 ▲ |
|
| |
|
|
Jörg
Sellmeyer | i know Yes not, why you The Edits first with Size zero erstellst but What is herewith?
Profan-Help
becomes Y2 as negativer worth indicated, so becomes of course nevertheless the absolute worth as Size taken, but at the same time The automatic Wortumbruch-function activate: |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 11/17/11 ▲ |
|
| |
|
|
RGH | and Why make You not simply as it in the Help standing?
here you are:
Helpfile
becomes Y2 as negativer worth indicated, so becomes of course nevertheless the absolute worth as Size taken, but at the same time The automatic Wortumbruch-function activate: The horizontale Scroll bar won't displayed and a word, not More in a row fits becomes automatically into next row brought.
the functions correct:
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
Greeting
Roland
Verd....! Jörg was faster! |
|
| |
| 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 | 11/17/11 ▲ |
|
| |
|
|
Thomas
Freier | because I in the Window a GridBOX have, The becomes minimizes , if z.B. the Fußzeilentext machine becomes. in the Freiraum should The Editbox. is The edit exits, comes The GridBOX again on filled Size. want no zusätzliches dialog-Window or the window share.
The Text the Editbox becomes later at Print used with the automatischen and erzwungenen Zeilenumbrüchen. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 11/17/11 ▲ |
|
| |
|
|
Jörg
Sellmeyer | then create the Edit still first so:
SetWindowPos has on the automatischen Umbruch none influence.
Also could You still too ShowWindow() use, or?
Verd....! Jörg was faster!
Hehe... |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 11/17/11 ▲ |
|
| |
|
|
 | [OFFTOPIC] or heavy kewl enhanced: or. 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 | thanks for suggestions. In Jörgs direction I had already tested. but:
Var R_vor& =Create("MultiEdit",dlg&, "",0,0,0 ,-0)
Var R_vor& =Create("MultiEdit",dlg&, "",0,0,0 ,-1)
|
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 11/17/11 ▲ |
|
| |
|
(510)
Deutsch
English
Français
Español
Italia