pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fixes after bitmap rewrite

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@495 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
tomb0
2008-06-28 14:25:53 +00:00
parent 24c0de27b9
commit c50e7b7180
9 changed files with 10923 additions and 6289 deletions
Download Patch File Download Diff File Expand all files Collapse all files

210
applications/iconeditor/laziconeditor.lpi
View File

@ -2,13 +2,13 @@
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="5"/> <Version Value="6"/>
<General> <General>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<Title Value="Lazarus Icon Editor"/> <Title Value="Lazarus Icon Editor"/>
<ActiveEditorIndexAtStart Value="11"/> <ActiveEditorIndexAtStart Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
<CurrentMajorRevNr Value="1"/> <CurrentMajorRevNr Value="1"/>
@ -27,26 +27,23 @@
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="4"> <RequiredPackages Count="3">
<Item1> <Item1>
<PackageName Value="LCL"/> <PackageName Value="LazColorPalette"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="LazRGBGraphics"/> <PackageName Value="LazRGBGraphics"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="LazColorPalette"/> <PackageName Value="LCL"/>
</Item3> </Item3>
<Item4>
<PackageName Value="JPEGForLazarus"/>
</Item4>
</RequiredPackages> </RequiredPackages>
<Units Count="136"> <Units Count="137">
<Unit0> <Unit0>
<Filename Value="laziconeditor.lpr"/> <Filename Value="laziconeditor.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="laziconeditor"/> <UnitName Value="laziconeditor"/>
<CursorPos X="8" Y="27"/> <CursorPos X="77" Y="11"/>
<TopLine Value="4"/> <TopLine Value="4"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<UsageCount Value="146"/> <UsageCount Value="146"/>
@ -56,10 +53,11 @@
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<ComponentName Value="MainForm"/> <ComponentName Value="MainForm"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="main.lrs"/> <ResourceFilename Value="main.lrs"/>
<UnitName Value="Main"/> <UnitName Value="Main"/>
<CursorPos X="88" Y="843"/> <CursorPos X="27" Y="43"/>
<TopLine Value="831"/> <TopLine Value="33"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="146"/> <UsageCount Value="146"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -75,6 +73,7 @@
<Filename Value="preview.pas"/> <Filename Value="preview.pas"/>
<ComponentName Value="PreviewForm"/> <ComponentName Value="PreviewForm"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="preview.lrs"/> <ResourceFilename Value="preview.lrs"/>
<UnitName Value="Preview"/> <UnitName Value="Preview"/>
<CursorPos X="23" Y="66"/> <CursorPos X="23" Y="66"/>
@ -87,8 +86,8 @@
<Filename Value="picturemanager.pas"/> <Filename Value="picturemanager.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="PictureManager"/> <UnitName Value="PictureManager"/>
<CursorPos X="31" Y="260"/> <CursorPos X="35" Y="252"/>
<TopLine Value="234"/> <TopLine Value="238"/>
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<UsageCount Value="146"/> <UsageCount Value="146"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -117,9 +116,9 @@
<Filename Value="picturectrls.pas"/> <Filename Value="picturectrls.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="PictureCtrls"/> <UnitName Value="PictureCtrls"/>
<CursorPos X="3" Y="358"/> <CursorPos X="36" Y="516"/>
<TopLine Value="337"/> <TopLine Value="513"/>
<EditorIndex Value="9"/> <EditorIndex Value="10"/>
<UsageCount Value="144"/> <UsageCount Value="144"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit8> </Unit8>
@ -141,7 +140,7 @@
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<CursorPos X="22" Y="1623"/> <CursorPos X="22" Y="1623"/>
<TopLine Value="1607"/> <TopLine Value="1607"/>
<EditorIndex Value="10"/> <EditorIndex Value="12"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit11> </Unit11>
@ -159,13 +158,13 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="..\..\Programs\lazarus\fpcsrc\rtl\inc\systemh.inc"/> <Filename Value="..\Programs\lazarus\fpcsrc\rtl\inc\systemh.inc"/>
<CursorPos X="11" Y="415"/> <CursorPos X="11" Y="415"/>
<TopLine Value="401"/> <TopLine Value="401"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="..\..\Programs\lazarus\fpcsrc\rtl\inc\generic.inc"/> <Filename Value="..\Programs\lazarus\fpcsrc\rtl\inc\generic.inc"/>
<CursorPos X="3" Y="79"/> <CursorPos X="3" Y="79"/>
<TopLine Value="40"/> <TopLine Value="40"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
@ -174,6 +173,7 @@
<Filename Value="test.pas"/> <Filename Value="test.pas"/>
<ComponentName Value="TestForm"/> <ComponentName Value="TestForm"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="test.lrs"/> <ResourceFilename Value="test.lrs"/>
<UnitName Value="Test"/> <UnitName Value="Test"/>
<CursorPos X="11" Y="79"/> <CursorPos X="11" Y="79"/>
@ -185,18 +185,20 @@
<Unit17> <Unit17>
<Filename Value="..\lazarus\lcl\graphics.pp"/> <Filename Value="..\lazarus\lcl\graphics.pp"/>
<UnitName Value="Graphics"/> <UnitName Value="Graphics"/>
<CursorPos X="3" Y="1897"/> <CursorPos X="14" Y="1489"/>
<TopLine Value="1895"/> <TopLine Value="1477"/>
<EditorIndex Value="7"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="..\..\Programs\lazarus\fpcsrc\rtl\inc\system.inc"/> <Filename Value="..\Programs\lazarus\fpcsrc\rtl\inc\system.inc"/>
<CursorPos X="3" Y="191"/> <CursorPos X="3" Y="191"/>
<TopLine Value="189"/> <TopLine Value="189"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="..\..\Programs\lazarus\fpcsrc\rtl\inc\mathh.inc"/> <Filename Value="..\Programs\lazarus\fpcsrc\rtl\inc\mathh.inc"/>
<CursorPos X="15" Y="50"/> <CursorPos X="15" Y="50"/>
<TopLine Value="36"/> <TopLine Value="36"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
@ -209,7 +211,7 @@
<UsageCount Value="53"/> <UsageCount Value="53"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="..\..\Programs\lazarus\fpcsrc\rtl\win32\wininc\struct.inc"/> <Filename Value="..\Programs\lazarus\fpcsrc\rtl\win32\wininc\struct.inc"/>
<CursorPos X="33" Y="225"/> <CursorPos X="33" Y="225"/>
<TopLine Value="210"/> <TopLine Value="210"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
@ -229,14 +231,14 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="..\..\Programs\lazarus\fpcsrc\fcl\image\fpimage.pp"/> <Filename Value="..\Programs\lazarus\fpcsrc\fcl\image\fpimage.pp"/>
<UnitName Value="FPimage"/> <UnitName Value="FPimage"/>
<CursorPos X="18" Y="107"/> <CursorPos X="18" Y="107"/>
<TopLine Value="92"/> <TopLine Value="92"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="..\..\Programs\lazarus\fpcsrc\fcl\image\fpimage.inc"/> <Filename Value="..\Programs\lazarus\fpcsrc\fcl\image\fpimage.inc"/>
<CursorPos X="3" Y="327"/> <CursorPos X="3" Y="327"/>
<TopLine Value="325"/> <TopLine Value="325"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
@ -270,19 +272,19 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="..\..\Programs\lazarus\fpcsrc\rtl\objpas\sysutils\sysstrh.inc"/> <Filename Value="..\Programs\lazarus\fpcsrc\rtl\objpas\sysutils\sysstrh.inc"/>
<CursorPos X="11" Y="114"/> <CursorPos X="11" Y="114"/>
<TopLine Value="99"/> <TopLine Value="99"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
<Filename Value="..\..\Programs\lazarus\fpcsrc\rtl\objpas\sysutils\sysstr.inc"/> <Filename Value="..\Programs\lazarus\fpcsrc\rtl\objpas\sysutils\sysstr.inc"/>
<CursorPos X="11" Y="863"/> <CursorPos X="11" Y="863"/>
<TopLine Value="856"/> <TopLine Value="856"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
</Unit31> </Unit31>
<Unit32> <Unit32>
<Filename Value="..\..\Programs\lazarus\fpcsrc\rtl\win32\wininc\defines.inc"/> <Filename Value="..\Programs\lazarus\fpcsrc\rtl\win32\wininc\defines.inc"/>
<CursorPos X="18" Y="2578"/> <CursorPos X="18" Y="2578"/>
<TopLine Value="2565"/> <TopLine Value="2565"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
@ -352,13 +354,13 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit42> </Unit42>
<Unit43> <Unit43>
<Filename Value="..\..\Programs\lazarus\fpcsrc\rtl\objpas\sysutils\sysformt.inc"/> <Filename Value="..\Programs\lazarus\fpcsrc\rtl\objpas\sysutils\sysformt.inc"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="306"/> <TopLine Value="306"/>
<UsageCount Value="7"/> <UsageCount Value="7"/>
</Unit43> </Unit43>
<Unit44> <Unit44>
<Filename Value="..\..\Programs\lazarus\fpcsrc\fcl\inc\contnrs.pp"/> <Filename Value="..\Programs\lazarus\fpcsrc\fcl\inc\contnrs.pp"/>
<UnitName Value="contnrs"/> <UnitName Value="contnrs"/>
<CursorPos X="20" Y="126"/> <CursorPos X="20" Y="126"/>
<TopLine Value="114"/> <TopLine Value="114"/>
@ -423,11 +425,12 @@
<Filename Value="newdialog.pas"/> <Filename Value="newdialog.pas"/>
<ComponentName Value="NewDialogForm"/> <ComponentName Value="NewDialogForm"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="newdialog.lrs"/> <ResourceFilename Value="newdialog.lrs"/>
<UnitName Value="NewDialog"/> <UnitName Value="NewDialog"/>
<CursorPos X="31" Y="34"/> <CursorPos X="31" Y="34"/>
<TopLine Value="20"/> <TopLine Value="20"/>
<EditorIndex Value="7"/> <EditorIndex Value="8"/>
<UsageCount Value="104"/> <UsageCount Value="104"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit53> </Unit53>
@ -435,11 +438,12 @@
<Filename Value="resizedialog.pas"/> <Filename Value="resizedialog.pas"/>
<ComponentName Value="ResizeDialogForm"/> <ComponentName Value="ResizeDialogForm"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="resizedialog.lrs"/> <ResourceFilename Value="resizedialog.lrs"/>
<UnitName Value="ResizeDialog"/> <UnitName Value="ResizeDialog"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="8"/> <EditorIndex Value="9"/>
<UsageCount Value="102"/> <UsageCount Value="102"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit54> </Unit54>
@ -447,11 +451,12 @@
<Filename Value="resizepaperdialog.pas"/> <Filename Value="resizepaperdialog.pas"/>
<ComponentName Value="ResizePaperDialogForm"/> <ComponentName Value="ResizePaperDialogForm"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="resizepaperdialog.lrs"/> <ResourceFilename Value="resizepaperdialog.lrs"/>
<UnitName Value="ResizePaperDialog"/> <UnitName Value="ResizePaperDialog"/>
<CursorPos X="24" Y="75"/> <CursorPos X="50" Y="83"/>
<TopLine Value="69"/> <TopLine Value="69"/>
<EditorIndex Value="11"/> <EditorIndex Value="13"/>
<UsageCount Value="102"/> <UsageCount Value="102"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit55> </Unit55>
@ -500,6 +505,7 @@
<ComponentName Value="PictureDialogForm"/> <ComponentName Value="PictureDialogForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="picturedialog.lrs"/> <ResourceFilename Value="picturedialog.lrs"/>
<UnitName Value="PictureDialog"/> <UnitName Value="PictureDialog"/>
<CursorPos X="65" Y="60"/> <CursorPos X="65" Y="60"/>
@ -716,6 +722,7 @@
<Filename Value="aboutdialog.pas"/> <Filename Value="aboutdialog.pas"/>
<ComponentName Value="AboutDialogForm"/> <ComponentName Value="AboutDialogForm"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="aboutdialog.lrs"/> <ResourceFilename Value="aboutdialog.lrs"/>
<UnitName Value="AboutDialog"/> <UnitName Value="AboutDialog"/>
<CursorPos X="40" Y="27"/> <CursorPos X="40" Y="27"/>
@ -993,24 +1000,137 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit135> </Unit135>
<Unit136>
<Filename Value="..\LazRGBGraphics\rgbgraphics.pas"/>
<UnitName Value="RGBGraphics"/>
<CursorPos X="27" Y="300"/>
<TopLine Value="296"/>
<EditorIndex Value="11"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit136>
</Units> </Units>
<JumpHistory Count="4" HistoryIndex="3"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="preview.pas"/> <Filename Value="picturemanager.pas"/>
<Caret Line="55" Column="31" TopLine="38"/> <Caret Line="260" Column="31" TopLine="234"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="preview.pas"/> <Filename Value="picturemanager.pas"/>
<Caret Line="61" Column="3" TopLine="58"/> <Caret Line="238" Column="12" TopLine="235"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="resizepaperdialog.pas"/> <Filename Value="picturemanager.pas"/>
<Caret Line="185" Column="60" TopLine="171"/> <Caret Line="247" Column="34" TopLine="235"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="resizepaperdialog.pas"/> <Filename Value="picturemanager.pas"/>
<Caret Line="83" Column="26" TopLine="81"/> <Caret Line="254" Column="15" TopLine="242"/>
</Position4> </Position4>
<Position5>
<Filename Value="picturemanager.pas"/>
<Caret Line="247" Column="31" TopLine="241"/>
</Position5>
<Position6>
<Filename Value="picturemanager.pas"/>
<Caret Line="238" Column="13" TopLine="226"/>
</Position6>
<Position7>
<Filename Value="picturemanager.pas"/>
<Caret Line="238" Column="13" TopLine="226"/>
</Position7>
<Position8>
<Filename Value="picturemanager.pas"/>
<Caret Line="247" Column="26" TopLine="235"/>
</Position8>
<Position9>
<Filename Value="picturemanager.pas"/>
<Caret Line="80" Column="46" TopLine="68"/>
</Position9>
<Position10>
<Filename Value="picturemanager.pas"/>
<Caret Line="184" Column="29" TopLine="182"/>
</Position10>
<Position11>
<Filename Value="picturemanager.pas"/>
<Caret Line="51" Column="67" TopLine="39"/>
</Position11>
<Position12>
<Filename Value="picturemanager.pas"/>
<Caret Line="380" Column="19" TopLine="368"/>
</Position12>
<Position13>
<Filename Value="picturectrls.pas"/>
<Caret Line="160" Column="47" TopLine="148"/>
</Position13>
<Position14>
<Filename Value="picturectrls.pas"/>
<Caret Line="713" Column="19" TopLine="711"/>
</Position14>
<Position15>
<Filename Value="picturectrls.pas"/>
<Caret Line="86" Column="47" TopLine="74"/>
</Position15>
<Position16>
<Filename Value="picturectrls.pas"/>
<Caret Line="516" Column="36" TopLine="513"/>
</Position16>
<Position17>
<Filename Value="..\LazRGBGraphics\rgbgraphics.pas"/>
<Caret Line="190" Column="47" TopLine="178"/>
</Position17>
<Position18>
<Filename Value="..\LazRGBGraphics\rgbgraphics.pas"/>
<Caret Line="190" Column="55" TopLine="178"/>
</Position18>
<Position19>
<Filename Value="..\LazRGBGraphics\rgbgraphics.pas"/>
<Caret Line="300" Column="27" TopLine="296"/>
</Position19>
<Position20>
<Filename Value="picturemanager.pas"/>
<Caret Line="380" Column="19" TopLine="368"/>
</Position20>
<Position21>
<Filename Value="picturemanager.pas"/>
<Caret Line="256" Column="18" TopLine="242"/>
</Position21>
<Position22>
<Filename Value="picturemanager.pas"/>
<Caret Line="252" Column="35" TopLine="238"/>
</Position22>
<Position23>
<Filename Value="main.pas"/>
<Caret Line="313" Column="26" TopLine="306"/>
</Position23>
<Position24>
<Filename Value="main.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position24>
<Position25>
<Filename Value="main.pas"/>
<Caret Line="310" Column="29" TopLine="304"/>
</Position25>
<Position26>
<Filename Value="main.pas"/>
<Caret Line="320" Column="24" TopLine="302"/>
</Position26>
<Position27>
<Filename Value="main.pas"/>
<Caret Line="698" Column="30" TopLine="693"/>
</Position27>
<Position28>
<Filename Value="main.pas"/>
<Caret Line="52" Column="90" TopLine="145"/>
</Position28>
<Position29>
<Filename Value="main.pas"/>
<Caret Line="48" Column="44" TopLine="33"/>
</Position29>
<Position30>
<Filename Value="main.pas"/>
<Caret Line="44" Column="20" TopLine="33"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

