mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 08:58:02 +02:00
51 lines
1.0 KiB
ObjectPascal
51 lines
1.0 KiB
ObjectPascal
unit Unit1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
|
|
StdCtrls;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
ApplicationProperties1: TApplicationProperties;
|
|
Button1: TButton;
|
|
CheckBox1: TCheckBox;
|
|
RadioButton1: TRadioButton;
|
|
procedure ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R unit1.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
|
|
begin
|
|
if ParamStr(1)='--runtest' then begin
|
|
// button doesn't have parentcolor, but is buttonface
|
|
writeln('Button color: ', ColorToString(Button1.Color));
|
|
// checkbox takes parent color
|
|
writeln('Checkbox color: ', ColorToString(CheckBox1.Color));
|
|
// radiobutton takes parent color
|
|
writeln('RadioButton color: ', ColorToString(RadioButton1.Color));
|
|
Close;
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|