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

Documentation Editor: improve showing Build sources after deletion. Issue #20736, patch from BigChimp

Browse Source 
git-svn-id: trunk@33736 -
This commit is contained in:
juha 2011-11-23 21:09:48 +00:00
parent 17a5f29c18
commit 36e4079462
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
doceditor/frmbuild.pp
View File

@ -115,6 +115,7 @@ type
procedure BuildFormDestroy(Sender: TObject);
procedure EOutputButtonClick(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure Sgsourcesdblclick(Sender: Tobject);
private
FFileName: String;
OldBuf: String;
@ -308,6 +309,7 @@ procedure TBuildForm.ASourceDeleteExecute(Sender: TObject);
begin
if Sender=nil then ;
DeleteSource(CurrentSourceIndex);
DisplaySources; //Update GUI with changes
end;
procedure TBuildForm.ASourceDeleteUpdate(Sender: TObject);
@ -420,6 +422,12 @@ begin
EOutput.Width:= Panel1.Left - EOutput.ButtonWidth - 12;
end;
procedure Tbuildform.Sgsourcesdblclick(Sender: Tobject);
begin
// Allow editing of contents by doubleclick
ASourceEditExecute(nil);
End;
{ ---------------------------------------------------------------------
general loading and saving of form.
---------------------------------------------------------------------}
@ -592,7 +600,7 @@ end;
function TBuildForm.AddSource(const ASource, AOptions: String): Integer;
begin
Result:=FOptions.Add(ASource+'='+AOptions);
DisplaySources;
DisplaySources; //Update GUI with changes
end;
Procedure TBuildForm.SetSourceOptions(Index : Integer; const ASource, AOptions: String);