paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 09:39:43 +01: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/jpegforlazarus.pas svneol=native#text/pascal
components/jpeg/lazjpeg.pas svneol=native#text/pascal components/jpeg/lazjpeg.pas svneol=native#text/pascal
components/jpeg/readme.txt svneol=native#text/plain 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.lfm svneol=native#text/plain
components/memds/frmselectdataset.lrs svneol=native#text/pascal components/memds/frmselectdataset.lrs svneol=native#text/pascal
components/memds/frmselectdataset.pp 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 ClientHeight = 300
ClientWidth = 403 ClientWidth = 403
OnShow = ProjectInspectorFormShow OnShow = ProjectInspectorFormShow
PixelsPerInch = 96 PixelsPerInch = 112
HorzScrollBar.Page = 402 HorzScrollBar.Page = 402
VertScrollBar.Page = 299 VertScrollBar.Page = 299
Left = 460 Left = 460
@ -19,8 +19,8 @@ object ProjectInspectorForm: TProjectInspectorForm
NumGlyphs = 0 NumGlyphs = 0
OnClick = OpenBitBtnClick OnClick = OpenBitBtnClick
TabOrder = 0 TabOrder = 0
Height = 29 Height = 26
Width = 78 Width = 76
end end
object AddBitBtn: TBitBtn object AddBitBtn: TBitBtn
AutoSize = True AutoSize = True
@ -30,9 +30,10 @@ object ProjectInspectorForm: TProjectInspectorForm
OnClick = AddBitBtnClick OnClick = AddBitBtnClick
TabOrder = 1 TabOrder = 1
AnchorSideLeft.Control = OpenBitBtn AnchorSideLeft.Control = OpenBitBtn
Left = 78 AnchorSideLeft.Side = asrBottom
Height = 29 Left = 76
Width = 71 Height = 26
Width = 68
end end
object RemoveBitBtn: TBitBtn object RemoveBitBtn: TBitBtn
AutoSize = True AutoSize = True
@ -42,9 +43,10 @@ object ProjectInspectorForm: TProjectInspectorForm
OnClick = RemoveBitBtnClick OnClick = RemoveBitBtnClick
TabOrder = 2 TabOrder = 2
AnchorSideLeft.Control = AddBitBtn AnchorSideLeft.Control = AddBitBtn
Left = 149 AnchorSideLeft.Side = asrBottom
Height = 29 Left = 144
Width = 92 Height = 26
Width = 90
end end
object OptionsBitBtn: TBitBtn object OptionsBitBtn: TBitBtn
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -55,9 +57,10 @@ object ProjectInspectorForm: TProjectInspectorForm
OnClick = OptionsBitBtnClick OnClick = OptionsBitBtnClick
TabOrder = 3 TabOrder = 3
AnchorSideLeft.Control = RemoveBitBtn AnchorSideLeft.Control = RemoveBitBtn
Left = 241 AnchorSideLeft.Side = asrBottom
Height = 29 Left = 234
Width = 162 Height = 26
Width = 169
end end
object ItemsTreeView: TTreeView object ItemsTreeView: TTreeView
Align = alBottom Align = alBottom

44
ide/projectinspector.lrs
View File