2
applications/iconeditor/laziconeditor.lpr
View File

@ -8,7 +8,7 @@ uses
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms Forms
{ add your units here }, main, Preview, PictureManager, PictureCtrls, Test, JPEGForLazarus, { add your units here }, main, Preview, PictureManager, PictureCtrls, Test,
NewDialog, ResizeDialog, ResizePaperDialog, PictureDialog, AboutDialog, NewDialog, ResizeDialog, ResizePaperDialog, PictureDialog, AboutDialog,
LazRGBGraphics, LazColorPalette; LazRGBGraphics, LazColorPalette;

6632
applications/iconeditor/main.lfm
View File

File diff suppressed because it is too large Load Diff

10163
applications/iconeditor/main.lrs
View File

File diff suppressed because it is too large Load Diff

6
applications/iconeditor/main.pas
View File

@ -31,9 +31,9 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Menus, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Menus,
ExtCtrls, ComCtrls, ActnList, StdActns, ExtDlgs, Buttons, StdCtrls, LazJPEG, ExtCtrls, ComCtrls, ActnList, StdActns, ExtDlgs, Buttons, StdCtrls,
NewDialog, ResizeDialog, ResizePaperDialog, AboutDialog, Preview, NewDialog, ResizeDialog, ResizePaperDialog, AboutDialog, Preview,
PictureManager, RGBGraphics, PictureCtrls, ColorPalette; PictureManager, RGBGraphics, PictureCtrls, ColorPalette;
type type
@ -42,8 +42,6 @@ type
TMainForm = class(TForm) TMainForm = class(TForm)
Palette: TColorPalette; Palette: TColorPalette;
ImageListActionsDisabled: TImageList;
ImageListToolsDisabled: TImageList;
MenuItemShowGrid: TMenuItem; MenuItemShowGrid: TMenuItem;
MenuItemShowPreview: TMenuItem; MenuItemShowPreview: TMenuItem;
ViewShowPreview: TAction; ViewShowPreview: TAction;

