paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 00:40:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: High-DPI: All IDE SpeedButtons DPI-aware

Browse Source 
git-svn-id: trunk@55035 -
This commit is contained in:
michl 2017-05-21 20:59:29 +00:00
parent 873c73c12e
commit 5d03c243b5
53 changed files with 201 additions and 191 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/externhelp/externhelpfrm.pas
View File

@ -38,7 +38,8 @@ uses
Classes, SysUtils, LCLProc, FileUtil, LResources, Forms, Controls, Graphics,
Dialogs, LazConfigStorage, LazFileUtils, ComCtrls, Buttons, StdCtrls,
ExtCtrls, ButtonPanel, LazHelpIntf, PackageIntf, MacroIntf, IDEOptionsIntf,
LazIDEIntf, BaseIDEIntf, IDEDialogs, HelpIntfs, IDEImagesIntf, SrcEditorIntf;
LazIDEIntf, IDEImagesIntf, BaseIDEIntf, IDEDialogs, HelpIntfs, IDEImagesIntf,
SrcEditorIntf;
const
ExternHelpConfigVersion = 1;
@ -1132,8 +1133,8 @@ constructor TExternHelpGeneralOptsFrame.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
FOptions:=TExternHelpOptions.Create;
AddSpeedButton.LoadGlyphFromResourceName(HInstance, 'laz_add');
DeleteSpeedButton.LoadGlyphFromResourceName(HInstance, 'laz_delete');
TIDEImages.AssignImage(AddSpeedButton.Glyph, 'laz_add');
TIDEImages.AssignImage(DeleteSpeedButton.Glyph, 'laz_delete');
end;
destructor TExternHelpGeneralOptsFrame.Destroy;

6
components/ideintf/filefilterpropeditor.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
Grids, Buttons, ObjInspStrConsts;
IDEImagesIntf, Grids, Buttons, ObjInspStrConsts;
type
@ -45,8 +45,8 @@ begin
Caption:=peFilterEditor;
StringGrid1.Cells[0, 0] := peFilterName;
StringGrid1.Cells[1, 0] := peFilter;
MoveUpBtn.LoadGlyphFromResourceName(HInstance, 'arrow_up');
MoveDownBtn.LoadGlyphFromResourceName(HInstance, 'arrow_down');
TIDEImages.AssignImage(MoveUpBtn.Glyph, 'arrow_up');
TIDEImages.AssignImage(MoveDownBtn.Glyph, 'arrow_down');
MoveUpBtn.Hint := rscdMoveUp;
MoveDownBtn.Hint := rscdMoveDown;
end;

8
components/ideintf/frmselectprops.pas
View File

@ -15,7 +15,7 @@ interface
uses
Classes, SysUtils, RTTIUtils, TypInfo,
Forms, StdCtrls, Buttons, ExtCtrls, ButtonPanel,
IDEWindowIntf, ObjInspStrConsts;
IDEWindowIntf, IDEImagesIntf, ObjInspStrConsts;
type
@ -98,11 +98,11 @@ end;
procedure TSelectPropertiesForm.SelectPropertiesFormCreate(Sender: TObject);
begin
BAdd.Caption:=ilesAdd;
BAdd.LoadGlyphFromResourceName(HInstance, 'laz_add');
TIDEImages.AssignImage(BAdd.Glyph, 'laz_add');
BDelete.Caption:=oisDelete;
BDelete.LoadGlyphFromResourceName(HInstance, 'laz_delete');
TIDEImages.AssignImage(BDelete.Glyph, 'laz_delete');
BClear.Caption:=oisClear;
BClear.LoadGlyphFromResourceName(HInstance, 'menu_clean');
TIDEImages.AssignImage(BClear.Glyph, 'menu_clean');
LComponents.Caption:=oisBtnComponents;
LProperties.Caption:=oisBtnProperties;
LLBSelected.Caption:=oisSelectedProperties;

7
components/ideintf/treeviewpropedit.pas
View File

@ -19,7 +19,8 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons,
PropEdits, Componenteditors, StdCtrls, ComCtrls, ObjInspStrConsts, ExtCtrls;
PropEdits, Componenteditors, StdCtrls, ComCtrls, IDEImagesIntf,
ObjInspStrConsts, ExtCtrls;
type
@ -141,8 +142,8 @@ begin
BtnLoad.Caption := sccsTrEdtLoad;
BtnSave.Caption := sccsTrEdtSave;
BtnApply.Caption := sccsTrEdtApply;
MoveUpBtn.LoadGlyphFromResourceName(HInstance, 'arrow_up');
MoveDownBtn.LoadGlyphFromResourceName(HInstance, 'arrow_down');
TIDEImages.AssignImage(MoveUpBtn.Glyph, 'arrow_up');
TIDEImages.AssignImage(MoveDownBtn.Glyph, 'arrow_down');
MoveUpBtn.Hint:=rscdMoveUp;
MoveDownBtn.Hint:=rscdMoveDown;

5
components/lazsvnpkg/svndiffform.pas
View File

@ -24,7 +24,8 @@ interface
uses
Classes, SysUtils, LazFileUtils, Forms, Dialogs,
ButtonPanel, StdCtrls, Buttons, LazIDEIntf, SynEdit, SynHighlighterDiff;
ButtonPanel, StdCtrls, Buttons, LazIDEIntf, IDEImagesIntf, SynEdit,
SynHighlighterDiff;
type
@ -109,7 +110,7 @@ procedure TSVNDiffFrm.FormCreate(Sender: TObject);
begin
ButtonPanel.HelpButton.Enabled := False;
ButtonPanel.HelpButton.Caption := rsSave;
ButtonPanel.HelpButton.LoadGlyphFromResourceName(HInstance, 'laz_save');
TIDEImages.AssignImage(ButtonPanel.HelpButton.Glyph, 'laz_save');
end;
procedure TSVNDiffFrm.FormClose(Sender: TObject; var CloseAction: TCloseAction);

5
components/lazsvnpkg/svnupdateform.pas
View File

@ -24,7 +24,8 @@ interface
uses
Classes, SysUtils, FileUtil, UTF8Process, LResources, Forms, Controls,
Graphics, Dialogs, ComCtrls, ButtonPanel, Process, Buttons, Menus, LCLProc;
Graphics, Dialogs, ComCtrls, ButtonPanel, Process, Buttons, Menus, LCLProc,
IDEImagesIntf;
type
@ -84,7 +85,7 @@ begin
ButtonPanel.OKButton.OnClick := @OKButtonClick;
ButtonPanel.HelpButton.Caption := rsShowLog;
ButtonPanel.HelpButton.LoadGlyphFromResourceName(HInstance, 'tsynsyncroedit');
TIDEImages.AssignImage(ButtonPanel.HelpButton.Glyph, 'tsynsyncroedit');
mnuShowDiff.Caption:=rsShowDiff;
end;

8
converter/chgencodingdlg.pas
View File

@ -39,7 +39,7 @@ uses
// LazUtils
LConvEncoding, LazFileUtils, LazFileCache, AvgLvlTree,
// IDEIntf
IDEWindowIntf, SrcEditorIntf, IDEHelpIntf,
IDEWindowIntf, SrcEditorIntf, IDEHelpIntf, IDEImagesIntf,
// IDE
IDEProcs, PackageDefs, PackageSystem, Project, LazarusIDEStrConsts;
@ -116,9 +116,9 @@ begin
CloseButton.Caption:=lisClose;
ApplyButton.Caption:=lisConvert;
HelpButton.Caption:=lisHelp;
CloseButton.LoadGlyphFromResourceName(hInstance, 'btn_close');
ApplyButton.LoadGlyphFromResourceName(hInstance, 'btn_ok');
HelpButton.LoadGlyphFromResourceName(hInstance, 'btn_help');
TIDEImages.AssignImage(CloseButton.Glyph, 'btn_close');
TIDEImages.AssignImage(ApplyButton.Glyph, 'btn_ok');
TIDEImages.AssignImage(HelpButton.Glyph, 'btn_help');
PreviewGroupBox.Caption:=dlgWRDPreview;
PreviewListView.Column[0].Caption:=dlgEnvFiles;

12
converter/convertsettings.pas
View File

