| |
| |
|
Alfred
Wagner | Hab folgendes Problem
voudrais quelques Buttons dans un Multiedit champ insérer,seulement comment bekommt on cela hin qui qui zweite Button aussi encore vollszändig sichtbar ist (alors qui qui rechte Scrollbalken aktiev wird )? si possible sollte qui untere Scrollbalken aussi pas trop voyons son
Beispiel
KompilierenMarqueSéparation $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
merci déjà la fois im vorhinein
Grüße
Alfred avec la famille |
|
| |
| |
| |
|
|
| Alfred
Den waagerechten Scrollbalken bekommst Du weg, si Du qui Hauteur des Multiedit dans negativer Grösse angibst. chez Dir wäre cela alors: -90
mais maintenant erkläre mir la fois, quoi Buttons dans einem Multiedit verloren avons ???  |
|
| |
| |
| |
|
|
Alfred
Wagner | allô Horst merci seulement la fois
mais maintenant erkläre mir la fois, quoi Buttons dans einem Multiedit verloren avons ???
entier simple là devoir plusieurs Buttons rein, et je voudrais qui Taille des Fensters pas changement . |
|
| |
| |
| |
|
|
| | encore la fois pour mich comme Dummen - Buttons dans einem Multiedit ???- si Du den Concentrer sur cet Multiedit mets et ensuite avec qui ENTER-bouton weiterschaltest, volonté qui Buttons gelösch t!!! - un Multiedit est un Texteditor, là drin avons Buttons rien verloren ! |
|
| |
| |
| |
|
|
Frank
Abbing | ensuite hilft dir qui ScrollArea.pcu de iF plus. avec cela erhälst du une Scrollcontrol.
un Multiedit halte je aussi pour imaginable ungeeignet, déjà à cause de qui Texteingabe. ensuite wäre un Dialogfenster avec einfachem cadre et sans Titelleiste besser approprié. |
|
| |
| |
| |
|
|
Alfred
Wagner | ohje cela avec dem Concentrer hab je pas gewußt
werde fois le variante de Frank testen
merci euch beiden |
|
| |
| |
| |
|
|
| @Frank
ensuite wäre un Dialogfenster avec einfachem cadre et sans Titelleiste besser approprié.
ou bien un RECTANGLE x,y-x1,y1 !?  |
|
| |
| |
| |
|
|
| @Hi Alfred
Hab Dir la fois une Variation geschrieben. peut-être peux Du vous brauchen...
KompilierenMarqueSéparation $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, il voudrais cela ganze mais dans einer scrollenden Box, sodass aussi Buttons ausserhalb des sichtbaren Bereichs gescrollt volonté peut. Alles, um place trop sparen.
tout autor mon Vorschlag avec dem Dialogfenster, cela pour erheblich besser geignet son pourrait comme deine gemalte Box... |
|
| |
| |
| |
|
|
| @Frank
ensuite J'ai eu cela faux verstanden. Dachte, il voulais den weißen Hintergrund.  |
|
| |
| |
| |
|
|
Alfred
Wagner | merci horst et frank
pour euere tipps
incidemment frank hat cela richtig verstanden.
lege la fois cela ganze sur glace |
|
| |
| |
| |
|
(850)
Deutsch
English
Français
Español
Italia