XProfan

Deutsch

Kann man der Gridbox (bzw. ListView) einen Style verpassen, dass sie sich wie bei einem Dialog oder Fenster per Maus in den äußeren Abmessungen vergrößern oder verkleinern läßt?

23.05.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Damit es ungefähr so ( [...]

) aussieht?

Dazu könntest Du per SetStyle ws_* Konstanten hinzufügen -

Konstanten kannst Du einfach Konstantinopel ( [...]

) entnehmen.

Probiere mal:
Kompilieren Markieren Separieren

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

Also:
Kompilieren Markieren Separieren

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

23.05.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Thomas
Freier

Das bekomme ich nicht ohne Dialog nicht hin. Kann nichts passendes finden.
Hier mit Dialog ohne Spaltenanpassung.
Kompilieren Markieren Separieren

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#
END

Gruß Thomas
Windows XP SP2, XProfan X2

23.05.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Vlt. so:
Kompilieren Markieren Separieren

 $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

end

zwischenablage01.png	11 kB

Hochgeladen:	23.05.2011

Ladeanzahl:
		Herunterladen

23.05.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Thomas
Freier

Nein, war nicht das was ich suchte und das Richtige lag vor meinen Füßen. Mußte mich nur "bücken".
Kompilieren Markieren Separieren

 $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

END