[JVCL-Checkins] SF.net SVN: jvcl:[13183] trunk/jvcl/run/JvJclUnitVersioningBrowser.pas

[<jfu...@us...>]

Revision: 13183
          http://jvcl.svn.sourceforge.net/jvcl/?rev=13183&view=rev
Author:   jfudickar
Date:     2011-11-23 21:48:44 +0000 (Wed, 23 Nov 2011)
Log Message:
-----------
Fixed Duplicate Unit Usage

Modified Paths:
--------------
    trunk/jvcl/run/JvJclUnitVersioningBrowser.pas

Modified: trunk/jvcl/run/JvJclUnitVersioningBrowser.pas
===================================================================
--- trunk/jvcl/run/JvJclUnitVersioningBrowser.pas	2011-11-22 15:59:53 UTC (rev 13182)
+++ trunk/jvcl/run/JvJclUnitVersioningBrowser.pas	2011-11-23 21:48:44 UTC (rev 13183)
@@ -45,7 +45,9 @@
     { Private-Deklarationen }
     UnitVersionForm: TCustomForm;
     procedure CloseButtonOnClick(Sender: TObject);
+    {$IFDEF UNITVERSIONING}
     procedure ExportButtonOnClick(Sender: TObject);
+    {$ENDIF UNITVERSIONING}
     procedure TreeViewOnChange(Sender: TObject; Node: TTreeNode);
   public
     procedure ShowUnitVersioning(const aDynControlEngine: tJvDynControlEngine);
@@ -67,7 +69,7 @@
 
 uses
   StdCtrls, SysUtils, JclStrings, JvDynControlEngineIntf, ExtCtrls,
-  JclFileUtils, Dialogs, JclUnitVersioning;
+  JclFileUtils, Dialogs;
 
 procedure ShowUnitVersioning(const aDynControlEngine: tJvDynControlEngine = nil);
 var
@@ -87,6 +89,7 @@
     UnitVersionForm.ModalResult := mrOk;
 end;
 
+{$IFDEF UNITVERSIONING}
 procedure TJvJclUnitVersioningBrowser.ExportButtonOnClick(Sender: TObject);
 var
   SaveDialog: TSaveDialog;
@@ -102,6 +105,7 @@
     SaveDialog.Free;
   end;
 end;
+{$ENDIF UNITVERSIONING}
 
 procedure TJvJclUnitVersioningBrowser.ShowUnitVersioning(const aDynControlEngine: tJvDynControlEngine);
 
@@ -171,9 +175,11 @@
     Button.Left := Round((UnitVersionForm.Width - Button.Width) / 2);
     ButtonPanel.Height := Button.Height + 6;
     Button.Top := Round((ButtonPanel.Height - Button.Height) / 2);
+    {$IFDEF UNITVERSIONING}
     Button := DynEngine.CreateButton(UnitVersionForm, ButtonPanel, 'ExportBtn', 'Export', '', ExportButtonOnClick, True, True);
     Button.Left := 10;
     Button.Top := Round((ButtonPanel.Height - Button.Height) / 2);
+    {$ENDIF UNITVERSIONING}
     BottomBox := DynEngine.CreateGroupBoxControl(UnitVersionForm, MainPanel, 'BottomBox', 'Details');
     BottomBox.Align := alBottom;
     TopBox := DynEngine.CreateGroupBoxControl(UnitVersionForm, MainPanel, 'TopBox', 'Unit Versions');

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.