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

* Improved localization names by Maxim Ganetsky

Browse Source 
git-svn-id: trunk@20910 -
This commit is contained in:
marc 2009-07-20 22:40:39 +00:00
parent 6f6f893f6c
commit 6f93eef016
1 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
ide/mouseactiondialog.pas
View File

@ -8,18 +8,10 @@ uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls, ButtonPanel, Spin, SynEditMouseCmds, LazarusIDEStrConsts, KeyMapping, IDECommands;
const
ButtonName: Array [TMouseButton] of String = (
{ mbLeft } dlgMouseOptBtnLeft,
{ mbRight } dlgMouseOptBtnRight,
{ mbMiddle } dlgMouseOptBtnMiddle,
{ mbExtra1 } dlgMouseOptBtnExtra1,
{ mbExtra2 } dlgMouseOptBtnExtra2
);
ClickName: Array [TSynMAClickCount] of String =
(dlgMouseOptBtn1, dlgMouseOptBtn2, dlgMouseOptBtn3, dlgMouseOptBtn4, dlgMouseOptBtnAny);
ButtonDirName: Array [TSynMAClickDir] of String =
(dlgMouseOptBtnUp, dlgMouseOptBtnDown);
var
ButtonName: Array [TMouseButton] of String;
ClickName: Array [TSynMAClickCount] of String;
ButtonDirName: Array [TSynMAClickDir] of String;
type
@ -87,6 +79,21 @@ var
mb: TMouseButton;
cc: TSynMAClickCount;
begin
ButtonName[mbLeft]:=dlgMouseOptBtnLeft;
ButtonName[mbRight]:=dlgMouseOptBtnRight;
ButtonName[mbMiddle]:=dlgMouseOptBtnMiddle;
ButtonName[mbExtra1]:=dlgMouseOptBtnExtra1;
ButtonName[mbExtra2]:=dlgMouseOptBtnExtra2;
ClickName[ccSingle]:=dlgMouseOptBtn1;
ClickName[ccDouble]:=dlgMouseOptBtn2;
ClickName[ccTriple]:=dlgMouseOptBtn3;
ClickName[ccQuad]:=dlgMouseOptBtn4;
ClickName[ccAny]:=dlgMouseOptBtnAny;
ButtonDirName[cdUp]:=dlgMouseOptBtnUp;
ButtonDirName[cdDown]:=dlgMouseOptBtnDown;
Caption := dlgMouseOptDlgTitle;
CapturePanel.Caption := dlgMouseOptCapture;
CapturePanel.ControlStyle := ControlStyle + [csTripleClicks, csQuadClicks];