paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-14 04:40:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

Changed private variable FRepoPath to property RepositoryPath

Browse Source 
git-svn-id: trunk@17169 -
This commit is contained in:
darius 2008-11-01 11:39:24 +00:00
parent 97f2b268a1
commit aa20e38629
11 changed files with 120 additions and 125 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazsvnpkg/svnclasses.pas
View File

@ -72,10 +72,6 @@ const
type type
TSortDirection = (sdAscending, sdDescending); TSortDirection = (sdAscending, sdDescending);
//TColumnSortInfo = record
//Index: integer;
//SortOrder: TSortOrder;
//end;
{ TSVNSettings } { TSVNSettings }
@ -127,7 +123,7 @@ type
TSVNStatus = class(TObject) TSVNStatus = class(TObject)
private private
FRepository: string; FRepositoryPath: string;
FSortDirection: TSortDirection; FSortDirection: TSortDirection;
FSortItem: TStatusItemName; FSortItem: TStatusItemName;
public public
@ -136,7 +132,7 @@ type
constructor Create(const ARepoPath: string); constructor Create(const ARepoPath: string);
destructor Destroy; override; destructor Destroy; override;
property Repository: string read FRepository write FRepository; property RepositoryPath: string read FRepositoryPath write FrepositoryPath;
procedure Sort(ASortItem: TStatusItemName; ADirection: TSortDirection); procedure Sort(ASortItem: TStatusItemName; ADirection: TSortDirection);
procedure ReverseSort(ASortItem: TStatusItemName); procedure ReverseSort(ASortItem: TStatusItemName);
property SortDirection: TSortDirection read FSortDirection write FSortDirection; property SortDirection: TSortDirection read FSortDirection write FSortDirection;
@ -476,13 +472,13 @@ var
NodeValue: string; NodeValue: string;
begin begin
List := TFPList.Create; List := TFPList.Create;
Repository := ARepoPath; RepositoryPath := ARepoPath;
M := TMemoryStream.Create; M := TMemoryStream.Create;
BytesRead := 0; BytesRead := 0;
AProcess := TProcess.Create(nil); AProcess := TProcess.Create(nil);
AProcess.CommandLine := SVNExecutable + ' stat --verbose --xml ' + Repository + ' --non-interactive'; AProcess.CommandLine := SVNExecutable + ' stat --verbose --xml ' + RepositoryPath + ' --non-interactive';
debugln('TSVNStatus.Create CommandLine ' + AProcess.CommandLine); debugln('TSVNStatus.Create CommandLine ' + AProcess.CommandLine);
AProcess.Options := AProcess.Options + [poUsePipes, poStdErrToOutput]; AProcess.Options := AProcess.Options + [poUsePipes, poStdErrToOutput];
AProcess.ShowWindow := swoHIDE; AProcess.ShowWindow := swoHIDE;

9
components/lazsvnpkg/svndiffform.pas
View File

@ -39,12 +39,13 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure SaveButtonClick(Sender: TObject); procedure SaveButtonClick(Sender: TObject);
private private
FRepositoryPath: string;
{ private declarations } { private declarations }
FSwitches: string; FSwitches: string;
FRepoPath: string;
public public
{ public declarations } { public declarations }
procedure Execute(Data: PtrInt); procedure Execute(Data: PtrInt);
property RepositoryPath: string read FRepositoryPath write FrepositoryPath;
end; end;
procedure ShowSVNDiffFrm(ASwitches, ARepoPath: string); procedure ShowSVNDiffFrm(ASwitches, ARepoPath: string);
@ -60,7 +61,7 @@ var
begin begin
SVNDiffFrm := TSVNDiffFrm.Create(nil); SVNDiffFrm := TSVNDiffFrm.Create(nil);
SVNDiffFrm.FRepoPath:=ARepoPath; SVNDiffFrm.RepositoryPath:=ARepoPath;
SVNDiffFrm.FSwitches:=ASwitches; SVNDiffFrm.FSwitches:=ASwitches;
SVNDiffFrm.ShowModal; SVNDiffFrm.ShowModal;
@ -71,7 +72,7 @@ end;
procedure TSVNDiffFrm.FormShow(Sender: TObject); procedure TSVNDiffFrm.FormShow(Sender: TObject);
begin begin
Caption := Format(rsLazarusSVNDiff, [FRepoPath]); Caption := Format(rsLazarusSVNDiff, [RepositoryPath]);
Application.QueueAsyncCall(@Execute, 0); Application.QueueAsyncCall(@Execute, 0);
end; end;
@ -94,7 +95,7 @@ var
M: TMemoryStream; M: TMemoryStream;
begin begin
AProcess := TProcess.Create(nil); AProcess := TProcess.Create(nil);
AProcess.CommandLine := SVNExecutable + ' diff ' + FSwitches + ' ' + FRepoPath + ' --non-interactive'; AProcess.CommandLine := SVNExecutable + ' diff ' + FSwitches + ' ' + RepositoryPath + ' --non-interactive';
debugln('TSVNDiffFrm.Execute commandline=', AProcess.CommandLine); debugln('TSVNDiffFrm.Execute commandline=', AProcess.CommandLine);
AProcess.Options := AProcess.Options + [poUsePipes, poStdErrToOutput]; AProcess.Options := AProcess.Options + [poUsePipes, poStdErrToOutput];
AProcess.ShowWindow := swoHIDE; AProcess.ShowWindow := swoHIDE;

18
components/lazsvnpkg/svnlogform.lfm
View File

@ -40,9 +40,9 @@ object SVNLogFrm: TSVNLogFrm
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = SVNLogLimit AnchorSideTop.Control = SVNLogLimit
Left = 6 Left = 6
Height = 14 Height = 18
Top = 497 Top = 489
Width = 97 Width = 134
HelpContext = 0 HelpContext = 0
Align = alNone Align = alNone
Alignment = taLeftJustify Alignment = taLeftJustify
@ -153,7 +153,7 @@ object SVNLogFrm: TSVNLogFrm
object SVNActionsListView: TListView object SVNActionsListView: TListView
AnchorSideBottom.Control = RefreshButton AnchorSideBottom.Control = RefreshButton
Left = 6 Left = 6
Height = 163 Height = 155
Top = 326 Top = 326
Width = 714 Width = 714
HelpContext = 0 HelpContext = 0
@ -204,8 +204,8 @@ object SVNLogFrm: TSVNLogFrm
end end
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 40 Height = 48
Top = 526 Top = 518
Width = 714 Width = 714
HelpContext = 0 HelpContext = 0
Align = alBottom Align = alBottom
@ -255,9 +255,9 @@ object SVNLogFrm: TSVNLogFrm
AnchorSideLeft.Control = Label1 AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel AnchorSideBottom.Control = ButtonPanel
Left = 109 Left = 146
Height = 23 Height = 23
Top = 497 Top = 489
Width = 94 Width = 94
HelpContext = 0 HelpContext = 0
Align = alNone Align = alNone
@ -289,7 +289,7 @@ object SVNLogFrm: TSVNLogFrm
AnchorSideBottom.Control = ButtonPanel AnchorSideBottom.Control = ButtonPanel
Left = 645 Left = 645
Height = 25 Height = 25
Top = 495 Top = 487
Width = 75 Width = 75
HelpContext = 0 HelpContext = 0
Align = alNone Align = alNone

74
components/lazsvnpkg/svnlogform.lrs
View File

