paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 17:19:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

EditorToolbar: improved multi-window handling

Browse Source 
git-svn-id: trunk@24199 -
This commit is contained in:
martin 2010-03-24 20:49:05 +00:00
parent db4381d4fc
commit f2a9f2c01f
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/editortoolbar/editortoolbar_impl.pas
View File

@ -59,7 +59,6 @@ type
protected protected
procedure AddButton(AMenuItem: TIDEMenuItem); procedure AddButton(AMenuItem: TIDEMenuItem);
procedure PositionAtEnd(AToolbar: TToolbar; AButton: TToolButton); procedure PositionAtEnd(AToolbar: TToolbar; AButton: TToolButton);
procedure SourceWindowCreated(Sender: TObject);
procedure Reload; procedure Reload;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -242,18 +241,13 @@ begin
AButton.Parent := AToolbar; AButton.Parent := AToolbar;
end; end;
procedure TEditorToolbar.SourceWindowCreated(Sender: TObject); procedure TEditorToolbar.Reload;
begin begin
ClearToolbar; ClearToolbar;
AddStaticItems; AddStaticItems;
AddCustomItems; AddCustomItems;
end; end;
procedure TEditorToolbar.Reload;
begin
end;
procedure TEditorToolbar.AddCustomItems; procedure TEditorToolbar.AddCustomItems;
var var
i: integer; i: integer;