UPD: Use a new toolbar control

(cherry picked from commit b7b47b21c1)
This commit is contained in:
Alexander Koblov 2025-04-05 15:02:41 +03:00
commit caee75995c
4 changed files with 6 additions and 6 deletions

View file

@ -17,7 +17,7 @@ object frmDiffer: TfrmDiffer
ShowHint = True
ShowInTaskBar = stAlways
LCLVersion = '2.2.0.4'
object ToolBar: TToolBar
object ToolBar: TToolBarAdv
Left = 0
Height = 22
Top = 0

View file

@ -28,7 +28,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Dialogs, Menus, ComCtrls,
ActnList, ExtCtrls, EditBtn, Buttons, SynEdit, uSynDiffControls, LMessages,
uPariterControls, uDiffOND, uFormCommands, uHotkeyManager, uOSForms,
KASComCtrls, uPariterControls, uDiffOND, uFormCommands, uHotkeyManager, uOSForms,
uBinaryDiffViewer, uShowForm, KASStatusBar, Graphics, StdCtrls, fEditSearch;
type
@ -159,7 +159,7 @@ type
Splitter: TSplitter;
StatusBar: TStatusBar;
tmProgress: TTimer;
ToolBar: TToolBar;
ToolBar: TToolBarAdv;
btnSave: TToolButton;
btnSaveAs: TToolButton;
Divider1: TToolButton;

View file

@ -660,7 +660,7 @@ object frmEditor: TfrmEditor
end
end
end
object tbToolBar: TToolBar
object tbToolBar: TToolBarAdv
Left = 0
Height = 26
Top = 0

View file

@ -37,7 +37,7 @@ interface
uses
SysUtils, Classes, Controls, Forms, ActnList, Menus, SynEdit, StdCtrls, LMessages,
ComCtrls, SynEditSearch, SynEditHighlighter, uDebug, uOSForms, uShowForm, types, Graphics,
uFormCommands, uHotkeyManager, LCLVersion, SynPluginMultiCaret, fEditSearch;
KASComCtrls, uFormCommands, uHotkeyManager, LCLVersion, SynPluginMultiCaret, fEditSearch;
const
HotkeysCategory = 'Editor';
@ -120,7 +120,7 @@ type
actConfHigh: TAction;
miDiv: TMenuItem;
miConfHigh: TMenuItem;
tbToolBar: TToolBar;
tbToolBar: TToolBarAdv;
tbNew: TToolButton;
tbOpen: TToolButton;
tbSave: TToolButton;