HELP: изменение цвета шрифта Button

[koralnik]

Подскажите, что не правильно?!
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Label1Click(Sender: TObject);
private

public

end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Label1Click(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:= 1 to 1000 do
if Button1.Font.Color:=clBlack then
begin
Button1.Font.color:=clRed;
end
else
begin
Button1.Font.color:=clBlack;
end;
end;


end.

[Снег Север]

Использовать BitBtn а не Button. У Button нельзя поменять цвет шрифта.

[zoltanleo]

У Button нельзя поменять цвет шрифта.

Это не совсем так: надо лишь отключить поддержку тем в Лазаре (снять чек с "Use manifest file...")
https://forum.lazarus.freepascal.org/in ... #msg241058

[Снег Север]

zoltanleo, спасибо, буду знать. Хотя я считаю отключение поддержки тем плохой идеей...

[zoltanleo]

Я тоже