@ -38,7 +38,7 @@ uses
// CodeTools
CodeToolManager, CodeCache,
// IdeIntf
BaseIDEIntf, IDEMsgIntf, IDEExternToolIntf,
BaseIDEIntf, IDEMsgIntf, IDEExternToolIntf, IDEImagesIntf,
// IDE
IDEProcs, DialogProcs, LazarusIDEStrConsts,
// Converter
@ -883,11 +883,11 @@ begin
// File system scanning
ScanLabel.Caption := lisScanParentDir;
StopScanButton.Caption:=lisStop;
StopScanButton.LoadGlyphFromResourceName(HInstance, 'menu_stop');
TIDEImages.AssignImage(StopScanButton.Glyph, 'menu_stop');
// Unit Replacements
UnitReplaceDivider.Caption:=lisConvUnitReplacements;
UnitReplaceButton.Caption:=lisEdit; // Recycled string.
UnitReplaceButton.LoadGlyphFromResourceName(HInstance, 'laz_edit');
TIDEImages.AssignImage(UnitReplaceButton.Glyph, 'laz_edit');
UnitReplaceDivider.Hint:=lisConvUnitReplHint;
UnitReplaceButton.Hint:=lisConvUnitReplHint;
UnitReplaceComboBox.Items.Add(lisDisabled); // 'Disabled'
@ -901,7 +901,7 @@ begin
// Type Replacements
TypeReplaceDivider.Caption:=lisConvTypeReplacements;
TypeReplaceButton.Caption:=lisEdit;
TypeReplaceButton.LoadGlyphFromResourceName(HInstance, 'laz_edit');
TIDEImages.AssignImage(TypeReplaceButton.Glyph, 'laz_edit');
TypeReplaceDivider.Hint:=lisConvTypeReplHint;
TypeReplaceButton.Hint:=lisConvTypeReplHint;
TypeReplaceComboBox.Items.Add(lisInteractive);
@ -909,7 +909,7 @@ begin
// Func Replacements
FuncReplaceDivider.Caption:=lisConvFuncReplacements;
FuncReplaceButton.Caption:=lisEdit;
FuncReplaceButton.LoadGlyphFromResourceName(HInstance, 'laz_edit');
TIDEImages.AssignImage(FuncReplaceButton.Glyph, 'laz_edit');
FuncReplaceDivider.Hint:=lisConvFuncReplHint;
FuncReplaceButton.Hint:=lisConvFuncReplHint;
FuncReplaceComboBox.Items.Add(lisDisabled);
@ -918,7 +918,7 @@ begin
// Coordinate Offsets
CoordOffsDivider.Caption:=lisConvCoordOffs;
CoordOffsButton.Caption:=lisEdit;
CoordOffsButton.LoadGlyphFromResourceName(HInstance, 'laz_edit');
TIDEImages.AssignImage(CoordOffsButton.Glyph, 'laz_edit');
CoordOffsDivider.Hint:=lisConvCoordHint;
CoordOffsButton.Hint:=lisConvCoordHint;
CoordOffsComboBox.Items.Add(lisDisabled);

4
converter/missingpropertiesdlg.pas
View File

@ -42,7 +42,7 @@ uses
// codetools
CodeCache, CodeToolManager, CodeCompletionTool, LFMTrees,
// IdeIntf
IDEExternToolIntf, ComponentReg,
IDEExternToolIntf, ComponentReg, IDEImagesIntf,
// IDE
LazarusIDEStrConsts, EditorOptions, CheckLFMDlg, Project, SourceMarks,
// Converter
@ -741,7 +741,7 @@ begin
PropertiesText.Caption:=lisProperties;
TypesText.Caption:=lisTypes;
ReplaceAllButton.Caption:=lisReplaceRemoveUnknown;
ReplaceAllButton.LoadGlyphFromResourceName(HInstance, 'laz_refresh');
TIDEImages.AssignImage(ReplaceAllButton.Glyph, 'laz_refresh');
EditorOpts.GetHighlighterSettings(SynLFMSyn1);
EditorOpts.GetSynEditSettings(LFMSynEdit);
end;

8
converter/missingunits.pas
View File

@ -39,7 +39,7 @@ uses
// IDEIntf
LazIDEIntf,
// IDE
CompilerOptions,
CompilerOptions, IDEImagesIntf,
PackageDefs, Project, IDEProcs, LazarusIDEStrConsts;
type
@ -132,10 +132,10 @@ begin
MissingUnitsGroupBox.Caption:=lisTheseUnitsWereNotFound;
ChoicesLabel.Caption:=lisMissingUnitsChoices;
SearchButton.Caption:=lisMissingUnitsSearch;
SearchButton.LoadGlyphFromResourceName(HInstance, 'menu_search_find');
TIDEImages.AssignImage(SearchButton.Glyph, 'menu_search_find');
SkipButton.Caption:=lisMissingUnitsSkip;
SkipButton.LoadGlyphFromResourceName(HInstance, 'debugger_current_line_breakpoint');
CommentButton.LoadGlyphFromResourceName(HInstance, 'menu_comment'); // or insertremark
TIDEImages.AssignImage(SkipButton.Glyph, 'debugger_current_line_breakpoint');
TIDEImages.AssignImage(CommentButton.Glyph, 'menu_comment'); // or insertremark
if ATargetDelphi then begin
CommentButton.Caption:=lisMissingUnitsForDelphi;
Info1Label.Caption:=lisMissingUnitsInfo1b;

6
debugger/exceptiondlg.pas
View File

@ -28,7 +28,7 @@ unit ExceptionDlg;
interface
uses
Classes, Forms, Dialogs, StdCtrls, Buttons, LazarusIDEStrConsts;
Classes, Forms, Dialogs, StdCtrls, Buttons, IDEImagesIntf, LazarusIDEStrConsts;
type
@ -77,8 +77,8 @@ begin
btnContinue.Caption := lisMenuContinue;
cbIgnoreExceptionType.Caption := lisIgnoreExceptionType;
btnBreak.LoadGlyphFromResourceName(HInstance, 'menu_pause');
btnContinue.LoadGlyphFromResourceName(HInstance, 'menu_run');
TIDEImages.AssignImage(btnBreak.Glyph, 'menu_pause');
TIDEImages.AssignImage(btnContinue.Glyph, 'menu_run');
DefaultControl := btnBreak;
CancelControl := btnContinue;

6
debugger/frames/debugger_language_exceptions_options.pas
View File

@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, StdCtrls, CheckLst,
Buttons, Dialogs,
LazarusIDEStrConsts, IDEOptionsIntf, Debugger, BaseDebugManager;
LazarusIDEStrConsts, IDEImagesIntf, IDEOptionsIntf, Debugger, BaseDebugManager;
type
@ -149,8 +149,8 @@ begin
DbgLangExceptHint.Caption := lisTheseSettingsAreStoredWithTheProject;
cmdExceptionRemove.Caption := lisRemove;
cmdExceptionAdd.Caption := lisAdd;
cmdExceptionRemove.LoadGlyphFromResourceName(HInstance, 'laz_delete');
cmdExceptionAdd.LoadGlyphFromResourceName(HInstance, 'laz_add');
TIDEImages.AssignImage(cmdExceptionRemove.Glyph, 'laz_delete');
TIDEImages.AssignImage(cmdExceptionAdd.Glyph, 'laz_add');
chkNotifyOnException.Caption := lisDebugOptionsFrmNotifyOnLazarusExceptions;
end;

6
debugger/frames/debugger_signals_options.pas
View File

@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, StdCtrls, Menus,
ComCtrls, Buttons,
LazarusIDEStrConsts, IDEOptionsIntf, Debugger, BaseDebugManager;
LazarusIDEStrConsts, IDEOptionsIntf, IDEImagesIntf, Debugger, BaseDebugManager;
type
{ TDebuggerSignalsOptions }
@ -89,8 +89,8 @@ begin
lvSignals.Column[3].Caption := lisDebugOptionsFrmResume;
cmdSignalAdd.Caption := lisAdd;
cmdSignalRemove.Caption := lisRemove;
cmdSignalAdd.LoadGlyphFromResourceName(HInstance, 'laz_add');
cmdSignalRemove.LoadGlyphFromResourceName(HInstance, 'laz_delete');
TIDEImages.AssignImage(cmdSignalAdd.Glyph, 'laz_add');
TIDEImages.AssignImage(cmdSignalRemove.Glyph, 'laz_delete');
mnuHandledByProgram.Caption := lisDebugOptionsFrmHandledByProgram;
mnuiHandledByDebugger.Caption := lisDebugOptionsFrmHandledByDebugger;

7
ide/addtoprojectdlg.pas
View File

