mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-25 16:09:17 +02:00
added flag DisableCWString
git-svn-id: trunk@9300 -
This commit is contained in:
parent
c74dc32a5a
commit
1d574b8d57
@ -69,7 +69,8 @@ begin
|
||||
then
|
||||
exit;
|
||||
DebugLn('ShowCodeContext show TODO');
|
||||
|
||||
if CodeContextFrm=nil then
|
||||
CodeContextFrm:=TCodeContextFrm.Create(nil);
|
||||
|
||||
finally
|
||||
CodeContexts.Free;
|
||||
|
@ -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;
|
||||
|
@ -2799,6 +2799,7 @@ begin
|
||||
FSourceEditorList.Free;
|
||||
Gotodialog.free;
|
||||
|
||||
FreeThenNil(CodeContextFrm);
|
||||
FreeThenNil(aCompletion);
|
||||
FreeThenNil(FHintTimer);
|
||||
FreeThenNil(FHintWindow);
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user