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

ide: fix compilation

Browse Source 
git-svn-id: trunk@20537 -
This commit is contained in:
paul 2009-06-09 04:38:28 +00:00
parent 8140fd8755
commit adb0522aff
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -1183,6 +1183,8 @@ resourcestring
dlgMouseOptBtnLeft = 'Left'; dlgMouseOptBtnLeft = 'Left';
dlgMouseOptBtnMiddle = 'Middle'; dlgMouseOptBtnMiddle = 'Middle';
dlgMouseOptBtnRight = 'Right'; dlgMouseOptBtnRight = 'Right';
dlgMouseOptBtnExtra1 = 'Extra 1';
dlgMouseOptBtnExtra2 = 'Extra 2';
dlgMouseOptBtnDown = 'Down'; dlgMouseOptBtnDown = 'Down';
dlgMouseOptBtnUp = 'Up'; dlgMouseOptBtnUp = 'Up';
dlgMouseOptBtn1 = 'Single'; dlgMouseOptBtn1 = 'Single';

9
ide/mouseactiondialog.pas
View File

@ -9,8 +9,13 @@ uses
StdCtrls, ButtonPanel, Spin, SynEditMouseCmds, LazarusIDEStrConsts, KeyMapping, IDECommands; StdCtrls, ButtonPanel, Spin, SynEditMouseCmds, LazarusIDEStrConsts, KeyMapping, IDECommands;
const const
ButtonName: Array [TMouseButton] of String = ButtonName: Array [TMouseButton] of String = (
(dlgMouseOptBtnLeft, dlgMouseOptBtnRight, dlgMouseOptBtnMiddle); { mbLeft } dlgMouseOptBtnLeft,
{ mbRight } dlgMouseOptBtnRight,
{ mbMiddle } dlgMouseOptBtnMiddle,
{ mbExtra1 } dlgMouseOptBtnExtra1,
{ mbExtra2 } dlgMouseOptBtnExtra2
);
ClickName: Array [TSynMAClickCount] of String = ClickName: Array [TSynMAClickCount] of String =
(dlgMouseOptBtn1, dlgMouseOptBtn2, dlgMouseOptBtn3, dlgMouseOptBtn4, dlgMouseOptBtnAny); (dlgMouseOptBtn1, dlgMouseOptBtn2, dlgMouseOptBtn3, dlgMouseOptBtn4, dlgMouseOptBtnAny);
ButtonDirName: Array [TSynMAClickDir] of String = ButtonDirName: Array [TSynMAClickDir] of String =