Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by paresy,
28. Dez 2004
pack mal deinen code ins OnDrawPanel Event
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
const Rect: TRect);
var
R, RBar : TRect;
Position: Integer;
Text: String;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by paresy,
27. Dez 2004
wenn du schon nen TRect hast kannst doch die progressbar direkt darein zeichnen ohne den umweg über das TImage zu machen
EDIT.... habs mal für die statusbar umgeschrieben
procedure TForm1.Button1Click(Sender: TObject);
var
R, RBar : TRect;
Position: Integer;
Text: String;
begin