8
applications/iconeditor/picturectrls.pas
View File

@ -83,7 +83,7 @@ type
function PictureToClient(const R: TRect): TRect; function PictureToClient(const R: TRect): TRect;
procedure LoadPicture(const FileName: String); virtual; procedure LoadPicture(const FileName: String); virtual;
procedure LoadBitmap(ABitmap: TBitmap); virtual; procedure LoadBitmap(ABitmap: TRasterImage); virtual;
procedure SavePicture(const FileName: String); virtual; procedure SavePicture(const FileName: String); virtual;
procedure ExportPictureAsLazarusResource(const AFileName, AName: String); virtual; procedure ExportPictureAsLazarusResource(const AFileName, AName: String); virtual;
@ -157,7 +157,7 @@ type
procedure NewPicture(AWidth, AHeight: Integer; APaperColor: TColor); procedure NewPicture(AWidth, AHeight: Integer; APaperColor: TColor);
procedure LoadPicture(const FileName: String); override; procedure LoadPicture(const FileName: String); override;
procedure LoadBitmap(ABitmap: TBitmap); override; procedure LoadBitmap(ABitmap: TRasterImage); override;
procedure SavePicture(const FileName: String); override; procedure SavePicture(const FileName: String); override;
procedure ColorPick(X, Y: Integer; Shift: TShiftState = [ssLeft]); procedure ColorPick(X, Y: Integer; Shift: TShiftState = [ssLeft]);
@ -510,7 +510,7 @@ begin
Picture := TPictureBitmap.CreateFromFile(FileName); Picture := TPictureBitmap.CreateFromFile(FileName);
end; end;
procedure TCustomPictureView.LoadBitmap(ABitmap: TBitmap); procedure TCustomPictureView.LoadBitmap(ABitmap: TRasterImage);
begin begin
Picture.Free; Picture.Free;
Picture := TPictureBitmap.CreateFromBitmap(ABitmap); Picture := TPictureBitmap.CreateFromBitmap(ABitmap);
@ -708,7 +708,7 @@ begin
Change; Change;
end; end;
procedure TCustomPictureEdit.LoadBitmap(ABitmap: TBitmap); procedure TCustomPictureEdit.LoadBitmap(ABitmap: TRasterImage);
begin begin
inherited LoadBitmap(ABitmap); inherited LoadBitmap(ABitmap);
FModified := False; FModified := False;

