paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 10:19:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: add ability to scroll icon images in project options

Browse Source 
git-svn-id: trunk@17066 -
This commit is contained in:
paul 2008-10-20 04:47:52 +00:00
parent c29b56e233
commit 99d8fe4631
4 changed files with 555 additions and 2601 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -1484,6 +1484,8 @@ resourcestring
dlgPOLoadIcon = 'Load Icon';
dlgPOSaveIcon = 'Save Icon';
dlgPOClearIcon = 'Clear Icon';
dlgPOIconDesc = '(size: %d:%d, bpp: %d)';
dlgPOIconDescNone = '(none)';
dlgAutoCreateForms = 'Auto-create forms:';
dlgAvailableForms = 'Available forms:';

1943
ide/projectopts.lfm
View File

File diff suppressed because it is too large Load Diff

1178
ide/projectopts.lrs
View File

File diff suppressed because it is too large Load Diff

33
ide/projectopts.pp
View File

@ -42,7 +42,7 @@ uses
IDEWindowIntf, IDEImagesIntf, ProjectIntf, IDEDialogs,
IDEOptionDefs, LazarusIDEStrConsts, Project, IDEProcs, W32VersionInfo,
VersionInfoAdditionalInfo, W32Manifest, ApplicationBundle, ExtDlgs,
ButtonPanel;
ButtonPanel, ComCtrls;
type
@ -53,6 +53,7 @@ type
Bevel1: TBevel;
ButtonPanel: TButtonPanel;
ClearIconButton: TBitBtn;
IconTrackLabel: TLabel;
SaveIconButton: TBitBtn;
LoadIconButton: TBitBtn;
CopyrightLabel: TLabel;
@ -76,6 +77,7 @@ type
SavePage: TPage;
SavePictureDialog1: TSavePictureDialog;
TitleLabel: TLabel;
IconTrack: TTrackBar;
VersionInfoPage: TPage;
i18nPage: TPage;
@ -145,7 +147,6 @@ type
I18NGroupBox: TGroupBox;
PoOutDirLabel: TLabel;
procedure AdditionalInfoButtonClick(Sender: TObject);
procedure ClearIconButtonClick(Sender: TObject);
procedure CreateAppBundleButtonClick(Sender: TObject);
@ -153,6 +154,8 @@ type
procedure FormsPageContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
procedure FormsPageResize(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure IconImagePictureChanged(Sender: TObject);
procedure IconTrackChange(Sender: TObject);
procedure LazDocAddPathButtonClick(Sender: TObject);
procedure LazDocBrowseButtonClick(Sender: TObject);
procedure LazDocDeletePathButtonClick(Sender: TObject);
@ -303,6 +306,7 @@ begin
LoadIconButton.LoadGlyphFromLazarusResource('open');
SaveIconButton.LoadGlyphFromLazarusResource('menu_save');
ClearIconButton.LoadGlyphFromLazarusResource('menu_clean');
IconImagePictureChanged(nil);
end;
procedure TProjectOptionsDialog.SetupLazDocPage(PageIndex: Integer);
@ -575,6 +579,31 @@ begin
ShowContextHelpForIDE(Self);
end;
procedure TProjectOptionsDialog.IconImagePictureChanged(Sender: TObject);
var
HasIcon: Boolean;
cx, cy: integer;
begin
HasIcon := (IconImage.Picture.Graphic <> nil) and
(not IconImage.Picture.Graphic.Empty);
IconTrack.Enabled := HasIcon;
if HasIcon then
begin
IconTrack.Min := 0;
IconTrack.Max := IconImage.Picture.Icon.Count - 1;
IconTrack.Position := IconImage.Picture.Icon.Current;
IconImage.Picture.Icon.GetSize(cx, cy);
IconTrackLabel.Caption := Format(dlgPOIconDesc, [cx, cy, PIXELFORMAT_BPP[IconImage.Picture.Icon.PixelFormat]]);
end
else
IconTrackLabel.Caption := dlgPOIconDescNone;
end;
procedure TProjectOptionsDialog.IconTrackChange(Sender: TObject);
begin
IconImage.Picture.Icon.Current := IconTrack.Position;
end;
procedure TProjectOptionsDialog.FormsPageResize(Sender: TObject);
begin
with FormsAutoCreatedListBox do