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

iconeditor, fixes compilation under linux/windows

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@286 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2007-11-23 06:46:07 +00:00
parent 56ce4246c0
commit e76bd25f1c
4 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
applications/iconeditor/laziconeditor.lpi
View File

@ -1017,8 +1017,7 @@
<Version Value="5"/> <Version Value="5"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="..\packages\LazRGBGraphics_svn\;..\packages\LazColorPalette\"/> <UnitOutputDirectory Value="units\$(LCLWidgetType)"/>
<UnitOutputDirectory Value="Units\$(LCLWidgetType)"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <CodeGeneration>
<Generate Value="Faster"/> <Generate Value="Faster"/>

2
applications/iconeditor/laziconeditor.lpr
View File

@ -12,7 +12,9 @@ uses
NewDialog, ResizeDialog, ResizePaperDialog, PictureDialog, AboutDialog, NewDialog, ResizeDialog, ResizePaperDialog, PictureDialog, AboutDialog,
LazRGBGraphics, LazColorPalette; LazRGBGraphics, LazColorPalette;
{$IFDEF WINDOWS}
{$R laziconeditor.res} {$R laziconeditor.res}
{$ENDIF}
begin begin
Application.Title:='Lazarus Icon Editor'; Application.Title:='Lazarus Icon Editor';

BIN
applications/iconeditor/laziconeditor.res Normal file
View File

Binary file not shown.

4
applications/iconeditor/resizepaperdialog.pas
View File

@ -198,11 +198,11 @@ begin
SW := Max(1, Round(Picture.Width * FPreviewFactor)); SW := Max(1, Round(Picture.Width * FPreviewFactor));
SH := Max(1, Round(Picture.Height * FPreviewFactor)); SH := Max(1, Round(Picture.Height * FPreviewFactor));
Preview.PaperColor := ColorButtonPaper.ButtonColor; Preview.Color := ColorButtonPaper.ButtonColor;
Preview.Picture.Free; Preview.Picture.Free;
Preview.Picture := TPictureBitmap.CreateAsCopy(Picture); Preview.Picture := TPictureBitmap.CreateAsCopy(Picture);
Preview.Picture.StretchTrunc(SW, SH); Preview.Picture.StretchTrunc(SW, SH);
Preview.ResizePaper(W, H, TPicturePos(ComboBoxPicturePosition.ItemIndex)); //Preview.ResizePaper(W, H, TPicturePos(ComboBoxPicturePosition.ItemIndex));
end; end;
procedure TResizePaperDialogForm.Apply; procedure TResizePaperDialogForm.Apply;