Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249208 (10644)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Statusanzeige in Dialogen
Lemmi Noname
| Datum:01.02.02 10:18 (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 (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 (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