Commit 9e447df4 authored by Juha Manninen's avatar Juha Manninen
Browse files

IDE: In BuildMode config dialog, prevent hiding Name in the grid when...

IDE: In BuildMode config dialog, prevent hiding Name in the grid when InSession is not shown. Issue #27881.

git-svn-id: trunk@48796 -
parent 50b7181f
......@@ -52,8 +52,8 @@ type
ButtonPanel1: TButtonPanel;
NoteLabel: TLabel;
procedure btnCreateDefaultModesClick(Sender: TObject);
procedure BuildModesStringGridDrawCell(Sender: TObject; aCol,
aRow: Integer; aRect: TRect; {%H-}aState: TGridDrawState);
procedure BuildModesStringGridDrawCell(Sender: TObject;
aCol, aRow: Integer; aRect: TRect; {%H-}aState: TGridDrawState);
procedure CancelButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
......@@ -605,10 +605,12 @@ begin
;
end;
procedure TBuildModesForm.BuildModesStringGridDrawCell(Sender: TObject; aCol,
aRow: Integer; aRect: TRect; aState: TGridDrawState);
procedure TBuildModesForm.BuildModesStringGridDrawCell(Sender: TObject;
aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState);
begin
if (aCol=1) and (aRow=1) then
Assert(aCol <> -1, 'TBuildModesForm.BuildModesStringGridDrawCell: aCol = -1');
// Hide InSession field of the first BuildMode by drawing an empty rect on it.
if (aCol=fModeInSessionCol) and (aRow=1) then
(Sender as TStringGrid).Canvas.FillRect(aRect);
end;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment