mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-22 08:42:29 +02:00
132 lines
2.7 KiB
PHP
132 lines
2.7 KiB
PHP
// included by actnlist.pas
|
|
|
|
{
|
|
*****************************************************************************
|
|
* *
|
|
* This file is part of the Lazarus Component Library (LCL) *
|
|
* *
|
|
* See the file COPYING.LCL, included in this distribution, *
|
|
* for details about the copyright. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
*****************************************************************************
|
|
}
|
|
|
|
{ TActionLink }
|
|
|
|
function TActionLink.IsCaptionLinked: Boolean;
|
|
begin
|
|
Result := Action is TCustomAction;
|
|
end;
|
|
|
|
function TActionLink.IsCheckedLinked: Boolean;
|
|
begin
|
|
Result := Action is TCustomAction;
|
|
end;
|
|
|
|
function TActionLink.IsEnabledLinked: Boolean;
|
|
begin
|
|
Result := Action is TCustomAction;
|
|
end;
|
|
|
|
function TActionLink.IsGroupIndexLinked: Boolean;
|
|
begin
|
|
Result := Action is TCustomAction;
|
|
end;
|
|
|
|
function TActionLink.IsHelpContextLinked: Boolean;
|
|
begin
|
|
Result := Action is TCustomAction;
|
|
end;
|
|
|
|
function TActionLink.IsHelpLinked: Boolean;
|
|
begin
|
|
Result := Action is TCustomAction;
|
|
end;
|
|
|
|
function TActionLink.IsHintLinked: Boolean;
|
|
begin
|
|
Result := Action is TCustomAction;
|
|
end;
|
|
|
|
function TActionLink.IsImageIndexLinked: Boolean;
|
|
begin
|
|
Result := Action is TCustomAction;
|
|
end;
|
|
|
|
function TActionLink.IsShortCutLinked: Boolean;
|
|
begin
|
|
Result := Action is TCustomAction;
|
|
end;
|
|
|
|
function TActionLink.IsVisibleLinked: Boolean;
|
|
begin
|
|
Result := Action is TCustomAction;
|
|
end;
|
|
|
|
procedure TActionLink.SetAutoCheck(Value: Boolean);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TActionLink.SetCaption(const Value: string);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TActionLink.SetChecked(Value: Boolean);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TActionLink.SetEnabled(Value: Boolean);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TActionLink.SetGroupIndex(Value: Integer);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TActionLink.SetHelpContext(Value: THelpContext);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TActionLink.SetHelpKeyword(const Value: string);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TActionLink.SetHelpType(Value: THelpType);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TActionLink.SetHint(const Value: string);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TActionLink.SetImageIndex(Value: Integer);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TActionLink.SetShortCut(Value: TShortCut);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TActionLink.SetVisible(Value: Boolean);
|
|
begin
|
|
|
|
end;
|
|
|
|
// included by actnlist.pas
|
|
|