EditorOptions/Mouse: Cleanup / Renamed unit

git-svn-id: trunk@20385 -

.gitattributes

@@ -2885,9 +2885,6 @@ ide/frames/editor_keymapping_options.pas svneol=native#text/pascal
 ide/frames/editor_mouseaction_options.lfm svneol=native#text/plain
 ide/frames/editor_mouseaction_options.lrs svneol=native#text/plain
 ide/frames/editor_mouseaction_options.pas svneol=native#text/pascal
-ide/frames/editor_mouseaction_options_dlg.lfm svneol=native#text/plain
-ide/frames/editor_mouseaction_options_dlg.lrs svneol=native#text/plain
-ide/frames/editor_mouseaction_options_dlg.pas svneol=native#text/pascal
 ide/frames/files_options.lfm svneol=native#text/plain
 ide/frames/files_options.lrs svneol=native#text/pascal
 ide/frames/files_options.pas svneol=native#text/pascal
@@ -2984,6 +2981,9 @@ ide/makeresstrdlg.lfm svneol=native#text/plain
 ide/makeresstrdlg.lrs svneol=native#text/plain
 ide/makeresstrdlg.pas svneol=native#text/pascal
 ide/miscoptions.pas svneol=native#text/pascal
+ide/mouseactiondialog.lfm svneol=native#text/plain
+ide/mouseactiondialog.lrs svneol=native#text/plain
+ide/mouseactiondialog.pas svneol=native#text/pascal
 ide/msgquickfixes.pas svneol=native#text/plain
 ide/msgview.lfm svneol=native#text/plain
 ide/msgview.lrs svneol=native#text/plain

ide/frames/editor_mouseaction_options.lfm

@@ -5,8 +5,8 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
   ClientHeight = 415
   ClientWidth = 610
   Visible = False
-  DesignLeft = 276
+  DesignLeft = 246
-  DesignTop = 195
+  DesignTop = 209
   object p2: TPanel[0]
     Left = 0
     Height = 378
@@ -46,7 +46,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       Width = 130
       Align = alLeft
       AutoExpand = True
-      Constraints.MinWidth = 25
+      Constraints.MinWidth = 80
       DefaultItemHeight = 17
       ReadOnly = True
       TabOrder = 1
@@ -58,7 +58,8 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
       Height = 378
       Top = 0
       Width = 5
-      MinSize = 100
+      MinSize = 1
+      OnCanResize = Splitter1CanResize
     end
   end
   object p3: TPanel[1]

ide/frames/editor_mouseaction_options.lrs

