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

MG: broke extctrls.pp <-> forms.pp circle

Browse Source 
git-svn-id: trunk@3551 -
This commit is contained in:
lazarus 2002-10-24 10:27:52 +00:00
parent 27ddcbc159
commit a1b7c185ea
3 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/forms.pp
View File

@ -38,7 +38,7 @@ interface
uses
Classes, Controls, VCLGlobals, SysUtils, GraphType, Graphics, Menus,
LCLLinux, LCLType, LMessages;
LCLLinux, LCLType, LMessages, CustomTimer;
type
TPosition = (poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly,
@ -514,7 +514,7 @@ implementation
uses
StdCtrls, Interfaces, LResources, Dialogs, ExtCtrls, Math;
StdCtrls, Interfaces, LResources, Dialogs, {ExtCtrls, }Math;
const
FocusMessages : Boolean = true;

14
lcl/include/hintwindow.inc
View File

@ -25,7 +25,7 @@
constructor THintWindow.Create(AOwner: TComponent);
var
TheTimer: TTimer;
TheTimer: TCustomTimer;
begin
inherited Create(AOwner);
fCompStyle := csHintWindow;
@ -35,7 +35,7 @@ begin
Caption := 'THintWindow';
SetBounds(1,1,25,25);
FHideInterval := 3000;
TheTimer := TTimer.Create(self);
TheTimer := TCustomTimer.Create(self);
FAutoHideTimer := TheTimer;
TheTimer.Interval := HideInterval;
TheTimer.Enabled := False;
@ -53,21 +53,21 @@ Procedure THintWindow.SetHideInterval(Value : Integer);
Begin
FHideInterval := Value;
if FAutoHideTimer<>nil then
TTimer(FAutoHideTimer).Interval := FHideInterval;
TCustomTimer(FAutoHideTimer).Interval := FHideInterval;
end;
Procedure THintWindow.SetAutoHide(Value : Boolean);
Begin
FAutoHide := Value;
if not (value) and (FAutoHideTimer<>nil) then
TTimer(FAutoHideTimer).Enabled := False;
TCustomTimer(FAutoHideTimer).Enabled := False;
end;
Procedure THintWindow.AutoHideHint(Sender : TObject);
Begin
if FAutoHideTimer<>nil then
TTimer(FAutoHideTimer).Enabled := False;
TCustomTimer(FAutoHideTimer).Enabled := False;
if Visible then
Visible := False;//Hide;
End;
@ -112,8 +112,8 @@ begin
SetBounds(ARect.Left, ARect.Top,
ARect.Right - ARect.Left, ARect.Bottom - ARect.Top);
Visible := True;
TTimer(FAutoHideTimer).Enabled := False;
TTimer(FAutoHideTimer).Enabled := FAutoHide;
TCustomTimer(FAutoHideTimer).Enabled := False;
TCustomTimer(FAutoHideTimer).Enabled := FAutoHide;
finally
FActivating := False;
end;

6
lcl/include/timer.inc
View File

@ -18,7 +18,7 @@
*****************************************************************************
}
{
(*{
TTimer Delphi compatibility:
nearly 100% compatible, only WndProc is missing
@ -181,11 +181,15 @@ begin
UpdateTimer;
end;
end;
*)
// included by extctrls.pp
{
$Log$
Revision 1.8 2002/10/24 10:27:52 lazarus
MG: broke extctrls.pp <-> forms.pp circle
Revision 1.7 2002/10/15 16:01:36 lazarus
MG: fixed timers