@ -42,7 +42,8 @@ uses
// IDEIntf
IDEWindowIntf, PackageIntf,
// IDE
LazarusIDEStrConsts, Project, InputHistory, PackageDefs, ProjPackChecks;
LazarusIDEStrConsts, IDEImagesIntf, Project, InputHistory, PackageDefs,
ProjPackChecks;
type
TAddToProjectType = (
@ -342,7 +343,7 @@ begin
with FilesDirButton do begin
Caption:=lisAddFilesInDirectory;
LoadGlyphFromResourceName(HInstance, 'pkg_files');
TIDEImages.AssignImage(Glyph, 'pkg_files');
end;
with FilesShortenButton do begin
@ -355,7 +356,7 @@ begin
Caption:=lisDelete;
ShowHint:=true;
Hint:=lisDeleteSelectedFiles;
LoadGlyphFromResourceName(HInstance, 'laz_delete');
TIDEImages.AssignImage(Glyph, 'laz_delete');
end;
UpdateFilesButtons;

4
ide/allcompileroptions.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, math, contnrs,
Forms, Controls, StdCtrls, Buttons, ButtonPanel, EditBtn, ExtCtrls,
LCLProc, LazUTF8, Compiler, LazarusIDEStrConsts;
LCLProc, LazUTF8, Compiler, IDEImagesIntf, LazarusIDEStrConsts;
type
@ -85,7 +85,7 @@ procedure TfrmAllCompilerOptions.FormCreate(Sender: TObject);
begin
Caption:=lisAllOptions;
edOptionsFilter.Hint := lisFilterTheAvailableOptionsList;
btnResetOptionsFilter.LoadGlyphFromResourceName(HInstance, ResBtnListFilter);
TIDEImages.AssignImage(btnResetOptionsFilter.Glyph, ResBtnListFilter);
btnResetOptionsFilter.Enabled := False;
btnResetOptionsFilter.Hint := lisClearTheFilterForOptions;
cbShowModified.Caption:=lisShowOnlyModified;

6
ide/buildlazdialog.pas
View File

@ -1036,13 +1036,13 @@ begin
ConfirmBuildCheckBox.Hint := lisLazBuildShowConfirmationDialogWhenBuilding;
CompileButton.Caption := lisBuild;
CompileButton.LoadGlyphFromResourceName(HInstance, 'menu_build');
TIDEImages.AssignImage(CompileButton.Glyph, 'menu_build');
CompileAdvancedButton.Caption := lisLazBuildBuildMany;
CompileAdvancedButton.LoadGlyphFromResourceName(HInstance, 'menu_build_all');
TIDEImages.AssignImage(CompileAdvancedButton.Glyph, 'menu_build_all');
SaveSettingsButton.Caption := lisSaveSettings;
SaveSettingsButton.LoadGlyphFromStock(idButtonSave);
if SaveSettingsButton.Glyph.Empty then
SaveSettingsButton.LoadGlyphFromResourceName(HInstance, 'laz_save');
TIDEImages.AssignImage(SaveSettingsButton.Glyph, 'laz_save');
CancelButton.Caption := lisCancel;
HelpButton.Caption := lisMenuHelp;

4
ide/charactermapdlg.pas
View File

@ -41,7 +41,7 @@ uses
StdCtrls, LCLType, LCLUnicodeData, GraphType, Grids, ButtonPanel, ComCtrls,
IDEHelpIntf, LazUTF8,
{$ifdef WINDOWS}Windows,{$endif} lconvencoding,
LazarusIDEStrConsts, EditorOptions, EnvironmentOpts;
LazarusIDEStrConsts, IDEImagesIntf, EditorOptions, EnvironmentOpts;
type
TOnInsertCharacterEvent = procedure (const C: TUTF8Char) of object;
@ -125,7 +125,7 @@ begin
RangeLabel.Caption := lisRange;
SortUniRangeListButton.Flat:=True;
SortUniRangeListButton.Hint:=lisSortUnicodeRangeListAlphabetically;
SortUniRangeListButton.LoadGlyphFromResourceName(HInstance, 'pkg_sortalphabetically');
TIDEImages.AssignImage(SortUniRangeListButton.Glyph, 'pkg_sortalphabetically');
ButtonPanel.HelpButton.Caption:=lisMenuHelp;
ButtonPanel.CloseButton.Caption:=lisBtnClose;

4
ide/checklfmdlg.pas
View File

@ -42,7 +42,7 @@ uses
IDEExternToolIntf, PackageIntf, IDEWindowIntf, PropEdits, PropEditUtils,
IDEMsgIntf, IDEDialogs, ComponentReg,
// IDE
CustomFormEditor, LazarusIDEStrConsts,
CustomFormEditor, LazarusIDEStrConsts, IDEImagesIntf,
IDEProcs, EditorOptions, SourceMarks, JITForms;
type
@ -748,7 +748,7 @@ begin
ErrorsGroupBox.Caption:=lisErrors;
LFMGroupBox.Caption:=lisLFMFile;
RemoveAllButton.Caption:=lisRemoveAllInvalidProperties;
RemoveAllButton.LoadGlyphFromResourceName(HInstance, 'laz_delete');
TIDEImages.AssignImage(RemoveAllButton.Glyph, 'laz_delete');
CancelButton.Caption:=lisCancel;
EditorOpts.GetHighlighterSettings(SynLFMSyn1);
EditorOpts.GetSynEditSettings(LFMSynEdit);

5
ide/codecontextform.pas
View File

@ -41,7 +41,8 @@ uses
Graphics, Dialogs, LCLType, LCLIntf, Themes, Buttons, SynEdit, SynEditKeyCmds,
BasicCodeTools, KeywordFuncLists, LinkScanner, CodeCache, FindDeclarationTool,
IdentCompletionTool, CodeTree, CodeAtom, PascalParserTool, CodeToolManager,
SrcEditorIntf, LazIDEIntf, IDEProcs, LazarusIDEStrConsts, LMessages;
SrcEditorIntf, LazIDEIntf, IDEProcs, LazarusIDEStrConsts, IDEImagesIntf,
LMessages;
type
@ -517,7 +518,7 @@ begin
Btn.Name:='CopyAllSpeedButton'+IntToStr(i+1);
Btn.OnClick:=@CopyAllBtnClick;
Btn.Visible:=false;
Btn.LoadGlyphFromResourceName(HInstance, 'laz_copy');
TIDEImages.AssignImage(Btn.Glyph, 'laz_copy');
Btn.Flat:=true;
Btn.Parent:=Self;
FHints.Add(Item);

14
ide/codeexplorer.pas
View File

@ -47,7 +47,7 @@ uses
CodeCache, CodeTree, KeywordFuncLists, FindDeclarationTool, DirectivesTree,
PascalParserTool,
// IDEIntf
LazIDEIntf, IDECommands, MenuIntf, SrcEditorIntf, IDEDialogs,
LazIDEIntf, IDECommands, MenuIntf, SrcEditorIntf, IDEDialogs, IDEImagesIntf,
// IDE
LazarusIDEStrConsts, IDEOptionDefs, IDEProcs, CodeExplOpts;
@ -484,10 +484,10 @@ begin
CodeFilterEdit.TextHint:=lisCEFilter;
DirectivesFilterEdit.TextHint:=lisCEFilter;
CodeRefreshSpeedButton.LoadGlyphFromResourceName(HInstance, 'laz_refresh');
CodeOptionsSpeedButton.LoadGlyphFromResourceName(HInstance, 'menu_environment_options');
DirRefreshSpeedButton.LoadGlyphFromResourceName(HInstance, 'laz_refresh');
DirOptionsSpeedButton.LoadGlyphFromResourceName(HInstance, 'menu_environment_options');
TIDEImages.AssignImage(CodeRefreshSpeedButton.Glyph, 'laz_refresh');
TIDEImages.AssignImage(CodeOptionsSpeedButton.Glyph, 'menu_environment_options');
TIDEImages.AssignImage(DirRefreshSpeedButton.Glyph, 'laz_refresh');
TIDEImages.AssignImage(DirOptionsSpeedButton.Glyph, 'menu_environment_options');
ImgIDDefault := Imagelist1.AddResourceName(HInstance, 'ce_default');
ImgIDProgram := Imagelist1.AddResourceName(HInstance, 'ce_program');
@ -1929,11 +1929,11 @@ procedure TCodeExplorerView.UpdateMode;
begin
if FMode=cemCategory
then begin
CodeModeSpeedButton.LoadGlyphFromResourceName(HInstance, 'show_category');
TIDEImages.AssignImage(CodeModeSpeedButton.Glyph, 'show_category');
CodeModeSpeedButton.Hint:=lisCEModeShowSourceNodes;
end
else begin
CodeModeSpeedButton.LoadGlyphFromResourceName(HInstance, 'show_source');
TIDEImages.AssignImage(CodeModeSpeedButton.Glyph, 'show_source');
CodeModeSpeedButton.Hint:=lisCEModeShowCategories;
end;
Refresh(true);

4
ide/componentpalette.pas
View File

@ -355,7 +355,7 @@ begin
BtnRight:=TSpeedButton.Create(PageComponent);
with BtnRight do
begin
LoadGlyphFromResourceName(HInstance, 'SelCompPage');
TIDEImages.AssignImage(Glyph, 'SelCompPage');
Flat := True;
SetBounds(2,1,16,16);
Hint := lisClickToSelectPalettePage;
@ -408,7 +408,7 @@ begin
Name := CompPalSelectionToolBtnPrefix + aButtonUniqueName;
OnClick := @Pal.SelectionToolClick;
OnMouseWheel := @Pal.OnPageMouseWheel;
LoadGlyphFromResourceName(hInstance, 'tmouse');
TIDEImages.AssignImage(Glyph, 'tmouse');
Flat := True;
GroupIndex:= 1;
Down := True;

6
ide/definesgui.pas
View File

@ -26,7 +26,7 @@ interface
uses
Classes, Forms, StdCtrls, Buttons, ButtonPanel, CheckLst, LCLType, Controls,
IDEHelpIntf, LazarusIDEStrConsts, Compiler;
IDEHelpIntf, IDEImagesIntf, LazarusIDEStrConsts, Compiler;
type
@ -82,9 +82,9 @@ begin
Caption := lisLazBuildDefines;
gbNewDefine.Caption := lisCodeToolsDefsDefine;
AddBtn.Caption := lisBtnAdd;
AddBtn.LoadGlyphFromResourceName(HInstance, 'laz_add');
TIDEImages.AssignImage(AddBtn.Glyph, 'laz_add');
RemoveBtn.Caption := lisBtnRemove;
RemoveBtn.LoadGlyphFromResourceName(HInstance, 'laz_delete');
TIDEImages.AssignImage(RemoveBtn.Glyph, 'laz_delete');
end;
procedure TDefinesGuiForm.FormShow(Sender: TObject);

6
ide/diffdialog.pas
View File

@ -42,7 +42,7 @@ uses
Classes, SysUtils, Forms, Controls, Buttons, StdCtrls, FileUtil,
lazutf8classes, LazarusIDEStrConsts, EditorOptions, LCLType, IDEWindowIntf,
IDEHelpIntf, InputHistory, DiffPatch, ExtCtrls, Dialogs, ComCtrls, SynEdit,
SynHighlighterDiff, SourceEditor;
IDEImagesIntf, SynHighlighterDiff, SourceEditor;
type
@ -345,14 +345,14 @@ begin
end;
// buttons
CancelScanningButton.LoadGlyphFromResourceName(hInstance, 'btn_cancel');
TIDEImages.AssignImage(CancelScanningButton.Glyph, 'btn_cancel');
CloseButton.Caption:=lisClose;
OpenInEditorButton.Caption:=lisDiffDlgOpenDiffInEditor;
HelpButton.Caption:=lisMenuHelp;
OpenInEditorButton.LoadGlyphFromStock(idButtonOpen);
if OpenInEditorButton.Glyph.Empty then
OpenInEditorButton.LoadGlyphFromResourceName(HInstance, 'laz_open');
TIDEImages.AssignImage(OpenInEditorButton.Glyph, 'laz_open');
// dialogs
dlgOpen.Title:=lisOpenExistingFile;

12
ide/editorfilemanager.pas
View File

@ -109,15 +109,15 @@ begin
PopupMenu1.Images:=IDEImages.Images_16;
ActivateMenuItem.ImageIndex:=IDEImages.LoadImage(16, 'laz_open');
CloseMenuItem.ImageIndex:=IDEImages.LoadImage(16, 'menu_close');
CloseCheckedButton.LoadGlyphFromResourceName(HInstance, 'menu_close_all');
SaveCheckedButton.LoadGlyphFromResourceName(HInstance, 'menu_save_all');
MoveUpBtn.LoadGlyphFromResourceName(HInstance, 'arrow_up');
MoveDownBtn.LoadGlyphFromResourceName(HInstance, 'arrow_down');
TIDEImages.AssignImage(CloseCheckedButton.Glyph, 'menu_close_all');
TIDEImages.AssignImage(SaveCheckedButton.Glyph, 'menu_save_all');
TIDEImages.AssignImage(MoveUpBtn.Glyph, 'arrow_up');
TIDEImages.AssignImage(MoveDownBtn.Glyph, 'arrow_down');
// Buttons on FilterPanel
OpenButton.LoadGlyphFromResourceName(HInstance, 'laz_open');
TIDEImages.AssignImage(OpenButton.Glyph, 'laz_open');
OpenButton.Hint:=lisActivateSelected;
SortAlphabeticallyButton.Hint:=lisPESortFilesAlphabetically;
SortAlphabeticallyButton.LoadGlyphFromResourceName(HInstance, 'pkg_sortalphabetically');
TIDEImages.AssignImage(SortAlphabeticallyButton.Glyph, 'pkg_sortalphabetically');
end;
procedure TEditorFileManagerForm.CheckListBox1Click(Sender: TObject);

8
ide/encloseifdef.pas
View File

@ -54,7 +54,7 @@ interface
uses
Classes, SysUtils, Controls, Forms, StdCtrls, Buttons, ButtonPanel,
LCLProc, LCLType, LazConf, LazFileUtils, Laz2_XMLCfg, LazFileCache,
IDEHelpIntf, LazarusIDEStrConsts;
IDEHelpIntf, IDEImagesIntf, LazarusIDEStrConsts;
type
@ -232,11 +232,11 @@ begin
FirstLabel.Caption := lisFirstTest;
SecondLabel.Caption := lisSecondTest;
AddBtn.Caption := lisBtnAdd;
AddBtn.LoadGlyphFromResourceName(HInstance, 'laz_add');
TIDEImages.AssignImage(AddBtn.Glyph, 'laz_add');
AddInverse.Caption := rsAddInverse;
AddInverse.LoadGlyphFromResourceName(HInstance, 'pkg_issues');
TIDEImages.AssignImage(AddInverse.Glyph, 'pkg_issues');
RemoveBtn.Caption := lisBtnRemove;
RemoveBtn.LoadGlyphFromResourceName(HInstance, 'laz_delete');
TIDEImages.AssignImage(RemoveBtn.Glyph, 'laz_delete');
ButtonPanel1.CloseButton.Caption := lisSave;
ButtonPanel1.OKButton.Caption := lisOk;
//ButtonPanel1.CloseButton.LoadGlyphFromStock(idButtonSave);

6
ide/etmessageframe.pas
View File

@ -3487,11 +3487,11 @@ begin
// search
SearchPanel.Visible:=false; // by default the search is hidden
HideSearchSpeedButton.Hint:=lisHideSearch;
HideSearchSpeedButton.LoadGlyphFromResourceName(HInstance, 'debugger_power_grey');
TIDEImages.AssignImage(HideSearchSpeedButton.Glyph, 'debugger_power_grey');
SearchNextSpeedButton.Hint:=lisUDSearchNextOccurrenceOfThisPhrase;
SearchNextSpeedButton.LoadGlyphFromResourceName(HInstance, 'callstack_bottom');
TIDEImages.AssignImage(SearchNextSpeedButton.Glyph, 'callstack_bottom');
SearchPrevSpeedButton.Hint:=lisUDSearchPreviousOccurrenceOfThisPhrase;
SearchPrevSpeedButton.LoadGlyphFromResourceName(HInstance, 'callstack_top');
TIDEImages.AssignImage(SearchPrevSpeedButton.Glyph, 'callstack_top');
SearchEdit.TextHint:=lisUDSearch;
end;

11
ide/examplemanager.pas
View File

@ -7,7 +7,8 @@ interface
uses
Classes, SysUtils, lazutf8classes, ListFilterEdit, Forms, Controls, Dialogs,
StdCtrls, ExtCtrls, ButtonPanel, Buttons, EditBtn, LCLProc, FileUtil, LazFileUtils,
IDEWindowIntf, LazIDEIntf, MainIntf, EnvironmentOpts, LazarusIDEStrConsts;
IDEWindowIntf, LazIDEIntf, IDEImagesIntf, MainIntf, EnvironmentOpts,
LazarusIDEStrConsts;
type
@ -161,10 +162,10 @@ begin
SelectAllButton.Caption:=lisMenuSelectAll;
SelectNoneButton.Caption:=lisSAMSelectNone;
OpenSelectedButton.LoadGlyphFromResourceName(HInstance, 'laz_open');
BuildAllSelectedButton.LoadGlyphFromResourceName(HInstance, 'menu_build_all');
SelectAllButton.LoadGlyphFromResourceName(HInstance, 'menu_select_all');
SelectNoneButton.LoadGlyphFromResourceName(HInstance, 'ce_default');
TIDEImages.AssignImage(OpenSelectedButton.Glyph, 'laz_open');
TIDEImages.AssignImage(BuildAllSelectedButton.Glyph, 'menu_build_all');
TIDEImages.AssignImage(SelectAllButton.Glyph, 'menu_select_all');
TIDEImages.AssignImage(SelectNoneButton.Glyph, 'ce_default');
edRootDirectory.Text:=EnvironmentOptions.GetParsedLazarusDirectory;
FillProjectsPending;

4
ide/findreplacedialog.pp
View File

@ -139,7 +139,7 @@ begin
TextToFindLabel.Caption:=dlgTextToFind;
ReplaceTextComboBox.Text:='';
ReplaceWithCheckbox.Caption:=dlgReplaceWith;
EnableAutoCompleteSpeedButton.LoadGlyphFromResourceName(HInstance, 'menu_stepinto');
TIDEImages.AssignImage(EnableAutoCompleteSpeedButton.Glyph, 'menu_stepinto');
OptionsGroupBox.Caption:=lisOptions;
with CaseSensitiveCheckBox do begin
@ -181,7 +181,7 @@ begin
// CloseButton works now as ReplaceAllButton
BtnPanel.CloseButton.Caption := dlgReplaceAll;
BtnPanel.CloseButton.LoadGlyphFromResourceName(hInstance, 'btn_all');
TIDEImages.AssignImage(BtnPanel.CloseButton.Glyph, 'btn_all');
fReplaceAllClickedLast:=false;
UpdateHints;

18
ide/fpdoceditwindow.pas
View File

@ -43,7 +43,7 @@ uses
CTXMLFixFragment,
// IDEIntf
IDEWindowIntf, ProjectIntf, LazIDEIntf, IDEHelpIntf, Menus,
SrcEditorIntf, IDEDialogs, LazFileUtils,
SrcEditorIntf, IDEDialogs, LazFileUtils, IDEImagesIntf,
// IDE
IDEOptionDefs, EnvironmentOpts, PackageSystem, IDEProcs, LazarusIDEStrConsts,
FPDocSelectInherited, FPDocSelectLink, CodeHelp;
@ -292,14 +292,14 @@ begin
Name := NonModalIDEWindowNames[nmiwFPDocEditorName];
BoldFormatButton.LoadGlyphFromResourceName(HInstance, 'formatbold');
UnderlineFormatButton.LoadGlyphFromResourceName(HInstance, 'formatunderline');
ItalicFormatButton.LoadGlyphFromResourceName(HInstance, 'formatitalic');
InsertVarTagButton.LoadGlyphFromResourceName(HInstance, 'insertvartag');
InsertCodeTagButton.LoadGlyphFromResourceName(HInstance, 'insertcodetag');
InsertRemarkButton.LoadGlyphFromResourceName(HInstance, 'insertremark');
InsertURLTagSpeedButton.LoadGlyphFromResourceName(HInstance, 'formatunderline');
SaveButton.LoadGlyphFromResourceName(HInstance, 'laz_save');
TIDEImages.AssignImage(BoldFormatButton.Glyph, 'formatbold');
TIDEImages.AssignImage(UnderlineFormatButton.Glyph, 'formatunderline');
TIDEImages.AssignImage(ItalicFormatButton.Glyph, 'formatitalic');
TIDEImages.AssignImage(InsertVarTagButton.Glyph, 'insertvartag');
TIDEImages.AssignImage(InsertCodeTagButton.Glyph, 'insertcodetag');
TIDEImages.AssignImage(InsertRemarkButton.Glyph, 'insertremark');
TIDEImages.AssignImage(InsertURLTagSpeedButton.Glyph, 'formatunderline');
TIDEImages.AssignImage(SaveButton.Glyph, 'laz_save');
SourceEditorManagerIntf.RegisterChangeEvent(semEditorActivate, @DoEditorUpdate);
SourceEditorManagerIntf.RegisterChangeEvent(semEditorStatus, @DoEditorUpdate);

6
ide/frames/compiler_buildmacro_options.pas
View File

@ -489,9 +489,9 @@ begin
lisHintADefaultValueCanBeDefinedInTheConditionals;
BuildMacroDescriptionLabel.Caption:=lisCodeToolsDefsDescription;
BMAddMacroSpeedButton.LoadGlyphFromResourceName(HInstance, 'laz_add');
BMAddMacroValueSpeedButton.LoadGlyphFromResourceName(HInstance, 'laz_add');
BMDeleteMacroSpeedButton.LoadGlyphFromResourceName(HInstance, 'laz_delete');
TIDEImages.AssignImage(BMAddMacroSpeedButton.Glyph, 'laz_add');
TIDEImages.AssignImage(BMAddMacroValueSpeedButton.Glyph, 'laz_add');
TIDEImages.AssignImage(BMDeleteMacroSpeedButton.Glyph, 'laz_delete');
end;
destructor TCompOptBuildMacrosFrame.Destroy;

9
ide/frames/compiler_path_options.pas
View File

@ -7,8 +7,9 @@ interface
uses
Classes, SysUtils, LCLProc, LazFileUtils, LazFileCache, Controls, Dialogs,
Buttons, StdCtrls, LCLType, IDEOptionsIntf, MacroIntf, IDEDialogs,
CompOptsIntf, Project, CompilerOptions, LazarusIDEStrConsts, PathEditorDlg,
IDEProcs, CheckCompilerOpts, ShowCompilerOpts, ImExportCompilerOpts;
CompOptsIntf, Project, CompilerOptions, LazarusIDEStrConsts, IDEImagesIntf,
PathEditorDlg, IDEProcs, CheckCompilerOpts, ShowCompilerOpts,
ImExportCompilerOpts;
type
@ -638,7 +639,7 @@ begin
// register special buttons in the dialog itself
btnShowOptions := CreateButton(dlgCOShowOptions);
btnShowOptions.LoadGlyphFromResourceName(HInstance, 'menu_compiler_options');
TIDEImages.AssignImage(btnShowOptions.Glyph, 'menu_compiler_options');
btnShowOptions.OnClick := @DoShowOptions;
// Check
btnCheck := CreateButton(lisCompTest);
@ -659,7 +660,7 @@ begin
btnLoadSave.Hint := dlgCOLoadSaveHint;
btnLoadSave.LoadGlyphFromStock(idButtonOpen);
if btnLoadSave.Glyph.Empty then
btnLoadSave.LoadGlyphFromResourceName(HInstance, 'laz_save');
TIDEImages.AssignImage(btnLoadSave.Glyph, 'laz_save');
ADialog.AddButtonSeparator;

14
ide/frames/componentpalette_options.pas
View File

@ -152,12 +152,12 @@ begin
// Component pages
PagesGroupBox.Caption := lisCmpPages;
AddPageButton.Caption := lisBtnDlgAdd;
AddPageButton.LoadGlyphFromResourceName(HInstance, 'laz_add');
TIDEImages.AssignImage(AddPageButton.Glyph, 'laz_add');
RestoreButton.Caption := lisCmpRestoreDefaults;
ImportDividerBevel.Caption := lisExportImport;
ImportButton.LoadGlyphFromResourceName(HInstance, 'laz_open');
TIDEImages.AssignImage(ImportButton.Glyph, 'laz_open');
ImportButton.Caption := lisDlgImport;
ExportButton.LoadGlyphFromResourceName(HInstance, 'laz_save');
TIDEImages.AssignImage(ExportButton.Glyph, 'laz_save');
ExportButton.Caption := lisDlgExport;
// File dialogs
ImportDialog.Title := lisImport;
@ -171,13 +171,13 @@ begin
ComponentsListView.Column[3].Caption := lisUnit;
ComponentsListView.SmallImages := IDEImages.Images_24;
// Arrow buttons for pages
PageMoveUpBtn.LoadGlyphFromResourceName(HInstance, 'arrow_up');
PageMoveDownBtn.LoadGlyphFromResourceName(HInstance, 'arrow_down');
TIDEImages.AssignImage(PageMoveUpBtn.Glyph, 'arrow_up');
TIDEImages.AssignImage(PageMoveDownBtn.Glyph, 'arrow_down');
PageMoveUpBtn.Hint := lisMoveSelectedUp;
PageMoveDownBtn.Hint := lisMoveSelectedDown;
// Arrow buttons for components
CompMoveUpBtn.LoadGlyphFromResourceName(HInstance, 'arrow_up');
CompMoveDownBtn.LoadGlyphFromResourceName(HInstance, 'arrow_down');
TIDEImages.AssignImage(CompMoveUpBtn.Glyph, 'arrow_up');
TIDEImages.AssignImage(CompMoveDownBtn.Glyph, 'arrow_down');
CompMoveUpBtn.Hint := lisMoveSelectedUp;
CompMoveDownBtn.Hint := lisMoveSelectedDown;

10
ide/frames/editor_keymapping_options.pas
View File

@ -386,15 +386,15 @@ begin
ConflictsTreeView.Images := IDEImages.Images_16;
imgKeyCategory := IDEImages.LoadImage(16, 'item_keyboard');
imgKeyItem := IDEImages.LoadImage(16, 'item_character');
ChooseSchemeButton.LoadGlyphFromResourceName(HInstance, 'item_keyboard'); // keymapcategory
FindKeyButton.LoadGlyphFromResourceName(HInstance, 'menu_search_find');
EditButton.LoadGlyphFromResourceName(HInstance, 'laz_edit');
ClearButton.LoadGlyphFromResourceName(HInstance, 'menu_clean');
TIDEImages.AssignImage(ChooseSchemeButton.Glyph, 'item_keyboard'); // keymapcategory
TIDEImages.AssignImage(FindKeyButton.Glyph, 'menu_search_find');
TIDEImages.AssignImage(EditButton.Glyph, 'laz_edit');
TIDEImages.AssignImage(ClearButton.Glyph, 'menu_clean');
PopupMenu1.Images := IDEImages.Images_16;
EditMenuItem.ImageIndex := IDEImages.LoadImage(16, 'laz_edit');
ClearMenuItem.ImageIndex := IDEImages.LoadImage(16, 'menu_clean');
ResetKeyFilterBtn.LoadGlyphFromResourceName(HInstance, ResBtnListFilter);
TIDEImages.AssignImage(ResetKeyFilterBtn.Glyph, ResBtnListFilter);
ResetKeyFilterBtn.Enabled := not IDEShortCutEmpty(KeyMapKeyFilter);
// FillKeyMappingTreeView; ... Done in ReadSettings.

10
ide/frames/project_application_options.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, LCLProc, FileUtil, Forms, Controls, Graphics, Dialogs,
ExtCtrls, StdCtrls, Buttons, ComCtrls, ExtDlgs, Math, LCLType, IDEOptionsIntf,
LazIDEIntf, IDEDialogs, DividerBevel, Project, LazarusIDEStrConsts,
LazIDEIntf, IDEImagesIntf, IDEDialogs, DividerBevel, Project, LazarusIDEStrConsts,
EnvironmentOpts, ApplicationBundle, ProjectIcon, W32Manifest, CompilerOptions;
type
@ -257,7 +257,7 @@ begin
// Darwin specific, Application Bundle
DarwinDividerBevel.Caption := lisForMacOSDarwin;
CreateAppBundleButton.Caption := dlgPOCreateAppBundle;
CreateAppBundleButton.LoadGlyphFromResourceName(HInstance, 'pkg_compile');
TIDEImages.AssignImage(CreateAppBundleButton.Glyph, 'pkg_compile');
// Icon
IconLabel.Caption := dlgPOIcon;
@ -267,11 +267,11 @@ begin
ClearIconButton.Caption := dlgPOClearIcon;
LoadIconButton.LoadGlyphFromStock(idButtonOpen);
if LoadIconButton.Glyph.Empty then
LoadIconButton.LoadGlyphFromResourceName(HInstance, 'laz_open');
TIDEImages.AssignImage(LoadIconButton.Glyph, 'laz_open');
SaveIconButton.LoadGlyphFromStock(idButtonSave);
if SaveIconButton.Glyph.Empty then
SaveIconButton.LoadGlyphFromResourceName(HInstance, 'laz_save');
ClearIconButton.LoadGlyphFromResourceName(HInstance, 'menu_clean');
TIDEImages.AssignImage(SaveIconButton.Glyph, 'laz_save');
TIDEImages.AssignImage(ClearIconButton.Glyph, 'menu_clean');
IconImage.KeepOriginXWhenClipped := True;
IconImage.KeepOriginYWhenClipped := True;
IconImagePictureChanged(nil);

10
ide/frames/project_forms_options.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls, Buttons, IDEOptionsIntf, PackageDefs, ProjectIntf, Project,
LazarusIDEStrConsts, CodeToolManager;
LazarusIDEStrConsts, IDEImagesIntf, CodeToolManager;
type
@ -186,10 +186,10 @@ begin
FormsAvailFormsLabel.Caption := dlgAvailableForms;
FormsAvailFormsListBox.Hint := dlgAvailableFormsHint;
FormsAutoCreateNewFormsCheckBox.Caption := dlgAutoCreateNewForms;
FormsMoveAutoCreatedFormUpBtn.LoadGlyphFromResourceName(HInstance, 'arrow_up');
FormsMoveAutoCreatedFormsDownBtn.LoadGlyphFromResourceName(HInstance, 'arrow_down');
FormsAddToAutoCreatedFormsBtn.LoadGlyphFromResourceName(HInstance, 'arrow_left');
FormsRemoveFromAutoCreatedFormsBtn.LoadGlyphFromResourceName(HInstance, 'arrow_right');
TIDEImages.AssignImage(FormsMoveAutoCreatedFormUpBtn.Glyph, 'arrow_up');
TIDEImages.AssignImage(FormsMoveAutoCreatedFormsDownBtn.Glyph, 'arrow_down');
TIDEImages.AssignImage(FormsAddToAutoCreatedFormsBtn.Glyph, 'arrow_left');
TIDEImages.AssignImage(FormsRemoveFromAutoCreatedFormsBtn.Glyph, 'arrow_right');
end;
procedure TProjectFormsOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);

