mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-04 07:59:43 +01:00
64 lines
1.4 KiB
ObjectPascal
64 lines
1.4 KiB
ObjectPascal
{
|
|
*****************************************************************************
|
|
See the file COPYING.modifiedLGPL.txt, included in this distribution,
|
|
for details about the license.
|
|
*****************************************************************************
|
|
|
|
Property editor for TStatusBar objects
|
|
|
|
}
|
|
unit StatusBarPropEdit;
|
|
|
|
{$MODE OBJFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, ComCtrls, PropEdits, ComponentEditors, ObjInspStrConsts;
|
|
|
|
type
|
|
{ TStatusBarComponentEditor }
|
|
|
|
TStatusBarComponentEditor = class(TComponentEditor)
|
|
public
|
|
procedure ExecuteVerb(Index: Integer); override;
|
|
function GetVerb(Index: Integer): string; override;
|
|
function GetVerbCount: Integer; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
|
|
{ TStatusBarComponentEditor }
|
|
|
|
procedure TStatusBarComponentEditor.ExecuteVerb(Index: Integer);
|
|
var
|
|
Hook: TPropertyEditorHook;
|
|
AStatusBar: TStatusBar;
|
|
begin
|
|
if Index = 0 then
|
|
begin
|
|
GetHook(Hook);
|
|
AStatusBar := GetComponent as TStatusBar;
|
|
EditCollection(AStatusBar, AStatusBar.Panels, 'Panels');
|
|
if Assigned(Hook) then Hook.Modified(Self);
|
|
end;
|
|
end;
|
|
|
|
function TStatusBarComponentEditor.GetVerb(Index: Integer): string;
|
|
begin
|
|
Result := '';
|
|
if Index = 0 then Result := sccsSBEditPanels;
|
|
end;
|
|
|
|
function TStatusBarComponentEditor.GetVerbCount: Integer;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
initialization
|
|
//Register a component editor for TStatusBar
|
|
RegisterComponentEditor(TStatusBar, TStatusBarComponentEditor);
|
|
|
|
end.
|