| |
| |
|
Alfred
Wagner | Hab folgendes Problema
möchte algunos Buttons en una Multiedit Feld einfügen,sólo como bekommt al hin daß el zweite Button auch todavía vollszändig sichtbar es (also daß el rechte Scrollbalken aktiev se )? Wenn posible debería el untere Scrollbalken auch no a sehen ser
Ejemplo
KompilierenMarcaSeparación $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
danke ya veces en el vorhinein
Grüße
Alfred con Familie |
|
| |
| |
| |
|
|
| Alfred
Den waagerechten Scrollbalken bekommst Usted weg, si el Höhe des Multiedit en negativer Grösse angibst. En Usted wäre el also: -90
Aber ahora erkläre me de tiempo, qué Buttons en un Multiedit perdido haben ???  |
|
| |
| |
| |
|
|
Alfred
Wagner | hallo Horst danke sólo veces
Aber ahora erkläre me de tiempo, qué Buttons en un Multiedit perdido haben ???
Ganz simplemente como debería mehrere Buttons rein, y yo möchte el Größe la ventana no ändern . |
|
| |
| |
| |
|
|
| | Noch veces para mich como Dummen - Buttons en un Multiedit ???- Si usted el Focus en dieses Multiedit setzt y luego con el ENTER-Taste weiterschaltest, voluntad el Buttons gelösch t!!! - Ein Multiedit es una Texteditor, como drin haben Buttons nichts perdido ! |
|
| |
| |
| |
|
|
Frank
Abbing | Dann hilft dir el ScrollArea.pcu de IF más. Damit erhälst du una Scrollcontrol.
Ein Multiedit halte Yo auch para denkbar ungeeignet, ya wegen el Texteingabe. Dann wäre una Dialogfenster con einfachem Rahmen y sin Titelleiste mejor geeignet. |
|
| |
| |
| |
|
|
Alfred
Wagner | ohje el con el Foco tener Yo no gewußt
voluntad veces el Variante de Franco testen
danke euch beiden |
|
| |
| |
| |
|
|
| @Franco
Dann wäre una Dialogfenster con einfachem Rahmen y sin Titelleiste mejor geeignet.
Oder una RECTANGLE x,y-x1,y1 !?  |
|
| |
| |
| |
|
|
| @Hi Alfred
Hab Dir veces una Variation geschrieben. Tal vez kannst Usted ellos brauchen...
KompilierenMarcaSeparación $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, él möchte todos aber en uno scrollenden Box, sodass auch Buttons ausserhalb des sichtbaren Bereichs gescrollt voluntad puede. Alles, en Platz a sparen.
Darum mein Vorschlag con el Dialogfenster, el dafür erheblich mejor geignet ser dürfte como deine gemalte Box... |
|
| |
| |
| |
|
|
| @Franco
Dann Tuve el falso verstanden. Dachte, él quería el weißen Hintergrund.  |
|
| |
| |
| |
|
|
Alfred
Wagner | danke horst y frank
para euere tipps
de paso frank ha el correcto verstanden.
lege veces todos en Eis |
|
| |
| |
| |
|
(855)
Deutsch
English
Français
Español
Italia