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

EditorToolbar: Cleanup by G. Colla.

Browse Source 
git-svn-id: trunk@46417 -
This commit is contained in:
juha 2014-10-03 20:08:35 +00:00
parent 101f210424
commit e873d7c3ec
2 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/editortoolbar/edttbconfigfrm.pas
View File

@ -408,14 +408,11 @@ begin
end; end;
procedure TEdtTbConfigForm.miAllClick(Sender: TObject); procedure TEdtTbConfigForm.miAllClick(Sender: TObject);
var
aMask: Integer;
begin begin
if lvToolbar.ItemIndex = -1 then begin if lvToolbar.ItemIndex = -1 then begin
puMenuItems.Close; puMenuItems.Close;
Exit Exit
end; end;
aMask:= StrToInt(lvToolbar.Selected.SubItems[0]);
if miAll.Checked then begin if miAll.Checked then begin
lvToolbar.Selected.SubItems[0] := IntToStr(iAll); lvToolbar.Selected.SubItems[0] := IntToStr(iAll);
miDesign.Checked := False; miDesign.Checked := False;

8
components/editortoolbar/jumpto_impl.pas
View File

@ -53,18 +53,12 @@ type
implementation implementation
uses uses
CodeAtom SrcEditorIntf
,SrcEditorIntf
,LazIDEIntf ,LazIDEIntf
,Controls ,Controls
,CodeCache ,CodeCache
,CustomCodeTool
,Dialogs ,Dialogs
,SysUtils ,SysUtils
,LResources
,Forms
,ComCtrls
,Menus
,editortoolbar_str ,editortoolbar_str
; ;