Editor options / mouse conf: fixed column resizing, columns did disappear

git-svn-id: trunk@20373 -
This commit is contained in:
martin 2009-06-03 13:59:22 +00:00
parent a635ac62cf
commit 0f1e6bfc08
3 changed files with 4 additions and 5 deletions

View File

@ -54,7 +54,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
Height = 378
Top = 0
Width = 5
MinSize = 25
MinSize = 100
end
end
object p3: TPanel[1]

View File

@ -20,7 +20,7 @@ LazarusResources.Add('TEditorMouseOptionsFrame','FORMDATA',[
+#11#13'tvoAutoExpand'#17'tvoAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepC'
+'ollapsedNodes'#11'tvoReadOnly'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoSh'
+'owRoot'#11'tvoToolTips'#0#0#0#9'TSplitter'#9'Splitter1'#4'Left'#3#130#0#6'H'
+'eight'#3'z'#1#3'Top'#2#0#5'Width'#2#5#7'MinSize'#2#25#0#0#0#242#2#1#6'TPane'
+'eight'#3'z'#1#3'Top'#2#0#5'Width'#2#5#7'MinSize'#2'd'#0#0#0#242#2#1#6'TPane'
+'l'#2'p3'#23'AnchorSideRight.Control'#7#2'p2'#20'AnchorSideRight.Side'#7#9'a'
+'srBottom'#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'Align'

View File

@ -27,8 +27,7 @@ interface
uses
LResources, EditorOptions, LazarusIDEStrConsts, IDEOptionsIntf, sysutils,
StdCtrls, ExtCtrls, Classes, Controls, LCLProc, Grids, ComCtrls, Dialogs,
SynEditMouseCmds, editor_mouseaction_options_dlg;
// SynGutterCodeFolding;
SynEditMouseCmds, editor_mouseaction_options_dlg, math;
type
@ -177,7 +176,7 @@ begin
for i := 0 to ActionGrid.ColCount-1 do j := j + ActionGrid.ColWidths[i];
k := ActionGrid.ClientWidth;
for i := 0 to ActionGrid.ColCount-1 do
ActionGrid.ColWidths[i] := ActionGrid.ColWidths[i] * k div j;
ActionGrid.ColWidths[i] := Max(ActionGrid.ColWidths[i] * k div j, 10);
end;
procedure TEditorMouseOptionsFrame.ActionGridHeaderSized(Sender: TObject; IsColumn: Boolean;