paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 19:39:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: comments

Browse Source 
git-svn-id: trunk@24390 -
This commit is contained in:
mattias 2010-04-04 09:33:57 +00:00
parent 7f6dc92e94
commit 7d8ef3e279
4 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/splash.lfm
View File

@ -12,12 +12,14 @@ object SplashForm: TSplashForm
ClientWidth = 429
FormStyle = fsStayOnTop
Position = poScreenCenter
LCLVersion = '0.9.29'
object Image: TImage
Left = 0
Height = 341
Top = 0
Width = 429
Align = alClient
AutoSize = True
OnPaint = ImagePaint
Transparent = False
end
end

5
ide/splash.pp
View File

@ -89,13 +89,12 @@ begin
Image.Picture.LoadFromLazarusResource('splash_logo');
Application.OnIdle := @ApplicationOnIdle;
Application.AddOnIdleHandler(@ApplicationOnIdle);
end;
destructor TSplashForm.Destroy;
begin
if Application.OnIdle = @ApplicationOnIdle then
Application.OnIdle := nil;
Application.RemoveOnIdleHandler(@ApplicationOnIdle);
inherited Destroy;

2
lcl/controls.pp
View File

@ -1867,7 +1867,7 @@ type
procedure SetChildZPosition(const AChild: TControl; const APosition: Integer);
procedure ShowControl(AControl: TControl); virtual;
procedure UpdateControlState;
procedure UpdateShowing; virtual; // checks control's handle visibility, called by UpdateControlState and CreateWnd
procedure UpdateShowing; virtual; // checks control's handle visibility, called by DoAllAutoSize and UpdateControlState
procedure WndProc(var Message: TLMessage); override;
procedure WSSetText(const AText: String); virtual;
protected

2
lcl/include/wincontrol.inc
View File

@ -6000,7 +6000,7 @@ begin
if HandleObjectShouldBeVisible then
AdjustSize // this will trigger DoAllAutoSize, which calls UpdateShowing
else
UpdateShowing;
UpdateShowing; // hide immediately
{$ENDIF}
end;