Prozentualer Fortschritt als Text in ProgressBar...

[Luckie]

Ja, nee, schon klar. ;)

Ich meine, wenn der Balken hinter der Schrift ist, dass sie dann die Farbe wechselt, dass man sie noch lesen kann.

[FriFra]

Das Problem habe ich nicht... der Balken hat ja eine Farbe, wo man die Schrift genauso sieht wie auf dem Hintergrund ;)

[jfheins]

Und alle ignorieren Sie mich :? :evil: :cry:
(Schon das 2. Thema in dieser Woche ...)

So geht es:
(zumindest bei mir)

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ComCtrls, StdCtrls, xpman;

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
      { Private-Deklarationen }
      OldProgressWndProc: TWndMethod; 
      procedure ProgressWndProc(var Msg: TMessage);
   public
      { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.ProgressWndProc(var Msg: TMessage);
var 
  dc: HDC; 
  rect: TRect; 
begin
   OldProgressWndProc (Msg);

   if Msg.Msg = WM_PAINT then
// Wenn die Progressbar neugezeichnet wurde,
// und somit die Zahl weg ist: Prozentzahl neu draufpinseln
   begin
      dc := GetWindowDC(Progressbar1.Handle);
      Windows.GetClientRect(Progressbar1.Handle, rect);
      SetBkMode(dc, TRANSPARENT);
      DrawText(dc, PChar(Text), length(Text), rect, DT_SINGLELINE or DT_VCENTER or DT_CENTER);
                  // vll. noch       ReleaseDC(Progressbar1.Handle, dc);
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   OldProgressWndProc := ProgressBar1.WindowProc;
   ProgressBar1.WindowProc := ProgressWndProc;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   repeat
      ProgressBar1.StepIt;
      Application.ProcessMessages;
      Sleep (50);
   until ProgressBar1.Position = 100;
end;

end.

Weitestgehend ohne Flimmern, ich habs jetzt aber nicht mit suiskin (oder wie das heißt) ausprobiert ...

[Luckie]

Warum der Umstand? Aber gut, so geht es auch.

[jfheins]

Ich kenne jetzt nicht diese Skinkompo, aber so wird die Prozentzahl immer draufgepinselt, und nicht nur, wenn er .StepIt aufruft und dann die Prozentzahl neu draufmalt ;)

(Sie könnte sich ja zwischendurch neuzeichnen)

[FriFra]

jfheins: Ich hab jetzt mal Deinen Code getestet... das Problem ist nur, dass mein Progressbar niemals die Message WM_PAINT bekommt...

[FriFra]

Also, jetzt hab ich's hinbekommen...

Delphi-Quellcode:

  if (Msg.Msg = 1026) or (Msg.Msg = WM_PAINT) then

WM_PAINT hab ich zwar drin gelassen, aber diese Message ist bei meinen Tests noch nie bei meiner Progressbar angekommen. Die relevante Message ist 1026, was das für eine Message sein soll hab ich noch nicht rausbekommen...

[ManuMF]

Für faule Leute wie mich :angel2: gibt es auch die Bars aus der JEDI-VCL.
Bei manchen steht der Fortschritt auch drauf.

[FriFra]

Soweit läuft ja jetzt alles schonmal ganz gut...
Wenn ich allerdings die SkinEngine deaktiviere, wird der Hintergrund der Progressbar nätürlich nicht aktualisiert und das ganze sieht dann so aus:
http://www.frifra.de/Temp/progressbar2.jpg

Wenn ich "SetBkMode(dc, TRANSPARENT);" deaktiviere kann man den Text zwar lesen, aber man hat natürlich einen weißen Hintergrund:
http://www.frifra.de/Temp/progressbar3.jpg

Wenn ich nun vorher "InvalidateRect(Progressbar1.Handle, @rect, True);" aufrufe gibt es ein fürchterliches geflimmer...

[Daniel G]

mal 'ne blöde Zwischenfrage:

Wenn das mit deiner Skin - Kompo so derbe Probleme gibt, warum packst du die Prozentzahl als Label denn nicht neben die Progressbar?