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

Started moving TPopupNotifier to the LCL. Added linux script to create images lrs file. Implemented TTrayIcon.GetPosition on gtk2.

Browse Source 
git-svn-id: trunk@14038 -
This commit is contained in:
sekelsenmat 2008-02-09 10:24:40 +00:00
parent 7d16c56822
commit ae7e221cc7
15 changed files with 284 additions and 293 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
.gitattributes vendored
View File

@ -663,11 +663,6 @@ components/popupnotifier/demo/popupnotifierdemo.lpr svneol=native#text/plain
components/popupnotifier/demo/unit1.lfm svneol=native#text/plain
components/popupnotifier/demo/unit1.lrs svneol=native#text/plain
components/popupnotifier/demo/unit1.pas svneol=native#text/plain
components/popupnotifier/popupnotifier.lrs svneol=native#text/pascal
components/popupnotifier/popupnotifier.pas svneol=native#text/plain
components/popupnotifier/popupnotifierlaz.lpk svneol=native#text/plain
components/popupnotifier/popupnotifierlaz.pas svneol=native#text/plain
components/popupnotifier/tpopupnotifier.png -text svneol=unset#image/png
components/prettyformat/languages/pfidesource.de.po svneol=native#text/plain
components/prettyformat/languages/pfidesource.fr.po svneol=native#text/plain
components/prettyformat/languages/pfidesource.id.po svneol=native#text/plain
@ -2375,6 +2370,7 @@ images/components/tpairsplitter.png -text svneol=unset#image/png
images/components/tpanel.png -text svneol=unset#image/png
images/components/tpicture.png -text svneol=unset#image/png
images/components/tpopupmenu.png -text svneol=unset#image/png
images/components/tpopupnotifier.png -text svneol=unset#image/png
images/components/tprocess.png -text svneol=unset#image/png
images/components/tprogressbar.png -text svneol=unset#image/png
images/components/tradiobutton.png -text svneol=unset#image/png
@ -2448,6 +2444,7 @@ images/keymapcategory.png -text
images/keymaprelation.png -text
images/laz_images.bat svneol=native#text/plain
images/laz_images.lrs svneol=native#text/pascal
images/laz_images.sh svneol=native#text/plain
images/laz_images_list.txt svneol=native#text/plain
images/lazarus_about_logo.xpm -text svneol=native#image/x-xpixmap
images/lazaruspackage.ico -text svneol=unset#image/x-icon
@ -3285,6 +3282,8 @@ lcl/menus.pp svneol=native#text/pascal
lcl/nonwin32/README.txt svneol=native#text/plain
lcl/nonwin32/messages.pp svneol=native#text/pascal
lcl/pairsplitter.pas svneol=native#text/pascal
lcl/popupnotifier.lrs svneol=native#text/plain
lcl/popupnotifier.pas svneol=native#text/plain
lcl/postscriptcanvas.pas svneol=native#text/pascal
lcl/postscriptprinter.pas svneol=native#text/pascal
lcl/printers.pas svneol=native#text/pascal

46
components/popupnotifier/popupnotifierlaz.lpk
View File

@ -1,46 +0,0 @@
<?xml version="1.0"?>
<CONFIG>
<Package Version="2">
<Name Value="popupnotifierlaz"/>
<Author Value="A.J. Venter"/>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Description Value="A popup window for notification message, particularly usefull with TTrayIcon"/>
<License Value="Lazarus Modified LGPL."/>
<Version Minor="1" Release="1"/>
<Files Count="1">
<Item1>
<Filename Value="popupnotifier.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="popupnotifier"/>
</Item1>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
</Item2>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)/"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
</PublishOptions>
</Package>
</CONFIG>

21
components/popupnotifier/popupnotifierlaz.pas
View File

@ -1,21 +0,0 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}
unit popupnotifierlaz;
interface
uses
popupnotifier, LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('popupnotifier', @popupnotifier.Register);
end;
initialization
RegisterPackage('popupnotifierlaz', @Register);
end.

0
components/popupnotifier/tpopupnotifier.png → images/components/tpopupnotifier.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 548 B

After

Width:  |  Height:  |  Size: 548 B

1
images/laz_images.sh Executable file
View File

