XProfan

Français

peux on qui Gridbox (bzw. ListView) une Style verpassen, dass vous sich comment chez einem Dialog ou bien la fenêtre per souris dans den äußeren Abmessungen agrandir ou bien verkleinern läßt?

23.05.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

avec cela es ungefähr so ( [...]

) aussieht?

en supplément könntest Du per SetStyle ws_* Konstanten hinzufügen -

Konstanten peux Du simple Konstantinopel ( [...]

) entnehmen.

Probiere la fois:
Kompilieren Marque Séparation

/*
WS_BORDER = { $800000 | 8388608 }
WS_CAPTION = { $C00000 | 12582912 }
WS_POPUP = { $80000000 | -2147483648 }
WS_THICKFRAME = { $40000 | 262144 }
WS_MAXIMIZEBOX = { $10000 | 65536 }
WS_MINIMIZEBOX = { $20000 | 131072 }
*/

Donc:
Kompilieren Marque Séparation

setStyle gridbox&,getStyle(gridBox) | $20000 | $10000 | $40000 | $80000000 | $C00000 | $800000

23.05.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

cela bekomme je pas sans Dialog pas hin. peux rien passendes trouver.
ici avec Dialog sans Spaltenanpassung.
Kompilieren Marque Séparation

Set("ErrorLevel", 2)
 $H Windows.ph
 $H messages.ph
DEF @GetClientRect(2) !"USER32","GetClientRect"
Declare ClientRect#
DIM ClientRect#,16

SubClassproc

    IF SUBCLASSMESSAGE(dlg&,~WM_SIZING) or SUBCLASSMESSAGE(dlg&,~WM_SIZE)

        RESIZE
        SET("WinProc",0)

    ENDIF

endproc

proc RESIZE

    @GetClientRect(dlg&,ClientRect#)
    SETWINDOWPOS hGrid&=0,0-@LONG(ClientRect#,8),@LONG(ClientRect#,12)

endproc

CLS
WindowStyle 64+4
var dlg&=Create("ChildWindow",%hwnd,"BILD",10,10,300,300)
setstyle  dlg&,Getstyle( dlg&) - $C00000'caption abziehen
var Titel$ = "Links;0;180;Mitte;2;100;Rechts;1;80"
var hGrid& = Create("GridBox", Dlg&, Titel$, 0, 0, 0, 0, 0)
AddString(hGrid&, "AB|DEF|0123")
AddString(hGrid&, "GHI|J23KL|012345")
AddString(hGrid&, "*|MNOP|PQR|")
AddString(hGrid&, "STU||V")
AddString(hGrid&, "ABCD12|STUVW|XYZ0")
AddString(hGrid&, "ABCD34|stuvw|999,00")
AddString(hGrid&, "Abcd45|STUVW|-111,11")
AddString(hGrid&, "Abcd56|StUVW|2.111,11")
AddString(hGrid&, "Abcd56|AbxVW|-15.234,56")
AddString(hGrid&, "Abcd67|STUVW|0,00")
SUBCLASS dlg&,1
RESIZE

WHILE 1

    WAITINPUT

ENDWHILE

Dispose ClientRect#
/../references-fonction/XProfan/end/'>FIN

Gruß Thomas
Windows XP SP2, XProfan X2

23.05.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Vlt. so:
Kompilieren Marque Séparation

 $H windows.ph
cls
var h&=create("GridBox",%hWnd, "Links;0;180;Mitte;2;100;Rechts;1;80",3,100,100,400,250)
SetStyle h&,GetStyle(h&) | ~ws_thickFrame | ~ws_caption | ~ws_popup | ~ws_dlgFrame | ~ws_maximizeBox | ~ws_minimizeBox | ~ws_popup | ~ws_sysMenu
~SetParent(h&,0)
~SetWindowText(h&,"huhu!")

while 1

    waitinput

wend

zwischenablage01.png	11 kB

Hochgeladen:	23.05.2011

Downloadcounter:
		Download

23.05.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

non, était pas cela quoi je suchte et cela Richtige lag avant meinen Füßen. Mußte mich seulement "bücken".
Kompilieren Marque Séparation

 $H Windows.ph
CLS
var dlg&=Create("Dialog",%hwnd,"BILD",10,10,600,600)
' die Ausdehnung der Gridbox begrenzen
var dialog1&=Control("STATIC","",$54000000,80,20,360,460,dlg&,0,%hinstance,$0)
var Titel$ = "Links;0;180;Mitte;2;100;Rechts;1;80"
var hGrid& = Create("GridBox", dialog1&, Titel$, 0, 0, 0, 0, 0)
SetStyle hGrid&,GetStyle(hGrid&) | ~WS_SIZEBOX
AddString(hGrid&, "AB|DEF|0123")
AddString(hGrid&, "GHI|J23KL|012345")
AddString(hGrid&, "*|MNOP|PQR|")
AddString(hGrid&, "STU||V")
AddString(hGrid&, "ABCD12|STUVW|XYZ0")
AddString(hGrid&, "ABCD34|stuvw|999,00")
AddString(hGrid&, "Abcd45|STUVW|-111,11")
AddString(hGrid&, "Abcd56|StUVW|2.111,11")
AddString(hGrid&, "Abcd56|AbxVW|-15.234,56")
AddString(hGrid&, "Abcd67|STUVW|0,00")
SETWINDOWPOS hGrid&=140,40- 200,300

WHILE 1

    WAITINPUT

ENDWHILE

FIN