paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 07:32:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: mode matrix: center text

Browse Source 
git-svn-id: trunk@41306 -
This commit is contained in:
mattias 2013-05-20 01:59:45 +00:00
parent ee5e22c587
commit 70c7c7616d
2 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/frames/compiler_modematrix.pas
View File

@ -34,10 +34,13 @@ unit Compiler_ModeMatrix;
interface
uses
Classes, SysUtils, types, LazFileUtils, LazLogger, KeywordFuncLists,
IDEOptionsIntf, IDEImagesIntf, CompOptsIntf, LResources, Forms, Controls,
Graphics, ComCtrls, Menus, ModeMatrixCtrl, EnvironmentOpts, ModeMatrixOpts,
Project, LazarusIDEStrConsts, TransferMacros, PackageSystem, PackageDefs;
Classes, SysUtils, types, LazFileUtils, LazLogger,
LResources, Forms, Controls, Graphics, ComCtrls, Menus,
KeywordFuncLists,
IDEOptionsIntf, IDEImagesIntf, CompOptsIntf,
EnvironmentOpts,
PackageSystem, PackageDefs, Project, LazarusIDEStrConsts, TransferMacros,
ModeMatrixOpts, ModeMatrixCtrl;
type

10
ide/frames/modematrixctrl.pas
View File

@ -238,7 +238,7 @@ type
const aState: TCheckboxState); override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer
); override;
procedure PrepareGridCanvas;
procedure PrepareGridCanvas; // prepare canvas for drawing the lines of the grid
procedure SetEditText(ACol, ARow: Longint; const Value: string); override;
public
constructor Create(AOwner: TComponent); override;
@ -1091,6 +1091,8 @@ var
i: Integer;
GroupRow: TGroupedMatrixGroup;
x: Integer;
s: String;
h: Integer;
begin
aRect:=Rect(0,0,0,0);
// Upper and Lower bounds for this row
@ -1114,8 +1116,11 @@ begin
// background
//Canvas.Brush.Color:=GroupRow.GetEffectiveColor;
Canvas.GradientFill(Rect(x,aRect.Top-1,x+2*Indent,aRect.Bottom),GroupRow.GetEffectiveColor,Color,gdHorizontal);
Canvas.FillRect(x+2*Indent,aRect.Top-1,aRect.Right,aRect.Bottom);
// draw group caption
Canvas.TextRect(aRect,constCellPadding+x,aRect.Top,GroupRow.Caption+GroupRow.Value);
s:=GroupRow.Caption+GroupRow.Value;
h:=Canvas.TextHeight(s);
Canvas.TextRect(aRect,constCellPadding+x,(aRect.Top+aRect.Bottom-h) div 2,s);
// draw focus rect
if aRow=Row then
DrawFocusRect(0,aRow,Rect(x,aRect.Top,aRect.Right,aRect.Bottom));
@ -1484,6 +1489,7 @@ begin
Column:=Columns[aCol-1];
MatRow:=Matrix.Rows[aRow-1];
if MatRow is TGroupedMatrixValue then begin
Canvas.FillRect(aRect);
ValueRow:=TGroupedMatrixValue(MatRow);
if aCol<=ModeColLast then begin
ModeColor:=Modes[aCol-ModeColFirst].Color;