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

Object Inspector: Formatting.

Browse Source 
git-svn-id: trunk@52074 -
This commit is contained in:
juha 2016-03-28 10:37:19 +00:00
parent b908501ed1
commit 350461f95e
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
components/ideintf/objectinspector.pp
View File

@ -162,12 +162,12 @@ type
TOIPropertyGridRow = class TOIPropertyGridRow = class
private private
FTop:integer; FTop: integer;
FHeight:integer; FHeight: integer;
FLvl:integer; FLvl: integer;
FName:string; FName: string;
FExpanded: boolean; FExpanded: boolean;
FTree:TOICustomPropertyGrid; FTree: TOICustomPropertyGrid;
FChildCount:integer; FChildCount:integer;
FPriorBrother, FPriorBrother,
FFirstChild, FFirstChild,
@ -198,20 +198,20 @@ type
function Next: TOIPropertyGridRow; function Next: TOIPropertyGridRow;
function NextSkipChilds: TOIPropertyGridRow; function NextSkipChilds: TOIPropertyGridRow;
property Editor:TPropertyEditor read FEditor; property Editor: TPropertyEditor read FEditor;
property Top:integer read FTop write FTop; property Top: integer read FTop write FTop;
property Height:integer read FHeight write FHeight; property Height: integer read FHeight write FHeight;
property Bottom: integer read GetBottom; property Bottom: integer read GetBottom;
property Lvl:integer read FLvl; property Lvl: integer read FLvl;
property Name: string read FName; property Name: string read FName;
property Expanded:boolean read FExpanded; property Expanded: boolean read FExpanded;
property Tree:TOICustomPropertyGrid read FTree; property Tree: TOICustomPropertyGrid read FTree;
property Parent:TOIPropertyGridRow read FParent; property Parent: TOIPropertyGridRow read FParent;
property ChildCount:integer read FChildCount; property ChildCount: integer read FChildCount;
property FirstChild:TOIPropertyGridRow read FFirstChild; property FirstChild: TOIPropertyGridRow read FFirstChild;
property LastChild:TOIPropertyGridRow read FLastChild; property LastChild: TOIPropertyGridRow read FLastChild;
property NextBrother:TOIPropertyGridRow read FNextBrother; property NextBrother: TOIPropertyGridRow read FNextBrother;
property PriorBrother:TOIPropertyGridRow read FPriorBrother; property PriorBrother: TOIPropertyGridRow read FPriorBrother;
property Index: integer read FIndex; property Index: integer read FIndex;
end; end;
@ -2705,11 +2705,11 @@ end;
procedure TOICustomPropertyGrid.PaintRow(ARow: integer); procedure TOICustomPropertyGrid.PaintRow(ARow: integer);
var var
FullRect,NameRect,NameIconRect,NameTextRect,ValueRect, ParentRect:TRect; FullRect, NameRect, NameIconRect, NameTextRect, ValueRect, ParentRect: TRect;
IconX,IconY:integer; IconX,IconY: integer;
CurRow:TOIPropertyGridRow; CurRow: TOIPropertyGridRow;
DrawState:TPropEditDrawState; DrawState: TPropEditDrawState;
OldFont:TFont; OldFont: TFont;
lclPlatform: TLCLPlatform; lclPlatform: TLCLPlatform;
X, Y: Integer; X, Y: Integer;
NameBgColor: TColor; NameBgColor: TColor;
@ -2722,8 +2722,8 @@ begin
ValueRect := FullRect; ValueRect := FullRect;
Inc(FullRect.Bottom, FRowSpacing); Inc(FullRect.Bottom, FRowSpacing);
if Layout = oilHorizontal if Layout = oilHorizontal then
then begin begin
NameRect.Right:=SplitterX; NameRect.Right:=SplitterX;
ValueRect.Left:=SplitterX; ValueRect.Left:=SplitterX;
end end
@ -2732,7 +2732,7 @@ begin
ValueRect.Top := NameRect.Bottom; ValueRect.Top := NameRect.Bottom;
end; end;
IconX:=GetTreeIconX(ARow); IconX := GetTreeIconX(ARow);
NameIconRect := NameRect; NameIconRect := NameRect;
NameIconRect.Right := IconX + Indent; NameIconRect.Right := IconX + Indent;
NameTextRect := NameRect; NameTextRect := NameRect;
@ -2882,7 +2882,7 @@ begin
LineTo(X - 1, NameRect.Top - 1 - FRowSpacing); LineTo(X - 1, NameRect.Top - 1 - FRowSpacing);
end; end;
end; end;
// to to parent next sibling // to parent next sibling
if ARow < FRows.Count - 1 then if ARow < FRows.Count - 1 then
begin begin
ParentRect := RowRect(ARow + 1); ParentRect := RowRect(ARow + 1);