pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix compile with lazarus v0.9.25 r13922M

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@333 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2008-01-30 12:52:56 +00:00
parent b46d30d9bb
commit dc54158a3e
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/rxlogin.pas
View File

@@ -442,11 +442,11 @@ end;
procedure TRxLoginDialog.Loaded; procedure TRxLoginDialog.Loaded;
var var
Loading: Boolean; FLoading: Boolean;
begin begin
Loading := csLoading in ComponentState; FLoading := csLoading in ComponentState;
inherited Loaded; inherited Loaded;
if not (csDesigning in ComponentState) and Loading then begin if not (csDesigning in ComponentState) and FLoading then begin
if Active and not Login then if Active and not Login then
TerminateApplication; TerminateApplication;
end; end;