33
applications/iconeditor/picturemanager.pas
View File

@ -48,7 +48,7 @@ type
constructor Create(TheOwner: TComponent; AWidth, AHeight: Integer; constructor Create(TheOwner: TComponent; AWidth, AHeight: Integer;
APaperColor: TColor); APaperColor: TColor);
constructor Create(TheOwner: TComponent; const AFilename: String); constructor Create(TheOwner: TComponent; const AFilename: String);
constructor Create(TheOwner: TComponent; ABitmap: TBitmap); constructor Create(TheOwner: TComponent; ABitmap: TRasterImage);
procedure Save; procedure Save;
procedure ExportAsLazarusResource(const AFileName, AName: String); procedure ExportAsLazarusResource(const AFileName, AName: String);
@ -77,7 +77,7 @@ type
protected protected
function CreatePage(AWidth, AHeight: Integer; APaperColor: TColor): TPicturePage; dynamic; function CreatePage(AWidth, AHeight: Integer; APaperColor: TColor): TPicturePage; dynamic;
function CreatePage(const Filename: String): TPicturePage; dynamic; function CreatePage(const Filename: String): TPicturePage; dynamic;
function CreatePage(ABitmap: TBitmap): TPicturePage; dynamic; function CreatePage(ABitmap: TRasterImage): TPicturePage; dynamic;
procedure SaveAs; dynamic; procedure SaveAs; dynamic;
procedure FileNameChange; dynamic; procedure FileNameChange; dynamic;
procedure PageClose; dynamic; procedure PageClose; dynamic;
@ -179,7 +179,7 @@ begin
FileNameChange; FileNameChange;
end; end;
function TPictureManager.CreatePage(ABitmap: TBitmap): TPicturePage; function TPictureManager.CreatePage(ABitmap: TRasterImage): TPicturePage;
begin begin
Result := TPicturePage.Create(Self, ABitmap); Result := TPicturePage.Create(Self, ABitmap);
Result.PageControl := Self; Result.PageControl := Self;
@ -244,22 +244,17 @@ begin
try try
// First image in std bitmap // First image in std bitmap
Icon.LoadFromFile(FileName); Icon.LoadFromFile(FileName);
NewPage := CreatePage(Icon as TBitmap);
NewPage.Parent := Self;
ActivePage := NewPage;
NewPage.Caption := FindNewUniqueName;
Change;
// other image in Bimaps if assigned // other images
if Icon.Bitmaps <> nil then for I := 0 to Pred(Icon.Count) do
for I := 0 to Pred(Icon.Bitmaps.Count) do begin
begin Icon.Current := I;
NewPage := CreatePage(Icon.Bitmaps[I] as TBitmap); NewPage := CreatePage(Icon);
NewPage.Parent := Self; NewPage.Parent := Self;
ActivePage := NewPage; ActivePage := NewPage;
NewPage.Caption := FindNewUniqueName; NewPage.Caption := FindNewUniqueName;
Change; Change;
end; end;
finally finally
Icon.Free; Icon.Free;
end; end;
@ -370,7 +365,7 @@ begin
FShowPreview := True; FShowPreview := True;
end; end;
constructor TPicturePage.Create(TheOwner: TComponent; ABitmap: TBitmap); constructor TPicturePage.Create(TheOwner: TComponent; ABitmap: TRasterImage);
begin begin
inherited Create(TheOwner); inherited Create(TheOwner);

