paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 16:40:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed layout bugs, added package to create MacOSX application folders

Browse Source 
git-svn-id: trunk@8456 -
This commit is contained in:
mattias 2006-01-06 18:38:13 +00:00
parent 48c0e6d55c
commit a02933f7ae
12 changed files with 2750 additions and 160 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
.gitattributes vendored
View File

@ -154,6 +154,13 @@ components/jpeg/jpegforlazarus.lpk svneol=native#text/pascal
components/jpeg/jpegforlazarus.pas svneol=native#text/pascal
components/jpeg/lazjpeg.pas svneol=native#text/pascal
components/jpeg/readme.txt svneol=native#text/plain
components/macfiles/Makefile svneol=native#text/plain
components/macfiles/Makefile.fpc svneol=native#text/plain
components/macfiles/examples/createmacapplication.lpi svneol=native#text/plain
components/macfiles/examples/createmacapplication.lpr svneol=native#text/plain
components/macfiles/macapplicationres.pas svneol=native#text/plain
components/macfiles/macosfiles.lpk svneol=native#text/plain
components/macfiles/macosfiles.pas svneol=native#text/plain
components/memds/frmselectdataset.lfm svneol=native#text/plain
components/memds/frmselectdataset.lrs svneol=native#text/pascal
components/memds/frmselectdataset.pp svneol=native#text/pascal

2171
components/macfiles/Makefile Normal file
View File

File diff suppressed because it is too large Load Diff

27
components/macfiles/Makefile.fpc Normal file
View File

@ -0,0 +1,27 @@
# Makefile.fpc for MacOSFiles 0.0
[package]
name=macosfiles
version=0.0
[compiler]
unittargetdir=lib/$(CPU_TARGET)-$(OS_TARGET)/
unitdir=../../packager/units/$(CPU_TARGET)-$(OS_TARGET)/ ../../packager/units/$(CPU_TARGET)-$(OS_TARGET)/ ./
options=-gl
[target]
units=macosfiles.pas
[clean]
files=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) \
$(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) \
$(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) \
$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
[rules]
.PHONY: cleartarget all
cleartarget:
-$(DEL) $(COMPILER_UNITTARGETDIR)/macosfiles$(PPUEXT)
all: cleartarget $(COMPILER_UNITTARGETDIR) macosfiles$(PPUEXT)

57
components/macfiles/examples/createmacapplication.lpi Normal file
View File

@ -0,0 +1,57 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveClosedFiles Value="False"/>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="createmacapplication"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<LazDoc Paths=""/>
<Units Count="1">
<Unit0>
<CursorPos X="21" Y="32"/>
<EditorIndex Value="0"/>
<Filename Value="createmacapplication.lpr"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="CreateMacApplication"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="MacOSFiles"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

65
components/macfiles/examples/createmacapplication.lpr Normal file
View File

@ -0,0 +1,65 @@
{
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.LCL, included in this distribution, *
* for details about the copyright. *
* *
* This program 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. *
* *
*****************************************************************************
Author: Mattias Gaertner
}
program CreateMacApplication;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, CustApp, MacOSFiles, MacApplicationRes, FileUtil;
type
{ TCreateMacAppFolderApplication }
TCreateMacAppFolderApplication = class(TCustomApplication)
public
procedure Run;
procedure WriteUsage;
end;
{ TCreateMacAppFolderApplication }
procedure TCreateMacAppFolderApplication.Run;
var
Filename: String;
begin
if ParamCount<1 then
WriteUsage
else begin
Filename:=ExpandFileName(Params[1]);
CreateMacOSXApplicationResources(Filename,ExtractFileNameOnly(Filename),'');
end;
end;
procedure TCreateMacAppFolderApplication.WriteUsage;
begin
writeln('Creates a MacOSX application folder <filename.app>');
writeln('Author: Mattias Gaertner');
writeln('');
writeln('Usage:');
writeln('');
writeln(' '+ExeName+' <filename>');
end;
var
App: TCreateMacAppFolderApplication;
begin
App:=TCreateMacAppFolderApplication.Create(nil);
App.Run;
App.Free;
end.

176
components/macfiles/macapplicationres.pas Normal file
View File

