Forum: GUI-Design mit VCL / FireMonkey / Common Controls
FreePascal
by DeddyH,
10. Dez 2014
Mal eine ganz simple Komponente ohne irgendwelche Panels oder Images:
type
TMyProgress = class(TGraphicControl)
private
FBitmap: TBitmap;
FPosition: integer;
procedure SetPosition(const Value: integer);
protected
procedure Paint; override;
public
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
FreePascal
by DeddyH,
10. Dez 2014
Die Standard-Progressbar wird von Windows gezeichnet, da würde ich nicht einschreiten wollen. Aber Du kannst Dir doch selbst was von TGraphicControl oder TCustomControl ableiten, da kannst Du dann nach Herzenslust drauf herummalen.