diff --git a/examples/simple/rad/bitbtn/bitbtnform.lfm b/examples/simple/rad/bitbtn/bitbtnform.lfm
new file mode 100644
index 0000000000..613a83451d
--- /dev/null
+++ b/examples/simple/rad/bitbtn/bitbtnform.lfm
@@ -0,0 +1,129 @@
+object Form1: TForm1
+ Left = 270
+ Height = 170
+ Top = 131
+ Width = 335
+ Caption = 'TBitBtn Verify'
+ ClientHeight = 170
+ ClientWidth = 335
+ OnCreate = FormCreate
+ LCLVersion = '2.3.0.0'
+ object BitBtn1: TBitBtn
+ Left = 12
+ Height = 120
+ Top = 12
+ Width = 120
+ Caption = 'BitBtn1'
+ TabOrder = 0
+ end
+ object GroupBox1: TGroupBox
+ Left = 144
+ Height = 120
+ Top = 12
+ Width = 80
+ Caption = 'Kind'
+ ClientHeight = 100
+ ClientWidth = 76
+ TabOrder = 1
+ object RadioButton1: TRadioButton
+ Left = 8
+ Height = 19
+ Top = 6
+ Width = 47
+ Caption = 'Close'
+ Checked = True
+ OnChange = RadioButton1Change
+ TabOrder = 3
+ TabStop = True
+ end
+ object RadioButton2: TRadioButton
+ Left = 8
+ Height = 19
+ Top = 28
+ Width = 34
+ Caption = 'OK'
+ OnChange = RadioButton2Change
+ TabOrder = 0
+ end
+ object RadioButton3: TRadioButton
+ Left = 8
+ Height = 19
+ Top = 50
+ Width = 54
+ Caption = 'Cancel'
+ OnChange = RadioButton3Change
+ TabOrder = 1
+ end
+ object RadioButton4: TRadioButton
+ Left = 8
+ Height = 19
+ Top = 72
+ Width = 43
+ Caption = 'Help'
+ OnChange = RadioButton4Change
+ TabOrder = 2
+ end
+ end
+ object GroupBox2: TGroupBox
+ Left = 240
+ Height = 120
+ Top = 12
+ Width = 80
+ Caption = 'Type'
+ ClientHeight = 100
+ ClientWidth = 76
+ TabOrder = 2
+ object RadioButton5: TRadioButton
+ Left = 8
+ Height = 19
+ Top = 6
+ Width = 38
+ Caption = 'Left'
+ Checked = True
+ OnChange = RadioButton5Change
+ TabOrder = 0
+ TabStop = True
+ end
+ object RadioButton6: TRadioButton
+ Left = 8
+ Height = 19
+ Top = 28
+ Width = 38
+ Caption = 'Top'
+ OnChange = RadioButton6Change
+ TabOrder = 1
+ end
+ object RadioButton7: TRadioButton
+ Left = 8
+ Height = 19
+ Top = 50
+ Width = 46
+ Caption = 'Right'
+ OnChange = RadioButton7Change
+ TabOrder = 2
+ end
+ object RadioButton8: TRadioButton
+ Left = 8
+ Height = 19
+ Top = 72
+ Width = 58
+ Caption = 'Bottom'
+ OnChange = RadioButton8Change
+ TabOrder = 3
+ end
+ end
+ object Label1: TLabel
+ Left = 144
+ Height = 15
+ Top = 144
+ Width = 34
+ Caption = 'Label1'
+ end
+ object Label2: TLabel
+ Left = 240
+ Height = 15
+ Top = 144
+ Width = 34
+ Caption = 'Label2'
+ end
+end
diff --git a/examples/simple/rad/bitbtn/bitbtnform.pas b/examples/simple/rad/bitbtn/bitbtnform.pas
new file mode 100644
index 0000000000..cdad5f06d4
--- /dev/null
+++ b/examples/simple/rad/bitbtn/bitbtnform.pas
@@ -0,0 +1,108 @@
+unit BitBtnForm;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons, ExtCtrls,
+ StdCtrls;
+
+type
+
+ { TForm1 }
+
+ TForm1 = class(TForm)
+ BitBtn1: TBitBtn;
+ GroupBox1: TGroupBox;
+ GroupBox2: TGroupBox;
+ Label1: TLabel;
+ Label2: TLabel;
+ RadioButton1: TRadioButton;
+ RadioButton2: TRadioButton;
+ RadioButton3: TRadioButton;
+ RadioButton4: TRadioButton;
+ RadioButton5: TRadioButton;
+ RadioButton6: TRadioButton;
+ RadioButton7: TRadioButton;
+ RadioButton8: TRadioButton;
+ procedure FormCreate(Sender: TObject);
+ procedure RadioButton1Change(Sender: TObject);
+ procedure RadioButton2Change(Sender: TObject);
+ procedure RadioButton3Change(Sender: TObject);
+ procedure RadioButton4Change(Sender: TObject);
+ procedure RadioButton5Change(Sender: TObject);
+ procedure RadioButton6Change(Sender: TObject);
+ procedure RadioButton7Change(Sender: TObject);
+ procedure RadioButton8Change(Sender: TObject);
+ private
+
+ public
+
+ end;
+
+var
+ Form1: TForm1;
+
+implementation
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+ RadioButton1Change(nil);
+ RadioButton5Change(nil);
+end;
+
+procedure TForm1.RadioButton1Change(Sender: TObject);
+begin
+ BitBtn1.Kind := bkClose;
+ Label1.Caption := 'bkClose';
+end;
+
+procedure TForm1.RadioButton2Change(Sender: TObject);
+begin
+ BitBtn1.Kind := bkOK;
+ Label1.Caption := 'bkOK';
+end;
+
+procedure TForm1.RadioButton3Change(Sender: TObject);
+begin
+ BitBtn1.Kind := bkCancel;
+ Label1.Caption := 'bkCancel';
+end;
+
+procedure TForm1.RadioButton4Change(Sender: TObject);
+begin
+ BitBtn1.Kind := bkHelp;
+ Label1.Caption := 'bkHelp';
+end;
+
+procedure TForm1.RadioButton5Change(Sender: TObject);
+begin
+ BitBtn1.Layout := blGlyphLeft;
+ Label2.Caption := 'blGlyphLeft';
+end;
+
+procedure TForm1.RadioButton6Change(Sender: TObject);
+begin
+ BitBtn1.Layout := blGlyphTop;
+ Label2.Caption := 'blGlyphTop';
+end;
+
+procedure TForm1.RadioButton7Change(Sender: TObject);
+begin
+ BitBtn1.Layout := blGlyphRight;
+ Label2.Caption := 'blGlyphRight';
+end;
+
+procedure TForm1.RadioButton8Change(Sender: TObject);
+begin
+ BitBtn1.Layout := blGlyphBottom;
+ Label2.Caption := 'blGlyphBottom';
+end;
+
+end.
+
diff --git a/examples/simple/rad/bitbtn/bitbutton_demo.lpi b/examples/simple/rad/bitbtn/bitbutton_demo.lpi
new file mode 100644
index 0000000000..2b0ed26ec2
--- /dev/null
+++ b/examples/simple/rad/bitbtn/bitbutton_demo.lpi
@@ -0,0 +1,81 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ -
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ -
+
+
+ -
+
+
+ -
+
+
+
+
+
diff --git a/examples/simple/rad/bitbtn/bitbutton_demo.lpr b/examples/simple/rad/bitbtn/bitbutton_demo.lpr
new file mode 100644
index 0000000000..a16e3bec0e
--- /dev/null
+++ b/examples/simple/rad/bitbtn/bitbutton_demo.lpr
@@ -0,0 +1,25 @@
+program BitButton_Demo;
+
+{$mode objfpc}{$H+}
+
+uses
+ {$IFDEF UNIX}
+ cthreads,
+ {$ENDIF}
+ {$IFDEF HASAMIGA}
+ athreads,
+ {$ENDIF}
+ Interfaces, // this includes the LCL widgetset
+ Forms, BitBtnForm
+ { you can add units after this };
+
+{$R *.res}
+
+begin
+ RequireDerivedFormResource:=True;
+ Application.Scaled:=True;
+ Application.Initialize;
+ Application.CreateForm(TForm1, Form1);
+ Application.Run;
+end.
+
diff --git a/examples/bitbtnform.pp b/examples/simple/runtime/bitbtn/bitbtnform.pp
similarity index 100%
rename from examples/bitbtnform.pp
rename to examples/simple/runtime/bitbtn/bitbtnform.pp
diff --git a/examples/bitbutton.lpi b/examples/simple/runtime/bitbtn/bitbutton.lpi
similarity index 68%
rename from examples/bitbutton.lpi
rename to examples/simple/runtime/bitbtn/bitbutton.lpi
index 099b535da4..7e3ada58b2 100644
--- a/examples/bitbutton.lpi
+++ b/examples/simple/runtime/bitbtn/bitbutton.lpi
@@ -1,27 +1,30 @@
-
+
+
-
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
@@ -32,8 +35,9 @@
-
-
+
+
+
@@ -41,9 +45,9 @@
-
-
-
+
+
+
@@ -51,6 +55,9 @@
+
+
+
diff --git a/examples/bitbutton.pp b/examples/simple/runtime/bitbtn/bitbutton.pp
similarity index 96%
rename from examples/bitbutton.pp
rename to examples/simple/runtime/bitbtn/bitbutton.pp
index a7333b3429..03081bbc2e 100644
--- a/examples/bitbutton.pp
+++ b/examples/simple/runtime/bitbtn/bitbutton.pp
@@ -25,7 +25,11 @@ program bitbutton;
uses
interfaces, forms, bitbtnform;
+{$R *.res}
+
begin
+ Application.Scaled:=True;
+ Application.Title:='';
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;