@ -0,0 +1,176 @@
{
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.LCL, included in this distribution, *
* for details about the copyright. *
* *
* This program 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. *
* *
*****************************************************************************
Author: Mattias Gaertner
}
unit MacApplicationRes;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil;
type
EMacResourceException = Exception;
procedure CreateMacOSXApplicationResources(const Filename,
ReadmeTitle, ReadmeDescription: string);
function GetMacOSXExecutableFilename(const BaseDir, ShortExeName: string): string;
procedure CreateDirectoryInteractive(const Directory: string);
implementation
procedure CreateMacOSXApplicationResources(const Filename,
ReadmeTitle, ReadmeDescription: string);
{
Filename.app/
Contents/
MacOS/
Executable
Resources/
README.rtf
PkgInfo
Info.plist
}
procedure WriteInfoPlistFile(const Directory: string);
var
sl: TStringList;
ExeName: String;
PLInfoListFilename: String;
begin
ExeName:=ExtractFileName(Filename);
PLInfoListFilename:=Directory+'Info.plist';
sl:=TStringList.Create;
try
sl.Add('<?xml version="1.0" encoding="UTF-8"?>');
sl.Add('<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">');
sl.Add('<plist version="1.0">');
sl.Add('<dict>');
sl.Add(' <key>CFBundleDevelopmentRegion</key>');
sl.Add(' <string>English</string>');
sl.Add(' <key>CFBundleExecutable</key>');
sl.Add(' <string>'+ExeName+'</string>');
sl.Add(' <key>CFBundleInfoDictionaryVersion</key>');
sl.Add(' <string>6.0</string>');
sl.Add(' <key>CFBundlePackageType</key>');
sl.Add(' <string>APPL</string>');
sl.Add(' <key>CFBundleSignature</key>');
sl.Add(' <string>????</string>');
sl.Add(' <key>CFBundleVersion</key>');
sl.Add(' <string>1.0</string>');
sl.Add(' <key>CSResourcesFileMapped</key>');
sl.Add(' <true/>');
sl.Add('</dict>');
sl.Add('</plist>);');
sl.SaveToFile(PLInfoListFilename);
finally
sl.Free;
end;
end;
procedure WritePkgInfoFile(const Directory: string);
var
sl: TStringList;
PkgInfoFilename: String;
begin
PkgInfoFilename:=Directory+'PkgInfo';
sl:=TStringList.Create;
try
sl.Add('APPL????');
sl.SaveToFile(PkgInfoFilename);
finally
sl.Free;
end;
end;
procedure WriteREADMErtfFile(const Directory, Title, Description: string);
var
sl: TStringList;
ReadmeFilename: String;
begin
ReadmeFilename:=Directory+'README.rtf';
sl:=TStringList.Create;
try
sl.Add('{\rtf1\mac\ansicpg10000\cocoartf102');
sl.Add('{\fonttbl\f0\fswiss\fcharset77 Helvetica-Bold;\f1\fswiss\fcharset77 Helvetica;}');
sl.Add('{\colortbl;\red255\green255\blue255;}');
sl.Add('\margl1440\margr1440\vieww9000\viewh9000\viewkind0');
sl.Add('\pard\tx720\tx1440\tx2160\tx2880\tx3600\tx4320\tx5040\tx5760\tx6480\tx7200\tx7920\tx8640\ql\qnatural');
sl.Add('');
sl.Add('\f0\b\fs24 \cf0 '+Title);
sl.Add('\f1\b0 \');
sl.Add('\');
sl.Add(Description);
sl.Add('\');
sl.Add('');
sl.Add('}');
sl.SaveToFile(ReadmeFilename);
finally
sl.Free;
end;
end;
var
AppDir: String;
ContentsDir: String;
MacOSDir: String;
ResourcesDir: String;
begin
// create 'applicationname.app/' directory
AppDir:=Filename+'.app'+PathDelim;
CreateDirectoryInteractive(AppDir);
begin
// create 'applicationname.app/Contents/' directory
ContentsDir:=AppDir+'Contents'+PathDelim;
CreateDirectoryInteractive(ContentsDir);
begin
// create 'applicationname.app/Contents/MacOS/' directory
MacOSDir:=ContentsDir+'MacOS'+PathDelim;
CreateDirectoryInteractive(MacOSDir);
// create Info.plist file
WriteInfoPlistFile(ContentsDir);
// create PkgInfo file
WritePkgInfoFile(ContentsDir);
// create 'applicationname.app/Contents/Resources/' directory
ResourcesDir:=ContentsDir+'Resources'+PathDelim;
CreateDirectoryInteractive(ResourcesDir);
// create README.rtf file
WriteREADMErtfFile(ResourcesDir,ReadmeTitle,ReadmeDescription);
end;
end;
end;
function GetMacOSXExecutableFilename(const BaseDir, ShortExeName: string
): string;
begin
Result:=AppendPathDelim(BaseDir)+ShortExeName+'.app'+PathDelim
+'Contents'+PathDelim+'MacOS'+ShortExeName;
end;
procedure CreateDirectoryInteractive(const Directory: string);
begin
if not CreateDir(Directory) then
raise EMacResourceException.Create('creating directory '+Directory+' failed');
end;
end.

42
components/macfiles/macosfiles.lpk Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0"?>
<CONFIG>
<Package Version="2">
<Name Value="MacOSFiles"/>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
<CreateMakefileOnBuild Value="True"/>
</Other>
</CompilerOptions>
<Files Count="1">
<Item1>
<Filename Value="macapplicationres.pas"/>
<UnitName Value="macapplicationres"/>
</Item1>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
</Item2>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
</PublishOptions>
</Package>
</CONFIG>

20
components/macfiles/macosfiles.pas Normal file
View File

@ -0,0 +1,20 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit MacOSFiles;
interface
uses
macapplicationres, LazarusPackageIntf;
implementation
procedure Register;
begin
end;
initialization
RegisterPackage('MacOSFiles', @Register);
end.

27
ide/projectinspector.lfm
View File

@ -5,7 +5,7 @@ object ProjectInspectorForm: TProjectInspectorForm
ClientHeight = 300
ClientWidth = 403
OnShow = ProjectInspectorFormShow
PixelsPerInch = 96
PixelsPerInch = 112
HorzScrollBar.Page = 402
VertScrollBar.Page = 299
Left = 460
@ -19,8 +19,8 @@ object ProjectInspectorForm: TProjectInspectorForm
NumGlyphs = 0
OnClick = OpenBitBtnClick
TabOrder = 0
Height = 29
Width = 78
Height = 26
Width = 76
end
object AddBitBtn: TBitBtn
AutoSize = True
@ -30,9 +30,10 @@ object ProjectInspectorForm: TProjectInspectorForm
OnClick = AddBitBtnClick
TabOrder = 1
AnchorSideLeft.Control = OpenBitBtn
Left = 78
Height = 29
Width = 71
AnchorSideLeft.Side = asrBottom
Left = 76
Height = 26
Width = 68
end
object RemoveBitBtn: TBitBtn
AutoSize = True
@ -42,9 +43,10 @@ object ProjectInspectorForm: TProjectInspectorForm
OnClick = RemoveBitBtnClick
TabOrder = 2
AnchorSideLeft.Control = AddBitBtn
Left = 149
Height = 29
Width = 92
AnchorSideLeft.Side = asrBottom
Left = 144
Height = 26
Width = 90
end
object OptionsBitBtn: TBitBtn
Anchors = [akTop, akLeft, akRight]
@ -55,9 +57,10 @@ object ProjectInspectorForm: TProjectInspectorForm
OnClick = OptionsBitBtnClick
TabOrder = 3
AnchorSideLeft.Control = RemoveBitBtn
Left = 241
Height = 29
Width = 162
AnchorSideLeft.Side = asrBottom
Left = 234
Height = 26
Width = 169
end
object ItemsTreeView: TTreeView
Align = alBottom

44
ide/projectinspector.lrs
View File

@ -4,30 +4,32 @@ LazarusResources.Add('TProjectInspectorForm','FORMDATA',[
'TPF0'#21'TProjectInspectorForm'#20'ProjectInspectorForm'#13'ActiveControl'#7
+#10'OpenBitBtn'#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#20'ProjectI'
+'nspectorForm'#12'ClientHeight'#3','#1#11'ClientWidth'#3#147#1#6'OnShow'#7#24
+'ProjectInspectorFormShow'#13'PixelsPerInch'#2'`'#18'HorzScrollBar.Page'#3
+'ProjectInspectorFormShow'#13'PixelsPerInch'#2'p'#18'HorzScrollBar.Page'#3
+#146#1#18'VertScrollBar.Page'#3'+'#1#4'Left'#3#204#1#6'Height'#3','#1#3'Top'
+#3#145#1#5'Width'#3#147#1#0#7'TBitBtn'#10'OpenBitBtn'#8'AutoSize'#9#25'Borde'
+'rSpacing.InnerBorder'#2#2#7'Caption'#6#10'OpenBitBtn'#9'NumGlyphs'#2#0#7'On'
+'Click'#7#15'OpenBitBtnClick'#8'TabOrder'#2#0#6'Height'#2#29#5'Width'#2'N'#0
+'Click'#7#15'OpenBitBtnClick'#8'TabOrder'#2#0#6'Height'#2#26#5'Width'#2'L'#0
+#0#7'TBitBtn'#9'AddBitBtn'#8'AutoSize'#9#25'BorderSpacing.InnerBorder'#2#2#7
+'Caption'#6#9'AddBitBtn'#9'NumGlyphs'#2#0#7'OnClick'#7#14'AddBitBtnClick'#8
+'TabOrder'#2#1#22'AnchorSideLeft.Control'#7#10'OpenBitBtn'#4'Left'#2'N'#6'He'
+'ight'#2#29#5'Width'#2'G'#0#0#7'TBitBtn'#12'RemoveBitBtn'#8'AutoSize'#9#25'B'
+'orderSpacing.InnerBorder'#2#2#7'Caption'#6#12'RemoveBitBtn'#9'NumGlyphs'#2#0
+#7'OnClick'#7#17'RemoveBitBtnClick'#8'TabOrder'#2#2#22'AnchorSideLeft.Contro'
+'l'#7#9'AddBitBtn'#4'Left'#3#149#0#6'Height'#2#29#5'Width'#2'\'#0#0#7'TBitBt'
+'n'#13'OptionsBitBtn'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSi'
+'ze'#9#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#13'OptionsBitBtn'#9'Nu'
+'mGlyphs'#2#0#7'OnClick'#7#18'OptionsBitBtnClick'#8'TabOrder'#2#3#22'AnchorS'
+'ideLeft.Control'#7#12'RemoveBitBtn'#4'Left'#3#241#0#6'Height'#2#29#5'Width'
+#3#162#0#0#0#9'TTreeView'#13'ItemsTreeView'#5'Align'#7#8'alBottom'#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'DefaultItemHeight'#2#16#6
+'Images'#7#9'ImageList'#9'PopupMenu'#7#14'ItemsPopupMenu'#16'RightClickSelec'
+'t'#9#8'TabOrder'#2#4#10'OnDblClick'#7#21'ItemsTreeViewDblClick'#18'OnSelect'
+'ionChanged'#7#29'ItemsTreeViewSelectionChanged'#7'Options'#11#17'tvoAutoIte'
+'mHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#19'tvoRightClickSel'
+'ect'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#6
+'Height'#3#13#1#3'Top'#2#31#5'Width'#3#147#1#0#0#10'TImageList'#9'ImageList'
+#4'left'#2''''#3'top'#2#20#0#0#10'TPopupMenu'#14'ItemsPopupMenu'#7'OnPopup'#7
+#19'ItemsPopupMenuPopup'#4'left'#2'('#3'top'#2';'#0#0#0
+'TabOrder'#2#1#22'AnchorSideLeft.Control'#7#10'OpenBitBtn'#19'AnchorSideLeft'
+'.Side'#7#9'asrBottom'#4'Left'#2'L'#6'Height'#2#26#5'Width'#2'D'#0#0#7'TBitB'
+'tn'#12'RemoveBitBtn'#8'AutoSize'#9#25'BorderSpacing.InnerBorder'#2#2#7'Capt'
+'ion'#6#12'RemoveBitBtn'#9'NumGlyphs'#2#0#7'OnClick'#7#17'RemoveBitBtnClick'
+#8'TabOrder'#2#2#22'AnchorSideLeft.Control'#7#9'AddBitBtn'#19'AnchorSideLeft'
+'.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2#26#5'Width'#2'Z'#0#0#7'TB'
+'itBtn'#13'OptionsBitBtn'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'Au'
+'toSize'#9#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#13'OptionsBitBtn'#9
+'NumGlyphs'#2#0#7'OnClick'#7#18'OptionsBitBtnClick'#8'TabOrder'#2#3#22'Ancho'
+'rSideLeft.Control'#7#12'RemoveBitBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+#4'Left'#3#234#0#6'Height'#2#26#5'Width'#3#169#0#0#0#9'TTreeView'#13'ItemsTr'
+'eeView'#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
+'akBottom'#0#17'DefaultItemHeight'#2#16#6'Images'#7#9'ImageList'#9'PopupMenu'
+#7#14'ItemsPopupMenu'#16'RightClickSelect'#9#8'TabOrder'#2#4#10'OnDblClick'#7
+#21'ItemsTreeViewDblClick'#18'OnSelectionChanged'#7#29'ItemsTreeViewSelectio'
+'nChanged'#7'Options'#11#17'tvoAutoItemHeight'#16'tvoHideSelection'#21'tvoKe'
+'epCollapsedNodes'#19'tvoRightClickSelect'#14'tvoShowButtons'#12'tvoShowLine'
+'s'#11'tvoShowRoot'#11'tvoToolTips'#0#6'Height'#3#13#1#3'Top'#2#31#5'Width'#3
+#147#1#0#0#10'TImageList'#9'ImageList'#4'left'#2''''#3'top'#2#20#0#0#10'TPop'
+'upMenu'#14'ItemsPopupMenu'#7'OnPopup'#7#19'ItemsPopupMenuPopup'#4'left'#2'('
+#3'top'#2';'#0#0#0
]);

139
ide/unitinfodlg.lfm
View File

@ -6,7 +6,7 @@ object UnitInfoDialog: TUnitInfoDialog
ClientWidth = 500
OnKeyDown = UnitInfoDlgKeyDown
OnResize = UnitInfoDlgResize
PixelsPerInch = 96
PixelsPerInch = 112
Position = poScreenCenter
HorzScrollBar.Page = 499
VertScrollBar.Page = 282
@ -24,26 +24,28 @@ object UnitInfoDialog: TUnitInfoDialog
ModalResult = 1
NumGlyphs = 0
TabOrder = 0
Left = 426
Height = 34
Top = 239
Width = 68
Left = 443
Height = 28
Top = 245
Width = 51
end
object Notebook: TNotebook
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
PageIndex = 0
PageIndex = 3
Left = 6
Height = 226
Top = 6
Width = 488
object Page1: TPage
Caption = 'Page1'
ClientWidth = 480
ClientHeight = 200
Height = 200
Width = 480
ClientWidth = 484
ClientHeight = 196
Left = 2
Height = 196
Top = 28
Width = 484
object ULines: TLabel
Alignment = taRightJustify
Caption = 'ULines'
@ -51,9 +53,9 @@ object UnitInfoDialog: TUnitInfoDialog
Font.Style = [fsBold]
ParentColor = False
Left = 12
Height = 14
Height = 13
Top = 92
Width = 38
Width = 39
end
object OutLines: TLabel
BorderSpacing.Left = 12
@ -61,10 +63,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone
ParentColor = False
AnchorSideLeft.Control = ULines
Left = 62
Height = 14
AnchorSideLeft.Side = asrBottom
Left = 63
Height = 13
Top = 92
Width = 43
Width = 51
end
object OutPath: TLabel
BorderSpacing.Left = 12
@ -72,10 +75,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone
ParentColor = False
AnchorSideLeft.Control = UPath
Left = 59
Height = 14
AnchorSideLeft.Side = asrBottom
Left = 58
Height = 13
Top = 112
Width = 41
Width = 46
end
object UPath: TLabel
Alignment = taRightJustify
@ -84,9 +88,9 @@ object UnitInfoDialog: TUnitInfoDialog
Font.Style = [fsBold]
ParentColor = False
Left = 12
Height = 14
Height = 13
Top = 112
Width = 35
Width = 34
end
object UIncludedBy: TLabel
Alignment = taRightJustify
@ -95,7 +99,7 @@ object UnitInfoDialog: TUnitInfoDialog
Font.Style = [fsBold]
ParentColor = False
Left = 12
Height = 14
Height = 13
Top = 132
Width = 72
end
@ -105,10 +109,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone
ParentColor = False
AnchorSideLeft.Control = UIncludedBy
AnchorSideLeft.Side = asrBottom
Left = 96
Height = 14
Height = 13
Top = 132
Width = 72
Width = 84
end
object OutSize: TLabel
BorderSpacing.Left = 12
@ -116,10 +121,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone
ParentColor = False
AnchorSideLeft.Control = USize
Left = 56
Height = 14
AnchorSideLeft.Side = asrBottom
Left = 57
Height = 13
Top = 72
Width = 38
Width = 45
end
object USize: TLabel
Alignment = taRightJustify
@ -128,9 +134,9 @@ object UnitInfoDialog: TUnitInfoDialog
Font.Style = [fsBold]
ParentColor = False
Left = 12
Height = 14
Height = 13
Top = 72
Width = 32
Width = 33
end
object UInProject: TLabel
Alignment = taRightJustify
@ -139,9 +145,9 @@ object UnitInfoDialog: TUnitInfoDialog
Font.Style = [fsBold]
ParentColor = False
Left = 12
Height = 14
Height = 13
Top = 52
Width = 62
Width = 58
end
object OutInProject: TLabel
BorderSpacing.Left = 12
@ -149,10 +155,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone
ParentColor = False
AnchorSideLeft.Control = UInProject
Left = 86
Height = 14
AnchorSideLeft.Side = asrBottom
Left = 82
Height = 13
Top = 52
Width = 63
Width = 70
end
object OutType: TLabel
BorderSpacing.Left = 12
@ -160,10 +167,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone
ParentColor = False
AnchorSideLeft.Control = UType
AnchorSideLeft.Side = asrBottom
Left = 61
Height = 14
Height = 13
Top = 32
Width = 43
Width = 49
end
object UType: TLabel
Alignment = taRightJustify
@ -172,7 +180,7 @@ object UnitInfoDialog: TUnitInfoDialog
Font.Style = [fsBold]
ParentColor = False
Left = 12
Height = 14
Height = 13
Top = 32
Width = 37
end
@ -182,10 +190,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone
ParentColor = False
AnchorSideLeft.Control = UName
AnchorSideLeft.Side = asrBottom
Left = 65
Height = 14
Height = 13
Top = 12
Width = 46
Width = 53
end
object UName: TLabel
Alignment = taRightJustify
@ -195,7 +204,7 @@ object UnitInfoDialog: TUnitInfoDialog
ParentColor = False
OnResize = UnitInfoDlgResize
Left = 12
Height = 14
Height = 13
Top = 12
Width = 41
end
@ -208,60 +217,66 @@ object UnitInfoDialog: TUnitInfoDialog
TabOrder = 0
AnchorSideTop.Control = UIncludedBy
Left = 12
Height = 29
Top = 164
Width = 101
Height = 26
Top = 150
Width = 103
end
end
object Page2: TPage
Caption = 'Page2'
ClientWidth = 480
ClientHeight = 200
Height = 200
Width = 480
ClientWidth = 484
ClientHeight = 196
Left = 2
Height = 196
Top = 28
Width = 484
object UnitPathMemo: TMemo
Align = alClient
BorderSpacing.Around = 6
ScrollBars = ssAutoBoth
TabOrder = 0
Left = 6
Height = 188
Height = 184
Top = 6
Width = 468
Width = 472
end
end
object Page3: TPage
Caption = 'Page3'
ClientWidth = 480
ClientHeight = 200
Height = 200
Width = 480
ClientWidth = 484
ClientHeight = 196
Left = 2
Height = 196
Top = 28
Width = 484
object IncludePathMemo: TMemo
Align = alClient
BorderSpacing.Around = 6
ScrollBars = ssAutoBoth
TabOrder = 0
Left = 6
Height = 204
Height = 184
Top = 6
Width = 468
Width = 472
end
end
object Page4: TPage
Caption = 'Page4'
ClientWidth = 480
ClientHeight = 200
Height = 200
Width = 480
ClientWidth = 484
ClientHeight = 196
Left = 2
Height = 196
Top = 28
Width = 484
object SrcPathMemo: TMemo
Align = alClient
BorderSpacing.Around = 6
ScrollBars = ssAutoBoth
TabOrder = 0
Left = 6
Height = 180
Height = 184
Top = 6
Width = 468
Width = 472
end
end
end
@ -272,8 +287,8 @@ object UnitInfoDialog: TUnitInfoDialog
OnClick = CodeToolsDefsButtonClick
TabOrder = 2
Left = 6
Height = 29
Height = 26
Top = 240
Width = 128
Width = 130
end
end

135
ide/unitinfodlg.lrs
View File

@ -4,75 +4,80 @@ LazarusResources.Add('TUnitInfoDialog','FORMDATA',[
'TPF0'#15'TUnitInfoDialog'#14'UnitInfoDialog'#13'ActiveControl'#7#8'OkButton'
+#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#14'UnitInfoDialog'#12'Clie'
+'ntHeight'#3#27#1#11'ClientWidth'#3#244#1#9'OnKeyDown'#7#18'UnitInfoDlgKeyDo'
+'wn'#8'OnResize'#7#17'UnitInfoDlgResize'#13'PixelsPerInch'#2'`'#8'Position'#7
+'wn'#8'OnResize'#7#17'UnitInfoDlgResize'#13'PixelsPerInch'#2'p'#8'Position'#7
+#14'poScreenCenter'#18'HorzScrollBar.Page'#3#243#1#18'VertScrollBar.Page'#3
+#26#1#4'Left'#3'6'#1#6'Height'#3#27#1#3'Top'#3#153#2#5'Width'#3#244#1#0#7'TB'
+'itBtn'#8'OkButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#25
+'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4
+'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#0#4'Left'#3#170#1#6
+'Height'#2'"'#3'Top'#3#239#0#5'Width'#2'D'#0#0#9'TNotebook'#8'Notebook'#5'Al'
+'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#0#4'Left'#3#187#1#6
+'Height'#2#28#3'Top'#3#245#0#5'Width'#2'3'#0#0#9'TNotebook'#8'Notebook'#5'Al'
+'ign'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20
+'BorderSpacing.Around'#2#6#9'PageIndex'#2#0#4'Left'#2#6#6'Height'#3#226#0#3
+'BorderSpacing.Around'#2#6#9'PageIndex'#2#3#4'Left'#2#6#6'Height'#3#226#0#3
+'Top'#2#6#5'Width'#3#232#1#0#5'TPage'#5'Page1'#7'Caption'#6#5'Page1'#11'Clie'
+'ntWidth'#3#224#1#12'ClientHeight'#3#200#0#6'Height'#3#200#0#5'Width'#3#224#1
+#0#6'TLabel'#6'ULines'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#6'ULin'
+'es'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#4
+'Left'#2#12#6'Height'#2#14#3'Top'#2'\'#5'Width'#2'&'#0#0#6'TLabel'#8'OutLine'
+'s'#18'BorderSpacing.Left'#2#12#7'Caption'#6#8'OutLines'#5'Color'#7#6'clNone'
+#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#6'ULines'#4'Left'#2'>'#6'Hei'
+'ght'#2#14#3'Top'#2'\'#5'Width'#2'+'#0#0#6'TLabel'#7'OutPath'#18'BorderSpaci'
+'ng.Left'#2#12#7'Caption'#6#7'OutPath'#5'Color'#7#6'clNone'#11'ParentColor'#8
+#22'AnchorSideLeft.Control'#7#5'UPath'#4'Left'#2';'#6'Height'#2#14#3'Top'#2
+'p'#5'Width'#2')'#0#0#6'TLabel'#5'UPath'#9'Alignment'#7#14'taRightJustify'#7
+'Caption'#6#5'UPath'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'P'
+'arentColor'#8#4'Left'#2#12#6'Height'#2#14#3'Top'#2'p'#5'Width'#2'#'#0#0#6'T'
+'Label'#11'UIncludedBy'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#11'UI'
+'ncludedBy'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColo'
+'r'#8#4'Left'#2#12#6'Height'#2#14#3'Top'#3#132#0#5'Width'#2'H'#0#0#6'TLabel'
+#13'OutIncludedBy'#18'BorderSpacing.Left'#2#12#7'Caption'#6#13'OutIncludedBy'
+#5'Color'#7#6'clNone'#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#11'UInc'
+'ludedBy'#4'Left'#2'`'#6'Height'#2#14#3'Top'#3#132#0#5'Width'#2'H'#0#0#6'TLa'
+'bel'#7'OutSize'#18'BorderSpacing.Left'#2#12#7'Caption'#6#7'OutSize'#5'Color'
+#7#6'clNone'#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#5'USize'#4'Left'
+#2'8'#6'Height'#2#14#3'Top'#2'H'#5'Width'#2'&'#0#0#6'TLabel'#5'USize'#9'Alig'
+'nment'#7#14'taRightJustify'#7'Caption'#6#5'USize'#5'Color'#7#6'clNone'#10'F'
+'ont.Style'#11#6'fsBold'#0#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#14#3'T'
+'op'#2'H'#5'Width'#2' '#0#0#6'TLabel'#10'UInProject'#9'Alignment'#7#14'taRig'
+'htJustify'#7'Caption'#6#10'UInProject'#5'Color'#7#6'clNone'#10'Font.Style'
+#11#6'fsBold'#0#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#14#3'Top'#2'4'#5
+'Width'#2'>'#0#0#6'TLabel'#12'OutInProject'#18'BorderSpacing.Left'#2#12#7'Ca'
+'ption'#6#12'OutInProject'#5'Color'#7#6'clNone'#11'ParentColor'#8#22'AnchorS'
+'ideLeft.Control'#7#10'UInProject'#4'Left'#2'V'#6'Height'#2#14#3'Top'#2'4'#5
+'Width'#2'?'#0#0#6'TLabel'#7'OutType'#18'BorderSpacing.Left'#2#12#7'Caption'
+#6#7'OutType'#5'Color'#7#6'clNone'#11'ParentColor'#8#22'AnchorSideLeft.Contr'
+'ol'#7#5'UType'#4'Left'#2'='#6'Height'#2#14#3'Top'#2' '#5'Width'#2'+'#0#0#6
+'TLabel'#5'UType'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#5'UType'#5
+'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#4'Left'#2
+#12#6'Height'#2#14#3'Top'#2' '#5'Width'#2'%'#0#0#6'TLabel'#7'OutName'#18'Bor'
+'derSpacing.Left'#2#12#7'Caption'#6#7'OutName'#5'Color'#7#6'clNone'#11'Paren'
+'tColor'#8#22'AnchorSideLeft.Control'#7#5'UName'#4'Left'#2'A'#6'Height'#2#14
+#3'Top'#2#12#5'Width'#2'.'#0#0#6'TLabel'#5'UName'#9'Alignment'#7#14'taRightJ'
+'ustify'#7'Caption'#6#5'UName'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBo'
+'ld'#0#11'ParentColor'#8#8'OnResize'#7#17'UnitInfoDlgResize'#4'Left'#2#12#6
+'Height'#2#14#3'Top'#2#12#5'Width'#2')'#0#0#7'TButton'#15'ClearIncludedBy'#8
+'AutoSize'#9#17'BorderSpacing.Top'#2#18#25'BorderSpacing.InnerBorder'#2#2#7
+'Caption'#6#15'ClearIncludedBy'#7'OnClick'#7#20'clearIncludedByClick'#8'TabO'
+'rder'#2#0#21'AnchorSideTop.Control'#7#11'UIncludedBy'#4'Left'#2#12#6'Height'
+#2#29#3'Top'#3#164#0#5'Width'#2'e'#0#0#0#5'TPage'#5'Page2'#7'Caption'#6#5'Pa'
+'ge2'#11'ClientWidth'#3#224#1#12'ClientHeight'#3#200#0#6'Height'#3#200#0#5'W'
+'idth'#3#224#1#0#5'TMemo'#12'UnitPathMemo'#5'Align'#7#8'alClient'#20'BorderS'
+'pacing.Around'#2#6#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#4'Left'#2
+#6#6'Height'#3#188#0#3'Top'#2#6#5'Width'#3#212#1#0#0#0#5'TPage'#5'Page3'#7'C'
+'aption'#6#5'Page3'#11'ClientWidth'#3#224#1#12'ClientHeight'#3#200#0#6'Heigh'
+'t'#3#200#0#5'Width'#3#224#1#0#5'TMemo'#15'IncludePathMemo'#5'Align'#7#8'alC'
,'lient'#20'BorderSpacing.Around'#2#6#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOr'
+'der'#2#0#4'Left'#2#6#6'Height'#3#204#0#3'Top'#2#6#5'Width'#3#212#1#0#0#0#5
+'TPage'#5'Page4'#7'Caption'#6#5'Page4'#11'ClientWidth'#3#224#1#12'ClientHeig'
+'ht'#3#200#0#6'Height'#3#200#0#5'Width'#3#224#1#0#5'TMemo'#11'SrcPathMemo'#5
+'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#10'ScrollBars'#7#10'ssAut'
+'oBoth'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#3#180#0#3'Top'#2#6#5'Width'#3
+#212#1#0#0#0#0#7'TButton'#19'CodeToolsDefsButton'#8'AutoSize'#9#25'BorderSpa'
+'cing.InnerBorder'#2#2#7'Caption'#6#19'CodeToolsDefsButton'#7'OnClick'#7#24
+'CodeToolsDefsButtonClick'#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#29#3'Top'
+#3#240#0#5'Width'#3#128#0#0#0#0
+'ntWidth'#3#228#1#12'ClientHeight'#3#196#0#4'Left'#2#2#6'Height'#3#196#0#3'T'
+'op'#2#28#5'Width'#3#228#1#0#6'TLabel'#6'ULines'#9'Alignment'#7#14'taRightJu'
+'stify'#7'Caption'#6#6'ULines'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBo'
+'ld'#0#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#13#3'Top'#2'\'#5'Width'#2
+''''#0#0#6'TLabel'#8'OutLines'#18'BorderSpacing.Left'#2#12#7'Caption'#6#8'Ou'
+'tLines'#5'Color'#7#6'clNone'#11'ParentColor'#8#22'AnchorSideLeft.Control'#7
+#6'ULines'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'?'#6'Height'#2#13
+#3'Top'#2'\'#5'Width'#2'3'#0#0#6'TLabel'#7'OutPath'#18'BorderSpacing.Left'#2
+#12#7'Caption'#6#7'OutPath'#5'Color'#7#6'clNone'#11'ParentColor'#8#22'Anchor'
+'SideLeft.Control'#7#5'UPath'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'
+#2':'#6'Height'#2#13#3'Top'#2'p'#5'Width'#2'.'#0#0#6'TLabel'#5'UPath'#9'Alig'
+'nment'#7#14'taRightJustify'#7'Caption'#6#5'UPath'#5'Color'#7#6'clNone'#10'F'
+'ont.Style'#11#6'fsBold'#0#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#13#3'T'
+'op'#2'p'#5'Width'#2'"'#0#0#6'TLabel'#11'UIncludedBy'#9'Alignment'#7#14'taRi'
+'ghtJustify'#7'Caption'#6#11'UIncludedBy'#5'Color'#7#6'clNone'#10'Font.Style'
+#11#6'fsBold'#0#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#13#3'Top'#3#132#0
+#5'Width'#2'H'#0#0#6'TLabel'#13'OutIncludedBy'#18'BorderSpacing.Left'#2#12#7
+'Caption'#6#13'OutIncludedBy'#5'Color'#7#6'clNone'#11'ParentColor'#8#22'Anch'
+'orSideLeft.Control'#7#11'UIncludedBy'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+#4'Left'#2'`'#6'Height'#2#13#3'Top'#3#132#0#5'Width'#2'T'#0#0#6'TLabel'#7'Ou'
+'tSize'#18'BorderSpacing.Left'#2#12#7'Caption'#6#7'OutSize'#5'Color'#7#6'clN'
+'one'#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#5'USize'#19'AnchorSideL'
+'eft.Side'#7#9'asrBottom'#4'Left'#2'9'#6'Height'#2#13#3'Top'#2'H'#5'Width'#2
+'-'#0#0#6'TLabel'#5'USize'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#5
+'USize'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8
+#4'Left'#2#12#6'Height'#2#13#3'Top'#2'H'#5'Width'#2'!'#0#0#6'TLabel'#10'UInP'
+'roject'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#10'UInProject'#5'Col'
+'or'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#4'Left'#2#12
+#6'Height'#2#13#3'Top'#2'4'#5'Width'#2':'#0#0#6'TLabel'#12'OutInProject'#18
+'BorderSpacing.Left'#2#12#7'Caption'#6#12'OutInProject'#5'Color'#7#6'clNone'
+#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#10'UInProject'#19'AnchorSide'
+'Left.Side'#7#9'asrBottom'#4'Left'#2'R'#6'Height'#2#13#3'Top'#2'4'#5'Width'#2
+'F'#0#0#6'TLabel'#7'OutType'#18'BorderSpacing.Left'#2#12#7'Caption'#6#7'OutT'
+'ype'#5'Color'#7#6'clNone'#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#5
+'UType'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'='#6'Height'#2#13#3
+'Top'#2' '#5'Width'#2'1'#0#0#6'TLabel'#5'UType'#9'Alignment'#7#14'taRightJus'
+'tify'#7'Caption'#6#5'UType'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'
+#0#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#13#3'Top'#2' '#5'Width'#2'%'#0
+#0#6'TLabel'#7'OutName'#18'BorderSpacing.Left'#2#12#7'Caption'#6#7'OutName'#5
+'Color'#7#6'clNone'#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#5'UName'
+#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'A'#6'Height'#2#13#3'Top'#2
+#12#5'Width'#2'5'#0#0#6'TLabel'#5'UName'#9'Alignment'#7#14'taRightJustify'#7
+'Caption'#6#5'UName'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'P'
+'arentColor'#8#8'OnResize'#7#17'UnitInfoDlgResize'#4'Left'#2#12#6'Height'#2
+#13#3'Top'#2#12#5'Width'#2')'#0#0#7'TButton'#15'ClearIncludedBy'#8'AutoSize'
+#9#17'BorderSpacing.Top'#2#18#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6
+#15'ClearIncludedBy'#7'OnClick'#7#20'clearIncludedByClick'#8'TabOrder'#2#0#21
+'AnchorSideTop.Control'#7#11'UIncludedBy'#4'Left'#2#12#6'Height'#2#26#3'Top'
+#3#150#0#5'Width'#2'g'#0#0#0#5'TPage'#5'Page2'#7'Caption'#6#5'Page2'#11'Clie'
+'ntWidth'#3#228#1#12'ClientHeight'#3#196#0#4'Left'#2#2#6'Height'#3#196#0#3'T'
+'op'#2#28#5'Width'#3#228#1#0#5'TMemo'#12'UnitPathMemo'#5'Align'#7#8'alClient'
,#20'BorderSpacing.Around'#2#6#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0
+#4'Left'#2#6#6'Height'#3#184#0#3'Top'#2#6#5'Width'#3#216#1#0#0#0#5'TPage'#5
+'Page3'#7'Caption'#6#5'Page3'#11'ClientWidth'#3#228#1#12'ClientHeight'#3#196
+#0#4'Left'#2#2#6'Height'#3#196#0#3'Top'#2#28#5'Width'#3#228#1#0#5'TMemo'#15
+'IncludePathMemo'#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#10'Scr'
+'ollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#3#184#0#3'T'
+'op'#2#6#5'Width'#3#216#1#0#0#0#5'TPage'#5'Page4'#7'Caption'#6#5'Page4'#11'C'
+'lientWidth'#3#228#1#12'ClientHeight'#3#196#0#4'Left'#2#2#6'Height'#3#196#0#3
+'Top'#2#28#5'Width'#3#228#1#0#5'TMemo'#11'SrcPathMemo'#5'Align'#7#8'alClient'
+#20'BorderSpacing.Around'#2#6#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0
+#4'Left'#2#6#6'Height'#3#184#0#3'Top'#2#6#5'Width'#3#216#1#0#0#0#0#7'TButton'
+#19'CodeToolsDefsButton'#8'AutoSize'#9#25'BorderSpacing.InnerBorder'#2#2#7'C'
+'aption'#6#19'CodeToolsDefsButton'#7'OnClick'#7#24'CodeToolsDefsButtonClick'
+#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#26#3'Top'#3#240#0#5'Width'#3#130#0#0
+#0#0
]);