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

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2395 8e941d3f-bd1b-0410-a28a-d453659cc2b4

Browse Source
This commit is contained in:
dopi
2012-04-19 21:52:48 +00:00
parent 374dc36ada
commit f71e98f6d9
3 changed files with 104 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tdi/Demo/uform1.pas
View File

@ -85,8 +85,7 @@ begin
Edit2.Text := 'Ok, fixed';
end ;
if Assigned( fMainForm ) then
fMainForm.mEvents.Lines.Add( 'Form1.CloseQuery: '+BoolToStr(CanClose,'True','False') );
fMainForm.mEvents.Lines.Add( 'Form1.CloseQuery: '+BoolToStr(CanClose,'True','False') );
end;
procedure TForm1.FormDestroy(Sender : TObject) ;