From 48b322fd09fd685c0b0e184b51e653e38feec570 Mon Sep 17 00:00:00 2001 From: Jonathan Barnard Date: Wed, 5 Aug 2009 22:01:57 +0100 Subject: [PATCH] UnitCreatePrefix: Set up the frame layout. --- Frame/CreatePrefix/UnitCreatePrefix.lfm | 43 +++++++++++++++++++++++++++++---- Frame/CreatePrefix/UnitCreatePrefix.pas | 14 ++++++++--- 2 files changed, 49 insertions(+), 8 deletions(-) diff --git a/Frame/CreatePrefix/UnitCreatePrefix.lfm b/Frame/CreatePrefix/UnitCreatePrefix.lfm index 9ce54b2..d2e7053 100644 --- a/Frame/CreatePrefix/UnitCreatePrefix.lfm +++ b/Frame/CreatePrefix/UnitCreatePrefix.lfm @@ -1,11 +1,44 @@ -object Frame1: TFrame1 +object FrameCreatePrefix: TFrameCreatePrefix Left = 0 - Height = 300 + Height = 555 Top = 0 - Width = 681 + Width = 1272 + ClientHeight = 551 + ClientWidth = 1268 Ctl3D = False TabOrder = 0 Visible = False - DesignLeft = 290 - DesignTop = 200 + DesignTop = 192 + object Button1: TButton + Left = 6 + Height = 25 + Top = 6 + Width = 75 + Caption = 'Button1' + TabOrder = 0 + end + object Button2: TButton + Left = 6 + Height = 25 + Top = 518 + Width = 75 + Caption = 'Button2' + TabOrder = 1 + end + object Button3: TButton + Left = 1190 + Height = 25 + Top = 6 + Width = 75 + Caption = 'Button1' + TabOrder = 2 + end + object Button4: TButton + Left = 1190 + Height = 25 + Top = 526 + Width = 75 + Caption = 'Button2' + TabOrder = 3 + end end diff --git a/Frame/CreatePrefix/UnitCreatePrefix.pas b/Frame/CreatePrefix/UnitCreatePrefix.pas index 2774c44..89f8f69 100644 --- a/Frame/CreatePrefix/UnitCreatePrefix.pas +++ b/Frame/CreatePrefix/UnitCreatePrefix.pas @@ -9,10 +9,18 @@ uses SysUtils, FileUtil, LResources, - Forms; + Forms, + StdCtrls; type - TFrame1 = class(TFrame) + + { TFrameCreatePrefix } + + TFrameCreatePrefix = class(TFrame) + Button1: TButton; + Button2: TButton; + Button3: TButton; + Button4: TButton; private { private declarations } public @@ -20,7 +28,7 @@ type end; var -FrameCreatePrefix:TFrame1; +FrameCreatePrefix:TFrameCreatePrefix; implementation -- 2.11.4.GIT