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

lazsvnpkg: less hints

Browse Source 
git-svn-id: trunk@41925 -
This commit is contained in:
mattias 2013-06-27 15:33:46 +00:00
parent a1f45caea2
commit 27219f04b0
7 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazsvnpkg/svnclasses.pas
View File

@ -24,7 +24,7 @@ interface
uses
Classes, SysUtils, ComCtrls, FileUtil, LCLProc, Controls,
XMLRead, DOM, Process, StdCtrls, Forms, contnrs, fgl;
XMLRead, DOM, Process, StdCtrls, Forms, fgl;
resourcestring
rsAction = 'Action';

2
components/lazsvnpkg/svncommitform.pas
View File

@ -25,7 +25,7 @@ type
FSVNCommandLine: string;
public
{ public declarations }
procedure Execute(Data: PtrInt);
procedure Execute({%H-}Data: PtrInt);
property SVNCommandLine: string read FSVNCommandLine write FSVNCommandLine;
end;

4
components/lazsvnpkg/svndiffform.pas
View File

@ -40,13 +40,13 @@ type
procedure FormShow(Sender: TObject);
procedure OKButtonClick(Sender: TObject);
procedure SaveButtonClick(Sender: TObject);
destructor Destroy; override;
private
FFileList: TStringList;
FSwitches: string;
FRepoBaseDir: string;
public
procedure Execute(Data: PtrInt);
destructor Destroy; override;
procedure Execute({%H-}Data: PtrInt);
{list of filenames with absolute path}
property FileList: TStringList read FFileList write FFileList;
{switches for the diff command}

2
components/lazsvnpkg/svnlogform.pas
View File

@ -100,7 +100,7 @@ type
procedure ChangeCursor(ACursor: TCursor);
public
{ public declarations }
procedure Execute(Data: PtrInt);
procedure Execute({%H-}Data: PtrInt);
property RepositoryPath: string read FRepositoryPath write FRepositoryPath;
end;

3
components/lazsvnpkg/svnstatusform.pas
View File

@ -64,7 +64,7 @@ type
private
FRepositoryPath: string;
SVNStatus: TSVNStatus;
procedure Initialize(Data: PtrInt);
procedure Initialize({%H-}Data: PtrInt);
procedure ExecuteSvnCommand(ACommand: String; AFile: String);
procedure UpdateFilesListView;
procedure ChangeCursor(ACursor: TCursor);
@ -187,7 +187,6 @@ end;
procedure TSVNStatusFrm.mnuShowDiffClick(Sender: TObject);
begin
{$note implement opening file in source editor}
if Assigned(SVNFileListView.Selected) then
begin
debugln('TSVNStatusFrm.mnuShowDiffClick Path=' ,SVNFileListView.Selected.SubItems[0]);

5
components/lazsvnpkg/svnupdateform.pas
View File

@ -24,7 +24,7 @@ interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ComCtrls, StdCtrls, ButtonPanel, Process, Buttons, Menus, LCLProc;
ComCtrls, ButtonPanel, Process, Buttons, Menus, LCLProc;
type
@ -48,7 +48,7 @@ type
procedure ProcessSVNUpdateOutput(var MemStream: TMemoryStream; var BytesRead: LongInt);
public
{ public declarations }
procedure Execute(Data: PtrInt);
procedure Execute({%H-}Data: PtrInt);
property RepositoryPath: string read FRepositoryPath write FrepositoryPath;
end;
@ -106,7 +106,6 @@ end;
procedure TSVNUpdateFrm.mnuShowDiffClick(Sender: TObject);
begin
{$note implement opening file in source editor}
if Assigned(SVNUpdateListView.Selected) then
begin
if (SVNUpdateListView.Selected.Caption = rsAdded) or

1
packager/packageeditor.pas
View File

@ -2410,6 +2410,7 @@ begin
if PackageEditorMenuRoot.MenuItem=FilesPopupMenu.Items then
PackageEditorMenuRoot.MenuItem:=nil;
PackageEditors.DoFreeEditor(LazPackage);
FLazPackage:=nil;
FreeAndNil(FPlugins);
for nt:=Low(TPENodeType) to High(TPENodeType) do
FreeNodeData(nt);