@@ -3,7 +3,7 @@
 LazarusResources.Add('TEditorMouseOptionsFrame','FORMDATA',[
   'TPF0'#241#24'TEditorMouseOptionsFrame'#23'EditorMouseOptionsFrame'#6'Height'
   +#3#159#1#5'Width'#3'b'#2#7'Anchors'#11#5'akTop'#0#12'ClientHeight'#3#159#1#11
-  +'ClientWidth'#3'b'#2#7'Visible'#8#10'DesignLeft'#3#20#1#9'DesignTop'#3#195#0
+  +'ClientWidth'#3'b'#2#7'Visible'#8#10'DesignLeft'#3#246#0#9'DesignTop'#3#209#0
   +#0#242#2#0#6'TPanel'#2'p2'#4'Left'#2#0#6'Height'#3'z'#1#3'Top'#2#0#5'Width'#3
   +'b'#2#5'Align'#7#8'alClient'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3'z'
   +#1#11'ClientWidth'#3'b'#2#8'TabOrder'#2#0#0#11'TStringGrid'#10'ActionGrid'#24
@@ -17,28 +17,29 @@ LazarusResources.Add('TEditorMouseOptionsFrame','FORMDATA',[
   +'useDown'#11'OnMouseMove'#7#19'ActionGridMouseMove'#9'OnMouseUp'#7#17'Action'
   +'GridMouseUp'#8'OnResize'#7#16'ActionGridResize'#0#0#9'TTreeView'#11'Context'
   +'Tree'#4'Left'#2#0#6'Height'#3'z'#1#3'Top'#2#0#5'Width'#3#130#0#5'Align'#7#6
-  +'alLeft'#10'AutoExpand'#9#20'Constraints.MinWidth'#2#25#17'DefaultItemHeight'
+  +'alLeft'#10'AutoExpand'#9#20'Constraints.MinWidth'#2'P'#17'DefaultItemHeight'
   +#2#17#8'ReadOnly'#9#8'TabOrder'#2#1#8'OnChange'#7#17'ContextTreeChange'#7'Op'
   +'tions'#11#13'tvoAutoExpand'#17'tvoAutoItemHeight'#16'tvoHideSelection'#21't'
   +'voKeepCollapsedNodes'#11'tvoReadOnly'#14'tvoShowButtons'#12'tvoShowLines'#11
   +'tvoShowRoot'#11'tvoToolTips'#0#0#0#9'TSplitter'#9'Splitter1'#4'Left'#3#130#0
-  +#6'Height'#3'z'#1#3'Top'#2#0#5'Width'#2#5#7'MinSize'#2'd'#0#0#0#242#2#1#6'TP'
+  +#6'Height'#3'z'#1#3'Top'#2#0#5'Width'#2#5#7'MinSize'#2#1#11'OnCanResize'#7#18
-  +'anel'#2'p3'#23'AnchorSideRight.Control'#7#2'p2'#20'AnchorSideRight.Side'#7#9
+  +'Splitter1CanResize'#0#0#0#242#2#1#6'TPanel'#2'p3'#23'AnchorSideRight.Contro'
-  +'asrBottom'#24'AnchorSideBottom.Control'#7#2'p2'#21'AnchorSideBottom.Side'#7
+  +'l'#7#2'p2'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Cont'
-  +#9'asrBottom'#4'Left'#2#0#6'Height'#2'%'#3'Top'#3'z'#1#5'Width'#3'b'#2#5'Ali'
+  +'rol'#7#2'p2'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'
-  +'gn'#7#8'alBottom'#8'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'
+  +#2'%'#3'Top'#3'z'#1#5'Width'#3'b'#2#5'Align'#7#8'alBottom'#8'AutoSize'#9#10
-  +#2'%'#11'ClientWidth'#3'b'#2#8'TabOrder'#2#1#0#7'TButton'#9'DelButton'#22'An'
+  +'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'%'#11'ClientWidth'#3'b'#2#8'TabO'
-  +'chorSideLeft.Control'#7#2'p3'#21'AnchorSideTop.Control'#7#2'p3'#4'Left'#2#0
+  +'rder'#2#1#0#7'TButton'#9'DelButton'#22'AnchorSideLeft.Control'#7#2'p3'#21'A'
-  +#6'Height'#2#25#3'Top'#2#6#5'Width'#2'O'#8'AutoSize'#9#17'BorderSpacing.Top'
+  +'nchorSideTop.Control'#7#2'p3'#4'Left'#2#0#6'Height'#2#25#3'Top'#2#6#5'Width'
-  +#2#6#7'Caption'#6#9'DelButton'#7'OnClick'#7#14'DelButtonClick'#8'TabOrder'#2
+  +#2'O'#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#7'Caption'#6#9'DelButton'#7'On'
-  +#2#0#0#7'TButton'#12'AddNewButton'#21'AnchorSideTop.Control'#7#12'UpdateButt'
+  +'Click'#7#14'DelButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'#12'AddNewButton'
-  +'on'#23'AnchorSideRight.Control'#7#2'p3'#20'AnchorSideRight.Side'#7#9'asrBot'
+  +#21'AnchorSideTop.Control'#7#12'UpdateButton'#23'AnchorSideRight.Control'#7#2
-  +'tom'#4'Left'#3#246#1#6'Height'#2#25#3'Top'#2#6#5'Width'#2'l'#7'Anchors'#11#5
+  +'p3'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#246#1#6'Height'#2#25#3
-  +'akTop'#7'akRight'#0#8'AutoSize'#9#7'Caption'#6#12'AddNewButton'#7'OnClick'#7
+  +'Top'#2#6#5'Width'#2'l'#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#7
-  +#17'AddNewButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'#12'UpdateButton'#21'An'
+  +'Caption'#6#12'AddNewButton'#7'OnClick'#7#17'AddNewButtonClick'#8'TabOrder'#2
-  +'chorSideTop.Control'#7#2'p3'#23'AnchorSideRight.Control'#7#12'AddNewButton'
+  +#0#0#0#7'TButton'#12'UpdateButton'#21'AnchorSideTop.Control'#7#2'p3'#23'Anch'
-  +#4'Left'#3#140#1#6'Height'#2#25#3'Top'#2#6#5'Width'#2'd'#7'Anchors'#11#5'akT'
+  +'orSideRight.Control'#7#12'AddNewButton'#4'Left'#3#140#1#6'Height'#2#25#3'To'
-  +'op'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#19'BorderSpacing.R'
+  +'p'#2#6#5'Width'#2'd'#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#17'B'
-  +'ight'#2#6#20'BorderSpacing.Bottom'#2#6#7'Caption'#6#12'UpdateButton'#7'OnCl'
+  +'orderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2
-  +'ick'#7#17'UpdateButtonClick'#8'TabOrder'#2#1#0#0#0#0
+  +#6#7'Caption'#6#12'UpdateButton'#7'OnClick'#7#17'UpdateButtonClick'#8'TabOrd'
+  +'er'#2#1#0#0#0#0
 ]);

ide/frames/editor_mouseaction_options.pas

@@ -27,7 +27,7 @@ interface
 uses
   LResources, EditorOptions, LazarusIDEStrConsts, IDEOptionsIntf, sysutils,
   StdCtrls, ExtCtrls, Classes, Controls, LCLProc, Grids, ComCtrls, Dialogs,
-  SynEditMouseCmds, editor_mouseaction_options_dlg, math;
+  SynEditMouseCmds, MouseActionDialog, math;
 
 type
 
@@ -49,6 +49,7 @@ type
       Y: Integer);
     procedure ContextTreeChange(Sender: TObject; Node: TTreeNode);
     procedure AddNewButtonClick(Sender: TObject);
+    procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean);
     procedure UpdateButtonClick(Sender: TObject);
     procedure DelButtonClick(Sender: TObject);
     procedure ActionGridHeaderSized(Sender: TObject; IsColumn: Boolean; Index: Integer);
