AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Ich will die Sanduhr zurück!
Thema durchsuchen
Ansicht
Themen-Optionen

Ich will die Sanduhr zurück!

Ein Thema von p80286 · begonnen am 3. Feb 2017 · letzter Beitrag vom 6. Feb 2017
Antwort Antwort
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#1

AW: Ich will die Sanduhr zurück!

  Alt 6. Feb 2017, 12:59
Erst einmal vielen Dank für die vielen Anregungen!
Da ich heute noch einmal bemerken durfte wie, unzuverlässig die Taskbar(Darstellung) ist, werde ich dies als Zweitmöglichkeit nutzen. Meine primäre Lösung wäre eine Progressbar oder etwas verwandtes auf dem Mainform.
hier hab ich noch etwas zur Taskbar aufgetan, falls sich jemand dafür interessiert.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#2

AW: Ich will die Sanduhr zurück!

  Alt 6. Feb 2017, 14:05
Ungetestet, da nur grob abgekupfert:
Delphi-Quellcode:
procedure SetProgressBarOnPanel(stb : TStatusBar; pb : TProgressBar; iPanelNo : Integer);
var
          PanelRect : TRect;
          ProgressBarStyle : LongInt;
begin
  if pb.Parent <> stb then pb.Parent := stb;
  ProgressBarStyle := GetWindowLong(pb.Handle, GWL_EXSTYLE);
  ProgressBarStyle := ProgressBarStyle - WS_EX_STATICEDGE;
  SetWindowLong(pb.Handle, GWL_EXSTYLE, ProgressBarStyle);
  SendMessage(stb.Handle, SB_GETRECT, iPanelNo, Integer(@PanelRect));
  pb.SetBounds(PanelRect.Left + 1,
               PanelRect.Top + 1,
               PanelRect.Right - PanelRect.Left - 2,
               PanelRect.Bottom - PanelRect.Top - 2);
end;
Damit müsste man eine Progressbar auf ein Panel einer Statusbar legen können, dabei gehe ich mal davon aus, dass die Statusbar mindestens 1 Panel hat.
Delphi-Quellcode:
type
  Tform1 = class(TForm)
    pb: TProgressBar;
    stb: TStatusBar;
...
// Im FormCreate oder so:
  SetProgressBarOnPanel(stb,pb,0);
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz