Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249208 (10644)
  Suchen
 Zurück zur Übersicht
 AutorThema: Statusanzeige in Dialogen
Lemmi Noname
Datum:01.02.02 10:18 Antwortenals Email verschicken (lemmi.noname@t-online.de) 



Hallo Leute,

in Windows findet man immer wieder Statusanzeigen.
Bei der Installation / Kopieren / Verschieben / ...

Mich würde interessieren wie man solche Statusanzeigen unter Profan erzeugen kann.

Welche Möglichkeiten / Variationen gibt es, etc. ?

MfG Lemmi Noname


Marcel Tisztl
Datum:01.02.02 17:50 Antwortenals Email verschicken (Dave_Kirchberg@web.de) 


Ich würds ja mit einem Rectangle machen, das sich über eine Schleife, b.z.w einer Prozedur immer wieder verlängert. Ich habs aber selbst noch nicht ausprobiert.

M. Tisztl


Rene Wagner
Datum: 01.02.02 19:05 Antwortenals Email verschicken (apollo@rw-net.de) 


Das funktioniert über ProgressBars. Die können über die API erstellt werden. Mit PrFellow oder VisualWindowPro lassen die sich ganz einfach erstellen. Das Beispiel wurde mit dem VisualWindow standard erstellt. Kannst Du bei MSGroup als Freeware downloaden

$P+
'Funktionsdefinitionen
Def GetSysColor(1) !"USER32","GetSysColor"
Def CreateProgressBar(7) Control("msctls_progress32",@$(2),$50800000,@%(3),@%(4),@%(5),@%(6),@%(1),@%(7),%hinstance)
Def SetProgressPos(2) SendMessage(@&(1),1026,@&(2),0)
Def ProgressDeltaPos(2) SendMessage(@&(1),1027,@&(2),0)
Def SetProgressStep(2) SendMessage(@&(1),1028,@&(2),0)
Def ProgressStep(1) SendMessage(@&(1),1029,0,0)
'Ende der Funktionsdefinitionen

'Declarationsblock
declare _ende%
Declare ProgressBar1&
'Ende des Declarationsblocks

SetTrueColor 1
WindowStyle 15
WindowTitle "Profan-Fenster"
Window add(%maxx,156),122-550,360
CLS GetSysColor(15)
UseFont "MS Sans Serif",10,7,0,0,0
SetDialogFont 1
let ProgressBar1&=CreateProgressBar(%HWND,"",76,34,150,16,2000)
SetWindowPos %HWND=156,122-550,360

WhileNot _ende%
 WaitInput
   'GetMessage
 If Equ(%key,2)
   Let _ende%=1
  ElseIf GetFocus(ProgressBar1&)
   'Ereignisbehandlung
 ElseIf Equ(%key,4)
   'Fenstergröße
 EndIf
Wend


End


'Quelltext wurde mit MSG VisualWindow erstellt.
'(C)opyright 1998 by MS Group Software
'http://www.msgroup.home.pages.de


mfG, René


 Zurück zur Übersicht