@ -0,0 +1 @@
../tools/lazres laz_images.lrs @laz_images_list.txt

1
lcl/Makefile.fpc
View File

@ -57,6 +57,7 @@ implicitunits= \
maskedit \
menus \
pairsplitter \
popupnotifier \
postscriptprinter \
printers \
propertystorage \

2
lcl/alllclunits.pp
View File

@ -50,7 +50,7 @@ uses
Printers, PostScriptPrinter, PostScriptCanvas, CheckLst, PairSplitter,
ExtDlgs, DBCtrls, DBGrids, DBActns, EditBtn, ExtGraphics, ColorBox,
PropertyStorage, IniPropStorage, XMLPropStorage, Chart, LDockTree, LDockCtrl,
CalendarPopup, Themes,
CalendarPopup, Themes, popupnotifier,
LCLMessageGlue,
RubberBand,
// widgetset skeleton

3
lcl/extctrls.pp
View File

@ -35,7 +35,7 @@ interface
uses
SysUtils, Classes, LCLStrConsts, LCLType, LCLProc, LResources, Controls,
Forms, StdCtrls, lMessages, GraphType, Graphics, LCLIntf, CustomTimer, Themes,
LCLClasses, Menus;
LCLClasses, Menus, popupnotifier;
type
{ workaround problem with fcl }
@ -1097,6 +1097,7 @@ type
FIcon: TIcon;
FHint: string;
FVisible, FShowIcon: Boolean;
FNotifier: TPopupNotifier;
FOnPaint, FOnClick, FOnDblClick: TNotifyEvent;
FOnMouseDown, FOnMouseUp: TMouseEvent;
FOnMouseMove: TMouseMoveEvent;

389
lcl/include/customtrayicon.inc
View File

