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

IDE: fixed about form not initializing on deactivating

Browse Source 
git-svn-id: trunk@27990 -
This commit is contained in:
mattias 2010-10-30 20:40:02 +00:00
parent 8833bebbb4
commit 948977ad8e
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/aboutfrm.pas
View File

@ -26,7 +26,7 @@ interface
uses
Classes, SysUtils, FPCAdds, Forms, Controls, Graphics, Dialogs, LResources,
StdCtrls, Buttons, LazConf, LazarusIDEStrConsts, ExtCtrls, ComCtrls,
LCLProc, StdCtrls, Buttons, LazConf, LazarusIDEStrConsts, ExtCtrls, ComCtrls,
EnvironmentOpts, Clipbrd, FileUtil, Menus, LCLIntf;
type
@ -49,7 +49,7 @@ type
function ActiveLineIsURL: boolean;
procedure DoTimer(Sender: TObject);
procedure SetActive(const AValue: boolean);
procedure Initialise;
procedure Init;
procedure DrawScrollingText(Sender: TObject);
protected
procedure DoOnChangeBounds; override;
@ -240,6 +240,7 @@ var
begin
ContributorsPage.ControlStyle := ContributorsPage.ControlStyle - [csOpaque];
Contributors := TScrollingText.Create(ContributorsPage);
Contributors.Name:='Contributors';
Contributors.Parent := ContributorsPage;
Contributors.Align:=alClient;
@ -259,6 +260,7 @@ var
AcknowledgementsFileName: string;
begin
Acknowledgements := TScrollingText.Create(AcknowledgementsPage);
Acknowledgements.Name:='Acknowledgements';
Acknowledgements.Parent := AcknowledgementsPage;
Acknowledgements.Align:=alClient;
@ -277,11 +279,12 @@ end;
procedure TScrollingText.SetActive(const AValue: boolean);
begin
FActive := AValue;
Initialise;
if FActive then
Init;
FTimer.Enabled:=Active;
end;
procedure TScrollingText.Initialise;
procedure TScrollingText.Init;
begin
FBuffer.Width := Width;
FBuffer.Height := Height;
@ -382,7 +385,7 @@ procedure TScrollingText.DoOnChangeBounds;
begin
inherited DoOnChangeBounds;
Initialise;
Init;
end;
procedure TScrollingText.MouseDown(Button: TMouseButton; Shift: TShiftState; X,