22
applications/iconeditor/resizepaperdialog.lfm
View File

@ -1,15 +1,13 @@
inherited ResizePaperDialogForm: TResizePaperDialogForm inherited ResizePaperDialogForm: TResizePaperDialogForm
Height = 507 Height = 507
Width = 276 Width = 276
HorzScrollBar.Page = 275 ActiveControl = GroupBoxProperties
VertScrollBar.Page = 506
ActiveControl = EditHeight
Caption = 'Resize paper' Caption = 'Resize paper'
ClientHeight = 507 ClientHeight = 507
ClientWidth = 276 ClientWidth = 276
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
object PanelPreview: TPanel object PanelPreview: TPanel[0]
Left = 6 Left = 6
Height = 264 Height = 264
Top = 6 Top = 6
@ -21,10 +19,10 @@ inherited ResizePaperDialogForm: TResizePaperDialogForm
ParentColor = False ParentColor = False
TabOrder = 0 TabOrder = 0
end end
object GroupBoxProperties: TGroupBox object GroupBoxProperties: TGroupBox[1]
Left = 6 Left = 12
Height = 186 Height = 186
Top = 280 Top = 276
Width = 264 Width = 264
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
Caption = 'Properties' Caption = 'Properties'
@ -94,6 +92,7 @@ inherited ResizePaperDialogForm: TResizePaperDialogForm
Min = 1 Min = 1
Max = 4096 Max = 4096
Position = 512 Position = 512
TabOrder = 4
Thousands = False Thousands = False
end end
object UpDownHeight: TUpDown object UpDownHeight: TUpDown
@ -105,13 +104,14 @@ inherited ResizePaperDialogForm: TResizePaperDialogForm
Min = 1 Min = 1
Max = 4096 Max = 4096
Position = 512 Position = 512
TabOrder = 5
Thousands = False Thousands = False
end end
object CheckBoxAspectRatio: TCheckBox object CheckBoxAspectRatio: TCheckBox
Left = 16 Left = 16
Height = 13 Height = 19
Top = 110 Top = 110
Width = 120 Width = 126
Caption = 'Preserve aspect ratio' Caption = 'Preserve aspect ratio'
Checked = True Checked = True
OnChange = CheckBoxAspectRatioChange OnChange = CheckBoxAspectRatioChange
@ -154,7 +154,7 @@ inherited ResizePaperDialogForm: TResizePaperDialogForm
Text = '512' Text = '512'
end end
end end
object ButtonOK: TButton object ButtonOK: TButton[2]
Left = 112 Left = 112
Height = 25 Height = 25
Top = 474 Top = 474
@ -166,7 +166,7 @@ inherited ResizePaperDialogForm: TResizePaperDialogForm
ModalResult = 1 ModalResult = 1
TabOrder = 2 TabOrder = 2
end end
object ButtonCancel: TButton object ButtonCancel: TButton[3]
Left = 193 Left = 193
Height = 25 Height = 25
Top = 474 Top = 474

136
applications/iconeditor/resizepaperdialog.lrs
View File

