Die Schriftgrösse ändert sich.
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Font.Color := $FF;
Button1.Font.Size := 20;
Button1.Color := $FF00;
end;
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Font.Color := $FF;
Button1.Font.Size := 20;
Button1.Color := $FF00;
end;
Code: Alles auswählen
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
BitBtn1.Font.Color := $FF;
BitBtn1.Font.Size := 20;
end;
Code: Alles auswählen
type
TLiveSelection = (lsMoney, lsChilds, lsTime);
TLive = Array[0..1] of TLiveSelection;
Die Frage ist, warum man die Standardfarbe überhaupt ändern sollte?
Unter Linux wird die Button-Eigenschaft "color" problemlos akzeptiert
Ist das ein Bug oder stelle ich mich nur wieder 'mal dumm an?
Code: Alles auswählen
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: integer);
begin
Panel1.BevelOuter := bvLowered;
end;
procedure TForm1.Panel1Click(Sender: TObject);
begin
Panel1.Color:=Random($FFFFFF);
end;
procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: integer);
begin
Panel1.BevelOuter := bvRaised;
end;
Aliobaba hat geschrieben:Ist das ein Bug oder stelle ich mich nur wieder 'mal dumm an? ("Programm-Absicht" kanns ja kaum sein, sondern sonst wäre ja wohl die Wahl nicht im Objekt-Inspektor angeboten)
Aliobaba hat geschrieben:Es hilft aber alles nichts: Wenn Lazarus unter Windows die Eigenschaft "Color" bei Buttons im Objektinspektor anbietet, es aber dann nicht ausführt; das würde ich dann eben "Bug" nennen. (jetzt nehme ich mal auf mich, dass ich geschimpft werde...)