Deutsch
Quelltexte/ Codesnippets

Fensterinhalt Hauptfenster Neuzeichnen

 

KompilierenMarkierenSeparieren
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster: Fensterinhalt neuzeichnen (2)
------ USER.INC (C) Rolf Koch (ROC) http://www.rokosoft.de -----------------------------------------------------------
DEF @CreateWindowEx(12) ! USER32,CreateWindowExA
DEF @GETTRACKPOS(1) SENDMESSAGE(&(1),$0400,0,0)
def @DRAWEDGE(4) !USER32,DrawEdge
Declare RMN#,FARBE#

PROC CREATEOBJECT

    PARAMETERS HANDEL&,O$,TEXT$,1%,2%,3%,4%,Stil$,ext$
    DECLARE NAME#,TEXT#,RETHANDEL&
    Dim NAME#,len(O$)+1
    Dim TEXT#,len(Text$)+1
    String NAME#,0 =O$
    String TEXT#,0 = Text$
    LET RETHANDEL& = @CREATEWINDOWEX(int(val(ext$)),NAME#,TEXT#,int(val(STIL$)),1%,2%,3%,4%,HANDEL&,2000,%Hinstance,0)
    DISPOSE NAME#
    DISPOSE TEXT#
    RETURN RETHANDEL&

ENDPROC

PROC SETPROZESSPOS

    PARAMETERS HANDEL&,POS%
    SendMessage(HANDEL&,$0402,POS%,0)

ENDPROC

PROC SETTRACKPOS

    PARAMETERS HANDEL&,POS%
    SendMessage(HANDEL&,$0405,1,POS%)

ENDPROC

PROC SETTRACKRANGE

    PARAMETERS HANDEL&,POS%,POS2%
    SendMessage(HANDEL&,$0406,1,OR(POS%,Mul(POS2%,65536)))

ENDPROC

PROC DRAWFRAME abgeändert aus Vorlage von Uwe Pascal Niemeier

    PARAMETERS X%,Y%,X2%,Y2%,1%,2%
    dim RMN#,16
    LONG RMN#,0=X%
    LONG RMN#,4=Y%
    LONG RMN#,8=@ADD(X%,X2%)
    LONG RMN#,12=@ADD(Y%,Y2%)
    @DRAWEDGE(%HDC,RMN#,1%,2%)
    @DRAWEDGE(%HDC2,RMN#,1%,2%)
    DISPOSE RMN#

ENDPROC

Danke an iF (David Strutz)
Beispiel Aufruf:
CreateIPEdit %hwnd,192.168.0.1,10,10,120,20

Proc Ip2ip

    Parameters L1&,L2&,L3&,L4&
    Return (L1&*16777216)+(L2&*65536)+(L3&*256)+L4&

Endproc

PROC CreateIPEdit

    declare handle&,r_1&,r_2&,r_3&,R_4&
    Parameters hwnd&,ip_string$,rkx&,rky&,rkb&,rkh&
    r_1&=val(SUBSTR$(ip_string$,1,.))
    r_2&=val(SUBSTR$(ip_string$,2,.))
    r_3&=val(SUBSTR$(ip_string$,3,.))
    r_4&=val(SUBSTR$(ip_string$,4,.))
    handle&=Control(SysIPAddress32,0.0.0.0,$50010000,rkx&,rky&,rkb&,rkh&,hwnd&,2000,%Hinstance,$204)
    Sendmessage(handle&,1125,0,Ip2ip(r_1&,r_2&,r_3&,r_4&))
    return handle&

ENDPROC

-----------------------------------------------------------------
##################################################################
 $P+
SET(ERRORLEVEL,0)
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.5b
DATUM  24.03.2007    um  22:28 Uhr
VERWENDETE PROFANVERSION IST 10.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS Unbekannt
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE BUTTON1&
DECLARE BUTTON2&
DECLARE TEXT1&,Text1.2&
DECLARE BUTTON3&,Button3.2&
DECLARE PROGRESSBAR1&
DECLARE MULTIEDIT1&
DECLARE BUTTON4&
WINDOWSTYLE 63
WINDOWTITLE Spielerei :)
WINDOW 22,20-640,500
SET(TRUECOLOR,1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1

Proc Fenster1

    CLS GETSYSCOLOR(15)
    DRAWFRAME 0027,0067,0581,0253,9,16399
    Seite 1 einblenden:
    Showwindow(Text1&,1)
    Showwindow(Button3&,1)
    Showwindow(Progressbar1&,1)
    Showwindow(Multiedit1&,1)
    Seite 2 ausblenden:
    Showwindow(Text1.2&,0)
    Showwindow(Button3.2&,0)

Endproc

Proc Fenster2

    CLS GETSYSCOLOR(15)
    DRAWFRAME 0027,0067,0581,0103,9,16399
    Seite 1 ausblenden:
    Showwindow(Text1&,0)
    Showwindow(Button3&,0)
    Showwindow(Progressbar1&,0)
    Showwindow(Multiedit1&,0)
    Seite 2 einblenden:
    Showwindow(Text1.2&,1)
    Showwindow(Button3.2&,1)

Endproc

Hier kann ggf. Ihr Menü hin
BUTTON1& = CREATE(BUTTON,%HWND,Seite1,0017,0017,0070,0030)
BUTTON2& = CREATE(BUTTON,%HWND,Seite2,0097,0017,0070,0030)
TEXT1& = CREATE(TEXT,%HWND,Sie befinden Sich auf Seite 1,0037,0077,0152,0020)
BUTTON3& = CREATE(BUTTON,%HWND,Seite 1 Button,0037,0107,0150,0030)
CREATEOBJECT %HWND,msctls_progress32,PROGRESSBAR,0037,0147,0550,0020,$54000000,$020000
PROGRESSBAR1&=@&(0)
SETPROZESSPOS PROGRESSBAR1&,50 Position 0 - 100
MULTIEDIT1& = CREATE(MULTIEDIT,%HWND,MULTIEDIT,0047,0187,0538,0100)
BUTTON4& = CREATE(BUTTON,%HWND,Ende,0537,0017,0070,0030)
TEXT1.2& = CREATE(TEXT,%HWND,Sie befinden Sich auf Seite 2,0037,0077,0152,0020)
BUTTON3.2& = CREATE(BUTTON,%HWND,Seite 2 Button,0037,0107,0150,0030)
Zuerst zum Start Proc Fenster1 aufrufen:
Fenster1
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If %KEY=2

        ENDE%= 1

    ELSEIF %KEY=4

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

        Fenster1

    ELSEIF GETFOCUS(BUTTON2&) BUTTON

        Fenster2

    ELSEIF GETFOCUS(BUTTON4&) BUTTON

        Ende%=1

    ENDIF

ENDWHILE

 
16.07.2007  
 



Zum Quelltext


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

1.455 Betrachtungen

Unbenanntvor 0 min.
rquindt08.11.2015
JR27.11.2014
holmol9310.05.2013
Peter Gückstock24.02.2013
Mehr...

Themeninformationen

Dieses Thema hat 1 Teilnehmer:

unbekannt (1x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


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