1 files changed, 22 insertions, 22 deletions
diff --git a/examples/apps/uidesigner/vfdmain.pas b/examples/apps/uidesigner/vfdmain.pas
index e59026d4..4d2648f3 100644
--- a/examples/apps/uidesigner/vfdmain.pas
+++ b/examples/apps/uidesigner/vfdmain.pas
@@ -48,28 +48,28 @@ type
     SaveComponentNames: boolean;
     selectedform: TFormDesigner;
     constructor Create;
-    destructor Destroy; override;
-    procedure CreateWindows;
-    procedure SelectForm(aform: TFormDesigner);
-    function Designer(index: integer): TFormDesigner;
-    function DesignerCount: integer;
-    function NewFormName: string;
-    procedure CreateParseForm(const FormName, FormHead, FormBody: string);
-    procedure OnNewForm(Sender: TObject);
-    procedure OnNewFile(Sender: TObject);
-    procedure OnSaveFile(Sender: TObject);
-    procedure OnLoadFile(Sender: TObject);
-    procedure OnPaletteChange(Sender: TObject);
-    procedure OnPropTextChange(Sender: TObject);
-    procedure OnPropNameChange(Sender: TObject);
-    procedure OnPropPosEdit(Sender: TObject);
-    procedure OnOtherChange(Sender: TObject);
-    procedure OnAnchorChange(Sender: TObject);
-    procedure OnEditWidget(Sender: TObject);
-    procedure OnEditWidgetOrder(Sender: TObject);
-    procedure OnExit(Sender: TObject);
-    procedure OnOptionsClick(Sender: TObject);
-    property EditedFileName: string read FEditedFileName write SetEditedFileName;
+    destructor  Destroy; override;
+    procedure   CreateWindows;
+    procedure   SelectForm(aform: TFormDesigner);
+    function    Designer(index: integer): TFormDesigner;
+    function    DesignerCount: integer;
+    function    NewFormName: string;
+    procedure   CreateParseForm(const FormName, FormHead, FormBody: string);
+    procedure   OnNewForm(Sender: TObject);
+    procedure   OnNewFile(Sender: TObject);
+    procedure   OnSaveFile(Sender: TObject);
+    procedure   OnLoadFile(Sender: TObject);
+    procedure   OnPaletteChange(Sender: TObject);
+    procedure   OnPropTextChange(Sender: TObject);
+    procedure   OnPropNameChange(Sender: TObject);
+    procedure   OnPropPosEdit(Sender: TObject);
+    procedure   OnOtherChange(Sender: TObject);
+    procedure   OnAnchorChange(Sender: TObject);
+    procedure   OnEditWidget(Sender: TObject);
+    procedure   OnEditWidgetOrder(Sender: TObject);
+    procedure   OnExit(Sender: TObject);
+    procedure   OnOptionsClick(Sender: TObject);
+    property    EditedFileName: string read FEditedFileName write SetEditedFileName;
   end;