Re: Statusbalken unter Profan²


[ Nachträge ] [ Nachtrag schicken ] [ Profan² News Board ]

Von Richard Maurukas am 21 Dezember, 1997 um 21:04:20:

Antwort auf: Statusbalken unter Profan² von Sven Schmidts am 07 Dezember, 1997 um 15:20:29:

Für alle die Ihn nicht in der News finden.
Gruß von Richard.

' Beispiel, das zeigt, wie mittels der @control-Funktion
' unter Profan ein Fortschritt-Balken für Win95, WinNT erzeugt wird.
' Die Länge des erzeugten Controls stellt in diesem Beispiel 100 % dar.
'
'
DEF @CREATEPROGRESS(6) @control("msctls_progress",@$(2),$50800000,@%(3),@%(4),@%(5),@%(6),@%(1),100, %HInstance)
'
declare PRDialog%,text1%, text2%, text3%,text4%,text5%,Progress%,Ende%
declare PM_Setpos&,PM_DeltaPos&,PM_SetStep&,PM_StepIt&,PM_Bereich&

let PM_Setpos& =1026
let PM_DeltaPos& =1027

let PRDialog%=@Createdialog(%HWND,"Progressbalken für Win95, WinNT von Richard Maurukas",0,0,640,250
let Progress%=@CREATEPROGRESS(PRDialog%,"",20,60,600,20)
let text1% = @CreateButton(PRDialog%,"Auf 50% setzen",20,100,200,20)
let text2% = @CreateButton(PRDialog%,"Um 2% erhöhen", 20,120,200,20)
let text3% = @CreateButton(PRDialog%,"Um 2% erniedrigen", 20,140,200,20)
let text4% = @CreateButton(PRDialog%,"Auf 0% setzen", 20,160,200,20)
let text5% = @CreateButton(PRDialog%,"Beenden", 20,180,200,20)

Startpaint PRdialog%
usefont "Times Nes Roman",42,0,0,0,0
textcolor rgb(7,7,7),-1
Drawtext 260,120, "Frohe Weihnachten..."
endpaint
Let Ende%=0
Whilenot Ende%
Waitinput
if getfocus(text1%)
sendmessage(Progress%,PM_SetPos&,50,0) 'auf Position 50 setzen
elseif getfocus(text2%)
sendmessage(Progress%,PM_DeltaPos&,2,0) 'um 2 erhöhen
elseif getfocus(text3%)
sendmessage(Progress%,PM_DeltaPos&,-2,0) 'um 2 erniedrigen
elseif getfocus(text4%)
sendmessage(Progress%,PM_SetPos&,0,0) 'auf Position 0 setzen
elseif getfocus(text5%)
let Ende%=1
endif
wend
destroywindow(PRDialog%)
end



Nachträge:



Nachtrag schreiben

Name:
E-Mail:

Subject:

Nachricht:

Link Adresse:
Link Titel:
Bild Adresse:


[ Nachtrag ] [ Nachtrag schreiben ] [ Profan² News Board ]