added flag DisableCWString

git-svn-id: trunk@9300 -
This commit is contained in:
mattias 2006-05-18 06:23:58 +00:00
parent c74dc32a5a
commit 1d574b8d57
4 changed files with 7 additions and 2 deletions

View File

@ -69,7 +69,8 @@ begin
then
exit;
DebugLn('ShowCodeContext show TODO');
if CodeContextFrm=nil then
CodeContextFrm:=TCodeContextFrm.Create(nil);
finally
CodeContexts.Free;

View File

@ -7031,6 +7031,9 @@ begin
// add and load default required packages
PkgBoss.AddDefaultDependencies(Project1);
Result:=DoCompleteLoadingProjectInfo;
if Result<>mrOk then exit;
finally
Project1.EndUpdate;
end;

View File

@ -2799,6 +2799,7 @@ begin
FSourceEditorList.Free;
Gotodialog.free;
FreeThenNil(CodeContextFrm);
FreeThenNil(aCompletion);
FreeThenNil(FHintTimer);
FreeThenNil(FHintWindow);

View File

@ -51,7 +51,7 @@ interface
uses
Classes, SysUtils, LCLProc, FileUtil, StringHashList
{$IFDEF UNIX}, cwstring{$ENDIF}
{$IFDEF UNIX}{$IFNDEF DisableCWString}, cwstring{$ENDIF}{$ENDIF}
{$IFDEF MultiLocale},LConv{$ENDIF};
type