Italia
Fonte/ Codesnippets

Button Dimensione Position Verändern

 

KompilierenMarkierenSeparieren
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Button-Position und -Größe verändern
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Dieses Beispiel demonstriert, wie man die Titelzeile eines Fensters
und den Text auf einem Button verändern kann
Es bedeuten:
------------
Titel?$     der Text der Titelzeile des Hauptfensters
exit%       Handle des Beenden-Buttons
test%       Handle des Test-Buttons
TextButton% Handle des TextButtons
i%          Zählvariable
declare e%,exit%,test%,i%
declare Titel1$,Titel2$,Titel3$,Titel4$,Titel5$
declare TextButton%
let titel1$=Profan² ist Klasse !!!
let titel2$=Profan² an die Schulen !!!
let titel3$=Profan² an die Schulen ???
let titel4$=Profan² ist super !!!
let titel5$=Mit Profan² ins WWW !!!
cls                      Erzeugt Hauptfenster 640 x 480 Pixel
WindowTitle Titel5$      Setzen des Fenstertitels
let exit%=CreateButton(%HWnd,Exit,5,405,100,25)
let test%=CreateButton(%HWnd,Fenstertitel ändern,475,405,150,25)
let textbutton% = CreateButton(%HWnd,Titel3$,170,100,300,25)
let e%=0

whilenot e%

    WaitInput

    if GetFocus(exit%)

        let e%=1

    elseif GetFocus(test%)

        inc i%

        if i% = 1

            SetText %HWnd,Titel1$
            SetText TextButton%,Titel4$
            SetWindowPos TextButton% = 75,300 - 550,25

        endif

        if i% = 2

            SetText %HWnd,Titel2$
            SetText TextButton%,Titel5$
            SetWindowPos TextButton% = 5,100 - 200,25

        endif

        if i% = 3

            SetText %HWnd,Titel3$
            SetText TextButton%,Titel1$
            SetWindowPos TextButton% = 5,100 - 200,200

        endif

        if i% = 4

            SetText %HWnd,Titel4$
            SetText TextButton%,Titel2$
            SetWindowPos TextButton% = 5,5 - 600,15

        endif

        if i% = 5

            SetText %HWnd,Titel5$
            SetText TextButton%,Titel3$
            SetWindowPos TextButton% = 5,5 - 600,400

        endif

        case i% = 5 : i% = 0

    elseif GetFocus(Textbutton%)

        MessageBox(Aua! Das tut doch weh !!!,Aua! Aua! Aua!,4112)

    endif

    SetFocus(%HWnd)

wend

end
 
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.893 Views

Untitledvor 0 min.
Jörg Sellmeyer18.06.2018
E.T.19.10.2015
Ernst03.06.2013
Frank Tretter26.02.2013
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