Italia
Fonte/ Codesnippets

Beispiele Button Buttons Erweiterte Stat Stile

 

KompilierenMarkierenSeparieren
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Button: Beispiele für erweiterte Stile für Buttons und Static-Controls
PRFellow- Vorlage
Autor: Thomas Hölzer
Ein paar Beispiele für erweiterte Stile für Buttons und Static-Controls
DEF SetWindowLong(3) !USER32,SetWindowLongA
DEF GetWindowLong(2) !USER32,GetWindowLongA

Proc CreateStaticEx

    Parameters t$,x%,y%,x1%,y1%,border%,alignment%
    Declare h&,xstyle%
    Let h&=CreateText(%hwnd,t$,0,0,0,0)
    let xstyle%=1
    Case border%:Let xstyle%=$200
    SetWindowLong(h&,-20,xstyle%)
    SetWindowLong(h&,-16,Or(GetWindowLong(h&,-16),alignment%))
    SetWindowPos h&=x%,y%-x1%,y1%
    Return h&

EndProc

Proc CreateCheckBoxEx

    Parameters t$,x%,y%,x1%,y1%,border%
    Declare h&,xstyle%
    let xstyle%=1
    Case border%:Let xstyle%=$200
    Let h&=CreateCheckBox(%hwnd,t$,0,0,0,0)
    SetWindowLong(h&,-20,xstyle%)
    SetWindowPos h&=x%,y%-x1%,y1%
    Return h&

EndProc

Proc CreateRadioBtnEx

    Parameters t$,x%,y%,x1%,y1%,border%
    Declare h&,xstyle%
    let xstyle%=1
    Case border%:Let xstyle%=$200
    Let h&=CreateRadioButton(%hwnd,t$,0,0,0,0)
    SetWindowLong(h&,-20,xstyle%)
    SetWindowPos h&=x%,y%-x1%,y1%
    Return h&

EndProc

Proc CreateCheckButton

    Kann mit GetCheck abgefragt werden wie normale CheckBox!
    Parameters t$,x%,y%,x1%,y1%
    Declare h&
    Let h&=CreateCheckBox(%hwnd,t$,0,0,0,0)
    SetWindowLong(h&,-16,Or(GetWindowLong(h&,-16),4096))
    SetWindowPos h&=x%,y%-x1%,y1%
    Return h&

EndProc

Proc CreateFlatButton

    Parameters t$,x%,y%,x1%,y1%
    Declare h&
    Let h&=CreateButton(%hwnd,t$,0,0,0,0)
    SetWindowLong(h&,-16,Or(GetWindowLong(h&,-16),32768))
    SetWindowPos h&=x%,y%-x1%,y1%
    Return h&

EndProc

Proc CreateMultiLineButton

    Parameters t$,x%,y%,x1%,y1%
    Declare h&
    Let h&=CreateButton(%hwnd,t$,0,0,0,0)
    SetWindowLong(h&,-16,Or(GetWindowLong(h&,-16),8192))
    SetWindowPos h&=x%,y%-x1%,y1%
    Return h&

EndProc

Beispiele
Declare hcheck&
SetTrueColor 1
WindowTitle Ein paar Beispiele für erweiterte Stile für Buttons und Static-Controls
Cls RGB(192,192,192)
TextColor 0,RGB(192,192,192)
Usefont Times New Roman,15,0,0,1,0
SetDialogFont 1
CreateStaticEx Static linksbündig mit Zeilenumbruch,10,10,150,100,1,0
CreateStaticEx Static zentriert mit Zeilenumbruch,200,10,150,100,0,1
CreateStaticEx Static rechtsbündig mit Zeilenumbruch,400,10,150,100,1,2
CreateListBoxEx 400,10,150,180,1
CreateCheckBoxEx  3DCheckBox 0,10,120,150,26,0
CreateCheckBoxEx  3DCheckBox 1,10,160,150,26,1
CreateRadioBtnEx  3DRadioBtn 0,200,120,150,26,0
CreateRadioBtnEx  3DRadioBtn 1,200,160,150,26,1
CreateCheckButton CheckButton,10,200,100,24
let hcheck&=@&(0)
CreateFlatButton FlatButton,200,200,100,24
CreateMultiLineButton Das ist ein MultiLineButton mit ziemlich langem Text.,
400,120,150,100

While 1

    IF GetCheck(hcheck&)

        DrawText 10,240,Unten

    Else

        DrawText 10,240,Oben

    EndIf

    WaitInput

Wend

 
15.07.2007  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

1.963 Views

Untitledvor 0 min.
Georg14.01.2021
H.Brill10.01.2019
Ernst27.04.2014
Thomas Freier02.02.2014
Di più...

Themeninformationen

Dieses Thema hat 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie