paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 20:19:24 +01: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 uses
Classes, SysUtils, ComCtrls, FileUtil, LCLProc, Controls, Classes, SysUtils, ComCtrls, FileUtil, LCLProc, Controls,
XMLRead, DOM, Process, StdCtrls, Forms, contnrs, fgl; XMLRead, DOM, Process, StdCtrls, Forms, fgl;
resourcestring resourcestring
rsAction = 'Action'; rsAction = 'Action';

2
components/lazsvnpkg/svncommitform.pas
View File

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

4
components/lazsvnpkg/svndiffform.pas
View File

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

2
components/lazsvnpkg/svnlogform.pas
View File

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

3
components/lazsvnpkg/svnstatusform.pas
View File

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

5
components/lazsvnpkg/svnupdateform.pas
View File

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

1
packager/packageeditor.pas
View File

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