Explorar o código

Namespaces in ColorSel unit

Margers hai 11 meses
pai
achega
9d283cd983
Modificáronse 1 ficheiros con 10 adicións e 1 borrados
  1. 10 1
      packages/fv/src/colorsel.pas

+ 10 - 1
packages/fv/src/colorsel.pas

@@ -20,12 +20,21 @@
 
 
  ****************************************************************************}
  ****************************************************************************}
 
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit ColorSel;
 unit ColorSel;
+{$ENDIF FPC_DOTTEDUNITS}
 {$mode fpc}
 {$mode fpc}
 {$h-}
 {$h-}
 interface
 interface
 
 
-uses Objects, Drivers, Dialogs, Views, fvconsts;
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.Objects, FreeVision.Drivers, FreeVision.Dialogs, FreeVision.Views, 
+  FreeVision.Fvconsts;
+{$ELSE FPC_DOTTEDUNITS}
+uses
+  Objects, Drivers, Dialogs, Views, fvconsts;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 const dialog_colorsel_colors        = 'Colors';
 const dialog_colorsel_colors        = 'Colors';
       label_colorsel_group          = '~G~roup';
       label_colorsel_group          = '~G~roup';