diff --git a/examples/messagedialogs.lpi b/examples/messagedialogs.lpi
index 43f6db3b1b..44bb20b4d2 100644
--- a/examples/messagedialogs.lpi
+++ b/examples/messagedialogs.lpi
@@ -2,46 +2,60 @@
+
-
-
+
+
+
+
+
+
+
+
+
-
+
+
-
-
-
-
+
-
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -50,4 +64,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/examples/messagedialogs.lpr b/examples/messagedialogs.lpr
new file mode 100644
index 0000000000..c52f5d2b22
--- /dev/null
+++ b/examples/messagedialogs.lpr
@@ -0,0 +1,25 @@
+program messagedialogs;
+
+{$mode objfpc}{$H+}
+
+uses
+ {$IFDEF UNIX}
+ cthreads,
+ {$ENDIF}
+ {$IFDEF HASAMIGA}
+ athreads,
+ {$ENDIF}
+ Interfaces, // this includes the LCL widgetset
+ Forms, MessageDialogsFrm
+ { you can add units after this };
+
+{$R *.res}
+
+begin
+ RequireDerivedFormResource:=True;
+ Application.Scaled:=True;
+ Application.Initialize;
+ Application.CreateForm(TMainForm, MainForm);
+ Application.Run;
+end.
+
diff --git a/examples/messagedialogs.pp b/examples/messagedialogs.pp
deleted file mode 100644
index 0837f3d34e..0000000000
--- a/examples/messagedialogs.pp
+++ /dev/null
@@ -1,85 +0,0 @@
-{ ***************************************************************************
- MessageDialogs - example
- ------------------------
-
- Just a simple example to show & verify functionality of the lazarus
- functions to deal with message dialogs.
-
- by Stefan Hille
-
- ****************************************************************************
-
- ***************************************************************************
- * *
- * This source is free software; you can redistribute it and/or modify *
- * it under the terms of the GNU General Public License as published by *
- * the Free Software Foundation; either version 2 of the License, or *
- * (at your option) any later version. *
- * *
- * This code is distributed in the hope that it will be useful, but *
- * WITHOUT ANY WARRANTY; without even the implied warranty of *
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
- * General Public License for more details. *
- * *
- * A copy of the GNU General Public License is available on the World *
- * Wide Web at . You can also *
- * obtain it by writing to the Free Software Foundation, *
- * Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA. *
- * *
- ***************************************************************************
-}
-Program MessagDialogs;
-
-{$mode objfpc}{$H+}
-
-uses Interfaces, Classes, Forms, Dialogs, Buttons, StdCtrls, LazLogger;
-
-type
- TMainForm = class(TForm)
- private
- protected
- public
- button1 : TButton;
- constructor Create(AOwner: TComponent); override;
- procedure button1Click(Sender : TObject);
- end;
-
-var
- MainForm : TMainForm;
-
-constructor TMainForm.Create(AOwner: TComponent);
-begin
- inherited CreateNew(AOwner, 1);
- Caption := 'Message Show';
- Width := 200;
- Height := 75;
- Left := 200;
- Top := 200;
-
- button1 := TButton.Create(Self);
- button1.OnClick := @button1click;
- button1.Parent := Self;
- button1.left := (width - 85) div 2 ;
- button1.top := (height - 32) div 2;
- button1.width := 85;
- button1.height := 32;
- button1.caption := 'Start Show';
- button1.Show;
-end;
-
-procedure TMainForm.Button1Click(Sender : TObject);
-begin
- ShowMessage ('First simple test!');
- DebugLn('Go to second dialog');
- MessageDlg ('Caption', 'Two buttons now ...', mtError, [mbOK,mbCancel], 0);
- MessageDlg ('Warning, not fully implemented', mtWarning, [mbYes, mbNo, mbOK,mbCancel], 0);
- ShowMessageFmt ('The show will end now'+LineEnding+'%s'+LineEnding+'Good bye!!!', [MainForm.Caption]);
- close;
-end;
-
-
-begin
- Application.Initialize;
- Application.CreateForm(TMainForm, MainForm);
- Application.Run;
-end.
diff --git a/examples/messagedialogsfrm.lfm b/examples/messagedialogsfrm.lfm
new file mode 100644
index 0000000000..a235b5559c
--- /dev/null
+++ b/examples/messagedialogsfrm.lfm
@@ -0,0 +1,20 @@
+object MainForm: TMainForm
+ Left = 200
+ Height = 75
+ Top = 200
+ Width = 200
+ Caption = 'Message Show'
+ ClientHeight = 75
+ ClientWidth = 200
+ OnCreate = FormCreate
+ LCLVersion = '2.3.0.0'
+ object Button1: TButton
+ Left = 69
+ Height = 32
+ Top = 22
+ Width = 85
+ Caption = 'Start Show'
+ OnClick = Button1Click
+ TabOrder = 0
+ end
+end
diff --git a/examples/messagedialogsfrm.pas b/examples/messagedialogsfrm.pas
new file mode 100644
index 0000000000..11e7663fdf
--- /dev/null
+++ b/examples/messagedialogsfrm.pas
@@ -0,0 +1,50 @@
+unit MessageDialogsFrm;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, LazLogger;
+
+type
+
+ { TMainForm }
+
+ TMainForm = class(TForm)
+ Button1: TButton;
+ procedure Button1Click(Sender: TObject);
+ procedure FormCreate(Sender: TObject);
+ private
+
+ public
+
+ end;
+
+var
+ MainForm: TMainForm;
+
+implementation
+
+{$R *.lfm}
+
+{ TMainForm }
+
+procedure TMainForm.FormCreate(Sender: TObject);
+begin
+ Button1.Left := (Width - Button1.Width) div 2;
+ Button1.Top := (Height - Button1.Height) div 2;
+end;
+
+procedure TMainForm.Button1Click(Sender: TObject);
+begin
+ ShowMessage('First simple test!');
+ DebugLn('Go to second dialog');
+ MessageDlg('Caption', 'Two buttons now ...', mtError, [mbOK, mbCancel], 0);
+ MessageDlg('Warning, not fully implemented', mtWarning, [mbYes, mbNo, mbOK, mbCancel], 0);
+ ShowMessageFmt('The show will end now'+LineEnding+'%s'+LineEnding+'Good bye!!!', [MainForm.Caption]);
+ close;
+end;
+
+end.
+