XProfan

'Größenänderung de Steuerelementen dans temps réel
 $I PROFALT.INC'Include-Dossier pour Quellcodes früher Profan-Versionen (avant XProfan 11.0), qui encore aucun Operatoren nutzen.
'chez Verwendung de  XProfan < 11.0 peux qui obige Include-la ligne "$I PROFALT.INC" bedenkenlos gelöscht volonté.
'Im folgenden Beispiel wird qui Größenänderung eines Steuerelementes,
' dans diesem le cas un Button, dans temps réel demonstriert. avec Veränderung qui Taille des Fensters
' modifié sich aussi qui Taille des Buttons.
'-Begin-----------------------------------------------------------------
'-HeaderFiles---------------------------------------------------------
 $H Windows.ph
 $H Messages.ph
'-Variables Declaration-----------------------------------------------
Déclarer Ende%, OldWndProc&, hButton%
'-CallBack Routine----------------------------------------------------

Proc ChangeControl

    Paramètres hWnd&, Message&, wParam&, lParam&
    Déclarer btnHeight&

    Si Message& = ~WM_SIZE

        '-Abfrage, avec cela Button pas kleiner 16 Pixel Hoehe------------

        Si @Height(%hWnd) / 5 < 16

            btnHeight& = 16

        D'autre

            btnHeight& = @Height(%hWnd) / 5

        EndIf

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

    EndIf

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

ENDPROC

'-Main----------------------------------------------------------------
'-Erweitertes MessageHandling débrancher----------------------------
Set("Fastmode", 1)
'-la fenêtre oeffnen et GUI aufbauen----------------------------------
Fenêtre 0, 0 - 640, 480
Titre de la fenêtre "Größenänderung de Steuerelementen dans Echtzeit"
'-Hintergrundfarbe des Fensters setzten---------------------------
Déclarer Color&, Red%, Green%, Blue%
Color& = ~GetSysColor(~COLOR_3DFACE)
Red% = @GetRValue(Color&)
Green% = @GetGValue(Color&)
Blue% = @GetBValue(Color&)
Cls @RGB(Red%, Green%, Blue%)
'-----------------------------------------------------------------
@Créer("Text", %hWnd, "Ändere qui Taille cet Fensters", 10, \
10, 250, 20)
hButton% = @Créer("Button", %hWnd, "Ende", 10, 34, \
@Width(%hWnd) - 20, @Height(%hWnd) / 5)
'-ProgramMainRoutine avec CallBack détourner sur eigene---------------
OldWndProc& = ~GetWindowLong(%hWnd, ~GWL_WNDPROC)
~SetWindowLong(%hWnd, ~GWL_WNDPROC, @ProcAddr("ChangeControl", 4))
'-Dialog-Boucle---------------------------------------------------
Claire Ende%

WhileNot Ende%

    WaitInput

    Si %Key = 2

        Ende% = 1

    ElseIf @Clicked(hButton%)

        Ende% = 1

    EndIf

Endwhile

'-Urspruengliche ProgramMainRoutine wieder herstellen---------------
~SetWindowLong(%hWnd, ~GWL_WNDPROC, OldWndProc&)
'-Fin-------------------------------------------------------------------
Fin

 $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

tandis que 0=0

    waitinput

Endwhile

destroywindow(Edit&)
freedll rtfDll&

 $H Windows.ph
Déclarer listview&,lvdll&,text$,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 Taille changement..."
Fenêtre 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 entier anständig aus"
SetItem listview&,"DOS",2,"gut","Klar verständlich"
SetItem listview&,"Eimer",3,"ungenügend","Nicht la fois Mülltonnen-Oskar serait là 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)

Tandis que 1

    waitinput
    Cas %clé=2:BREAK

Wend

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

 $H Windows.ph
Def GetSysColor(1) !"User32","GetSysColor"
cls GetSysColor(15)
Usefont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
var Edit&= Contrôle("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

tandis que 0=0

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

Endwhile

destroywindow(Edit&)