mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-17 15:39:30 +02:00
Editor options / mouse conf: fixed column resizing, columns did disappear
git-svn-id: trunk@20373 -
This commit is contained in:
parent
a635ac62cf
commit
0f1e6bfc08
@ -54,7 +54,7 @@ inherited EditorMouseOptionsFrame: TEditorMouseOptionsFrame
|
||||
Height = 378
|
||||
Top = 0
|
||||
Width = 5
|
||||
MinSize = 25
|
||||
MinSize = 100
|
||||
end
|
||||
end
|
||||
object p3: TPanel[1]
|
||||
|
@ -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'
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user