@ -4,30 +4,32 @@ LazarusResources.Add('TProjectInspectorForm','FORMDATA',[
'TPF0'#21'TProjectInspectorForm'#20'ProjectInspectorForm'#13'ActiveControl'#7 'TPF0'#21'TProjectInspectorForm'#20'ProjectInspectorForm'#13'ActiveControl'#7
+#10'OpenBitBtn'#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#20'ProjectI' +#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 +'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' +#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' +#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' +'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 +#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 +'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' +'TabOrder'#2#1#22'AnchorSideLeft.Control'#7#10'OpenBitBtn'#19'AnchorSideLeft'
+'ight'#2#29#5'Width'#2'G'#0#0#7'TBitBtn'#12'RemoveBitBtn'#8'AutoSize'#9#25'B' +'.Side'#7#9'asrBottom'#4'Left'#2'L'#6'Height'#2#26#5'Width'#2'D'#0#0#7'TBitB'
+'orderSpacing.InnerBorder'#2#2#7'Caption'#6#12'RemoveBitBtn'#9'NumGlyphs'#2#0 +'tn'#12'RemoveBitBtn'#8'AutoSize'#9#25'BorderSpacing.InnerBorder'#2#2#7'Capt'
+#7'OnClick'#7#17'RemoveBitBtnClick'#8'TabOrder'#2#2#22'AnchorSideLeft.Contro' +'ion'#6#12'RemoveBitBtn'#9'NumGlyphs'#2#0#7'OnClick'#7#17'RemoveBitBtnClick'
+'l'#7#9'AddBitBtn'#4'Left'#3#149#0#6'Height'#2#29#5'Width'#2'\'#0#0#7'TBitBt' +#8'TabOrder'#2#2#22'AnchorSideLeft.Control'#7#9'AddBitBtn'#19'AnchorSideLeft'
+'n'#13'OptionsBitBtn'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSi' +'.Side'#7#9'asrBottom'#4'Left'#3#144#0#6'Height'#2#26#5'Width'#2'Z'#0#0#7'TB'
+'ze'#9#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#13'OptionsBitBtn'#9'Nu' +'itBtn'#13'OptionsBitBtn'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'Au'
+'mGlyphs'#2#0#7'OnClick'#7#18'OptionsBitBtnClick'#8'TabOrder'#2#3#22'AnchorS' +'toSize'#9#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#13'OptionsBitBtn'#9
+'ideLeft.Control'#7#12'RemoveBitBtn'#4'Left'#3#241#0#6'Height'#2#29#5'Width' +'NumGlyphs'#2#0#7'OnClick'#7#18'OptionsBitBtnClick'#8'TabOrder'#2#3#22'Ancho'
+#3#162#0#0#0#9'TTreeView'#13'ItemsTreeView'#5'Align'#7#8'alBottom'#7'Anchors' +'rSideLeft.Control'#7#12'RemoveBitBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'DefaultItemHeight'#2#16#6 +#4'Left'#3#234#0#6'Height'#2#26#5'Width'#3#169#0#0#0#9'TTreeView'#13'ItemsTr'
+'Images'#7#9'ImageList'#9'PopupMenu'#7#14'ItemsPopupMenu'#16'RightClickSelec' +'eeView'#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
+'t'#9#8'TabOrder'#2#4#10'OnDblClick'#7#21'ItemsTreeViewDblClick'#18'OnSelect' +'akBottom'#0#17'DefaultItemHeight'#2#16#6'Images'#7#9'ImageList'#9'PopupMenu'
+'ionChanged'#7#29'ItemsTreeViewSelectionChanged'#7'Options'#11#17'tvoAutoIte' +#7#14'ItemsPopupMenu'#16'RightClickSelect'#9#8'TabOrder'#2#4#10'OnDblClick'#7
+'mHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#19'tvoRightClickSel' +#21'ItemsTreeViewDblClick'#18'OnSelectionChanged'#7#29'ItemsTreeViewSelectio'
+'ect'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#6 +'nChanged'#7'Options'#11#17'tvoAutoItemHeight'#16'tvoHideSelection'#21'tvoKe'
+'Height'#3#13#1#3'Top'#2#31#5'Width'#3#147#1#0#0#10'TImageList'#9'ImageList' +'epCollapsedNodes'#19'tvoRightClickSelect'#14'tvoShowButtons'#12'tvoShowLine'
+#4'left'#2''''#3'top'#2#20#0#0#10'TPopupMenu'#14'ItemsPopupMenu'#7'OnPopup'#7 +'s'#11'tvoShowRoot'#11'tvoToolTips'#0#6'Height'#3#13#1#3'Top'#2#31#5'Width'#3
+#19'ItemsPopupMenuPopup'#4'left'#2'('#3'top'#2';'#0#0#0 +#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 ClientWidth = 500
OnKeyDown = UnitInfoDlgKeyDown OnKeyDown = UnitInfoDlgKeyDown
OnResize = UnitInfoDlgResize OnResize = UnitInfoDlgResize
PixelsPerInch = 96 PixelsPerInch = 112
Position = poScreenCenter Position = poScreenCenter
HorzScrollBar.Page = 499 HorzScrollBar.Page = 499
VertScrollBar.Page = 282 VertScrollBar.Page = 282
@ -24,26 +24,28 @@ object UnitInfoDialog: TUnitInfoDialog
ModalResult = 1 ModalResult = 1
NumGlyphs = 0 NumGlyphs = 0
TabOrder = 0 TabOrder = 0
Left = 426 Left = 443
Height = 34 Height = 28
Top = 239 Top = 245
Width = 68 Width = 51
end end
object Notebook: TNotebook object Notebook: TNotebook
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
PageIndex = 0 PageIndex = 3
Left = 6 Left = 6
Height = 226 Height = 226
Top = 6 Top = 6
Width = 488 Width = 488
object Page1: TPage object Page1: TPage
Caption = 'Page1' Caption = 'Page1'
ClientWidth = 480 ClientWidth = 484
ClientHeight = 200 ClientHeight = 196
Height = 200 Left = 2
Width = 480 Height = 196
Top = 28
Width = 484
object ULines: TLabel object ULines: TLabel
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'ULines' Caption = 'ULines'
@ -51,9 +53,9 @@ object UnitInfoDialog: TUnitInfoDialog
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
Left = 12 Left = 12
Height = 14 Height = 13
Top = 92 Top = 92
Width = 38 Width = 39
end end
object OutLines: TLabel object OutLines: TLabel
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -61,10 +63,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone Color = clNone
ParentColor = False ParentColor = False
AnchorSideLeft.Control = ULines AnchorSideLeft.Control = ULines
Left = 62 AnchorSideLeft.Side = asrBottom
Height = 14 Left = 63
Height = 13
Top = 92 Top = 92
Width = 43 Width = 51
end end
object OutPath: TLabel object OutPath: TLabel
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -72,10 +75,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone Color = clNone
ParentColor = False ParentColor = False
AnchorSideLeft.Control = UPath AnchorSideLeft.Control = UPath
Left = 59 AnchorSideLeft.Side = asrBottom
Height = 14 Left = 58
Height = 13
Top = 112 Top = 112
Width = 41 Width = 46
end end
object UPath: TLabel object UPath: TLabel
Alignment = taRightJustify Alignment = taRightJustify
@ -84,9 +88,9 @@ object UnitInfoDialog: TUnitInfoDialog
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
Left = 12 Left = 12
Height = 14 Height = 13
Top = 112 Top = 112
Width = 35 Width = 34
end end
object UIncludedBy: TLabel object UIncludedBy: TLabel
Alignment = taRightJustify Alignment = taRightJustify
@ -95,7 +99,7 @@ object UnitInfoDialog: TUnitInfoDialog
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
Left = 12 Left = 12
Height = 14 Height = 13
Top = 132 Top = 132
Width = 72 Width = 72
end end
@ -105,10 +109,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone Color = clNone
ParentColor = False ParentColor = False
AnchorSideLeft.Control = UIncludedBy AnchorSideLeft.Control = UIncludedBy
AnchorSideLeft.Side = asrBottom
Left = 96 Left = 96
Height = 14 Height = 13
Top = 132 Top = 132
Width = 72 Width = 84
end end
object OutSize: TLabel object OutSize: TLabel
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -116,10 +121,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone Color = clNone
ParentColor = False ParentColor = False
AnchorSideLeft.Control = USize AnchorSideLeft.Control = USize
Left = 56 AnchorSideLeft.Side = asrBottom
Height = 14 Left = 57
Height = 13
Top = 72 Top = 72
Width = 38 Width = 45
end end
object USize: TLabel object USize: TLabel
Alignment = taRightJustify Alignment = taRightJustify
@ -128,9 +134,9 @@ object UnitInfoDialog: TUnitInfoDialog
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
Left = 12 Left = 12
Height = 14 Height = 13
Top = 72 Top = 72
Width = 32 Width = 33
end end
object UInProject: TLabel object UInProject: TLabel
Alignment = taRightJustify Alignment = taRightJustify
@ -139,9 +145,9 @@ object UnitInfoDialog: TUnitInfoDialog
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
Left = 12 Left = 12
Height = 14 Height = 13
Top = 52 Top = 52
Width = 62 Width = 58
end end
object OutInProject: TLabel object OutInProject: TLabel
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -149,10 +155,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone Color = clNone
ParentColor = False ParentColor = False
AnchorSideLeft.Control = UInProject AnchorSideLeft.Control = UInProject
Left = 86 AnchorSideLeft.Side = asrBottom
Height = 14 Left = 82
Height = 13
Top = 52 Top = 52
Width = 63 Width = 70
end end
object OutType: TLabel object OutType: TLabel
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -160,10 +167,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone Color = clNone
ParentColor = False ParentColor = False
AnchorSideLeft.Control = UType AnchorSideLeft.Control = UType
AnchorSideLeft.Side = asrBottom
Left = 61 Left = 61
Height = 14 Height = 13
Top = 32 Top = 32
Width = 43 Width = 49
end end
object UType: TLabel object UType: TLabel
Alignment = taRightJustify Alignment = taRightJustify
@ -172,7 +180,7 @@ object UnitInfoDialog: TUnitInfoDialog
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
Left = 12 Left = 12
Height = 14 Height = 13
Top = 32 Top = 32
Width = 37 Width = 37
end end
@ -182,10 +190,11 @@ object UnitInfoDialog: TUnitInfoDialog
Color = clNone Color = clNone
ParentColor = False ParentColor = False
AnchorSideLeft.Control = UName AnchorSideLeft.Control = UName
AnchorSideLeft.Side = asrBottom
Left = 65 Left = 65
Height = 14 Height = 13
Top = 12 Top = 12
Width = 46 Width = 53
end end
object UName: TLabel object UName: TLabel
Alignment = taRightJustify Alignment = taRightJustify
@ -195,7 +204,7 @@ object UnitInfoDialog: TUnitInfoDialog
ParentColor = False ParentColor = False
OnResize = UnitInfoDlgResize OnResize = UnitInfoDlgResize
Left = 12 Left = 12
Height = 14 Height = 13
Top = 12 Top = 12
Width = 41 Width = 41
end end
@ -208,60 +217,66 @@ object UnitInfoDialog: TUnitInfoDialog
TabOrder = 0 TabOrder = 0
AnchorSideTop.Control = UIncludedBy AnchorSideTop.Control = UIncludedBy
Left = 12 Left = 12
Height = 29 Height = 26
Top = 164 Top = 150
Width = 101 Width = 103
end end
end end
object Page2: TPage object Page2: TPage
Caption = 'Page2' Caption = 'Page2'
ClientWidth = 480 ClientWidth = 484
ClientHeight = 200 ClientHeight = 196
Height = 200 Left = 2
Width = 480 Height = 196
Top = 28
Width = 484
object UnitPathMemo: TMemo object UnitPathMemo: TMemo
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
Height = 188 Height = 184
Top = 6 Top = 6
Width = 468 Width = 472
end end
end end
object Page3: TPage object Page3: TPage
Caption = 'Page3' Caption = 'Page3'
ClientWidth = 480 ClientWidth = 484
ClientHeight = 200 ClientHeight = 196
Height = 200 Left = 2
Width = 480 Height = 196
Top = 28
Width = 484
object IncludePathMemo: TMemo object IncludePathMemo: TMemo
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
Height = 204 Height = 184
Top = 6 Top = 6
Width = 468 Width = 472
end end
end end
object Page4: TPage object Page4: TPage
Caption = 'Page4' Caption = 'Page4'
ClientWidth = 480 ClientWidth = 484
ClientHeight = 200 ClientHeight = 196
Height = 200 Left = 2
Width = 480 Height = 196
Top = 28
Width = 484
object SrcPathMemo: TMemo object SrcPathMemo: TMemo
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
Height = 180 Height = 184
Top = 6 Top = 6
Width = 468 Width = 472
end end
end end
end end
@ -272,8 +287,8 @@ object UnitInfoDialog: TUnitInfoDialog
OnClick = CodeToolsDefsButtonClick OnClick = CodeToolsDefsButtonClick
TabOrder = 2 TabOrder = 2
Left = 6 Left = 6
Height = 29 Height = 26
Top = 240 Top = 240
Width = 128 Width = 130
end end
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' 'TPF0'#15'TUnitInfoDialog'#14'UnitInfoDialog'#13'ActiveControl'#7#8'OkButton'
+#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#14'UnitInfoDialog'#12'Clie' +#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' +'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 +#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' +#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 +'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 +'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 +'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#0#4'Left'#3#187#1#6
+'Height'#2'"'#3'Top'#3#239#0#5'Width'#2'D'#0#0#9'TNotebook'#8'Notebook'#5'Al' +'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 +'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' +'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 +'ntWidth'#3#228#1#12'ClientHeight'#3#196#0#4'Left'#2#2#6'Height'#3#196#0#3'T'
+#0#6'TLabel'#6'ULines'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#6'ULin' +'op'#2#28#5'Width'#3#228#1#0#6'TLabel'#6'ULines'#9'Alignment'#7#14'taRightJu'
+'es'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#4 +'stify'#7'Caption'#6#6'ULines'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBo'
+'Left'#2#12#6'Height'#2#14#3'Top'#2'\'#5'Width'#2'&'#0#0#6'TLabel'#8'OutLine' +'ld'#0#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#13#3'Top'#2'\'#5'Width'#2
+'s'#18'BorderSpacing.Left'#2#12#7'Caption'#6#8'OutLines'#5'Color'#7#6'clNone' +''''#0#0#6'TLabel'#8'OutLines'#18'BorderSpacing.Left'#2#12#7'Caption'#6#8'Ou'
+#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#6'ULines'#4'Left'#2'>'#6'Hei' +'tLines'#5'Color'#7#6'clNone'#11'ParentColor'#8#22'AnchorSideLeft.Control'#7
+'ght'#2#14#3'Top'#2'\'#5'Width'#2'+'#0#0#6'TLabel'#7'OutPath'#18'BorderSpaci' +#6'ULines'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'?'#6'Height'#2#13
+'ng.Left'#2#12#7'Caption'#6#7'OutPath'#5'Color'#7#6'clNone'#11'ParentColor'#8 +#3'Top'#2'\'#5'Width'#2'3'#0#0#6'TLabel'#7'OutPath'#18'BorderSpacing.Left'#2
+#22'AnchorSideLeft.Control'#7#5'UPath'#4'Left'#2';'#6'Height'#2#14#3'Top'#2 +#12#7'Caption'#6#7'OutPath'#5'Color'#7#6'clNone'#11'ParentColor'#8#22'Anchor'
+'p'#5'Width'#2')'#0#0#6'TLabel'#5'UPath'#9'Alignment'#7#14'taRightJustify'#7 +'SideLeft.Control'#7#5'UPath'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'
+'Caption'#6#5'UPath'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'P' +#2':'#6'Height'#2#13#3'Top'#2'p'#5'Width'#2'.'#0#0#6'TLabel'#5'UPath'#9'Alig'
+'arentColor'#8#4'Left'#2#12#6'Height'#2#14#3'Top'#2'p'#5'Width'#2'#'#0#0#6'T' +'nment'#7#14'taRightJustify'#7'Caption'#6#5'UPath'#5'Color'#7#6'clNone'#10'F'
+'Label'#11'UIncludedBy'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#11'UI' +'ont.Style'#11#6'fsBold'#0#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#13#3'T'
+'ncludedBy'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColo' +'op'#2'p'#5'Width'#2'"'#0#0#6'TLabel'#11'UIncludedBy'#9'Alignment'#7#14'taRi'
+'r'#8#4'Left'#2#12#6'Height'#2#14#3'Top'#3#132#0#5'Width'#2'H'#0#0#6'TLabel' +'ghtJustify'#7'Caption'#6#11'UIncludedBy'#5'Color'#7#6'clNone'#10'Font.Style'
+#13'OutIncludedBy'#18'BorderSpacing.Left'#2#12#7'Caption'#6#13'OutIncludedBy' +#11#6'fsBold'#0#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#13#3'Top'#3#132#0
+#5'Color'#7#6'clNone'#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#11'UInc' +#5'Width'#2'H'#0#0#6'TLabel'#13'OutIncludedBy'#18'BorderSpacing.Left'#2#12#7
+'ludedBy'#4'Left'#2'`'#6'Height'#2#14#3'Top'#3#132#0#5'Width'#2'H'#0#0#6'TLa' +'Caption'#6#13'OutIncludedBy'#5'Color'#7#6'clNone'#11'ParentColor'#8#22'Anch'
+'bel'#7'OutSize'#18'BorderSpacing.Left'#2#12#7'Caption'#6#7'OutSize'#5'Color' +'orSideLeft.Control'#7#11'UIncludedBy'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+#7#6'clNone'#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#5'USize'#4'Left' +#4'Left'#2'`'#6'Height'#2#13#3'Top'#3#132#0#5'Width'#2'T'#0#0#6'TLabel'#7'Ou'
+#2'8'#6'Height'#2#14#3'Top'#2'H'#5'Width'#2'&'#0#0#6'TLabel'#5'USize'#9'Alig' +'tSize'#18'BorderSpacing.Left'#2#12#7'Caption'#6#7'OutSize'#5'Color'#7#6'clN'
+'nment'#7#14'taRightJustify'#7'Caption'#6#5'USize'#5'Color'#7#6'clNone'#10'F' +'one'#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#5'USize'#19'AnchorSideL'
+'ont.Style'#11#6'fsBold'#0#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#14#3'T' +'eft.Side'#7#9'asrBottom'#4'Left'#2'9'#6'Height'#2#13#3'Top'#2'H'#5'Width'#2
+'op'#2'H'#5'Width'#2' '#0#0#6'TLabel'#10'UInProject'#9'Alignment'#7#14'taRig' +'-'#0#0#6'TLabel'#5'USize'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#5
+'htJustify'#7'Caption'#6#10'UInProject'#5'Color'#7#6'clNone'#10'Font.Style' +'USize'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8
+#11#6'fsBold'#0#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#14#3'Top'#2'4'#5 +#4'Left'#2#12#6'Height'#2#13#3'Top'#2'H'#5'Width'#2'!'#0#0#6'TLabel'#10'UInP'
+'Width'#2'>'#0#0#6'TLabel'#12'OutInProject'#18'BorderSpacing.Left'#2#12#7'Ca' +'roject'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#10'UInProject'#5'Col'
+'ption'#6#12'OutInProject'#5'Color'#7#6'clNone'#11'ParentColor'#8#22'AnchorS' +'or'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#4'Left'#2#12
+'ideLeft.Control'#7#10'UInProject'#4'Left'#2'V'#6'Height'#2#14#3'Top'#2'4'#5 +#6'Height'#2#13#3'Top'#2'4'#5'Width'#2':'#0#0#6'TLabel'#12'OutInProject'#18
+'Width'#2'?'#0#0#6'TLabel'#7'OutType'#18'BorderSpacing.Left'#2#12#7'Caption' +'BorderSpacing.Left'#2#12#7'Caption'#6#12'OutInProject'#5'Color'#7#6'clNone'
+#6#7'OutType'#5'Color'#7#6'clNone'#11'ParentColor'#8#22'AnchorSideLeft.Contr' +#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#10'UInProject'#19'AnchorSide'
+'ol'#7#5'UType'#4'Left'#2'='#6'Height'#2#14#3'Top'#2' '#5'Width'#2'+'#0#0#6 +'Left.Side'#7#9'asrBottom'#4'Left'#2'R'#6'Height'#2#13#3'Top'#2'4'#5'Width'#2
+'TLabel'#5'UType'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#5'UType'#5 +'F'#0#0#6'TLabel'#7'OutType'#18'BorderSpacing.Left'#2#12#7'Caption'#6#7'OutT'
+'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#4'Left'#2 +'ype'#5'Color'#7#6'clNone'#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#5
+#12#6'Height'#2#14#3'Top'#2' '#5'Width'#2'%'#0#0#6'TLabel'#7'OutName'#18'Bor' +'UType'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'='#6'Height'#2#13#3
+'derSpacing.Left'#2#12#7'Caption'#6#7'OutName'#5'Color'#7#6'clNone'#11'Paren' +'Top'#2' '#5'Width'#2'1'#0#0#6'TLabel'#5'UType'#9'Alignment'#7#14'taRightJus'
+'tColor'#8#22'AnchorSideLeft.Control'#7#5'UName'#4'Left'#2'A'#6'Height'#2#14 +'tify'#7'Caption'#6#5'UType'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'
+#3'Top'#2#12#5'Width'#2'.'#0#0#6'TLabel'#5'UName'#9'Alignment'#7#14'taRightJ' +#0#11'ParentColor'#8#4'Left'#2#12#6'Height'#2#13#3'Top'#2' '#5'Width'#2'%'#0
+'ustify'#7'Caption'#6#5'UName'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBo' +#0#6'TLabel'#7'OutName'#18'BorderSpacing.Left'#2#12#7'Caption'#6#7'OutName'#5
+'ld'#0#11'ParentColor'#8#8'OnResize'#7#17'UnitInfoDlgResize'#4'Left'#2#12#6 +'Color'#7#6'clNone'#11'ParentColor'#8#22'AnchorSideLeft.Control'#7#5'UName'
+'Height'#2#14#3'Top'#2#12#5'Width'#2')'#0#0#7'TButton'#15'ClearIncludedBy'#8 +#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'A'#6'Height'#2#13#3'Top'#2
+'AutoSize'#9#17'BorderSpacing.Top'#2#18#25'BorderSpacing.InnerBorder'#2#2#7 +#12#5'Width'#2'5'#0#0#6'TLabel'#5'UName'#9'Alignment'#7#14'taRightJustify'#7
+'Caption'#6#15'ClearIncludedBy'#7'OnClick'#7#20'clearIncludedByClick'#8'TabO' +'Caption'#6#5'UName'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'P'
+'rder'#2#0#21'AnchorSideTop.Control'#7#11'UIncludedBy'#4'Left'#2#12#6'Height' +'arentColor'#8#8'OnResize'#7#17'UnitInfoDlgResize'#4'Left'#2#12#6'Height'#2
+#2#29#3'Top'#3#164#0#5'Width'#2'e'#0#0#0#5'TPage'#5'Page2'#7'Caption'#6#5'Pa' +#13#3'Top'#2#12#5'Width'#2')'#0#0#7'TButton'#15'ClearIncludedBy'#8'AutoSize'
+'ge2'#11'ClientWidth'#3#224#1#12'ClientHeight'#3#200#0#6'Height'#3#200#0#5'W' +#9#17'BorderSpacing.Top'#2#18#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6
+'idth'#3#224#1#0#5'TMemo'#12'UnitPathMemo'#5'Align'#7#8'alClient'#20'BorderS' +#15'ClearIncludedBy'#7'OnClick'#7#20'clearIncludedByClick'#8'TabOrder'#2#0#21
+'pacing.Around'#2#6#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#4'Left'#2 +'AnchorSideTop.Control'#7#11'UIncludedBy'#4'Left'#2#12#6'Height'#2#26#3'Top'
+#6#6'Height'#3#188#0#3'Top'#2#6#5'Width'#3#212#1#0#0#0#5'TPage'#5'Page3'#7'C' +#3#150#0#5'Width'#2'g'#0#0#0#5'TPage'#5'Page2'#7'Caption'#6#5'Page2'#11'Clie'
+'aption'#6#5'Page3'#11'ClientWidth'#3#224#1#12'ClientHeight'#3#200#0#6'Heigh' +'ntWidth'#3#228#1#12'ClientHeight'#3#196#0#4'Left'#2#2#6'Height'#3#196#0#3'T'
+'t'#3#200#0#5'Width'#3#224#1#0#5'TMemo'#15'IncludePathMemo'#5'Align'#7#8'alC' +'op'#2#28#5'Width'#3#228#1#0#5'TMemo'#12'UnitPathMemo'#5'Align'#7#8'alClient'
,'lient'#20'BorderSpacing.Around'#2#6#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOr' ,#20'BorderSpacing.Around'#2#6#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0
+'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 +#4'Left'#2#6#6'Height'#3#184#0#3'Top'#2#6#5'Width'#3#216#1#0#0#0#5'TPage'#5
+'TPage'#5'Page4'#7'Caption'#6#5'Page4'#11'ClientWidth'#3#224#1#12'ClientHeig' +'Page3'#7'Caption'#6#5'Page3'#11'ClientWidth'#3#228#1#12'ClientHeight'#3#196
+'ht'#3#200#0#6'Height'#3#200#0#5'Width'#3#224#1#0#5'TMemo'#11'SrcPathMemo'#5 +#0#4'Left'#2#2#6'Height'#3#196#0#3'Top'#2#28#5'Width'#3#228#1#0#5'TMemo'#15
+'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#10'ScrollBars'#7#10'ssAut' +'IncludePathMemo'#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#10'Scr'
+'oBoth'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#3#180#0#3'Top'#2#6#5'Width'#3 +'ollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#3#184#0#3'T'
+#212#1#0#0#0#0#7'TButton'#19'CodeToolsDefsButton'#8'AutoSize'#9#25'BorderSpa' +'op'#2#6#5'Width'#3#216#1#0#0#0#5'TPage'#5'Page4'#7'Caption'#6#5'Page4'#11'C'
+'cing.InnerBorder'#2#2#7'Caption'#6#19'CodeToolsDefsButton'#7'OnClick'#7#24 +'lientWidth'#3#228#1#12'ClientHeight'#3#196#0#4'Left'#2#2#6'Height'#3#196#0#3
+'CodeToolsDefsButtonClick'#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#29#3'Top' +'Top'#2#28#5'Width'#3#228#1#0#5'TMemo'#11'SrcPathMemo'#5'Align'#7#8'alClient'
+#3#240#0#5'Width'#3#128#0#0#0#0 +#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
]); ]);