paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 05:18:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE; project inspector: reset menu item

Browse Source 
git-svn-id: trunk@26875 -
This commit is contained in:
mattias 2010-07-28 17:03:41 +00:00
parent 219b70f58e
commit 4719ce7c31
3 changed files with 8 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/codetools/examples/runcfgscript.lpi
View File

@ -33,30 +33,12 @@
<PackageName Value="CodeTools"/>
</Item1>
</RequiredPackages>
<Units Count="5">
<Units Count="1">
<Unit0>
<Filename Value="runcfgscript.pas"/>
<Filename Value="runcfgscript.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="RunCfgScript"/>
</Unit0>
<Unit1>
<Filename Value="scanexamples/brokenfilenames.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="BrokenFilenames"/>
</Unit1>
<Unit2>
<Filename Value="scanexamples/brokenincfiles.inc"/>
<IsPartOfProject Value="True"/>
</Unit2>
<Unit3>
<Filename Value="scanexamples/empty.inc"/>
<IsPartOfProject Value="True"/>
</Unit3>
<Unit4>
<Filename Value="scanexamples/indentation.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Indentation"/>
</Unit4>
</Units>
</ProjectOptions>
<CompilerOptions>

5
ide/projectinspector.pas
View File

@ -304,6 +304,11 @@ var
Result.Caption:=ACaption;
Result.OnClick:=AnEvent;
Result.Enabled:=EnabledFlag;
Result.Checked:=false;
Result.ShowAlwaysCheckable:=false;
Result.Visible:=true;
Result.RadioItem:=false;
Result.ImageIndex:=-1;
inc(ItemCnt);
end;

2
lcl/forms.pp
View File

@ -1616,7 +1616,7 @@ function GetLongHint(const Hint: string): string;
var
Application: TApplication = nil;
Application: TApplication = nil; //bla
Screen: TScreen = nil;
ExceptionObject: TExceptObject;
HintWindowClass: THintWindowClass = THintWindow;