EditorOptions/Mouse: Cleanup / Renamed unit

git-svn-id: trunk@20385 -
2025-04-16 04:49:25 +02:00 · 2009-06-03 23:02:17 +00:00 · 2009-06-03 23:02:17 +00:00 · c97984671d
commit c97984671d
parent 2000315a22
8 changed files with 58 additions and 44 deletions
--- a/.gitattributes
+++ b/.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
--- a/ide/frames/editor_mouseaction_options.lfm
+++ b/ide/frames/editor_mouseaction_options.lfm
@ -5,8 +5,8 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
  ClientHeight = 415
  ClientWidth = 610
  Visible = False
-  DesignLeft = 276
-  DesignTop = 195
+  DesignLeft = 246
+  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]
--- a/ide/frames/editor_mouseaction_options.lrs
+++ b/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'
-  +'anel'#2'p3'#23'AnchorSideRight.Control'#7#2'p2'#20'AnchorSideRight.Side'#7#9
-  +'asrBottom'#24'AnchorSideBottom.Control'#7#2'p2'#21'AnchorSideBottom.Side'#7
-  +#9'asrBottom'#4'Left'#2#0#6'Height'#2'%'#3'Top'#3'z'#1#5'Width'#3'b'#2#5'Ali'
-  +'gn'#7#8'alBottom'#8'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'
-  +#2'%'#11'ClientWidth'#3'b'#2#8'TabOrder'#2#1#0#7'TButton'#9'DelButton'#22'An'
-  +'chorSideLeft.Control'#7#2'p3'#21'AnchorSideTop.Control'#7#2'p3'#4'Left'#2#0
-  +#6'Height'#2#25#3'Top'#2#6#5'Width'#2'O'#8'AutoSize'#9#17'BorderSpacing.Top'
-  +#2#6#7'Caption'#6#9'DelButton'#7'OnClick'#7#14'DelButtonClick'#8'TabOrder'#2
-  +#2#0#0#7'TButton'#12'AddNewButton'#21'AnchorSideTop.Control'#7#12'UpdateButt'
-  +'on'#23'AnchorSideRight.Control'#7#2'p3'#20'AnchorSideRight.Side'#7#9'asrBot'
-  +'tom'#4'Left'#3#246#1#6'Height'#2#25#3'Top'#2#6#5'Width'#2'l'#7'Anchors'#11#5
-  +'akTop'#7'akRight'#0#8'AutoSize'#9#7'Caption'#6#12'AddNewButton'#7'OnClick'#7
-  +#17'AddNewButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'#12'UpdateButton'#21'An'
-  +'chorSideTop.Control'#7#2'p3'#23'AnchorSideRight.Control'#7#12'AddNewButton'
-  +#4'Left'#3#140#1#6'Height'#2#25#3'Top'#2#6#5'Width'#2'd'#7'Anchors'#11#5'akT'
-  +'op'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#19'BorderSpacing.R'
-  +'ight'#2#6#20'BorderSpacing.Bottom'#2#6#7'Caption'#6#12'UpdateButton'#7'OnCl'
-  +'ick'#7#17'UpdateButtonClick'#8'TabOrder'#2#1#0#0#0#0
+  +#6'Height'#3'z'#1#3'Top'#2#0#5'Width'#2#5#7'MinSize'#2#1#11'OnCanResize'#7#18
+  +'Splitter1CanResize'#0#0#0#242#2#1#6'TPanel'#2'p3'#23'AnchorSideRight.Contro'
+  +'l'#7#2'p2'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Cont'
+  +'rol'#7#2'p2'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'
+  +#2'%'#3'Top'#3'z'#1#5'Width'#3'b'#2#5'Align'#7#8'alBottom'#8'AutoSize'#9#10
+  +'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'%'#11'ClientWidth'#3'b'#2#8'TabO'
+  +'rder'#2#1#0#7'TButton'#9'DelButton'#22'AnchorSideLeft.Control'#7#2'p3'#21'A'
+  +'nchorSideTop.Control'#7#2'p3'#4'Left'#2#0#6'Height'#2#25#3'Top'#2#6#5'Width'
+  +#2'O'#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#7'Caption'#6#9'DelButton'#7'On'
+  +'Click'#7#14'DelButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'#12'AddNewButton'
+  +#21'AnchorSideTop.Control'#7#12'UpdateButton'#23'AnchorSideRight.Control'#7#2
+  +'p3'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#246#1#6'Height'#2#25#3
+  +'Top'#2#6#5'Width'#2'l'#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#7
+  +'Caption'#6#12'AddNewButton'#7'OnClick'#7#17'AddNewButtonClick'#8'TabOrder'#2
+  +#0#0#0#7'TButton'#12'UpdateButton'#21'AnchorSideTop.Control'#7#2'p3'#23'Anch'
+  +'orSideRight.Control'#7#12'AddNewButton'#4'Left'#3#140#1#6'Height'#2#25#3'To'
+  +'p'#2#6#5'Width'#2'd'#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#17'B'
+  +'orderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2
+  +#6#7'Caption'#6#12'UpdateButton'#7'OnClick'#7#17'UpdateButtonClick'#8'TabOrd'
+  +'er'#2#1#0#0#0#0
 ]);
--- a/ide/frames/editor_mouseaction_options.pas
+++ b/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;

--- a/ide/lazarusidestrconsts.pas
+++ b/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';
--- a/ide/frames/editor_mouseaction_options_dlg.lfm
+++ b/ide/frames/editor_mouseaction_options_dlg.lfm
@ -1,7 +1,7 @@
 object EditorMouseOptionsChangeDialog: TEditorMouseOptionsChangeDialog
-  Left = 647
+  Left = 283
  Height = 185
-  Top = 463
+  Top = 237
  Width = 362
  AutoSize = True
  BorderIcons = [biSystemMenu]
--- a/ide/frames/editor_mouseaction_options_dlg.lrs
+++ b/ide/frames/editor_mouseaction_options_dlg.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'
--- a/ide/frames/editor_mouseaction_options_dlg.pas
+++ b/ide/frames/editor_mouseaction_options_dlg.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.