paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:39:30 +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;
procedure TEdtTbConfigForm.miAllClick(Sender: TObject);
var
aMask: Integer;
begin
if lvToolbar.ItemIndex = -1 then begin
puMenuItems.Close;
Exit
end;
aMask:= StrToInt(lvToolbar.Selected.SubItems[0]);
if miAll.Checked then begin
lvToolbar.Selected.SubItems[0] := IntToStr(iAll);
miDesign.Checked := False;

8
components/editortoolbar/jumpto_impl.pas
View File

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