@ -1,188 +1,201 @@
{%MainUnit ../extctrls.pp}
{******************************************************************************
TCustomTrayIcon
******************************************************************************
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL, 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. *
* *
*****************************************************************************
}
{
Delphi compatibility:
- TCustomTrayIcon is partially compatible with Delphi implementation
}
{*******************************************************************
* TCustomTrayIcon.Create ()
*
* DESCRIPTION: Creates an object from the TCustomTrayIcon class
*
* PARAMETERS: TheOwner - The owner of the component (this may be nil)
*
* RETURNS: A pointer to the newly created object
*
*******************************************************************}
constructor TCustomTrayIcon.Create(TheOwner : TComponent);
begin
inherited Create(TheOwner);
FIcon := TIcon.Create;
FShowIcon := True;
end;
{*******************************************************************
* TCustomTrayIcon.Destroy ()
*
* DESCRIPTION: Destroys an object derived from the TCustomTrayIcon class
*
* PARAMETERS: None
*
* RETURNS: Nothing
*
*******************************************************************}
destructor TCustomTrayIcon.Destroy;
begin
{ Avoids an unremoved icon on the tray }
Hide;
FIcon.Free;
inherited Destroy;
end;
{*******************************************************************
* TCustomTrayIcon.Hide ()
*
* DESCRIPTION: Hides the Icon
*
* PARAMETERS: None
*
* RETURNS: If successfull
*
*******************************************************************}
function TCustomTrayIcon.Hide: Boolean;
begin
if not FVisible then Exit;
FVisible := False;
// InternalUpdate;
Result := TWSCustomTrayIconClass(WidgetSetClass).Hide(Self);
end;
{*******************************************************************
* TCustomTrayIcon.Show ()
*
* DESCRIPTION: Shows the Icon
*
* PARAMETERS: None
*
* RETURNS: If successfull
*
*******************************************************************}
function TCustomTrayIcon.Show: Boolean;
begin
if FVisible then Exit;
FVisible := True;
InternalUpdate;
Result := TWSCustomTrayIconClass(WidgetSetClass).Show(Self);
end;
{*******************************************************************
* TCustomTrayIcon.SetVisible ()
*
* DESCRIPTION: Setter method of the Visible property
*
* PARAMETERS: None
*
* RETURNS: If successfull
*
*******************************************************************}
procedure TCustomTrayIcon.SetVisible(Value: Boolean);
begin
if Value then Show
else Hide;
end;
{*******************************************************************
* TCustomTrayIcon.InternalUpdate ()
*
* DESCRIPTION: Makes modifications to the Icon while running
* i.e. without hiding it and showing again
*
* PARAMETERS: None
*
* RETURNS: Nothing
*
*******************************************************************}
procedure TCustomTrayIcon.InternalUpdate;
begin
TWSCustomTrayIconClass(WidgetSetClass).InternalUpdate(Self);
end;
{*******************************************************************
* TCustomTrayIcon.ShowBalloonHint ()
*
* DESCRIPTION: Shows a small message balloon near the tray icon
*
* PARAMETERS: None
*
* RETURNS: Nothing
*
*******************************************************************}
procedure TCustomTrayIcon.ShowBalloonHint;
begin
TWSCustomTrayIconClass(WidgetSetClass).ShowBalloonHint(Self);
end;
{*******************************************************************
* TCustomTrayIcon.GetPosition ()
*
* DESCRIPTION: Returns the position of the tray icon on the display.
* This function is utilized to show message boxes near
* the icon
*
* PARAMETERS: None
*
* RETURNS: Nothing
*
*******************************************************************}
function TCustomTrayIcon.GetPosition: TPoint;
begin
Result := TWSCustomTrayIconClass(WidgetSetClass).GetPosition(Self);
end;
{*******************************************************************
* TCustomTrayIcon.GetCanvas ()
*
* DESCRIPTION: Getter method of the Canvas property
*
* PARAMETERS: None
*
* RETURNS: The canvas of the underlaying Widgetset component
*
*******************************************************************}
function TCustomTrayIcon.GetCanvas: TCanvas;
begin
//Result := Icon.Canvas;
Result := TWSCustomTrayIconClass(WidgetSetClass).GetCanvas(Self);
end;
// included by extctrls.pp
{%MainUnit ../extctrls.pp}
{******************************************************************************
TCustomTrayIcon
******************************************************************************
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL, 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. *
* *
*****************************************************************************
}
{
Delphi compatibility:
- TCustomTrayIcon is partially compatible with Delphi implementation
}
{*******************************************************************
* TCustomTrayIcon.Create ()
*
* DESCRIPTION: Creates an object from the TCustomTrayIcon class
*
* PARAMETERS: TheOwner - The owner of the component (this may be nil)
*
* RETURNS: A pointer to the newly created object
*
*******************************************************************}
constructor TCustomTrayIcon.Create(TheOwner : TComponent);
begin
inherited Create(TheOwner);
FIcon := TIcon.Create;
FNotifier := TPopupNotifier.Create(Self);
FShowIcon := True;
end;
{*******************************************************************
* TCustomTrayIcon.Destroy ()
*
* DESCRIPTION: Destroys an object derived from the TCustomTrayIcon class
*
* PARAMETERS: None
*
* RETURNS: Nothing
*
*******************************************************************}
destructor TCustomTrayIcon.Destroy;
begin
{ Avoids an unremoved icon on the tray }
Hide;
FNotifier.Free;
FIcon.Free;
inherited Destroy;
end;
{*******************************************************************
* TCustomTrayIcon.Hide ()
*
* DESCRIPTION: Hides the Icon
*
* PARAMETERS: None
*
* RETURNS: If successfull
*
*******************************************************************}
function TCustomTrayIcon.Hide: Boolean;
begin
if not FVisible then Exit;
FVisible := False;
// InternalUpdate;
Result := TWSCustomTrayIconClass(WidgetSetClass).Hide(Self);
end;
{*******************************************************************
* TCustomTrayIcon.Show ()
*
* DESCRIPTION: Shows the Icon
*
* PARAMETERS: None
*
* RETURNS: If successfull
*
*******************************************************************}
function TCustomTrayIcon.Show: Boolean;
begin
if FVisible then Exit;
FVisible := True;
InternalUpdate;
Result := TWSCustomTrayIconClass(WidgetSetClass).Show(Self);
end;
{*******************************************************************
* TCustomTrayIcon.SetVisible ()
*
* DESCRIPTION: Setter method of the Visible property
*
* PARAMETERS: None
*
* RETURNS: If successfull
*
*******************************************************************}
procedure TCustomTrayIcon.SetVisible(Value: Boolean);
begin
if Value then Show
else Hide;
end;
{*******************************************************************
* TCustomTrayIcon.InternalUpdate ()
*
* DESCRIPTION: Makes modifications to the Icon while running
* i.e. without hiding it and showing again
*
* PARAMETERS: None
*
* RETURNS: Nothing
*
*******************************************************************}
procedure TCustomTrayIcon.InternalUpdate;
begin
TWSCustomTrayIconClass(WidgetSetClass).InternalUpdate(Self);
end;
{*******************************************************************
* TCustomTrayIcon.ShowBalloonHint ()
*
* DESCRIPTION: Shows a small message balloon near the tray icon
*
* PARAMETERS: None
*
* RETURNS: Nothing
*
*******************************************************************}
procedure TCustomTrayIcon.ShowBalloonHint;
var
UsePopUpNotifier: Boolean;
Pt: TPoint;
begin
UsePopUpNotifier := TWSCustomTrayIconClass(WidgetSetClass).ShowBalloonHint(Self);
if UsePopUpNotifier then
begin
Pt := Self.GetPosition;
FNotifier.Text := Self.BalloonHint;
FNotifier.Title := Self.BalloonTitle;
FNotifier.ShowAtPos(Pt.x, Pt.y);
end;
end;
{*******************************************************************
* TCustomTrayIcon.GetPosition ()
*
* DESCRIPTION: Returns the position of the tray icon on the display.
* This function is utilized to show message boxes near
* the icon
*
* PARAMETERS: None
*
* RETURNS: Nothing
*
*******************************************************************}
function TCustomTrayIcon.GetPosition: TPoint;
begin
Result := TWSCustomTrayIconClass(WidgetSetClass).GetPosition(Self);
end;
{*******************************************************************
* TCustomTrayIcon.GetCanvas ()
*
* DESCRIPTION: Getter method of the Canvas property
*
* PARAMETERS: None
*
* RETURNS: The canvas of the underlaying Widgetset component
*
*******************************************************************}
function TCustomTrayIcon.GetCanvas: TCanvas;
begin
//Result := Icon.Canvas;
Result := TWSCustomTrayIconClass(WidgetSetClass).GetCanvas(Self);
end;
// included by extctrls.pp

