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

* Patch and fix for 1313 from Tomáš Gregoric

Browse Source 
git-svn-id: trunk@7981 -
This commit is contained in:
marc 2005-10-22 13:09:40 +00:00
parent 3bb8fa7c33
commit 4a42afcb2f
3 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -2269,7 +2269,7 @@ begin
{$ENDIF} {$ENDIF}
end; end;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
if (X < fGutterWidth) then begin if (X < fGutterWidth) and (Button=mbLeft) then begin
Include(fStateFlags, sfPossibleGutterClick); Include(fStateFlags, sfPossibleGutterClick);
DoOnGutterClick(X, Y); DoOnGutterClick(X, Y);
end; end;

1
ide/uniteditor.pp
View File

@ -3331,6 +3331,7 @@ Begin
else else
Pages.Add('unit1'); Pages.Add('unit1');
PageIndex := 0; // Set it to the first page PageIndex := 0; // Set it to the first page
PopupMenu := SrcPopupMenu;
if EditorOpts.ShowTabCloseButtons then if EditorOpts.ShowTabCloseButtons then
Options:=Options+[nboShowCloseButtons] Options:=Options+[nboShowCloseButtons]
else else

1
lcl/extctrls.pp
View File

@ -273,6 +273,7 @@ type
property OnResize; property OnResize;
property Options; property Options;
property PageIndex; property PageIndex;
property PopupMenu;
property ShowTabs; property ShowTabs;
end; end;