paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 21:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@48796 -
This commit is contained in:
juha 2015-04-21 17:29:48 +00:00
parent 50b7181f88
commit 9e447df484
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/buildmodesmanager.pas
View File

@ -52,8 +52,8 @@ type
ButtonPanel1: TButtonPanel; ButtonPanel1: TButtonPanel;
NoteLabel: TLabel; NoteLabel: TLabel;
procedure btnCreateDefaultModesClick(Sender: TObject); procedure btnCreateDefaultModesClick(Sender: TObject);
procedure BuildModesStringGridDrawCell(Sender: TObject; aCol, procedure BuildModesStringGridDrawCell(Sender: TObject;
aRow: Integer; aRect: TRect; {%H-}aState: TGridDrawState); aCol, aRow: Integer; aRect: TRect; {%H-}aState: TGridDrawState);
procedure CancelButtonClick(Sender: TObject); procedure CancelButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
@ -605,10 +605,12 @@ begin
; ;
end; end;
procedure TBuildModesForm.BuildModesStringGridDrawCell(Sender: TObject; aCol, procedure TBuildModesForm.BuildModesStringGridDrawCell(Sender: TObject;
aRow: Integer; aRect: TRect; aState: TGridDrawState); aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState);
begin 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); (Sender as TStringGrid).Canvas.FillRect(aRect);
end; end;