XProfan

'Resize of Steuerelementen in Echtzeit
 $I PROFALT.INC'Include-File for Source code former Profan-versions (to XProfan 11.0), The yet no Operators benefit.
'with usage of  XProfan < 11.0 can The above-mentioned Include-row "$I PROFALT.INC" bedenkenlos deleted go.
'in the subesquent example becomes The Resize one Steuerelementes,
' in this drop one Button, in Echtzeit demonstrating. with Veränderung the Size the Fensters
' changed itself too The Size the Buttons.
'-Begin-----------------------------------------------------------------
'-HeaderFiles---------------------------------------------------------
 $H windows.ph
 $H Messages.ph
'-Variables Declaration-----------------------------------------------
Declare end%, OldWndProc&, hButton%
'-CallBack routine----------------------------------------------------

Proc ChangeControl

    Parameters hWnd&, Message&, wParam&, lParam&
    Declare btnHeight&

    If Message& = ~WM_SIZE

        '-request, so Button not small 16 Pixel Hoehe------------

        If @Height(%hWnd) / 5 < 16

            btnHeight& = 16

        Else

            btnHeight& = @Height(%hWnd) / 5

        EndIf

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

    EndIf

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

ENDPROC

'-Main----------------------------------------------------------------
'-Erweitertes MessageHandling turn off----------------------------
Set("FastMode", 1)
'-Window oeffnen and GUI set up----------------------------------
Window 0, 0 - 640, 480
Window Title "Größenänderung of Steuerelementen in Echtzeit"
'-Backgroundcolor the Fensters set---------------------------
Declare Color&, Red%, Green%, Blue%
Color& = ~GetSysColor(~COLOR_3DFACE)
Red% = @GetRValue(Color&)
Green% = @GetGValue(Color&)
Blue% = @GetBValue(Color&)
Cls @RGB(Red%, Green%, Blue%)
'-----------------------------------------------------------------
@Create("Text", %hWnd, "Ändere The Size this Fensters", 10, \
10, 250, 20)
hButton% = @Create("Button", %hWnd, "Ende", 10, 34, \
@Width(%hWnd) - 20, @Height(%hWnd) / 5)
'-ProgramMainRoutine with CallBack redirecting on Own---------------
OldWndProc& = ~GetWindowLong(%hWnd, ~GWL_WNDPROC)
~SetWindowLong(%hWnd, ~GWL_WNDPROC, @ProcAddr("ChangeControl", 4))
'-dialog-Loop---------------------------------------------------
Clear end%

WhileNot end%

    WaitInput

    If %Key = 2

        end% = 1

    ElseIf @Clicked(hButton%)

        end% = 1

    EndIf

EndWhile

'-Urspruengliche ProgramMainRoutine again produce---------------
~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

while 0=0

    waitinput

EndWhile

destroywindow(Edit&)
freedll rtfDll&

 $H windows.ph
Declare listview&,lvdll&,Text$,bytes&,area#,x&,y&,z&
Def GetSysColor(1) !"USER32","GetSysColor"
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
SetTrueColor 1
Windowstyle 543
Windowtitle "Listview.dll Size Change..."
Window 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 integrally respectably aus"
SetItem listview&,"DOS",2,"gut","Klar verständlich"
SetItem listview&,"Eimer",3,"ungenügend","Nicht time Mülltonnen-Oskar would there 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)

While 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

while 0=0

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

EndWhile

destroywindow(Edit&)