4
ide/frames/project_i18n_options.pas
View File

@ -6,7 +6,7 @@ interface
uses
StdCtrls, EditBtn, ExtCtrls, LazFileUtils, Project, IDEOptionsIntf,
LazarusIDEStrConsts, IDEDialogs, Classes, Graphics;
LazarusIDEStrConsts, IDEDialogs, IDEImagesIntf, Classes, Graphics;
type
@ -126,7 +126,7 @@ begin
ExcludedIdentifiersLabel.ParentFont := True;
ExcludedOriginalsLabel.ParentFont := True;
ForceUpdatePoFilesCheckBox.ParentFont := True;
POOutDirEdit.Button.LoadGlyphFromResourceName(HInstance, ResBtnSelDir); //DirectoryEdit
TIDEImages.AssignImage(POOutDirEdit.Button.Glyph, ResBtnSelDir); //DirectoryEdit
end;
procedure TProjectI18NOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);

6
ide/frames/project_lazdoc_options.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, EditBtn, Project, IDEOptionsIntf, LazarusIDEStrConsts, IDEProcs,
CodeHelp;
IDEImagesIntf, CodeHelp;
type
@ -53,8 +53,8 @@ begin
SearchPathsGroupBox.Caption:=lisSearchPaths2;
AddPathButton.Caption := lisCodeHelpAddPathButton;
DeletePathButton.Caption := lisCodeHelpDeletePathButton;
DeletePathButton.LoadGlyphFromResourceName(HInstance, 'laz_delete');
AddPathButton.LoadGlyphFromResourceName(HInstance, 'laz_add');
TIDEImages.AssignImage(DeletePathButton.Glyph, 'laz_delete');
TIDEImages.AssignImage(AddPathButton.Glyph, 'laz_add');
PathEdit.Clear;
end;

