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

lazimageeditor: Adds menu entry to export to windows icon

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2287 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2012-02-14 15:34:28 +00:00
parent effe4ebbdb
commit ef78c4e923
4 changed files with 663 additions and 602 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
applications/lazimageeditor/main.pas
View File

@ -68,6 +68,7 @@ type
EditRoundness: TSpinEdit;
EditDensity: TSpinEdit;
EditTolerance: TSpinEdit;
MenuItemExportAsICO: TMenuItem;
ToolsImageList: TImageList;
PolyNum: TSpinEdit;
Label1: TLabel;
@ -256,6 +257,7 @@ type
procedure MenuItemAboutClick(Sender: TObject);
procedure MenuItemClipPaperToMaskClick(Sender: TObject);
procedure MenuItemExitClick(Sender: TObject);
procedure MenuItemExportAsICOClick(Sender: TObject);
procedure MenuItemResizeClick(Sender: TObject);
procedure MenuItemResizePaperClick(Sender: TObject);
procedure PaletteColorMouseMove(Sender: TObject; AColor: TColor;
@ -361,6 +363,20 @@ begin
Close;
end;
procedure TMainForm.MenuItemExportAsICOClick(Sender: TObject);
var
lExt, Value: string;
begin
ExportResourceDialog.Filter := 'Windows Icon (*.ico)|*.ico|All files (*.*)|*.*';
if ExportResourceDialog.Execute then
begin
Value := ExtractFileName(ExportResourceDialog.FileName);
lExt := ExtractFileExt(Value);
Value := Copy(Value, 1, Length(Value) - Length(lExt));
Pictures.ExportAsWindowsIcon(ExportResourceDialog.FileName);
end;
end;
procedure TMainForm.MenuItemResizeClick(Sender: TObject);
begin
if not Pictures.CanEdit then
@ -1227,12 +1243,14 @@ end;
procedure TMainForm.FileExportAsLRSExecute(Sender: TObject);
var
Value: string;
lExt, Value: string;
begin
ExportResourceDialog.Filter := 'Lazarus resource (*.lrs)|*.lrs|All files (*.*)|*.*';
if ExportResourceDialog.Execute then
begin
Value := ExtractFileName(ExportResourceDialog.FileName);
Value := Copy(Value, 1, Length(Value) - Length(ExtractFileExt(Value)));
lExt := ExtractFileExt(Value);
Value := Copy(Value, 1, Length(Value) - Length(lExt));
if InputQuery(lieSetResource, lieResourceName, Value) then
begin
Pictures.ExportAsLazarusResource(ExportResourceDialog.FileName, Value);