paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 23:20:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/frames/editor_mouseaction_options.lfm
View File

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

2
ide/frames/editor_mouseaction_options.lrs
View File

@ -20,7 +20,7 @@ LazarusResources.Add('TEditorMouseOptionsFrame','FORMDATA',[
+#11#13'tvoAutoExpand'#17'tvoAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepC' +#11#13'tvoAutoExpand'#17'tvoAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepC'
+'ollapsedNodes'#11'tvoReadOnly'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoSh' +'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' +'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' +'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 +'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' +'asrBottom'#4'Left'#2#0#6'Height'#2'%'#3'Top'#3'z'#1#5'Width'#3'b'#2#5'Align'

5
ide/frames/editor_mouseaction_options.pas
View File

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