XProfan

English

Can the GridBOX (or. ListView) a Style miss out on, that they itself How with one dialog or Window by mouse into äußeren dimensions enhance or verkleinern can?

05/23/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

so it about so ( [...]

) looks?

moreover could You by SetStyle ws_* Konstanten add -

Konstanten you can easily Konstantinopel ( [...]

) entnehmen.

Try time:
Compile Mark Separation

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

means:
Compile Mark Separation

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

05/23/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Freier

the I get not without Dialogue is not there. can nothing suitable find.
here with dialog without Spaltenanpassung.
Compile Mark Separation

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/'>END

Gruß Thomas
Windows XP SP2, XProfan X2

05/23/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Perhaps. so:
Compile Mark Separation

 $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:	05/23/11

Downloadcounter:
		Download

05/23/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Freier

No, wasn't the I sought and the Right thing lying to my Füßen. had to me only "bücken".
Compile Mark Separation

 $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