4
ide/genericchecklist.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
CheckLst, Buttons, StdCtrls;
CheckLst, Buttons, IDEImagesIntf, StdCtrls;
type
@ -54,7 +54,7 @@ begin
fActionBtn.BorderSpacing.Left := 6;
fActionBtn.BorderSpacing.Right := 6;
if aResourceGlyphName <> '' then
fActionBtn.LoadGlyphFromResourceName(HInstance, aResourceGlyphName);
TIDEImages.AssignImage(fActionBtn.Glyph, aResourceGlyphName);
fActionBtn.AutoSize := True;
fActionBtn.Parent := ButtonPanel1;
end;

6
ide/imexportcompileropts.pas
View File

@ -34,7 +34,7 @@ interface
uses
SysUtils, Forms, Controls, Dialogs, StdCtrls, Buttons, ExtCtrls, ButtonPanel,
IDEProcs, FileUtil, LazFileUtils, Laz2_XMLCfg, LCLType, LazarusIDEStrConsts,
IDEOptionsIntf, InputHistory, Project, CompilerOptions;
IDEOptionsIntf, IDEImagesIntf, InputHistory, Project, CompilerOptions;
type
{ TImExportCompOptsDlg }
@ -287,7 +287,7 @@ begin
OKButton.Caption:=lisIECOLoadFromFile;
OKButton.LoadGlyphFromStock(idButtonOpen);
if OKButton.Glyph.Empty then
OKButton.LoadGlyphFromResourceName(HInstance, 'laz_open');
TIDEImages.AssignImage(OKButton.Glyph, 'laz_open');
OKButton.Enabled:=False;
OKButton.OnClick:=@OpenButtonCLICK;
end;
@ -308,7 +308,7 @@ begin
OKButton.Caption:=lisIECOSaveToFile;
OKButton.LoadGlyphFromStock(idButtonSave);
if OKButton.Glyph.Empty then
OKButton.LoadGlyphFromResourceName(HInstance, 'laz_save');
TIDEImages.AssignImage(OKButton.Glyph, 'laz_save');
OKButton.Enabled:=False;
OKButton.OnClick:=@SaveButtonCLICK;
end;

