| |
| |
|
Alfred
Wagner | Have the following trouble
would like some Buttons in one MultiEdit area insert,only How get to the there that the second Button too yet vollszändig visible is (means that the rights Scroll bar aktiev becomes )? If possible ought to the downstairs Scroll bar neither To see his
example
CompileMarkSeparation $P+
SET(ERRORLEVEL,0)
DEF GETSYSCOLOR(1) !USER32,GetSysColor
Declare OK&,Multiedit&
Declare But&,ENDE%
WINDOWSTYLE 31
WINDOWTITLE
WINDOW (%maxx/2 - 200/2),(%maxy/2 - 180/2) - 200,180
SET(TRUECOLOR,1)
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Multiedit&=@Create(Multiedit, %HWND, , 20, 10, 150, 90)
OK& =CreateButton(Multiedit&,OK,20,20,90,20)
But&=CreateButton(Multiedit&,Button,20,55,90,20)
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If %KEY=2
ElseIf GetFocus(OK&)
Ende%=1
ElseIf GetFocus(Neu&)
EndIf
ENDWHILE
thanks already time in the vorhinein
Regards
Alfred with family |
|
| |
| |
| |
|
|
| Alfred
whom waagerechten Scroll bar get You lane, if you the level the MultiEdit in negativer Size angibst. with you would the means: -90
but now comment me time, what Buttons in one MultiEdit lost having ???  |
|
| |
| |
| |
|
|
Alfred
Wagner | Hello Horst thanks first time
but now comment me time, what Buttons in one MultiEdit lost having ???
integrally simply there should several Buttons mere, what about me wants to Size the Fensters not Change . |
|
| |
| |
| |
|
|
| | yet times for me as stupid - Buttons in one MultiEdit ???- If you whom Focus this MultiEdit setting and then with the ENTER-Button weiterschaltest, go The Buttons gelösch t!!! - One MultiEdit is a Texteditor, there drin having Buttons nothing lost ! |
|
| |
| |
| |
|
|
Frank
Abbing | then helps you The ScrollArea.pcu of iF moreover. so erhälst You a Scrollcontrol.
One MultiEdit stops so did i for imaginable unfit, already because of the Text-Input. then would one Dialog-Window with einfachem welt and without Titelleiste rather suitable. |
|
| |
| |
| |
|
|
Alfred
Wagner | ohje with the the Focus Have I do not known
will be times the Variante of Frank testing
thanks you both |
|
| |
| |
| |
|
|
| @Frank
then would one Dialog-Window with einfachem welt and without Titelleiste rather suitable.
or one RECTANGLE x,y-x1,y1 !?  |
|
| |
| |
| |
|
|
| @Hi Alfred
Have you time a Variation written. Perhaps can You tappt im dunkeln need...
CompileMarkSeparation $P+
SET(ERRORLEVEL,0)
DEF GETSYSCOLOR(1) !USER32,GetSysColor
Declare OK&,But&,ENDE%
WINDOWSTYLE 14
WINDOWTITLE
WINDOW (%maxx/2 - 200/2),(%maxy/2 - 180/2) - 200,180
USEICON A
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
---------------------------------------------------------------------------- neu eingefügt
USEPEN 0,2,RGB(255,0,0)Rahmen 1.Param.:Strichart | 2.Param.:Strichstärke - Farbe frei wählbar
USEBRUSH 1,RGB(255,255,255) Farbe frei wählbar
RECTANGLE 20,10 - 170,100 Das ist ein Rechteck
ROUNDRECT 20,10 - 170,100;10,10 ...und hier mit abgerundeten Kanten
In der Profan-Hilfe mal nachsehen :)
-------------------------------------------------------------------------------
OK& =CreateButton(%HWND,OK,52,25,90,20)
But&=CreateButton(%HWND,Button,52,65,90,20)
WHILENOT ENDE%
WAITINPUT
If %KEY=2
ElseIf GetFocus(OK&)
Ende%=1
ElseIf GetFocus(but&)
Messagebox(date$(2),,64)
EndIf
ENDWHILE
|
|
| |
| |
| |
|
|
Frank
Abbing | Horst, it would like the whole but in a scrollenden Box, so too Buttons ausserhalb the visible Bereichs gescrollt go can. everything, circa Space To save.
therefore my suggestion with the Dialog-Window, the for vastly rather geignet his might as your painted Box... |
|
| |
| |
| |
|
|
| @Frank
then I had the wrong understood. thought, it wished whom weißen background.  |
|
| |
| |
| |
|
|
Alfred
Wagner | thanks horst and frank
for your tipps
incidentally frank has the right understood.
lay time the whole on ice-cream |
|
| |
| |
| |
|
(553)
Deutsch
English
Français
Español
Italia