Forum: Win32/Win64 API (native code)
Delphi
by pszopp,
29. Sep 2005
Mittlerweile funktioniert es bei mir. Leider habe ich an den betreffenden Code-Stellen nichts geändert.
Ich gehe deswegen davon aus, dass der Fehler irgendwann wieder auftritt.
Demo-Programme kann ich persönlich leider nicht verschicken, da für die Prorgamme
Runtime Bibliotheken benötigt werden.
Bis demnächst
Forum: Win32/Win64 API (native code)
Delphi
by pszopp,
28. Sep 2005
Leider nicht:
procedure TFormMain.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if (Panel = StatusBar1.Panels) then
StatusBar1.Canvas.TextOut(Rect.Left, Rect.Top, Panel.Text);
end;
Forum: Win32/Win64 API (native code)
Delphi
by pszopp,
28. Sep 2005
Hallo Zusammen,
ich benutze in meinem Programm die Komponente TStatusBar.
Dabei ist bei einem Panel die Eigenschaft "Style" auf "psOwnerDraw" gesetzt.
Über das StatusBar-Event "OnDrawPanel" zeichne ich auf den Canvas der StatusBar
einen Text. Das funktioniert soweit. Wenn nun aber ein anderes Formular angezeigt
wird, oder das Hauptformular vergößert/verkleinert wird, so wird eine...