paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 13:28:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

designer: extend hint string for TWinControl (add TabStop, TabOrder)

Browse Source 
git-svn-id: trunk@21771 -
This commit is contained in:
paul 2009-09-19 16:13:43 +00:00
parent 27b2238ee0
commit 00af634807
1 changed files with 28 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
designer/designer.pp
View File

@ -121,7 +121,7 @@ type
function GetShowEditorHints: boolean;
function GetShowGrid: boolean;
function GetSnapToGrid: boolean;
Procedure HintTimer(sender : TObject);
procedure HintTimer(sender : TObject);
procedure InvalidateWithParent(AComponent: TComponent);
procedure SetDefaultFormBounds(const AValue: TRect);
procedure SetGridColor(const AValue: TColor);
@ -3411,11 +3411,32 @@ begin
end;
Procedure TDesigner.HintTimer(Sender: TObject);
function FormatHintText(AComponent: TComponent): String;
const
HintNameStr = '%s: %s';
HintPositionStr = 'Position: %d, %d';
HintSizeStr = 'Size: %d x %d';
HintTabStr = 'TabStop: %s; TabOrder: %d';
var
AControl: TControl absolute AComponent;
AWinControl: TWinControl absolute AComponent;
begin
// component name and classname
Result := Format(HintNameStr, [AComponent.Name, AComponent.ClassName]);
Result := Result + LineEnding + Format(HintPositionStr, [GetComponentLeft(AComponent), GetComponentTop(AComponent)]);
if AComponent is TControl then
begin
Result := Result + '; ' + Format(HintSizeStr, [AControl.Left, AControl.Top]);
if AComponent is TWinControl then
Result := Result + LineEnding + Format(HintTabStr, [BoolToStr(AWinControl.TabStop, True), AWinControl.TabOrder]);
end;
end;
var
Rect : TRect;
AHint : String;
AControl : TControl;
Position, ClientPos : TPoint;
Rect: TRect;
AHint: String;
Position, ClientPos: TPoint;
AWinControl: TWinControl;
AComponent: TComponent;
begin
@ -3442,20 +3463,8 @@ begin
// create a nice hint:
// component position
if (dfShowEditorHints in FFlags) then begin
// component name and classname
AHint := AComponent.Name+': '+AComponent.ClassName+#10;
if AComponent is TControl then begin
AControl:=TControl(AComponent);
AHint := AHint + 'Left: '+IntToStr(AControl.Left)
+ ' Top: '+IntToStr(AControl.Top)
+ #10+ 'Width: '+IntToStr(AControl.Width)
+ ' Height: '+IntToStr(AControl.Height);
end else begin
AHint := AHint + 'Left: '+IntToStr(GetComponentLeft(AComponent))
+ ' Top: '+IntToStr(GetComponentTop(AComponent));
end;
end;
if (dfShowEditorHints in FFlags) then
AHint := FormatHintText(AComponent);
Rect := FHintWindow.CalcHintRect(0,AHint,nil); //no maxwidth
Rect.Left := Position.X+10;