Merge pull request #55 from Daniel09Fernandes/BorderTask

Melhoria nas bordas
Daniel09Fernandes · Jun 25, 2024 · c13908c · c13908c
2 parents 0b037a5 + cf83e1c
commit c13908c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/Src/uOpenOfficeHelper.pas b/Src/uOpenOfficeHelper.pas
@@ -86,6 +86,9 @@   THelperOpenOffice_calc = class helper for TOpenOffice_calc
 
 implementation
 
+uses
+  System.Win.ComObj;
+
 procedure THelperOpenOffice_calc.addChart(aSettingsChart: TSettingsChart);
 var
   Chart, Rect, sheet : OleVariant;
@@ -323,11 +326,9 @@ function THelperOpenOffice_calc.CountCell: Integer;
 
 function THelperOpenOffice_calc.seTBorder(borderPosition: TBoderSheet; opColor: TOpenColor; RemoveBorder: boolean): TOpenOffice_calc;
 var
-  border: Variant;
   settings: Variant;
 begin
-  border := ServicesManager.createInstance('com.sun.star.reflection.CoreReflection');
-  border.forName('com.sun.star.table.BorderLine2').createObject(settings);
+ CoreReflection.forName('com.sun.star.table.BorderLine2').createObject(settings);
 
  if not RemoveBorder then
   begin

diff --git a/Src/uOpenOffice_calc.pas b/Src/uOpenOffice_calc.pas
@@ -79,6 +79,7 @@   TOpenOffice_calc = class(TOpenOffice)
     property oSCalc: OleVariant read objSCalc write objSCalc;
     property Table: OleVariant read objSCalc;
     property Fields: TFieldsSheet read FFields;
+    property CoreReflection :OleVariant read objCoreReflection;
     property SheetName: string read FSheetName write SetSheetName;
 
     //---------events-----------//