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

lcl: add TStatusBar.GetPanelIndexAt()

Browse Source 
git-svn-id: trunk@19818 -
This commit is contained in:
paul 2009-05-06 07:03:16 +00:00
parent e4adaec4ef
commit c72ee51dc8
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/comctrls.pp
View File

@ -166,6 +166,7 @@ type
procedure BeginUpdate; procedure BeginUpdate;
procedure EndUpdate; procedure EndUpdate;
function ExecuteAction(ExeAction: TBasicAction): Boolean; override; function ExecuteAction(ExeAction: TBasicAction): Boolean; override;
function GetPanelIndexAt(X, Y: Integer): Integer;
function SizeGripEnabled: Boolean; function SizeGripEnabled: Boolean;
function UpdatingStatusBar: boolean; function UpdatingStatusBar: boolean;
property Canvas: TCanvas read FCanvas; property Canvas: TCanvas read FCanvas;

26
lcl/include/statusbar.inc
View File

@ -239,6 +239,32 @@ begin
Result := inherited ExecuteAction(ExeAction); Result := inherited ExecuteAction(ExeAction);
end; end;
function TStatusBar.GetPanelIndexAt(X, Y: Integer): Integer;
var
R, PanelRect: TRect;
P: TPoint;
i: integer;
begin
Result := -1;
if Panels.Count = 0 then
Exit;
R := GetChildsRect(False);
P := Point(X, Y);
if not PtInRect(R, P) then
Exit;
PanelRect := R;
for i := 0 to Panels.Count - 1 do
begin
if i <> Panels.Count - 1 then
PanelRect.Right := PanelRect.Left + Panels[i].Width
else
PanelRect.Right := R.Right;
if PtInRect(PanelRect, P) then
Exit(i);
PanelRect.Left := PanelRect.Right;
end;
end;
function TStatusBar.SizeGripEnabled: Boolean; function TStatusBar.SizeGripEnabled: Boolean;
begin begin