XProfan

'Größenänderung de Steuerelementen en Echtzeit
 $I PROFALT.INC'Incluir-Expediente para Quellcodes früher Profano-Versionen (antes XProfan 11.0), el todavía no Operatoren nutzen.
'En Verwendung de  XProfan < 11.0 kann el obige Incluir-Línea "$I PROFALT.INC" bedenkenlos gelöscht voluntad.
'Im folgenden Ejemplo se el Größenänderung uno Steuerelementes,
' en diesem Fall una Button, en Echtzeit demonstriert. Mit Veränderung el Größe la ventana
' verändert se auch el Größe des Buttons.
'-Begin-----------------------------------------------------------------
'-HeaderFiles---------------------------------------------------------
 $H Windows.ph
 $H Messages.ph
'-Variables Declaration-----------------------------------------------
Declarar Ende%, OldWndProc&, hButton%
'-CallBack Rutina----------------------------------------------------

Proc ChangeControl

    Parámetros hWnd&, Message&, wParam&, lParam&
    Declarar btnHeight&

    If Message& = ~WM_SIZE

        '-Abfrage, así Button no kleiner 16 Pixel Hoehe------------

        If @Height(%hWnd) / 5 < 16

            btnHeight& = 16

        Más

            btnHeight& = @Height(%hWnd) / 5

        EndIf

        '-Groesse des Buttons aendern-----------------------------------
        SetWindowPos hButton%, 10, 34 - @Width(%hWnd) - 20, btnHeight&

    EndIf

    Volver ~CallWindowProc(OldWndProc&, hWnd&, Message&, \
    wParam&, lParam&)

ENDPROC

'-Main----------------------------------------------------------------
'-Erweitertes MessageHandling abschalten----------------------------
Conjunto("FastMode", 1)
'-Ventana oeffnen y GUI aufbauen----------------------------------
Ventana 0, 0 - 640, 480
Título de la ventana "Größenänderung de Steuerelementen en Echtzeit"
'-Color de fondo la ventana setzten---------------------------
Declarar Color&, Red%, Green%, Blue%
Color& = ~GetSysColor(~COLOR_3DFACE)
Red% = @GetRValue(Color&)
Green% = @GetGValue(Color&)
Blue% = @GetBValue(Color&)
Cls @RGB(Red%, Green%, Blue%)
'-----------------------------------------------------------------
@Crear("Text", %hWnd, "Ändere el Größe dieses Fensters", 10, \
10, 250, 20)
hButton% = @Crear("Button", %hWnd, "Ende", 10, 34, \
@Width(%hWnd) - 20, @Height(%hWnd) / 5)
'-ProgramMainRoutine con CallBack umleiten en propio---------------
OldWndProc& = ~GetWindowLong(%hWnd, ~GWL_WNDPROC)
~SetWindowLong(%hWnd, ~GWL_WNDPROC, @ProcAddr("ChangeControl", 4))
'-Diálogo-Bucle---------------------------------------------------
Claro Ende%

Sinestar encargado Ende%

    WaitInput

    If %Key = 2

        Ende% = 1

    ElseIf @Clicked(hButton%)

        Ende% = 1

    EndIf

EndWhile

'-Urspruengliche ProgramMainRoutine otra vez herstellen---------------
~SetWindowLong(%hWnd, ~GWL_WNDPROC, OldWndProc&)
'-End-------------------------------------------------------------------
End

 $H Windows.ph
cls
var RtfDll&=usedll("riched32.dll")
var Edit&=control("RichEdit20A","",$500050c4,50,50,100,28,%hwnd,5000,0)
~SetWindowLong(Edit&,~GWL_EXSTYLE,0)
settext Edit&,"Text eingeben"
SetStyle Edit&,GetStyle(Edit&) | ~ws_thickFrame

mientras que 0=0

    waitinput

EndWhile

destroywindow(Edit&)
freedll rtfDll&

 $H Windows.ph
Declarar listview&,lvdll&,texto$,bytes&,bereich#,x&,y&,z&
Def GetSysColor(1) !"USER32","GetSysColor"
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
SetTrueColor 1
Windowstyle 543
Windowtitle "Listview.dll Größe ändern..."
Ventana 0,0-800,600
Cls GetSysColor(15)
Usefont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
x&=MixRGBs(GetSysColor(15),$00ffffffff)
listview&=CreateListView(%hwnd,%hInstance,0,x&,-1,$11)
SetStyle listview&,GetStyle(listview&) | ~ws_thickFrame
EnableEdits(listview&,1)
InsertColumn listview&,"Name",80,0
InsertColumn listview&,"Index",80,1
InsertColumn listview&,"Bewertung",96,2
InsertColumn listview&,"Kommentar",308,0
SetItem listview&,"A",1,"befriedigend","Sieht bastante anständig aus"
SetItem listview&,"DOS",2,"gut","Klar verständlich"
SetItem listview&,"Eimer",3,"ungenügend","Nicht veces Mülltonnen-Oskar sería hay reinkriechen"
SetItem listview&,"Gesicht",4,"ungenügend","Komisches Gesicht"
SetItem listview&,"Müll",5,"mangelhaft","Nicht erkennbar"
AutoSortListview listview&,0,1,2,1,1
SortManual(listview&,2,0)
ShowListView(listview&,8,76,452,280)
InitMessages(%hwnd)

Mientras que 1

    waitinput
    Case %key=2:BREAK

Wend

DestroyWindow(listview&)
CloseMessages(%hwnd)
freedll lvdll&
 $I Listview_Dispose.inc
End

 $H Windows.ph
Def GetSysColor(1) !"USER32","GetSysColor"
cls GetSysColor(15)
Usefont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
var Edit&= Control("EDIT","",$54010000,150,50,140,22,%hwnd,0,%hInstance, $00000001)
~SetWindowLong(Edit&,~GWL_EXSTYLE,0)
settext Edit&,"Text eingeben"
SetStyle Edit&,GetStyle(Edit&) | ~ws_thickFrame

mientras que 0=0

    waitinput
    SetWindowPos edit&=150,50-Width(edit&),22;0

EndWhile

destroywindow(Edit&)