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

lcl: add WidgetSet.AppSetMainFormOnTaskBar prototype

Browse Source 
git-svn-id: trunk@29263 -
This commit is contained in:
paul 2011-01-31 08:42:18 +00:00
parent 8b2ec0ed64
commit 84aeae0727
3 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/application.inc
View File

@ -543,7 +543,7 @@ procedure TApplication.SetMainFormOnTaskBar(const AValue: Boolean);
begin
if FMainFormOnTaskBar = AValue then exit;
FMainFormOnTaskBar := AValue;
// TODO:
WidgetSet.AppSetMainFormOnTaskBar(FMainFormOnTaskBar);
end;
procedure TApplication.SetNavigation(const AValue: TApplicationNavigationOptions);

4
lcl/include/interfacebase.inc
View File

@ -71,6 +71,10 @@ begin
Result := False;
end;
procedure TWidgetSet.AppSetMainFormOnTaskBar(const DoSet: Boolean);
begin
end;
function TWidgetSet.GetLCLCapability(ACapability: TLCLCapability): PtrUInt;
begin
case ACapability of

1
lcl/interfacebase.pp
View File

@ -152,6 +152,7 @@ type
procedure AppSetVisible(const AVisible: Boolean); virtual;
function AppRemoveStayOnTopFlags(const ASystemTopAlso: Boolean = False): Boolean; virtual;
function AppRestoreStayOnTopFlags(const ASystemTopAlso: Boolean = False): Boolean; virtual;
procedure AppSetMainFormOnTaskBar(const DoSet: Boolean); virtual;
function LCLPlatform: TLCLPlatform; virtual; abstract;
function GetLCLCapability(ACapability: TLCLCapability): PtrUInt; virtual;