paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 21:39:12 +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 uses
Classes, SysUtils, FPCAdds, Forms, Controls, Graphics, Dialogs, LResources, 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; EnvironmentOpts, Clipbrd, FileUtil, Menus, LCLIntf;
type type
@ -49,7 +49,7 @@ type
function ActiveLineIsURL: boolean; function ActiveLineIsURL: boolean;
procedure DoTimer(Sender: TObject); procedure DoTimer(Sender: TObject);
procedure SetActive(const AValue: boolean); procedure SetActive(const AValue: boolean);
procedure Initialise; procedure Init;
procedure DrawScrollingText(Sender: TObject); procedure DrawScrollingText(Sender: TObject);
protected protected
procedure DoOnChangeBounds; override; procedure DoOnChangeBounds; override;
@ -240,6 +240,7 @@ var
begin begin
ContributorsPage.ControlStyle := ContributorsPage.ControlStyle - [csOpaque]; ContributorsPage.ControlStyle := ContributorsPage.ControlStyle - [csOpaque];
Contributors := TScrollingText.Create(ContributorsPage); Contributors := TScrollingText.Create(ContributorsPage);
Contributors.Name:='Contributors';
Contributors.Parent := ContributorsPage; Contributors.Parent := ContributorsPage;
Contributors.Align:=alClient; Contributors.Align:=alClient;
@ -259,6 +260,7 @@ var
AcknowledgementsFileName: string; AcknowledgementsFileName: string;
begin begin
Acknowledgements := TScrollingText.Create(AcknowledgementsPage); Acknowledgements := TScrollingText.Create(AcknowledgementsPage);
Acknowledgements.Name:='Acknowledgements';
Acknowledgements.Parent := AcknowledgementsPage; Acknowledgements.Parent := AcknowledgementsPage;
Acknowledgements.Align:=alClient; Acknowledgements.Align:=alClient;
@ -277,11 +279,12 @@ end;
procedure TScrollingText.SetActive(const AValue: boolean); procedure TScrollingText.SetActive(const AValue: boolean);
begin begin
FActive := AValue; FActive := AValue;
Initialise; if FActive then
Init;
FTimer.Enabled:=Active; FTimer.Enabled:=Active;
end; end;
procedure TScrollingText.Initialise; procedure TScrollingText.Init;
begin begin
FBuffer.Width := Width; FBuffer.Width := Width;
FBuffer.Height := Height; FBuffer.Height := Height;
@ -382,7 +385,7 @@ procedure TScrollingText.DoOnChangeBounds;
begin begin
inherited DoOnChangeBounds; inherited DoOnChangeBounds;
Initialise; Init;
end; end;
procedure TScrollingText.MouseDown(Button: TMouseButton; Shift: TShiftState; X, procedure TScrollingText.MouseDown(Button: TMouseButton; Shift: TShiftState; X,