@ -15,17 +15,17 @@ LazarusResources.Add('TSVNLogFrm','FORMDATA',[
+'de'#9#10'ParentFont'#8#8'Position'#7#14'poScreenCenter'#13'ShowInTaskBar'#7 +'de'#9#10'ParentFont'#8#8'Position'#7#14'poScreenCenter'#13'ShowInTaskBar'#7
+#9'stDefault'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.9.27'#11'WindowState' +#9'stDefault'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.9.27'#11'WindowState'
+#7#8'wsNormal'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21 +#7#8'wsNormal'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21
+'AnchorSideTop.Control'#7#11'SVNLogLimit'#4'Left'#2#6#6'Height'#2#14#3'Top'#3 +'AnchorSideTop.Control'#7#11'SVNLogLimit'#4'Left'#2#6#6'Height'#2#18#3'Top'#3
+#241#1#5'Width'#2'a'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7 +#233#1#5'Width'#3#134#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'
+#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#17'BorderSpacing' +#7#13'taLeftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#6#17'BorderSpaci'
+'.Top'#2#0#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#0#20'Borde' +'ng.Top'#2#0#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2#0#20'Bor'
+'rSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Bo' +'derSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31
+'rderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#19'Show last X com' +'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#19'Show last X c'
+'mits'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6'L' +'ommits'#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6
+'ayout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14 +'Layout'#7#5'tlTop'#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9
+'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'Word' +#14'ParentShowHint'#9#13'ShowAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'W'
+'Wrap'#8#11'OptimalFill'#8#0#0#9'TListView'#11'LogListView'#4'Left'#2#6#6'He' +'ordWrap'#8#11'OptimalFill'#8#0#0#9'TListView'#11'LogListView'#4'Left'#2#6#6
+'ight'#3#159#0#3'Top'#2#6#5'Width'#3#202#2#11'HelpContext'#2#0#5'Align'#7#5 +'Height'#3#159#0#3'Top'#2#6#5'Width'#3#202#2#11'HelpContext'#2#0#5'Align'#7#5
+'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacin' +'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacin'
+'g.Right'#2#6#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!Bor' +'g.Right'#2#6#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!Bor'
+'derSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVert' +'derSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVert'
@ -46,7 +46,7 @@ LazarusResources.Add('TSVNLogFrm','FORMDATA',[
+#0#9'MaxLength'#2#255#14'ParentBidiMode'#9#10'ParentFont'#8#8'ReadOnly'#8#10 +#0#9'MaxLength'#2#255#14'ParentBidiMode'#9#10'ParentFont'#8#8'ReadOnly'#8#10
+'ScrollBars'#7#6'ssNone'#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#11'WantRe' +'ScrollBars'#7#6'ssNone'#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#11'WantRe'
+'turns'#9#8'WantTabs'#8#0#0#9'TListView'#18'SVNActionsListView'#24'AnchorSid' +'turns'#9#8'WantTabs'#8#0#0#9'TListView'#18'SVNActionsListView'#24'AnchorSid'
+'eBottom.Control'#7#13'RefreshButton'#4'Left'#2#6#6'Height'#3#163#0#3'Top'#3 +'eBottom.Control'#7#13'RefreshButton'#4'Left'#2#6#6'Height'#3#155#0#3'Top'#3
+'F'#1#5'Width'#3#202#2#11'HelpContext'#2#0#5'Align'#7#5'alTop'#7'Anchors'#11 +'F'#1#5'Width'#3#202#2#11'HelpContext'#2#0#5'Align'#7#5'alTop'#7'Anchors'#11
+#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#17'B' +#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#17'B'
+'orderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2 +'orderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bottom'#2
@ -59,12 +59,12 @@ LazarusResources.Add('TSVNLogFrm','FORMDATA',[
+'ReadOnly'#8#9'RowSelect'#9#10'ScrollBars'#7#6'ssBoth'#17'ShowColumnHeaders' +'ReadOnly'#8#9'RowSelect'#9#10'ScrollBars'#7#6'ssBoth'#17'ShowColumnHeaders'
+#9#10'SortColumn'#2#0#8'SortType'#7#6'stNone'#7'TabStop'#9#8'TabOrder'#2#2#8 +#9#10'SortColumn'#2#0#8'SortType'#7#6'stNone'#7'TabStop'#9#8'TabOrder'#2#2#8
+'ToolTips'#9#7'Visible'#9#9'ViewStyle'#7#8'vsReport'#0#0#12'TButtonPanel'#11 +'ToolTips'#9#7'Visible'#9#9'ViewStyle'#7#8'vsReport'#0#0#12'TButtonPanel'#11
+'ButtonPanel'#4'Left'#2#6#6'Height'#2'('#3'Top'#3#14#2#5'Width'#3#202#2#11'H' +'ButtonPanel'#4'Left'#2#6#6'Height'#2'0'#3'Top'#3#6#2#5'Width'#3#202#2#11'He'
+'elpContext'#2#0#5'Align'#7#8'alBottom'#8'AutoSize'#9#11'ButtonOrder'#7#9'bo' +'lpContext'#2#0#5'Align'#7#8'alBottom'#8'AutoSize'#9#11'ButtonOrder'#7#9'boD'
+'Default'#8'TabOrder'#2#3#13'DefaultButton'#7#4'pbOK'#11'ShowButtons'#11#4'p' +'efault'#8'TabOrder'#2#3#13'DefaultButton'#7#4'pbOK'#11'ShowButtons'#11#4'pb'
+'bOK'#0#10'ShowGlyphs'#11#4'pbOK'#8'pbCancel'#7'pbClose'#6'pbHelp'#0#7'Visib' +'OK'#0#10'ShowGlyphs'#11#4'pbOK'#8'pbCancel'#7'pbClose'#6'pbHelp'#0#7'Visibl'
+'le'#9#0#0#9'TSplitter'#9'Splitter1'#6'Cursor'#7#8'crVSplit'#4'Left'#2#0#6'H' +'e'#9#0#0#9'TSplitter'#9'Splitter1'#6'Cursor'#7#8'crVSplit'#4'Left'#2#0#6'He'
+'eight'#2#5#3'Top'#3#165#0#5'Width'#3#214#2#11'HelpContext'#2#0#5'Align'#7#5 +'ight'#2#5#3'Top'#3#165#0#5'Width'#3#214#2#11'HelpContext'#2#0#5'Align'#7#5
,'alTop'#8'AutoSnap'#9#7'Beveled'#8#7'MinSize'#2#30#11'ParentColor'#9#14'Pare' ,'alTop'#8'AutoSnap'#9#7'Beveled'#8#7'MinSize'#2#30#11'ParentColor'#9#14'Pare'
+'ntShowHint'#9#12'ResizeAnchor'#7#5'akTop'#11'ResizeStyle'#7#8'rsUpdate'#7'V' +'ntShowHint'#9#12'ResizeAnchor'#7#5'akTop'#11'ResizeStyle'#7#8'rsUpdate'#7'V'
+'isible'#9#0#0#9'TSplitter'#9'Splitter2'#6'Cursor'#7#8'crVSplit'#4'Left'#2#0 +'isible'#9#0#0#9'TSplitter'#9'Splitter2'#6'Cursor'#7#8'crVSplit'#4'Left'#2#0
@ -73,25 +73,25 @@ LazarusResources.Add('TSVNLogFrm','FORMDATA',[
+'rentShowHint'#9#12'ResizeAnchor'#7#5'akTop'#11'ResizeStyle'#7#8'rsUpdate'#7 +'rentShowHint'#9#12'ResizeAnchor'#7#5'akTop'#11'ResizeStyle'#7#8'rsUpdate'#7
+'Visible'#9#0#0#9'TSpinEdit'#11'SVNLogLimit'#22'AnchorSideLeft.Control'#7#6 +'Visible'#9#0#0#9'TSpinEdit'#11'SVNLogLimit'#22'AnchorSideLeft.Control'#7#6
+'Label1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control' +'Label1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'
+#7#11'ButtonPanel'#4'Left'#2'm'#6'Height'#2#23#3'Top'#3#241#1#5'Width'#2'^' +#7#11'ButtonPanel'#4'Left'#3#146#0#6'Height'#2#23#3'Top'#3#233#1#5'Width'#2
+#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom' +'^'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBot'
+#0#10'AutoSelect'#8#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacin' +'tom'#0#10'AutoSelect'#8#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderS'
+'g.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'Bord' +'pacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20
+'erSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'B' +'BorderSpacing.Around'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'
+'orderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Enabled'#9#9'Increment'#2#1#8 +#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Enabled'#9#9'Increment'#2
+'MaxValue'#4#160#134#1#0#8'MinValue'#2#0#10'ParentFont'#9#14'ParentShowHint' +#1#8'MaxValue'#4#160#134#1#0#8'MinValue'#2#0#10'ParentFont'#9#14'ParentShowH'
+#9#8'ReadOnly'#8#7'TabStop'#9#8'TabOrder'#2#6#5'Value'#2'd'#7'Visible'#9#0#0 +'int'#9#8'ReadOnly'#8#7'TabStop'#9#8'TabOrder'#2#6#5'Value'#2'd'#7'Visible'#9
+#7'TButton'#13'RefreshButton'#23'AnchorSideRight.Control'#7#5'Owner'#20'Anch' +#0#0#7'TButton'#13'RefreshButton'#23'AnchorSideRight.Control'#7#5'Owner'#20
+'orSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#11'ButtonPa' +'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#11'Butt'
+'nel'#4'Left'#3#133#2#6'Height'#2#25#3'Top'#3#239#1#5'Width'#2'K'#11'HelpCon' +'onPanel'#4'Left'#3#133#2#6'Height'#2#25#3'Top'#3#231#1#5'Width'#2'K'#11'Hel'
+'text'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'Aut' +'pContext'#2#0#5'Align'#7#6'alNone'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8
+'oSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpac' +'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderS'
+'ing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6'!B' +'pacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#6
+'orderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVe' +'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlign'
+'rtical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#7'Refresh'#7'Default'#8#10'Dr' +'Vertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#7'Refresh'#7'Default'#8#10
+'agCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiM' +'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBid'
+'ode'#9#11'ModalResult'#2#0#7'OnClick'#7#18'RefreshButtonClick'#10'ParentFon' +'iMode'#9#11'ModalResult'#2#0#7'OnClick'#7#18'RefreshButtonClick'#10'ParentF'
+'t'#9#14'ParentShowHint'#9#8'TabOrder'#2#7#7'TabStop'#9#7'Visible'#9#0#0#10 +'ont'#9#14'ParentShowHint'#9#8'TabOrder'#2#7#7'TabStop'#9#7'Visible'#9#0#0#10
+'TPopupMenu'#19'SVNActionsPopupMenu'#4'left'#2'%'#3'top'#3'q'#1#0#9'TMenuIte' +'TPopupMenu'#19'SVNActionsPopupMenu'#4'left'#2'%'#3'top'#3'q'#1#0#9'TMenuIte'
+'m'#11'mnuShowDiff'#7'Caption'#6#9'New Item1'#12'RightJustify'#8#19'ShowAlwa' +'m'#11'mnuShowDiff'#7'Caption'#6#9'New Item1'#12'RightJustify'#8#19'ShowAlwa'
+'ysCheckable'#8#7'OnClick'#7#16'mnuShowDiffClick'#0#0#0#0 +'ysCheckable'#8#7'OnClick'#7#16'mnuShowDiffClick'#0#0#0#0

14
components/lazsvnpkg/svnlogform.pas
View File

@ -83,13 +83,15 @@ type
procedure LogListViewSelectItem(Sender: TObject; Item: TListItem; procedure LogListViewSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean); Selected: Boolean);
private private
FRepositoryPath: string;
{ private declarations } { private declarations }
FRepoPath: string;
LogList: TFPList; LogList: TFPList;
procedure UpdateLogListView; procedure UpdateLogListView;
public public
{ public declarations } { public declarations }
procedure Execute(Data: PtrInt); procedure Execute(Data: PtrInt);
property RepositoryPath: string read FRepositoryPath write FrepositoryPath;
end; end;
procedure ShowSVNLogFrm(ARepoPath: string); procedure ShowSVNLogFrm(ARepoPath: string);
@ -105,7 +107,7 @@ var
begin begin
SVNLogFrm := TSVNLogFrm.Create(nil); SVNLogFrm := TSVNLogFrm.Create(nil);
SVNLogFrm.FRepoPath:=ARepoPath; SVNLogFrm.RepositoryPath:=ARepoPath;
SVNLogFrm.ShowModal; SVNLogFrm.ShowModal;
SVNLogFrm.Free; SVNLogFrm.Free;
@ -181,7 +183,7 @@ end;
procedure TSVNLogFrm.FormShow(Sender: TObject); procedure TSVNLogFrm.FormShow(Sender: TObject);
begin begin
Caption := Format(rsLazarusSVNLog, [FRepoPath]); Caption := Format(rsLazarusSVNLog, [RepositoryPath]);
Application.QueueAsyncCall(@Execute, 0); Application.QueueAsyncCall(@Execute, 0);
end; end;
@ -258,7 +260,7 @@ begin
path := SVNActionsListView.Selected.SubItems[0]; path := SVNActionsListView.Selected.SubItems[0];
Delete(path, 1, 1); Delete(path, 1, 1);
i := pos('/', path); i := pos('/', path);
ShowSVNDiffFrm('-r PREV', FRepoPath + Copy(path, i, length(path) - i + 1)); ShowSVNDiffFrm('-r PREV', RepositoryPath + Copy(path, i, length(path) - i + 1));
end; end;
end; end;
@ -308,10 +310,10 @@ var
end; end;
end; end;
begin begin
debugln('TSVNLogFrm.Execute FRepoPath=' ,FRepoPath); debugln('TSVNLogFrm.Execute RepositoryPath=' ,RepositoryPath);
AProcess := TProcess.Create(nil); AProcess := TProcess.Create(nil);
AProcess.CommandLine := SVNExecutable + ' log --xml --verbose --limit ' + IntToStr(SVNLogLimit.Value) + ' ' + FRepoPath + ' --non-interactive'; AProcess.CommandLine := SVNExecutable + ' log --xml --verbose --limit ' + IntToStr(SVNLogLimit.Value) + ' ' + RepositoryPath + ' --non-interactive';
debugln('TSVNLogFrm.Execute CommandLine ' + AProcess.CommandLine); debugln('TSVNLogFrm.Execute CommandLine ' + AProcess.CommandLine);
AProcess.Options := AProcess.Options + [poUsePipes, poStdErrToOutput]; AProcess.Options := AProcess.Options + [poUsePipes, poStdErrToOutput];
AProcess.ShowWindow := swoHIDE; AProcess.ShowWindow := swoHIDE;

21
components/lazsvnpkg/svnstatusform.lfm
View File

@ -1,7 +1,7 @@
object SVNStatusFrm: TSVNStatusFrm object SVNStatusFrm: TSVNStatusFrm
Left = 150 Left = 310
Height = 408 Height = 408
Top = 200 Top = 174
Width = 738 Width = 738
HelpContext = 0 HelpContext = 0
ActiveControl = SVNFileListView ActiveControl = SVNFileListView
@ -37,7 +37,7 @@ object SVNStatusFrm: TSVNStatusFrm
WindowState = wsNormal WindowState = wsNormal
object SVNFileListView: TListView object SVNFileListView: TListView
Left = 6 Left = 6
Height = 274 Height = 266
Top = 88 Top = 88
Width = 726 Width = 726
HelpContext = 0 HelpContext = 0
@ -106,7 +106,7 @@ object SVNStatusFrm: TSVNStatusFrm
object SVNCommitMsgMemo: TMemo object SVNCommitMsgMemo: TMemo
Left = 6 Left = 6
Height = 77 Height = 77
Top = 6 Top = 11
Width = 726 Width = 726
HelpContext = 0 HelpContext = 0
Align = alTop Align = alTop
@ -121,12 +121,7 @@ object SVNStatusFrm: TSVNStatusFrm
DragCursor = crDrag DragCursor = crDrag
DragMode = dmManual DragMode = dmManual
Enabled = True Enabled = True
Font.CharSet = ANSI_CHARSET Font.Height = 0
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Courier'
Font.Pitch = fpFixed
Font.Quality = fqDraft
Font.Style = [] Font.Style = []
MaxLength = -1 MaxLength = -1
ParentBidiMode = True ParentBidiMode = True
@ -141,8 +136,8 @@ object SVNStatusFrm: TSVNStatusFrm
end end
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 40 Height = 48
Top = 368 Top = 360
Width = 726 Width = 726
HelpContext = 0 HelpContext = 0
Align = alBottom Align = alBottom
@ -158,7 +153,7 @@ object SVNStatusFrm: TSVNStatusFrm
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 83 Top = 0
Width = 738 Width = 738
HelpContext = 0 HelpContext = 0
Align = alTop Align = alTop

40
components/lazsvnpkg/svnstatusform.lrs
View File

@ -1,8 +1,8 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TSVNStatusFrm','FORMDATA',[ LazarusResources.Add('TSVNStatusFrm','FORMDATA',[
'TPF0'#13'TSVNStatusFrm'#12'SVNStatusFrm'#4'Left'#3#150#0#6'Height'#3#152#1#3 'TPF0'#13'TSVNStatusFrm'#12'SVNStatusFrm'#4'Left'#3'6'#1#6'Height'#3#152#1#3
+'Top'#3#200#0#5'Width'#3#226#2#11'HelpContext'#2#0#13'ActiveControl'#7#15'SV' +'Top'#3#174#0#5'Width'#3#226#2#11'HelpContext'#2#0#13'ActiveControl'#7#15'SV'
+'NFileListView'#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'AutoScroll'#9#8 +'NFileListView'#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'AutoScroll'#9#8
+'AutoSize'#8#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#10'biMaximiz' +'AutoSize'#8#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#10'biMaximiz'
+'e'#0#11'BorderStyle'#7#10'bsSizeable'#7'Caption'#6#12'SVNStatusFrm'#28'Chil' +'e'#0#11'BorderStyle'#7#10'bsSizeable'#7'Caption'#6#12'SVNStatusFrm'#28'Chil'
@ -14,7 +14,7 @@ LazarusResources.Add('TSVNStatusFrm','FORMDATA',[
+'te'#7#10'FormCreate'#6'OnShow'#7#8'FormShow'#14'ParentBiDiMode'#9#10'Parent' +'te'#7#10'FormCreate'#6'OnShow'#7#8'FormShow'#14'ParentBiDiMode'#9#10'Parent'
+'Font'#8#8'Position'#7#14'poScreenCenter'#13'ShowInTaskBar'#7#9'stDefault'#14 +'Font'#8#8'Position'#7#14'poScreenCenter'#13'ShowInTaskBar'#7#9'stDefault'#14
+'UseDockManager'#8#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsNormal'#0 +'UseDockManager'#8#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsNormal'#0
+#9'TListView'#15'SVNFileListView'#4'Left'#2#6#6'Height'#3#18#1#3'Top'#2'X'#5 +#9'TListView'#15'SVNFileListView'#4'Left'#2#6#6'Height'#3#10#1#3'Top'#2'X'#5
+'Width'#3#214#2#11'HelpContext'#2#0#5'Align'#7#8'alClient'#18'BorderSpacing.' +'Width'#3#214#2#11'HelpContext'#2#0#5'Align'#7#8'alClient'#18'BorderSpacing.'
+'Left'#2#6#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#6#20'BorderSp' +'Left'#2#6#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#6#20'BorderSp'
+'acing.Bottom'#2#6#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHori' +'acing.Bottom'#2#6#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHori'
@ -29,26 +29,24 @@ LazarusResources.Add('TSVNStatusFrm','FORMDATA',[
+'stText'#7'TabStop'#9#8'TabOrder'#2#0#8'ToolTips'#9#7'Visible'#9#9'ViewStyle' +'stText'#7'TabStop'#9#8'TabOrder'#2#0#8'ToolTips'#9#7'Visible'#9#9'ViewStyle'
+#7#8'vsReport'#13'OnColumnClick'#7#26'SVNFileListViewColumnClick'#12'OnSelec' +#7#8'vsReport'#13'OnColumnClick'#7#26'SVNFileListViewColumnClick'#12'OnSelec'
+'tItem'#7#25'SVNFileListViewSelectItem'#0#0#5'TMemo'#16'SVNCommitMsgMemo'#4 +'tItem'#7#25'SVNFileListViewSelectItem'#0#0#5'TMemo'#16'SVNCommitMsgMemo'#4
+'Left'#2#6#6'Height'#2'M'#3'Top'#2#6#5'Width'#3#214#2#11'HelpContext'#2#0#5 +'Left'#2#6#6'Height'#2'M'#3'Top'#2#11#5'Width'#3#214#2#11'HelpContext'#2#0#5
+'Align'#7#5'alTop'#9'Alignment'#7#13'taLeftJustify'#18'BorderSpacing.Left'#2 +'Align'#7#5'alTop'#9'Alignment'#7#13'taLeftJustify'#18'BorderSpacing.Left'#2
+#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bo' +#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'BorderSpacing.Bo'
+'ttom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7 +'ttom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7
+#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#10'DragCursor'#7 +#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#10'DragCursor'#7
+#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#12'Font.CharSet'#7#12'ANSI' +#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'Font.Height'#2#0#10'Fon'
+'_CHARSET'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#243#9'Font.Name'#6#7 +'t.Style'#11#0#9'MaxLength'#2#255#14'ParentBidiMode'#9#10'ParentFont'#8#8'Re'
+'Courier'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#7'fqDraft'#10'Font.' +'adOnly'#8#10'ScrollBars'#7#6'ssNone'#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'
+'Style'#11#0#9'MaxLength'#2#255#14'ParentBidiMode'#9#10'ParentFont'#8#8'Read' +#9#11'WantReturns'#9#8'WantTabs'#8#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Le'
+'Only'#8#10'ScrollBars'#7#6'ssNone'#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9 +'ft'#2#6#6'Height'#2'0'#3'Top'#3'h'#1#5'Width'#3#214#2#11'HelpContext'#2#0#5
+#11'WantReturns'#9#8'WantTabs'#8#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Left' +'Align'#7#8'alBottom'#8'AutoSize'#9#11'ButtonOrder'#7#9'boDefault'#8'TabOrde'
+#2#6#6'Height'#2'('#3'Top'#3'p'#1#5'Width'#3#214#2#11'HelpContext'#2#0#5'Ali' +'r'#2#2#13'DefaultButton'#7#4'pbOK'#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#0
+'gn'#7#8'alBottom'#8'AutoSize'#9#11'ButtonOrder'#7#9'boDefault'#8'TabOrder'#2 +#10'ShowGlyphs'#11#4'pbOK'#8'pbCancel'#7'pbClose'#6'pbHelp'#0#7'Visible'#9#0
+#2#13'DefaultButton'#7#4'pbOK'#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#0#10'S' +#0#9'TSplitter'#8'Splitter'#6'Cursor'#7#8'crVSplit'#4'Left'#2#0#6'Height'#2#5
+'howGlyphs'#11#4'pbOK'#8'pbCancel'#7'pbClose'#6'pbHelp'#0#7'Visible'#9#0#0#9 +#3'Top'#2#0#5'Width'#3#226#2#11'HelpContext'#2#0#5'Align'#7#5'alTop'#8'AutoS'
+'TSplitter'#8'Splitter'#6'Cursor'#7#8'crVSplit'#4'Left'#2#0#6'Height'#2#5#3 +'nap'#9#7'Beveled'#8#7'MinSize'#2#30#11'ParentColor'#9#14'ParentShowHint'#9
+'Top'#2'S'#5'Width'#3#226#2#11'HelpContext'#2#0#5'Align'#7#5'alTop'#8'AutoSn' +#12'ResizeAnchor'#7#5'akTop'#11'ResizeStyle'#7#8'rsUpdate'#7'Visible'#9#0#0
+'ap'#9#7'Beveled'#8#7'MinSize'#2#30#11'ParentColor'#9#14'ParentShowHint'#9#12 +#10'TPopupMenu'#10'PopupMenu1'#4'left'#2'5'#3'top'#3#213#0#0#9'TMenuItem'#11
+'ResizeAnchor'#7#5'akTop'#11'ResizeStyle'#7#8'rsUpdate'#7'Visible'#9#0#0#10 +'mnuShowDiff'#7'Caption'#6#9'New Item1'#12'RightJustify'#8#19'ShowAlwaysChec'
+'TPopupMenu'#10'PopupMenu1'#4'left'#2'5'#3'top'#3#213#0#0#9'TMenuItem'#11'mn' +'kable'#8#7'OnClick'#7#16'mnuShowDiffClick'#0#0#0#0
+'uShowDiff'#7'Caption'#6#9'New Item1'#12'RightJustify'#8#19'ShowAlwaysChecka'
+'ble'#8#7'OnClick'#7#16'mnuShowDiffClick'#0#0#0#0
]); ]);

17
components/lazsvnpkg/svnstatusform.pas
View File

@ -46,12 +46,13 @@ type
procedure SVNFileListViewSelectItem(Sender: TObject; Item: TListItem; procedure SVNFileListViewSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean); Selected: Boolean);
private private
FRepositoryPath: string;
{ private declarations } { private declarations }
FRepoPath: string;
SVNStatus: TSVNStatus; SVNStatus: TSVNStatus;
procedure UpdateFilesListView(Data: PtrInt); procedure UpdateFilesListView(Data: PtrInt);
public public
{ public declarations } { public declarations }
property RepositoryPath: string read FRepositoryPath write FrepositoryPath;
end; end;
procedure ShowSVNStatusFrm(ARepoPath: string); procedure ShowSVNStatusFrm(ARepoPath: string);
@ -67,7 +68,7 @@ var
begin begin
SVNStatusFrm := TSVNStatusFrm.Create(nil); SVNStatusFrm := TSVNStatusFrm.Create(nil);
SVNStatusFrm.FRepoPath:=ARepoPath; SVNStatusFrm.RepositoryPath:=ARepoPath;
SVNStatusFrm.ShowModal; SVNStatusFrm.ShowModal;
SVNStatusFrm.Free; SVNStatusFrm.Free;
@ -77,10 +78,10 @@ end;
procedure TSVNStatusFrm.FormShow(Sender: TObject); procedure TSVNStatusFrm.FormShow(Sender: TObject);
begin begin
SVNStatus := TSVNStatus.Create(FRepoPath); SVNStatus := TSVNStatus.Create(RepositoryPath);
SVNStatus.Sort(siChecked, sdAscending); SVNStatus.Sort(siChecked, sdAscending);
Caption := Format('%s - %s...', [FRepoPath, rsLazarusSVNCommit]); Caption := Format('%s - %s...', [RepositoryPath, rsLazarusSVNCommit]);
Application.QueueAsyncCall(@UpdateFilesListView, 0); Application.QueueAsyncCall(@UpdateFilesListView, 0);
end; end;
@ -91,10 +92,10 @@ begin
begin begin
debugln('TSVNStatusFrm.mnuShowDiffClick Path=' ,SVNFileListView.Selected.SubItems[0]); debugln('TSVNStatusFrm.mnuShowDiffClick Path=' ,SVNFileListView.Selected.SubItems[0]);
if pos(FRepoPath,SVNFileListView.Selected.SubItems[0]) <> 0 then if pos(RepositoryPath,SVNFileListView.Selected.SubItems[0]) <> 0 then
ShowSVNDiffFrm('-r HEAD', SVNFileListView.Selected.SubItems[0]) ShowSVNDiffFrm('-r HEAD', SVNFileListView.Selected.SubItems[0])
else else
ShowSVNDiffFrm('-r HEAD', AppendPathDelim(FRepoPath) + SVNFileListView.Selected.SubItems[0]); ShowSVNDiffFrm('-r HEAD', AppendPathDelim(RepositoryPath) + SVNFileListView.Selected.SubItems[0]);
end; end;
end; end;
@ -112,8 +113,8 @@ begin
StatusItem := PSVNStatusItem(SVNStatus.List.Items[i]); StatusItem := PSVNStatusItem(SVNStatus.List.Items[i]);
if StatusItem^.Checked then if StatusItem^.Checked then
if pos(FRepoPath,StatusItem^.Path) = 0 then if pos(RepositoryPath,StatusItem^.Path) = 0 then
CmdLine := CmdLine + ' ' + AppendPathDelim(FRepoPath) + StatusItem^.Path CmdLine := CmdLine + ' ' + AppendPathDelim(RepositoryPath) + StatusItem^.Path
else else
CmdLine := CmdLine + ' ' + StatusItem^.Path; CmdLine := CmdLine + ' ' + StatusItem^.Path;
end; end;

10
components/lazsvnpkg/svnupdateform.lfm
View File

@ -36,7 +36,7 @@ object SVNUpdateFrm: TSVNUpdateFrm
WindowState = wsNormal WindowState = wsNormal
object SVNUpdateListView: TListView object SVNUpdateListView: TListView
Left = 6 Left = 6
Height = 248 Height = 240
Top = 6 Top = 6
Width = 628 Width = 628
HelpContext = 0 HelpContext = 0
@ -81,8 +81,8 @@ object SVNUpdateFrm: TSVNUpdateFrm
end end
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 40 Height = 48
Top = 260 Top = 252
Width = 628 Width = 628
HelpContext = 0 HelpContext = 0
Align = alBottom Align = alBottom
@ -95,9 +95,9 @@ object SVNUpdateFrm: TSVNUpdateFrm
Visible = True Visible = True
object ShowLogButton: TBitBtn object ShowLogButton: TBitBtn
Left = 78 Left = 78
Height = 26 Height = 34
Top = 8 Top = 8
Width = 120 Width = 131
HelpContext = 0 HelpContext = 0
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True

16
components/lazsvnpkg/svnupdateform.lrs
View File

@ -14,7 +14,7 @@ LazarusResources.Add('TSVNUpdateFrm','FORMDATA',[
+'how'#14'ParentBiDiMode'#9#10'ParentFont'#8#8'Position'#7#14'poScreenCenter' +'how'#14'ParentBiDiMode'#9#10'ParentFont'#8#8'Position'#7#14'poScreenCenter'
+#13'ShowInTaskBar'#7#9'stDefault'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.' +#13'ShowInTaskBar'#7#9'stDefault'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.'
+'9.27'#11'WindowState'#7#8'wsNormal'#0#9'TListView'#17'SVNUpdateListView'#4 +'9.27'#11'WindowState'#7#8'wsNormal'#0#9'TListView'#17'SVNUpdateListView'#4
+'Left'#2#6#6'Height'#3#248#0#3'Top'#2#6#5'Width'#3't'#2#11'HelpContext'#2#0#5 +'Left'#2#6#6'Height'#3#240#0#3'Top'#2#6#5'Width'#3't'#2#11'HelpContext'#2#0#5
+'Align'#7#8'alClient'#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19 +'Align'#7#8'alClient'#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19
+'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou' +'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Arou'
+'nd'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C' +'nd'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.C'
@ -25,13 +25,13 @@ LazarusResources.Add('TSVNUpdateFrm','FORMDATA',[
+'Menu'#7#15'UpdatePopupMenu'#8'ReadOnly'#8#9'RowSelect'#9#10'ScrollBars'#7#10 +'Menu'#7#15'UpdatePopupMenu'#8'ReadOnly'#8#9'RowSelect'#9#10'ScrollBars'#7#10
+'ssAutoBoth'#17'ShowColumnHeaders'#9#10'SortColumn'#2#0#8'SortType'#7#6'stNo' +'ssAutoBoth'#17'ShowColumnHeaders'#9#10'SortColumn'#2#0#8'SortType'#7#6'stNo'
+'ne'#7'TabStop'#9#8'TabOrder'#2#0#8'ToolTips'#9#7'Visible'#9#9'ViewStyle'#7#8 +'ne'#7'TabStop'#9#8'TabOrder'#2#0#8'ToolTips'#9#7'Visible'#9#9'ViewStyle'#7#8
+'vsReport'#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'#2#6#6'Height'#2'('#3 +'vsReport'#0#0#12'TButtonPanel'#11'ButtonPanel'#4'Left'#2#6#6'Height'#2'0'#3
+'Top'#3#4#1#5'Width'#3't'#2#11'HelpContext'#2#0#5'Align'#7#8'alBottom'#8'Aut' +'Top'#3#252#0#5'Width'#3't'#2#11'HelpContext'#2#0#5'Align'#7#8'alBottom'#8'A'
+'oSize'#9#11'ButtonOrder'#7#9'boDefault'#8'TabOrder'#2#1#13'DefaultButton'#7 +'utoSize'#9#11'ButtonOrder'#7#9'boDefault'#8'TabOrder'#2#1#13'DefaultButton'
+#4'pbOK'#11'ShowButtons'#11#4'pbOK'#0#10'ShowGlyphs'#11#4'pbOK'#8'pbCancel'#7 +#7#4'pbOK'#11'ShowButtons'#11#4'pbOK'#0#10'ShowGlyphs'#11#4'pbOK'#8'pbCancel'
+'pbClose'#6'pbHelp'#0#7'Visible'#9#0#7'TBitBtn'#13'ShowLogButton'#4'Left'#2 +#7'pbClose'#6'pbHelp'#0#7'Visible'#9#0#7'TBitBtn'#13'ShowLogButton'#4'Left'#2
+'N'#6'Height'#2#26#3'Top'#2#8#5'Width'#2'x'#11'HelpContext'#2#0#5'Align'#7#6 +'N'#6'Height'#2'"'#3'Top'#2#8#5'Width'#3#131#0#11'HelpContext'#2#0#5'Align'#7
+'alLeft'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0 +#6'alLeft'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0
+#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.A' +#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.A'
+'round'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacin' +'round'#2#6'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacin'
+'g.CellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#13'ShowLogButton' +'g.CellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#13'ShowLogButton'

12
components/lazsvnpkg/svnupdateform.pas
View File

@ -42,12 +42,14 @@ type
procedure OKButtonClick(Sender: TObject); procedure OKButtonClick(Sender: TObject);
procedure ShowLogButtonClick(Sender: TObject); procedure ShowLogButtonClick(Sender: TObject);
private private
FRepositoryPath: string;
{ private declarations } { private declarations }
FRepoPath: string;
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(Data: PtrInt);
property RepositoryPath: string read FRepositoryPath write FrepositoryPath;
end; end;
procedure ShowSVNUpdateFrm(ARepoPath: string); procedure ShowSVNUpdateFrm(ARepoPath: string);
@ -65,7 +67,7 @@ var
begin begin
SVNUpdateFrm := TSVNUpdateFrm.Create(nil); SVNUpdateFrm := TSVNUpdateFrm.Create(nil);
SVNUpdateFrm.FRepoPath:=ARepoPath; SVNUpdateFrm.RepositoryPath:=ARepoPath;
SVNUpdateFrm.ShowModal; SVNUpdateFrm.ShowModal;
SVNUpdateFrm.Free; SVNUpdateFrm.Free;
@ -84,7 +86,7 @@ end;
procedure TSVNUpdateFrm.FormShow(Sender: TObject); procedure TSVNUpdateFrm.FormShow(Sender: TObject);
begin begin
Caption := Format(rsLazarusSVNUpdate, [FRepoPath]); Caption := Format(rsLazarusSVNUpdate, [RepositoryPath]);
Application.QueueAsyncCall(@Execute, 0); Application.QueueAsyncCall(@Execute, 0);
end; end;
@ -112,7 +114,7 @@ end;
procedure TSVNUpdateFrm.ShowLogButtonClick(Sender: TObject); procedure TSVNUpdateFrm.ShowLogButtonClick(Sender: TObject);
begin begin
ShowSVNLogFrm(FRepoPath); ShowSVNLogFrm(RepositoryPath);
end; end;
procedure TSVNUpdateFrm.ProcessSVNUpdateOutput(var MemStream: TMemoryStream; var BytesRead: LongInt); procedure TSVNUpdateFrm.ProcessSVNUpdateOutput(var MemStream: TMemoryStream; var BytesRead: LongInt);
@ -165,7 +167,7 @@ begin
BytesRead := 0; BytesRead := 0;
AProcess := TProcess.Create(nil); AProcess := TProcess.Create(nil);
AProcess.CommandLine := SVNExecutable + ' update ' + FRepoPath + ' --non-interactive'; AProcess.CommandLine := SVNExecutable + ' update ' + RepositoryPath + ' --non-interactive';
debugln('TSVNUpdateFrm.Execute CommandLine ' + AProcess.CommandLine); debugln('TSVNUpdateFrm.Execute CommandLine ' + AProcess.CommandLine);
AProcess.Options := [poUsePipes, poStdErrToOutput]; AProcess.Options := [poUsePipes, poStdErrToOutput];
AProcess.ShowWindow := swoHIDE; AProcess.ShowWindow := swoHIDE;