@ -2,50 +2,98 @@
LazarusResources.Add('TResizePaperDialogForm','FORMDATA',[ LazarusResources.Add('TResizePaperDialogForm','FORMDATA',[
'TPF0'#241#22'TResizePaperDialogForm'#21'ResizePaperDialogForm'#6'Height'#3 'TPF0'#241#22'TResizePaperDialogForm'#21'ResizePaperDialogForm'#6'Height'#3
+#251#1#5'Width'#3#20#1#18'HorzScrollBar.Page'#3#19#1#18'VertScrollBar.Page'#3 +#251#1#5'Width'#3#20#1#13'ActiveControl'#7#18'GroupBoxProperties'#7'Caption'
+#250#1#13'ActiveControl'#7#10'EditHeight'#7'Caption'#6#12'Resize paper'#12'C' +#6#12'Resize paper'#12'ClientHeight'#3#251#1#11'ClientWidth'#3#20#1#8'OnCrea'
+'lientHeight'#3#251#1#11'ClientWidth'#3#20#1#8'OnCreate'#7#10'FormCreate'#9 +'te'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#0#242#2#0#6'TPanel'#12
+'OnDestroy'#7#11'FormDestroy'#0#6'TPanel'#12'PanelPreview'#4'Left'#2#6#6'Hei' +'PanelPreview'#4'Left'#2#6#6'Height'#3#8#1#3'Top'#2#6#5'Width'#3#8#1#7'Ancho'
+'ght'#3#8#1#3'Top'#2#6#5'Width'#3#8#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR' +'rs'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'BevelOuter'#7#6'bvNon'
+'ight'#8'akBottom'#0#10'BevelOuter'#7#6'bvNone'#5'Color'#7#7'clBlack'#11'Ful' +'e'#5'Color'#7#7'clBlack'#11'FullRepaint'#8#11'ParentColor'#8#8'TabOrder'#2#0
+'lRepaint'#8#11'ParentColor'#8#8'TabOrder'#2#0#0#0#9'TGroupBox'#18'GroupBoxP' +#0#0#242#2#1#9'TGroupBox'#18'GroupBoxProperties'#4'Left'#2#12#6'Height'#3#186
+'roperties'#4'Left'#2#6#6'Height'#3#186#0#3'Top'#3#24#1#5'Width'#3#8#1#7'Anc' +#0#3'Top'#3#20#1#5'Width'#3#8#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBotto'
+'hors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#10'Properties'#12 +'m'#0#7'Caption'#6#10'Properties'#12'ClientHeight'#3#168#0#11'ClientWidth'#3
+'ClientHeight'#3#168#0#11'ClientWidth'#3#4#1#8'TabOrder'#2#1#0#6'TLabel'#10 +#4#1#8'TabOrder'#2#1#0#6'TLabel'#10'LabelWidth'#4'Left'#2#16#6'Height'#2#14#3
+'LabelWidth'#4'Left'#2#16#6'Height'#2#14#3'Top'#2','#5'Width'#2'>'#7'Caption' +'Top'#2','#5'Width'#2'>'#7'Caption'#6#12'Paper width:'#11'ParentColor'#8#0#0
+#6#12'Paper width:'#11'ParentColor'#8#0#0#6'TLabel'#11'LabelHeight'#4'Left'#2 +#6'TLabel'#11'LabelHeight'#4'Left'#2#16#6'Height'#2#14#3'Top'#2'P'#5'Width'#2
+#16#6'Height'#2#14#3'Top'#2'P'#5'Width'#2'B'#7'Caption'#6#13'Paper height:' +'B'#7'Caption'#6#13'Paper height:'#11'ParentColor'#8#0#0#6'TLabel'#15'LabelP'
+#11'ParentColor'#8#0#0#6'TLabel'#15'LabelPaperColor'#4'Left'#2#16#6'Height'#2 +'aperColor'#4'Left'#2#16#6'Height'#2#14#3'Top'#3#140#0#5'Width'#2';'#7'Capti'
+#14#3'Top'#3#140#0#5'Width'#2';'#7'Caption'#6#12'Paper color:'#11'ParentColo' +'on'#6#12'Paper color:'#11'ParentColor'#8#0#0#6'TLabel'#20'LabelPicturePosit'
+'r'#8#0#0#6'TLabel'#20'LabelPicturePosition'#4'Left'#2#16#6'Height'#2#14#3'T' +'ion'#4'Left'#2#16#6'Height'#2#14#3'Top'#2#13#5'Width'#2'N'#7'Caption'#6#17
+'op'#2#13#5'Width'#2'N'#7'Caption'#6#17'Picture position:'#11'ParentColor'#8 +'Picture position:'#11'ParentColor'#8#0#0#12'TColorButton'#16'ColorButtonPap'
+#0#0#12'TColorButton'#16'ColorButtonPaper'#4'Left'#3#148#0#6'Height'#2#25#3 +'er'#4'Left'#3#148#0#6'Height'#2#25#3'Top'#3#135#0#5'Width'#2'P'#11'BorderWi'
+'Top'#3#135#0#5'Width'#2'P'#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#11 +'dth'#2#2#15'ButtonColorSize'#2#16#11'ButtonColor'#7#7'clWhite'#7'Caption'#6
+'ButtonColor'#7#7'clWhite'#7'Caption'#6#9'Change...'#5'Color'#7#9'clBtnFace' +#9'Change...'#5'Color'#7#9'clBtnFace'#14'OnColorChanged'#7#28'ColorButtonPap'
+#14'OnColorChanged'#7#28'ColorButtonPaperColorChanged'#0#0#5'TEdit'#10'EditH' +'erColorChanged'#0#0#5'TEdit'#10'EditHeight'#4'Left'#3#148#0#6'Height'#2#23#3
+'eight'#4'Left'#3#148#0#6'Height'#2#23#3'Top'#2'J'#5'Width'#2'P'#8'OnChange' +'Top'#2'J'#5'Width'#2'P'#8'OnChange'#7#16'EditHeightChange'#9'OnKeyDown'#13#8
+#7#16'EditHeightChange'#9'OnKeyDown'#13#8'TabOrder'#2#0#4'Text'#6#3'512'#0#0 +'TabOrder'#2#0#4'Text'#6#3'512'#0#0#7'TUpDown'#11'UpDownWidth'#4'Left'#3#228
+#7'TUpDown'#11'UpDownWidth'#4'Left'#3#228#0#6'Height'#2#23#3'Top'#2'&'#5'Wid' +#0#6'Height'#2#23#3'Top'#2'&'#5'Width'#2#17#9'Associate'#7#9'EditWidth'#3'Mi'
+'th'#2#17#9'Associate'#7#9'EditWidth'#3'Min'#2#1#3'Max'#3#0#16#8'Position'#3 +'n'#2#1#3'Max'#3#0#16#8'Position'#3#0#2#8'TabOrder'#2#4#9'Thousands'#8#0#0#7
+#0#2#9'Thousands'#8#0#0#7'TUpDown'#12'UpDownHeight'#4'Left'#3#228#0#6'Height' +'TUpDown'#12'UpDownHeight'#4'Left'#3#228#0#6'Height'#2#23#3'Top'#2'J'#5'Widt'
+#2#23#3'Top'#2'J'#5'Width'#2#17#9'Associate'#7#10'EditHeight'#3'Min'#2#1#3'M' +'h'#2#17#9'Associate'#7#10'EditHeight'#3'Min'#2#1#3'Max'#3#0#16#8'Position'#3
+'ax'#3#0#16#8'Position'#3#0#2#9'Thousands'#8#0#0#9'TCheckBox'#19'CheckBoxAsp' +#0#2#8'TabOrder'#2#5#9'Thousands'#8#0#0#9'TCheckBox'#19'CheckBoxAspectRatio'
+'ectRatio'#4'Left'#2#16#6'Height'#2#13#3'Top'#2'n'#5'Width'#2'x'#7'Caption'#6 +#4'Left'#2#16#6'Height'#2#19#3'Top'#2'n'#5'Width'#2'~'#7'Caption'#6#21'Prese'
+#21'Preserve aspect ratio'#7'Checked'#9#8'OnChange'#7#25'CheckBoxAspectRatio' +'rve aspect ratio'#7'Checked'#9#8'OnChange'#7#25'CheckBoxAspectRatioChange'#5
+'Change'#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#9'TComboBox'#23'ComboBo' +'State'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#9'TComboBox'#23'ComboBoxPicturePo'
+'xPicturePosition'#4'Left'#3#148#0#6'Height'#2#21#3'Top'#2#8#5'Width'#2'`'#16 +'sition'#4'Left'#3#148#0#6'Height'#2#21#3'Top'#2#8#5'Width'#2'`'#16'AutoComp'
+'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0 +'leteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemH'
+#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'#1#6#8'Top Left'#6#10 +'eight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'#1#6#8'Top Left'#6#10'Top Cen'
+'Top Center'#6#9'Top Right'#6#11'Center Left'#6#8'Centered'#6#12'Center Righ' +'ter'#6#9'Top Right'#6#11'Center Left'#6#8'Centered'#6#12'Center Right'#6#11
+'t'#6#11'Bottom Left'#6#13'Bottom Center'#6#12'Bottom Right'#0#9'MaxLength'#2 +'Bottom Left'#6#13'Bottom Center'#6#12'Bottom Right'#0#9'MaxLength'#2#0#8'On'
+#0#8'OnChange'#7#29'ComboBoxPicturePositionChange'#5'Style'#7#14'csDropDownL' +'Change'#7#29'ComboBoxPicturePositionChange'#5'Style'#7#14'csDropDownList'#8
+'ist'#8'TabOrder'#2#2#4'Text'#6#8'Top Left'#0#0#5'TEdit'#9'EditWidth'#4'Left' +'TabOrder'#2#2#4'Text'#6#8'Top Left'#0#0#5'TEdit'#9'EditWidth'#4'Left'#3#148
+#3#148#0#6'Height'#2#23#3'Top'#2'&'#5'Width'#2'P'#8'OnChange'#7#15'EditWidth' +#0#6'Height'#2#23#3'Top'#2'&'#5'Width'#2'P'#8'OnChange'#7#15'EditWidthChange'
+'Change'#9'OnKeyDown'#13#8'TabOrder'#2#3#4'Text'#6#3'512'#0#0#0#7'TButton'#8 +#9'OnKeyDown'#13#8'TabOrder'#2#3#4'Text'#6#3'512'#0#0#0#242#2#2#7'TButton'#8
+'ButtonOK'#4'Left'#2'p'#6'Height'#2#25#3'Top'#3#218#1#5'Width'#2'K'#7'Anchor' +'ButtonOK'#4'Left'#2'p'#6'Height'#2#25#3'Top'#3#218#1#5'Width'#2'K'#7'Anchor'
+'s'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption' +'s'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
+#6#2'OK'#7'Default'#9#11'ModalResult'#2#1#8'TabOrder'#2#2#0#0#7'TButton'#12 +#6#2'OK'#7'Default'#9#11'ModalResult'#2#1#8'TabOrder'#2#2#0#0#242#2#3#7'TBut'
+'ButtonCancel'#4'Left'#3#193#0#6'Height'#2#25#3'Top'#3#218#1#5'Width'#2'K'#7 +'ton'#12'ButtonCancel'#4'Left'#3#193#0#6'Height'#2#25#3'Top'#3#218#1#5'Width'
+'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#6'Ca' +#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2
+'ncel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#3#0#0#0 +#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#3#0#0
+#0#241#22'TResizePaperDialogForm'#21'ResizePaperDialogForm'#6'Height'#3#251#1
+#5'Width'#3#20#1#13'ActiveControl'#7#18'GroupBoxProperties'#7'Caption'#6#12
+'Resize paper'#12'ClientHeight'#3#251#1#11'ClientWidth'#3#20#1#8'OnCreate'#7
+#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#0#242#2#0#6'TPanel'#12'PanelP'
+'review'#4'Left'#2#6#6'Height'#3#8#1#3'Top'#2#6#5'Width'#3#8#1#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'BevelOuter'#7#6'bvNone'#5'Co'
+'lor'#7#7'clBlack'#11'FullRepaint'#8#11'ParentColor'#8#8'TabOrder'#2#0#0#0
+#242#2#1#9'TGroupBox'#18'GroupBoxProperties'#4'Left'#2#12#6'Height'#3#186#0#3
+'Top'#3#20#1#5'Width'#3#8#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0
+#7'Caption'#6#10'Properties'#12'ClientHeight'#3#168#0#11'ClientWidth'#3#4#1#8
+'TabOrder'#2#1#0#6'TLabel'#10'LabelWidth'#4'Left'#2#16#6'Height'#2#14#3'Top'
+#2','#5'Width'#2'>'#7'Caption'#6#12'Paper width:'#11'ParentColor'#8#0#0#6'TL'
+'abel'#11'LabelHeight'#4'Left'#2#16#6'Height'#2#14#3'Top'#2'P'#5'Width'#2'B'
+#7'Caption'#6#13'Paper height:'#11'ParentColor'#8#0#0#6'TLabel'#15'LabelPape'
+'rColor'#4'Left'#2#16#6'Height'#2#14#3'Top'#3#140#0#5'Width'#2';'#7'Caption'
+#6#12'Paper color:'#11'ParentColor'#8#0#0#6'TLabel'#20'LabelPicturePosition'
+#4'Left'#2#16#6'Height'#2#14#3'Top'#2#13#5'Width'#2'N'#7'Caption'#6#17'Pictu'
,'re position:'#11'ParentColor'#8#0#0#12'TColorButton'#16'ColorButtonPaper'#4
+'Left'#3#148#0#6'Height'#2#25#3'Top'#3#135#0#5'Width'#2'P'#11'BorderWidth'#2
+#2#15'ButtonColorSize'#2#16#11'ButtonColor'#7#7'clWhite'#7'Caption'#6#9'Chan'
+'ge...'#5'Color'#7#9'clBtnFace'#14'OnColorChanged'#7#28'ColorButtonPaperColo'
+'rChanged'#0#0#5'TEdit'#10'EditHeight'#4'Left'#3#148#0#6'Height'#2#23#3'Top'
+#2'J'#5'Width'#2'P'#8'OnChange'#7#16'EditHeightChange'#9'OnKeyDown'#13#8'Tab'
+'Order'#2#0#4'Text'#6#3'512'#0#0#7'TUpDown'#11'UpDownWidth'#4'Left'#3#228#0#6
+'Height'#2#23#3'Top'#2'&'#5'Width'#2#17#9'Associate'#7#9'EditWidth'#3'Min'#2
+#1#3'Max'#3#0#16#8'Position'#3#0#2#8'TabOrder'#2#4#9'Thousands'#8#0#0#7'TUpD'
+'own'#12'UpDownHeight'#4'Left'#3#228#0#6'Height'#2#23#3'Top'#2'J'#5'Width'#2
+#17#9'Associate'#7#10'EditHeight'#3'Min'#2#1#3'Max'#3#0#16#8'Position'#3#0#2
+#8'TabOrder'#2#5#9'Thousands'#8#0#0#9'TCheckBox'#19'CheckBoxAspectRatio'#4'L'
+'eft'#2#16#6'Height'#2#19#3'Top'#2'n'#5'Width'#2'~'#7'Caption'#6#21'Preserve'
+' aspect ratio'#7'Checked'#9#8'OnChange'#7#25'CheckBoxAspectRatioChange'#5'S'
+'tate'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#9'TComboBox'#23'ComboBoxPicturePos'
+'ition'#4'Left'#3#148#0#6'Height'#2#21#3'Top'#2#8#5'Width'#2'`'#16'AutoCompl'
+'eteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHe'
+'ight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'#1#6#8'Top Left'#6#10'Top Cent'
+'er'#6#9'Top Right'#6#11'Center Left'#6#8'Centered'#6#12'Center Right'#6#11
+'Bottom Left'#6#13'Bottom Center'#6#12'Bottom Right'#0#9'MaxLength'#2#0#8'On'
+'Change'#7#29'ComboBoxPicturePositionChange'#5'Style'#7#14'csDropDownList'#8
+'TabOrder'#2#2#4'Text'#6#8'Top Left'#0#0#5'TEdit'#9'EditWidth'#4'Left'#3#148
+#0#6'Height'#2#23#3'Top'#2'&'#5'Width'#2'P'#8'OnChange'#7#15'EditWidthChange'
+#9'OnKeyDown'#13#8'TabOrder'#2#3#4'Text'#6#3'512'#0#0#0#242#2#2#7'TButton'#8
+'ButtonOK'#4'Left'#2'p'#6'Height'#2#25#3'Top'#3#218#1#5'Width'#2'K'#7'Anchor'
+'s'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
+#6#2'OK'#7'Default'#9#11'ModalResult'#2#1#8'TabOrder'#2#2#0#0#242#2#3#7'TBut'
+'ton'#12'ButtonCancel'#4'Left'#3#193#0#6'Height'#2#25#3'Top'#3#218#1#5'Width'
+#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2
+#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#3#0#0
+#0
]); ]);