Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Darlo,
9. Feb 2012
TSwitch = class(TCustomTrack)
private
FBitmap: TBitmap;
FOnBrush, FOffBrush: TBrush;
FBackground: TShape;
FOnSwitch: TNotifyEvent;
FIsChecked: Boolean;
procedure UpdateBitmap;
procedure FillBitmap; virtual;
procedure SetIsChecked(const Value: Boolean);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Darlo,
9. Feb 2012
Hallo zusammen,
ich bin gerade dabei mir für Firemonkey einen eigenen Switch zu erstellen. Ziel ist es
den vorhanden TSwitch um ein Textfeld für On und Off zu erweitern.
Mein Problem ist folgendes:
Switch starte mit IsChecked = false und dem String 'nein' im neu
eingefügten TText. Wenn ich den Switch jetzt auf IsChecked = true
setzte wird korrekt der Wert 'ja' angezeigt. Leider...