paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 00:37:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less hints

Browse Source 
git-svn-id: trunk@60753 -
This commit is contained in:
mattias 2019-03-23 19:12:25 +00:00
parent 0c7f82169d
commit 996416c735
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/initialsetupdlgs.pas
View File

@ -1673,6 +1673,7 @@ var
{$ENDIF} {$ENDIF}
begin begin
Result := sddqCompatible; Result := sddqCompatible;
Note:='';
{$IF FPC_FULLVERSION>30100} {$IF FPC_FULLVERSION>30100}
FpcmkcfgExecutable := FindFPCTool('fpcmkcfg'+GetExecutableExt, EnvironmentOptions.GetParsedCompilerFilename); FpcmkcfgExecutable := FindFPCTool('fpcmkcfg'+GetExecutableExt, EnvironmentOptions.GetParsedCompilerFilename);
if FpcmkcfgExecutable = '' then if FpcmkcfgExecutable = '' then

2
ide/mouseactiondialog.pas
View File

@ -49,7 +49,7 @@ type
procedure PaintBox1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; procedure PaintBox1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer;
{%H-}MousePos: TPoint; var {%H-}Handled: Boolean); {%H-}MousePos: TPoint; var {%H-}Handled: Boolean);
procedure PaintBox1MouseWheelHorz(Sender: TObject; Shift: TShiftState; procedure PaintBox1MouseWheelHorz(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); WheelDelta: Integer; {%H-}MousePos: TPoint; var {%H-}Handled: Boolean);
private private
FKeyMap: TKeyCommandRelationList; FKeyMap: TKeyCommandRelationList;
procedure AddMouseCmd(const S: string); procedure AddMouseCmd(const S: string);