@@ -58,7 +59,7 @@ type
     FCurNode: TTreeNode;
     FMainActions, FSelActions: TSynEditMouseActions;
     FCurActions: TSynEditMouseActions;
-    ChangeDlg: TEditorMouseOptionsChangeDialog;
+    ChangeDlg: TMouseaActionDialog;
     FColWidths: Array of Integer;
     FLastWidth: Integer;
     FIsHeaderSizing: Boolean;
@@ -136,6 +137,12 @@ begin
   end;
 end;
 
+procedure TEditorMouseOptionsFrame.Splitter1CanResize(Sender: TObject; var NewSize: Integer;
+  var Accept: Boolean);
+begin
+
+end;
+
 procedure TEditorMouseOptionsFrame.UpdateButtonClick(Sender: TObject);
 var
   MAct, MOld: TSynEditMouseAction;
@@ -232,7 +239,7 @@ begin
   inherited Create(AOwner);
   FMainActions := TSynEditMouseActions.Create(nil);
   FSelActions := TSynEditMouseActions.Create(nil);
-  ChangeDlg := TEditorMouseOptionsChangeDialog.Create(self);
+  ChangeDlg := TMouseaActionDialog.Create(self);
   ActionGrid.Constraints.MinWidth := ActionGrid.ColCount * MinGridColSize;
 end;
 

ide/lazarusidestrconsts.pas

@@ -1202,6 +1202,8 @@ resourcestring
   dlgMouseOptCaretMove = 'Move Caret (extra)';
   dlgMouseOptErrorDup = 'Duplicate Entry';
   dlgMouseOptErrorDupText = 'This entry conflicts with an existing entry';
+  dlgMouseOptDescAction = 'Action';
+  dlgMouseOptDescButton = 'Click';
   dlgUseDividerDraw = 'Divider drawing';
   dlgCopyWordAtCursorOnCopyNone = 'Copy word on copy none';
   dlgHomeKeyJumpsToNearestStart = 'Home key jumps to nearest start';

ide/mouseactiondialog.lfm

@@ -1,7 +1,7 @@
 object EditorMouseOptionsChangeDialog: TEditorMouseOptionsChangeDialog
-  Left = 647
+  Left = 283
   Height = 185
-  Top = 463
+  Top = 237
   Width = 362
   AutoSize = True
   BorderIcons = [biSystemMenu]

ide/mouseactiondialog.lrs