13
lcl/interfaces/gtk2/gtk2trayicon.inc
View File

@ -405,8 +405,17 @@ end;
*
*******************************************************************}
class function TGtk2WSCustomTrayIcon.GetPosition(const ATrayIcon: TCustomTrayIcon): TPoint;
var
WindowHandle: PGDKWindow;
begin
Result.X := 0;
Result.Y := 0;
Result := Point(0, 0);
if not Assigned(GtkForm) then Exit;
WindowHandle := GtkForm^.window;
if not Assigned(WindowHandle) then Exit;
gdk_window_get_origin(WindowHandle, @Result.X, @Result.Y);
end;

0
components/popupnotifier/popupnotifier.lrs → lcl/popupnotifier.lrs
View File

76
components/popupnotifier/popupnotifier.pas → lcl/popupnotifier.pas
View File

@ -25,8 +25,10 @@ interface
{$endif}
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Buttons, StdCtrls
Classes, SysUtils, Forms, Controls, Graphics, StdCtrls
{ Note: Be careful that ExtCtrls depend on popupnotifier, so
it should have only a minimal amount of dependencies to avoid circular
references. Preferably only units that ExtCtrls already has }
{$ifdef fpc}
, LResources
{$endif}
@ -35,9 +37,17 @@ uses
type
{ TNotifierXButton }
{ To avoid dependency on Buttons }
TNotifierXButtonButtonState =
(
nbsUp, // button is up
nbsDown, // button is down
nbsHot // button is under mouse
);
TNotifierXButton = class(TCustomControl)
private
FState: TButtonState;
FState: TNotifierXButtonButtonState;
procedure HandleMouseDown(Sender: TOBject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure HandleMouseUp(Sender: TOBject; Button: TMouseButton;
@ -54,7 +64,7 @@ type
private
lblTitle: TLabel;
lblText: TLabel;
imgIcon: TImage;
imgIcon: TPicture;
btnX: TNotifierXButton;
procedure HideForm(Sender: TObject);
procedure HandleResize(Sender: TObject);
@ -119,7 +129,7 @@ procedure TNotifierXButton.HandleMouseDown(Sender: TOBject; Button: TMouseButton
begin
if (Button = mbLeft) then
begin
FState := bsDown;
FState := nbsDown;
Self.Invalidate;
end;
end;
@ -127,7 +137,7 @@ end;
procedure TNotifierXButton.HandleMouseUp(Sender: TOBject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
FState := bsUp;
FState := nbsUp;
Self.Invalidate;
end;
@ -135,7 +145,7 @@ constructor TNotifierXButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FState := bsUp;
FState := nbsUp;
OnMouseUp := HandleMouseUp;
OnMouseDown := HandleMouseDown;
@ -158,7 +168,7 @@ begin
{*******************************************************************
* Show a different background color when the button is down
*******************************************************************}
if FState = bsUp then Canvas.Brush.Color := Color
if FState = nbsUp then Canvas.Brush.Color := Color
else Canvas.Brush.Color := clYellow;
Canvas.RoundRect(0, 0, Width, Height, 10, 10);
@ -189,11 +199,7 @@ begin
Width := 325;
Height := 110;
ImgIcon := TImage.Create(Self);
ImgIcon.Autosize := True;
ImgIcon.Parent := Self;
ImgIcon.Transparent := True;
ImgIcon.OnClick := HideForm;
ImgIcon := TPicture.Create;
lblTitle := TLabel.Create(Self);
lblTitle.Parent := Self;
@ -217,7 +223,7 @@ begin
HandleResize(Self);
Color := $DCFFFF; // Doesn´t work on Gtk
Color := $DCFFFF; // Doesn't work on Gtk
// Connects the methods to events
OnClick := HideForm;
@ -262,8 +268,13 @@ end;
* Handles OnResize events of the form
*******************************************************************}
procedure TNotifierForm.HandleResize(Sender: TObject);
var
IconAdjust: Integer;
begin
if (ImgIcon <> nil) then
if (ImgIcon.Bitmap <> nil) then IconAdjust := 5 + imgIcon.Bitmap.Width
else IconAdjust := 0;
{ if (ImgIcon.Bitmap <> nil) then
begin
ImgIcon.Left := 5;
ImgIcon.Top := 5;
@ -271,11 +282,11 @@ begin
// Workaround for autosize not working as expected
ImgIcon.Width := ImgIcon.Picture.Width;
ImgIcon.Height := ImgIcon.Picture.Height;
end;
end;}
if (lblTitle <> nil) then
begin
lblTitle.Left := ImgIcon.Width + ImgIcon.Left + 5;
lblTitle.Left := IconAdjust + 5;
lblTitle.Top := 5;
lblTitle.Width := Width - 25;
lblTitle.Height := 20;
@ -283,9 +294,9 @@ begin
if (lblText <> nil) then
begin
lblText.Left := ImgIcon.Width + ImgIcon.Left + 20;
lblText.Left := IconAdjust + 20;
lblText.Top := LblTitle.Top + LblTitle.Height + 5;
lblText.Width := Width - (ImgIcon.Width + ImgIcon.Left + 5);
lblText.Width := Width - (IconAdjust + 5);
lblText.Height := Height - 10 - LblText.Top;
end;
@ -301,14 +312,17 @@ end;
{*******************************************************************
* TNotifierForm.HandlePaint ()
*
* Temporary fix for TForm.Color not working on Gtk
* Remove when the bug is fixed!
*******************************************************************}
procedure TNotifierForm.HandlePaint(Sender: TObject);
begin
{ Temporary fix for TForm.Color not working on Gtk
Remove when the bug is fixed! }
Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := Color;
Canvas.FillRect(Rect(0,0,width,height));
{ Paints the icon. We can't use a TImage because it's on ExtCtrls }
if Assigned(imgIcon.Bitmap) then Canvas.Draw(5, 5, imgIcon.Bitmap);
end;
{ TPopupNotifier }
@ -360,12 +374,12 @@ end;
function TPopupNotifier.GetIcon: TPicture;
begin
Result := vNotifierForm.imgIcon.Picture;
Result := vNotifierForm.imgIcon;
end;
procedure TPopupNotifier.SetIcon(const Value: TPicture);
begin
vNotifierForm.imgIcon.Picture.Assign(Value);
vNotifierForm.imgIcon.Assign(Value);
end;
function TPopupNotifier.GetColor: TColor;
@ -423,11 +437,23 @@ end;
* TPopupNotifier.ShowAtPos ()
*
* Shows the notifier at a specific position
*
* The position is corrected to fit the screen, similarly to how
* a popup menu would have it's position corrected
*
*******************************************************************}
procedure TPopupNotifier.ShowAtPos(x: Integer; y: Integer);
begin
vNotifierForm.left := x;
vNotifierForm.top := y;
if x + vNotifierForm.Width > Screen.Width then
vNotifierForm.left := x - vNotifierForm.Width
else
vNotifierForm.left := x;
if y + vNotifierForm.Height > Screen.Height then
vNotifierForm.top := y - vNotifierForm.Height
else
vNotifierForm.top := y;
vNotifierForm.Show;
end;

12
lcl/widgetset/wsextctrls.pp
View File

@ -168,7 +168,7 @@ type
class function Hide(const ATrayIcon: TCustomTrayIcon): Boolean; virtual;
class function Show(const ATrayIcon: TCustomTrayIcon): Boolean; virtual;
class procedure InternalUpdate(const ATrayIcon: TCustomTrayIcon); virtual;
class procedure ShowBalloonHint(const ATrayIcon: TCustomTrayIcon); virtual;
class function ShowBalloonHint(const ATrayIcon: TCustomTrayIcon): Boolean; virtual;
class function GetPosition(const ATrayIcon: TCustomTrayIcon): TPoint; virtual;
class function GetCanvas(const ATrayIcon: TCustomTrayIcon): TCanvas; virtual;
end;
@ -304,9 +304,15 @@ begin
end;
class procedure TWSCustomTrayIcon.ShowBalloonHint(const ATrayIcon: TCustomTrayIcon);
{*******************************************************************
* TWSCustomTrayIcon.ShowBalloonHint ()
*
* RETURNS: If we should use the popupnotifier to implement this method
*
*******************************************************************}
class function TWSCustomTrayIcon.ShowBalloonHint(const ATrayIcon: TCustomTrayIcon): Boolean;
begin
Result := True;
end;
class function TWSCustomTrayIcon.GetPosition(const ATrayIcon: TCustomTrayIcon): TPoint;

1
packager/pkgfileslcl.inc
View File

@ -67,6 +67,7 @@ AddFile('maskedit.pp','MaskEdit',pftUnit,[pffHasRegisterProc],cpBase);
AddFile('menus.pp','Menus',pftUnit,[pffHasRegisterProc],cpBase);
AddFile('nonwin32/messages.pp','Messages',pftUnit,[],cpBase);
AddFile('pairsplitter.pas','PairSplitter',pftUnit,[pffHasRegisterProc],cpBase);
AddFile('popupnotifier.pas','popupnotifier',pftUnit,[pffHasRegisterProc],cpBase);
AddFile('postscriptcanvas.pas','PostscriptCanvas',pftUnit,[],cpBase);
AddFile('postscriptprinter.pas','PostScriptPrinter',pftUnit,[],cpBase);
AddFile('printers.pas','Printers',pftUnit,[],cpBase);

3
packager/registerlcl.pas
View File

@ -43,7 +43,7 @@ uses
Dialogs, Spin, Arrow, Calendar, MaskEdit, CheckLst, PairSplitter, ExtDlgs,
StdActns, DBCtrls, DBGrids, DBActns, EditBtn, ActnList, FileCtrl, ButtonPanel,
LResources, XMLPropStorage, IniPropStorage, Graphics, Chart, ColorBox,
LazHelpHTML;
LazHelpHTML, popupnotifier;
procedure Register;
@ -82,6 +82,7 @@ begin
RegisterUnit('ButtonPanel',@ButtonPanel.Register);
RegisterUnit('LResources',@LResources.Register);
RegisterUnit('LazHelpHTML',@LazHelpHTML.Register);
RegisterUnit('popupnotifier', @popupnotifier.Register);
end;
end.