XProfan

Español

Kann uno el Gridbox (o. ListView) una Style verpassen, dass ellos se como en una Diálogo oder Ventana por Ratón en el äußeren Abmessungen vergrößern oder verkleinern läßt?

23.05.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Damit lo ungefähr así ( [...]

) aussieht?

Dazu könntest Usted por SetStyle ws_* Konstanten hinzufügen -

Konstanten kannst Usted simplemente Konstantinopel ( [...]

) entnehmen.

Probiere veces:
Kompilieren Marca Separación

/*
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 Marca Separación

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

23.05.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Das bekomme Yo no sin Diálogo no hin. Kann nichts passendes encontrar.
Hier con Diálogo sin Spaltenanpassung.
Kompilieren Marca Separación

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 Zitat

Absatzweise Cita Zeilenweise Cita

Vlt. así:
Kompilieren Marca Separación

 $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

Ladeanzahl:
		Descargar

23.05.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Nein, war no el Yo suchte y el Richtige lag antes media Füßen. Mußte mich sólo "bücken".
Kompilieren Marca Separación

 $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