@@ -2,7 +2,7 @@
 
 LazarusResources.Add('TEditorMouseOptionsChangeDialog','FORMDATA',[
   'TPF0'#31'TEditorMouseOptionsChangeDialog'#30'EditorMouseOptionsChangeDialog'
-  +#4'Left'#3#135#2#6'Height'#3#185#0#3'Top'#3#207#1#5'Width'#3'j'#1#8'AutoSize'
+  +#4'Left'#3#27#1#6'Height'#3#185#0#3'Top'#3#237#0#5'Width'#3'j'#1#8'AutoSize'
   +#9#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Cap'
   +'tion'#6#30'EditorMouseOptionsChangeDialog'#12'ClientHeight'#3#185#0#11'Clie'
   +'ntWidth'#3'j'#1#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCente'

ide/mouseactiondialog.pas

@@ -1,4 +1,4 @@
-unit editor_mouseaction_options_dlg;
+unit MouseActionDialog;
 
 {$mode objfpc}{$H+}
 
@@ -20,7 +20,7 @@ type
 
   { TEditorMouseOptionsChangeDialog }
 
-  TEditorMouseOptionsChangeDialog = class(TForm)
+  TMouseaActionDialog = class(TForm)
     ActionBox: TComboBox;
     ActionLabel: TLabel;
     AltCheck: TCheckBox;
@@ -53,9 +53,9 @@ const
   IndexToBtn: array [0..2] of TMouseButton = (mbLeft, mbRight, mbMiddle);
   IndexToClick: array [0..3] of TSynMAClickCount = (ccSingle, ccDouble, ccTriple, ccQuad);
 
-{ TEditorMouseOptionsChangeDialog }
+{ TMouseaActionDialog }
 
-procedure TEditorMouseOptionsChangeDialog.FormCreate(Sender: TObject);
+procedure TMouseaActionDialog.FormCreate(Sender: TObject);
 var
   i: Integer;
   CName: String;
@@ -81,9 +81,12 @@ begin
   ShiftCheck.Caption := dlgMouseOptModShift;
   AltCheck.Caption   := dlgMouseOptModAlt;
   CtrlCheck.Caption  := dlgMouseOptModCtrl;
+  ActionLabel.Caption := dlgMouseOptDescAction;
+  BtnLabel.Caption := dlgMouseOptDescButton;
+  BtnDefault.Caption :=  dlgMouseOptBtnModDef
 end;
 
-procedure TEditorMouseOptionsChangeDialog.ResetInputs;
+procedure TMouseaActionDialog.ResetInputs;
 begin
   ActionBox.ItemIndex := 0;
   ButtonBox.ItemIndex := 0;
@@ -94,14 +97,14 @@ begin
   CtrlCheck.State := cbGrayed;
 end;
 
-procedure TEditorMouseOptionsChangeDialog.BtnDefaultClick(Sender: TObject);
+procedure TMouseaActionDialog.BtnDefaultClick(Sender: TObject);
 begin
   ShiftCheck.State := cbGrayed;
   AltCheck.State := cbGrayed;
   CtrlCheck.State := cbGrayed;
 end;
 
-procedure TEditorMouseOptionsChangeDialog.CapturePanelMouseDown(Sender: TObject;
+procedure TMouseaActionDialog.CapturePanelMouseDown(Sender: TObject;
   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin
   ButtonBox.ItemIndex := BtnToIndex[Button];
@@ -114,7 +117,7 @@ begin
   CtrlCheck.Checked  := ssCtrl in Shift ;
 end;
 
-procedure TEditorMouseOptionsChangeDialog.ReadFromAction(MAct: TSynEditMouseAction);
+procedure TMouseaActionDialog.ReadFromAction(MAct: TSynEditMouseAction);
 begin
   ActionBox.ItemIndex := ActionBox.Items.IndexOfObject(TObject(Pointer(PtrUInt(MAct.Command))));
   ButtonBox.ItemIndex := BtnToIndex[MAct.Button];
@@ -129,7 +132,7 @@ begin
   if not(ssCtrl in MAct.ShiftMask) then CtrlCheck.State := cbGrayed;
 end;
 
-procedure TEditorMouseOptionsChangeDialog.WriteToAction(MAct: TSynEditMouseAction);
+procedure TMouseaActionDialog.WriteToAction(MAct: TSynEditMouseAction);
 begin
   MAct.Command := TSynEditorMouseCommand(PtrUInt(Pointer(ActionBox.items.Objects[ActionBox.ItemIndex])));
   MAct.Button := IndexToBtn[ButtonBox.ItemIndex];
@@ -149,7 +152,7 @@ begin
 end;
 
 initialization
-  {$I editor_mouseaction_options_dlg.lrs}
+  {$I mouseactiondialog.lrs}
 
 end.