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

implemented stopping project on close project

Browse Source 
git-svn-id: trunk@6273 -
This commit is contained in:
mattias 2004-11-20 11:49:15 +00:00
parent d2d3030a60
commit 020ed4dbc7
3 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/main.pp
View File

@ -5533,8 +5533,13 @@ begin
{$IFDEF IDE_VERBOSE} {$IFDEF IDE_VERBOSE}
writeln('TMainIDE.DoCloseProject A'); writeln('TMainIDE.DoCloseProject A');
{$ENDIF} {$ENDIF}
// close all loaded files
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.DoCloseProject A');{$ENDIF} {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.DoCloseProject A');{$ENDIF}
Result:=DebugBoss.DoStopProject;
if Result<>mrOk then begin
debugln('TMainIDE.DoCloseProject DebugBoss.DoStopProject failed');
exit;
end;
// close all loaded files
while SourceNotebook.NoteBook<>nil do begin while SourceNotebook.NoteBook<>nil do begin
Result:=DoCloseEditorFile(SourceNotebook.Notebook.PageCount-1, Result:=DoCloseEditorFile(SourceNotebook.Notebook.PageCount-1,
[cfProjectClosing]); [cfProjectClosing]);
@ -11006,6 +11011,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.795 2004/11/20 11:49:15 mattias
implemented stopping project on close project
Revision 1.794 2004/11/20 11:20:05 mattias Revision 1.794 2004/11/20 11:20:05 mattias
implemented creating classes at run time from any TComponent descendant implemented creating classes at run time from any TComponent descendant

7
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -1575,10 +1575,10 @@ begin
end; end;
if CharSetCoding = '*' then begin if CharSetCoding = '*' then begin
{if lfCharset=fcsISO_8859_2 then begin if lfCharset=fcs_ISO_8859_2 then begin
CharSetRegistry:='iso8859'; CharSetRegistry:='iso8859';
CharSetCoding:='2'; CharSetCoding:='2';
end;} end;
end; end;
end; end;
@ -8740,6 +8740,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.374 2004/11/20 11:49:15 mattias
implemented stopping project on close project
Revision 1.373 2004/11/20 11:20:06 mattias Revision 1.373 2004/11/20 11:20:06 mattias
implemented creating classes at run time from any TComponent descendant implemented creating classes at run time from any TComponent descendant

4
lcl/lcltype.pp
View File

@ -1153,6 +1153,7 @@ const
ANSI_CHARSET = 0; ANSI_CHARSET = 0;
DEFAULT_CHARSET = 1; DEFAULT_CHARSET = 1;
SYMBOL_CHARSET = 2; SYMBOL_CHARSET = 2;
FCS_ISO_8859_2 = 3; // added for ISO_8859_2 under gtk
MAC_CHARSET = 77; MAC_CHARSET = 77;
SHIFTJIS_CHARSET = 128; SHIFTJIS_CHARSET = 128;
HANGEUL_CHARSET = 129; HANGEUL_CHARSET = 129;
@ -2247,6 +2248,9 @@ end.
{ {
$Log$ $Log$
Revision 1.69 2004/11/20 11:49:15 mattias
implemented stopping project on close project
Revision 1.68 2004/11/20 11:20:06 mattias Revision 1.68 2004/11/20 11:20:06 mattias
implemented creating classes at run time from any TComponent descendant implemented creating classes at run time from any TComponent descendant