4
ide/initialsetupdlgs.pas
View File

@ -49,7 +49,7 @@ uses
FileUtil, LazUTF8, LazUTF8Classes, LazFileUtils, LazFileCache, LazLogger,
// Other
MacroDefIntf, GDBMIDebugger, DbgIntfDebuggerBase,
TransferMacros, LazarusIDEStrConsts, LazConf, EnvironmentOpts,
TransferMacros, LazarusIDEStrConsts, LazConf, EnvironmentOpts, IDEImagesIntf,
AboutFrm, IDETranslations, BaseBuildManager, InitialSetupProc;
type
@ -489,7 +489,7 @@ begin
ImgIDError := Imagelist1.AddResourceName(HInstance, 'state_error');
ImgIDWarning := Imagelist1.AddResourceName(HInstance, 'state_warning');
StopScanButton.LoadGlyphFromResourceName(HInstance, 'menu_stop');
TIDEImages.AssignImage(StopScanButton.Glyph, 'menu_stop');
UpdateCaptions;

8
ide/msgvieweditor.pas
View File

@ -32,7 +32,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, ComCtrls, LazarusIDEStrConsts;
Buttons, ComCtrls, IDEImagesIntf, LazarusIDEStrConsts;
type
{ TMessageFilterRule }
@ -95,9 +95,9 @@ begin
DeleteSetButton.Caption:=lisDelete;
FilterSetGroupBox.Caption:=lisFilterSets;
AddNewSetButton.LoadGlyphFromResourceName(HInstance, 'laz_add');
DeleteSetButton.LoadGlyphFromResourceName(HInstance, 'laz_delete');
RenameSetButton.LoadGlyphFromResourceName(HInstance, 'laz_edit');
TIDEImages.AssignImage(AddNewSetButton.Glyph, 'laz_add');
TIDEImages.AssignImage(DeleteSetButton.Glyph, 'laz_delete');
TIDEImages.AssignImage(RenameSetButton.Glyph, 'laz_edit');
end;
procedure TMsgViewEditorDlg.DeleteSetButtonClick(Sender: TObject);

