Prozentualer Fortschritt als Text in ProgressBar...

[FriFra]

Zitat von Luckie:

1.: SetTextColor
2.: CreateFont, SelectObject. Würd eich aber am Anfang einmal in den DC der Progressbar selektieren und nicht jedes mal.
3.: Bei meinem Code flackert nichts, auch wenn sie schnell läuft. Nachtrag: Dein Code flackert bei mir auch nicht. Löst du irgendwo anders noch irgendwelche Repaints aus?

Danke für die Tips
1. und 2. hab ich hinbekommen.

3. Der Code flackert Doch!
Also hier ist nun meine aktuelle procedure:

Delphi-Quellcode:

procedure TDupFind_Main.WritePercent(Progressbar: TProgressbar);
var
  dc: HDC;
  myfont: Cardinal;
  rect: TRect;
  Text: string;
begin
  if (ProgressBar.Max = 0) or (ProgressBar.Position = 0) then
    Text := '0%'
  else if ProgressBar.Max = ProgressBar.Position then
    Text := '100%'
  else
    Text := IntToStr(Trunc(100 / ProgressBar.Max * ProgressBar.Position)) + '%';
  dc := GetWindowDC(Progressbar.Handle);

  myfont := CreateFont(-12, 0, 0, 0, 0, 0, 0, 0, ANSI_CHARSET,
    OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH,
    'Verdana');

  SetBkMode(dc, TRANSPARENT);
  SetTextColor(dc, clBlack);
  SelectObject(dc, myfont);

  rect := ProgressBar.ClientRect;
  SetBkMode(dc, TRANSPARENT);
  DrawText(dc, PChar(Text), length(Text), rect, DT_SINGLELINE or DT_VCENTER or
    DT_CENTER);
  InvalidateRect(Progressbar.Handle, @rect, True);
end;

Der Aufruf erfolgt bei mir so:

Delphi-Quellcode:

          ProgressBar1.Position := FCnt;
          WritePercent(ProgressBar1);

Beim Setzen der Position wird die Progressbar neu gezeichnet und damit mein Text überzeichnet, durch das anschließende neu schreiben des Textes entsteht ein ziemlich nerviger Flimmereffekt...