mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
37 lines
750 B
ObjectPascal
37 lines
750 B
ObjectPascal
unit uw40764b;
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
interface
|
|
|
|
uses uw40764a;
|
|
|
|
Type
|
|
|
|
TStyledControl = class (tfmxobject)
|
|
function FindStyleResource(const AStyleLookup: string; const Clone: Boolean = False): TFmxObject; overload; override;
|
|
function FindStyleResource<T: TFmxObject>(const AStyleLookup: string; var AResource: T): Boolean; overload;
|
|
end;
|
|
|
|
implementation
|
|
|
|
function TStyledControl.FindStyleResource(const AStyleLookup: string; const Clone: Boolean = False): TFmxObject;
|
|
|
|
begin
|
|
Result:=Nil;
|
|
end;
|
|
|
|
function TStyledControl.FindStyleResource<T>(const AStyleLookup: string; var AResource: T): Boolean;
|
|
|
|
begin
|
|
Result:= aStyleLookup<>'';
|
|
if Result then
|
|
aResource:=T(TObject.Create)
|
|
else
|
|
aResource:=Nil;
|
|
end;
|
|
|
|
end.
|