14
ide/patheditordlg.pas
View File

@ -452,13 +452,13 @@ begin
OpenDialog1.Filter:=Filt;
SaveDialog1.Filter:=Filt;
MoveUpButton.LoadGlyphFromResourceName(HInstance, 'arrow_up');
MoveDownButton.LoadGlyphFromResourceName(HInstance, 'arrow_down');
ReplaceButton.LoadGlyphFromResourceName(HInstance, 'menu_reportingbug');
AddButton.LoadGlyphFromResourceName(HInstance, 'laz_add');
DeleteButton.LoadGlyphFromResourceName(HInstance, 'laz_delete');
DeleteInvalidPathsButton.LoadGlyphFromResourceName(HInstance, 'menu_clean');
AddTemplateButton.LoadGlyphFromResourceName(HInstance, 'laz_add');
TIDEImages.AssignImage(MoveUpButton.Glyph, 'arrow_up');
TIDEImages.AssignImage(MoveDownButton.Glyph, 'arrow_down');
TIDEImages.AssignImage(ReplaceButton.Glyph, 'menu_reportingbug');
TIDEImages.AssignImage(AddButton.Glyph, 'laz_add');
TIDEImages.AssignImage(DeleteButton.Glyph, 'laz_delete');
TIDEImages.AssignImage(DeleteInvalidPathsButton.Glyph, 'menu_clean');
TIDEImages.AssignImage(AddTemplateButton.Glyph, 'laz_add');
end;
procedure TPathEditorDialog.FormResize(Sender: TObject);

6
ide/projectinspector.pas
View File

@ -1037,13 +1037,13 @@ begin
mnuAddEditorFiles.Caption:=lisProjAddEditorFile;
mnuAddReq.Caption:=lisProjAddNewRequirement;
OpenButton.LoadGlyphFromResourceName(HInstance, 'laz_open');
TIDEImages.AssignImage(OpenButton.Glyph, 'laz_open');
OpenButton.Caption:='';
OpenButton.Hint:=lisOpenFile2;
SortAlphabeticallyButton.Hint:=lisPESortFilesAlphabetically;
SortAlphabeticallyButton.LoadGlyphFromResourceName(HInstance, 'pkg_sortalphabetically');
TIDEImages.AssignImage(SortAlphabeticallyButton.Glyph, 'pkg_sortalphabetically');
DirectoryHierarchyButton.Hint:=lisPEShowDirectoryHierarchy;
DirectoryHierarchyButton.LoadGlyphFromResourceName(HInstance, 'pkg_hierarchical');
TIDEImages.AssignImage(DirectoryHierarchyButton.Glyph, 'pkg_hierarchical');
with ItemsTreeView do begin
FFilesNode:=Items.Add(nil, dlgEnvFiles);

12
ide/projectwizarddlg.pas
View File

