paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 17:50:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed var parameter

Browse Source 
git-svn-id: trunk@7326 -
This commit is contained in:
mattias 2005-07-07 19:25:09 +00:00
parent 576e43a4b4
commit 3adfcc0661
4 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -2499,7 +2499,7 @@ var
iLine: integer;
begin
iLine := PixelsToRowColumn(Point(0, Y)).Y;
case TSynEditStringList(fLines).FoldType[iLine] of
cfExpanded:
begin

5
doceditor/frmbuild.pp
View File

@ -137,7 +137,7 @@ type
// Sources methods
Function SourceFileCount : Integer;
Function AddSource(Const ASource,AOptions : String) : Integer;
Procedure GetSourceOptions(Index : Integer; Var ASource, AOptions: String);
Procedure GetSourceOptions(Index : Integer; Out ASource, AOptions: String);
Procedure SetSourceOptions(Index : Integer; Const ASource, AOptions: String);
Procedure ClearSources;
procedure DisplaySources;
@ -566,7 +566,8 @@ begin
FOptions[Index]:=ASource+'='+AOptions;
end;
Procedure TBuildForm.GetSourceOptions(Index : Integer; Var ASource, AOptions: String);
Procedure TBuildForm.GetSourceOptions(Index : Integer;
Out ASource, AOptions: String);
Var
N : Integer;

1
doceditor/frmexample.pp
View File

@ -68,6 +68,7 @@ procedure TExampleForm.ExampleFormCloseQuery(Sender: TObject;
var
S: String;
begin
if Sender = nil then exit;
if ModalResult = mrOk then begin
S := ExtractFilePath(EFilename.Text);
CanClose := CheckFilePath(S);

24
doceditor/lazde.lpi
View File

@ -8,7 +8,7 @@
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<ActiveEditorIndexAtStart Value="12"/>
<ActiveEditorIndexAtStart Value="10"/>
<AutoCreateForms Value="False"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
@ -108,8 +108,8 @@
<UsageCount Value="52"/>
</Unit7>
<Unit8>
<CursorPos X="28" Y="29"/>
<EditorIndex Value="17"/>
<CursorPos X="16" Y="26"/>
<EditorIndex Value="12"/>
<Filename Value="pkeditor.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
@ -118,18 +118,18 @@
<UsageCount Value="46"/>
</Unit8>
<Unit9>
<CursorPos X="21" Y="24"/>
<CursorPos X="16" Y="497"/>
<EditorIndex Value="7"/>
<Filename Value="eleditor.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<TopLine Value="473"/>
<UnitName Value="ElEditor"/>
<UsageCount Value="46"/>
</Unit9>
<Unit10>
<CursorPos X="34" Y="28"/>
<EditorIndex Value="16"/>
<EditorIndex Value="11"/>
<Filename Value="fpdeutil.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
@ -138,26 +138,26 @@
<UsageCount Value="46"/>
</Unit10>
<Unit11>
<CursorPos X="30" Y="9"/>
<EditorIndex Value="8"/>
<CursorPos X="15" Y="71"/>
<EditorIndex Value="9"/>
<Filename Value="frmexample.pp"/>
<ComponentName Value="ExampleForm"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="frmexample.lrs"/>
<TopLine Value="1"/>
<TopLine Value="66"/>
<UnitName Value="FrmExample"/>
<UsageCount Value="37"/>
</Unit11>
<Unit12>
<CursorPos X="14" Y="665"/>
<EditorIndex Value="9"/>
<CursorPos X="3" Y="570"/>
<EditorIndex Value="10"/>
<Filename Value="frmbuild.pp"/>
<ComponentName Value="BuildForm"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="frmbuild.lrs"/>
<TopLine Value="655"/>
<TopLine Value="545"/>
<UnitName Value="frmBuild"/>
<UsageCount Value="32"/>
</Unit12>