paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:41:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: BeginCodeTool init var parameters

Browse Source 
git-svn-id: trunk@20599 -
This commit is contained in:
mattias 2009-06-12 15:28:58 +00:00
parent a67d6b003c
commit 0a563086d3
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -60,7 +60,7 @@ components/chmhelp/lhelp/lhelp.lpr svneol=native#text/plain
components/chmhelp/lhelp/lhelp.manifest -text svneol=native#text/plain
components/chmhelp/lhelp/lhelp.rc -text svneol=native#text/plain
components/chmhelp/lhelp/lhelpcore.lfm -text svneol=native#text/plain
components/chmhelp/lhelp/lhelpcore.lrs -text svneol=native#text/pascal
components/chmhelp/lhelp/lhelpcore.lrs svneol=native#text/pascal
components/chmhelp/lhelp/lhelpcore.pas svneol=native#text/plain
components/chmhelp/lhelp/lnethttpdataprovider.pas svneol=native#text/plain
components/chmhelp/packages/help/lhelpcontrol.pas svneol=native#text/plain

2
components/chmhelp/lhelp/lhelpcore.lrs
View File

@ -1,4 +1,4 @@
{ This is an automatically generated lazarus resource file }
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('THelpForm','FORMDATA',[
'TPF0'#9'THelpForm'#8'HelpForm'#4'Left'#3'B'#1#6'Height'#3#23#2#3'Top'#3#239#0

3
ide/main.pp
View File

@ -12374,6 +12374,9 @@ function TMainIDE.BeginCodeTool(ADesigner: TDesigner;
Flags: TCodeToolsFlags): boolean;
begin
Result:=false;
ActiveSrcEdit:=nil;
ActiveUnitInfo:=nil;
// check global stati
if (ToolStatus in [itCodeTools,itCodeToolAborting]) then begin
debugln('TMainIDE.BeginCodeTool impossible ',dbgs(ord(ToolStatus)));