@ -29,7 +29,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons,
LazarusIDEStrConsts, EnvironmentOpts, StdCtrls;
LazarusIDEStrConsts, IDEImagesIntf, EnvironmentOpts, StdCtrls;
type
TProjectWizardSelectionType = (
@ -85,11 +85,11 @@ begin
btnConvertProject.caption:=lisPWConvertProject;
gbRecent.Caption:=lisPWOpenRecentProject;
btnCloseIDE.caption:=lisQuitLazarus;
btnNewProject.LoadGlyphFromResourceName(HInstance, 'item_project');
btnOpenProject.LoadGlyphFromResourceName(HInstance, 'menu_project_open');
btnExamples.LoadGlyphFromResourceName(HInstance, 'camera');
btnConvertProject.LoadGlyphFromResourceName(HInstance, 'laz_wand');
btnCloseIDE.LoadGlyphFromResourceName(HInstance, 'menu_exit');
TIDEImages.AssignImage(btnNewProject.Glyph, 'item_project');
TIDEImages.AssignImage(btnOpenProject.Glyph, 'menu_project_open');
TIDEImages.AssignImage(btnExamples.Glyph, 'camera');
TIDEImages.AssignImage(btnConvertProject.Glyph, 'laz_wand');
TIDEImages.AssignImage(btnCloseIDE.Glyph, 'menu_exit');
cbRecentProjects.Items.AddStrings(EnvironmentOptions.RecentProjectFiles);
end;

4
ide/publishprojectdlg.pas
View File

@ -39,7 +39,7 @@ interface
uses
Classes, SysUtils, LazFileUtils, Forms, Controls, Graphics, Buttons,
StdCtrls, Dialogs, LCLType,
IDEWindowIntf, IDEHelpIntf, IDEDialogs,
IDEWindowIntf, IDEHelpIntf, IDEDialogs, IDEImagesIntf,
ProjectDefs, PackageDefs, PublishModule, IDEOptionDefs, InputHistory,
LazarusIDEStrConsts, IDEProcs, ExtCtrls, ButtonPanel;
@ -181,7 +181,7 @@ begin
ButtonPanel1.CloseButton.Kind := bkCustom;
ButtonPanel1.CloseButton.LoadGlyphFromStock(idButtonSave);
if ButtonPanel1.CloseButton.Glyph.Empty then
ButtonPanel1.CloseButton.LoadGlyphFromResourceName(HInstance, 'laz_save');
TIDEImages.AssignImage(ButtonPanel1.CloseButton.Glyph, 'laz_save');
ButtonPanel1.CloseButton.OnClick := @SaveSettingsButtonCLICK;
ButtonPanel1.HelpButton.OnClick := @HelpButtonClick;

8
ide/runparamsopts.pas
View File

@ -51,7 +51,7 @@ uses
// LCL
Controls, Forms, Buttons, StdCtrls, ComCtrls, Dialogs, ButtonPanel,
// IdeIntf
BaseIDEIntf, IDEHelpIntf, ProjectIntf, IDEDialogs,
BaseIDEIntf, IDEHelpIntf, ProjectIntf, IDEDialogs, IDEImagesIntf,
// LazUtils
LazFileUtils, LazFileCache, LazUTF8, Laz2_XMLCfg,
// IDE
@ -389,9 +389,9 @@ begin
SetupLocalPage;
SetupEnvironmentPage;
UserOverridesAddButton.LoadGlyphFromResourceName(HInstance, 'laz_add');
UserOverridesEditButton.LoadGlyphFromResourceName(HInstance, 'laz_edit');
UserOverridesDeleteButton.LoadGlyphFromResourceName(HInstance, 'laz_delete');
TIDEImages.AssignImage(UserOverridesAddButton.Glyph, 'laz_add');
TIDEImages.AssignImage(UserOverridesEditButton.Glyph, 'laz_edit');
TIDEImages.AssignImage(UserOverridesDeleteButton.Glyph, 'laz_delete');
end;
procedure TRunParamsOptsDlg.SetupLocalPage;

10
ide/toolbarconfig.pas
View File

@ -187,11 +187,11 @@ begin
pnlButtons.Color := clBtnFace;
lblSelect.Caption := '';
// load button images
btnAdd.LoadGlyphFromResourceName(HInstance, 'arrow_right');
btnRemove.LoadGlyphFromResourceName(HInstance, 'arrow_left');
btnMoveUp.LoadGlyphFromResourceName(HInstance, 'arrow_up');
btnMoveDown.LoadGlyphFromResourceName(HInstance, 'arrow_down');
btnAddDivider.LoadGlyphFromResourceName(HINSTANCE, 'menu_divider16');
TIDEImages.AssignImage(btnAdd.Glyph, 'arrow_right');
TIDEImages.AssignImage(btnRemove.Glyph, 'arrow_left');
TIDEImages.AssignImage(btnMoveUp.Glyph, 'arrow_up');
TIDEImages.AssignImage(btnMoveDown.Glyph, 'arrow_down');
TIDEImages.AssignImage(btnAddDivider.Glyph, 'menu_divider16');
btnAddDivider.Caption:='---';

12
ide/unitdependencies.pas
View File

@ -1777,23 +1777,23 @@ begin
AllUnitsGroupBox.Caption:=lisUDAllUnits;
AllUnitsShowDirsSpeedButton.Hint:=lisUDShowNodesForDirectories;
AllUnitsShowDirsSpeedButton.LoadGlyphFromResourceName(HInstance, 'pkg_hierarchical');
TIDEImages.AssignImage(AllUnitsShowDirsSpeedButton.Glyph, 'pkg_hierarchical');
AllUnitsShowDirsSpeedButton.Down:=true;
AllUnitsShowGroupNodesSpeedButton.Hint:=lisUDShowNodesForProjectAndPackages;
AllUnitsShowGroupNodesSpeedButton.LoadGlyphFromResourceName(HInstance, 'pkg_hierarchical');
TIDEImages.AssignImage(AllUnitsShowGroupNodesSpeedButton.Glyph, 'pkg_hierarchical');
AllUnitsShowGroupNodesSpeedButton.Down:=true;
AllUnitsSearchNextSpeedButton.Hint:=lisUDSearchNextOccurrenceOfThisPhrase;
AllUnitsSearchNextSpeedButton.LoadGlyphFromResourceName(HInstance, 'arrow_down');
TIDEImages.AssignImage(AllUnitsSearchNextSpeedButton.Glyph, 'arrow_down');
AllUnitsSearchPrevSpeedButton.Hint:=lisUDSearchPreviousOccurrenceOfThisPhrase;
AllUnitsSearchPrevSpeedButton.LoadGlyphFromResourceName(HInstance, 'arrow_up');
TIDEImages.AssignImage(AllUnitsSearchPrevSpeedButton.Glyph, 'arrow_up');
// selected units
SelectedUnitsGroupBox.Caption:=lisUDSelectedUnits;
SelUnitsSearchNextSpeedButton.Hint:=lisUDSearchNextUnitOfThisPhrase;
SelUnitsSearchNextSpeedButton.LoadGlyphFromResourceName(HInstance, 'arrow_down');
TIDEImages.AssignImage(SelUnitsSearchNextSpeedButton.Glyph, 'arrow_down');
SelUnitsSearchPrevSpeedButton.Hint:=lisUDSearchPreviousUnitOfThisPhrase;
SelUnitsSearchPrevSpeedButton.LoadGlyphFromResourceName(HInstance, 'arrow_up');
TIDEImages.AssignImage(SelUnitsSearchPrevSpeedButton.Glyph, 'arrow_up');
// popup menu
UnitsTVCopyFilenameMenuItem.Caption:=uemCopyFilename;

2
ide/viewunit_dlg.pp
View File

@ -322,7 +322,7 @@ begin
ButtonPanel.HelpButton.Caption:=lisMenuHelp;
ButtonPanel.CancelButton.Caption:=lisCancel;
SortAlphabeticallySpeedButton.Hint:=lisPESortFilesAlphabetically;
SortAlphabeticallySpeedButton.LoadGlyphFromResourceName(HInstance, 'pkg_sortalphabetically');
TIDEImages.AssignImage(SortAlphabeticallySpeedButton.Glyph, 'pkg_sortalphabetically');
end;
procedure TViewUnitDialog.FormDestroy(Sender: TObject);

7
packager/addtopackagedlg.pas
View File

@ -37,7 +37,8 @@ uses
// LazUtils
FileUtil, LazFileUtils,
// IDEIntf
NewItemIntf, PackageIntf, FormEditingIntf, IDEWindowIntf, ComponentReg, IDEDialogs,
NewItemIntf, PackageIntf, FormEditingIntf, IDEWindowIntf, ComponentReg,
IDEDialogs, IDEImagesIntf,
// IDE
LazarusIDEStrConsts, InputHistory, IDEDefs, EnvironmentOpts,
PackageSystem, PackageDefs, AddDirToPkgDlg, ProjPackChecks;
@ -717,7 +718,7 @@ begin
with FilesDirButton do begin
Caption:=lisAddFilesInDirectory;
LoadGlyphFromResourceName(HInstance, 'pkg_files');
TIDEImages.AssignImage(Glyph, 'pkg_files');
end;
with FilesShortenButton do begin
@ -730,7 +731,7 @@ begin
Caption:=lisDelete;
ShowHint:=true;
Hint:=lisDeleteSelectedFiles;
LoadGlyphFromResourceName(HInstance, 'laz_delete');
TIDEImages.AssignImage(Glyph, 'laz_delete');
end;
LabelIconInfo.Caption:=lisNoneClickToChooseOne;

5
packager/frames/package_i18n_options.pas
View File

@ -6,7 +6,8 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, StdCtrls, EditBtn,
IDEOptionsIntf, LazarusIDEStrConsts, PackageDefs, IDEDialogs;
IDEOptionsIntf, LazarusIDEStrConsts, PackageDefs, IDEDialogs,
IDEImagesIntf;
type
@ -75,7 +76,7 @@ begin
POOutDirEdit.Text := FLazPackage.POOutputDirectory;
PoForFormsCheckBox.Checked:=FLazPackage.EnableI18NForLFM;
POOutDirEdit.Button.LoadGlyphFromResourceName(HInstance, ResBtnSelDir); //DirectoryEdit
TIDEImages.AssignImage(POOutDirEdit.Button.Glyph, ResBtnSelDir); //DirectoryEdit
end;
procedure TPackageI18NOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);

4
packager/installpkgsetdlg.pas
View File

@ -218,10 +218,10 @@ begin
ExportButton.Caption:=lisExportList;
ImportButton.Caption:=lisImportList;
UninstallButton.Caption:=lisUninstallSelection;
UninstallButton.LoadGlyphFromResourceName(HInstance, 'arrow_right');
TIDEImages.AssignImage(UninstallButton.Glyph, 'arrow_right');
InstallPkgGroupBox.Caption:=lisPckEditInstall;
AddToInstallButton.Caption:=lisInstallSelection;
AddToInstallButton.LoadGlyphFromResourceName(HInstance, 'arrow_left');
TIDEImages.AssignImage(AddToInstallButton.Glyph, 'arrow_left');
PkgInfoGroupBox.Caption := lisPackageInfo;
SaveAndRebuildButton.Caption:=lisSaveAndRebuildIDE;
SaveAndExitButton.Caption:=lisSaveAndExitDialog;

10
packager/packageeditor.pas
View File

@ -1943,16 +1943,16 @@ begin
mnuAddNewReqr.Caption := lisProjAddNewRequirement;
// Buttons on FilterPanel
OpenButton.LoadGlyphFromResourceName(HInstance, 'laz_open');
TIDEImages.AssignImage(OpenButton.Glyph, 'laz_open');
OpenButton.Hint:=lisOpenFile2;
SortAlphabeticallyButton.Hint:=lisPESortFilesAlphabetically;
SortAlphabeticallyButton.LoadGlyphFromResourceName(HInstance, 'pkg_sortalphabetically');
TIDEImages.AssignImage(SortAlphabeticallyButton.Glyph, 'pkg_sortalphabetically');
DirectoryHierarchyButton.Hint:=lisPEShowDirectoryHierarchy;
DirectoryHierarchyButton.LoadGlyphFromResourceName(HInstance, 'pkg_hierarchical');
TIDEImages.AssignImage(DirectoryHierarchyButton.Glyph, 'pkg_hierarchical');
// Up / Down buttons
MoveUpBtn.LoadGlyphFromResourceName(HInstance, 'arrow_up');
MoveDownBtn.LoadGlyphFromResourceName(HInstance, 'arrow_down');
TIDEImages.AssignImage(MoveUpBtn.Glyph, 'arrow_up');
TIDEImages.AssignImage(MoveDownBtn.Glyph, 'arrow_down');
MoveUpBtn.Hint:=lisMoveSelectedUp;
MoveDownBtn.Hint:=lisMoveSelectedDown;