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