(PaintLib)Correction on Color

(Zip) Correction on REF param
X-Sharp · Mar 28, 2023 · 79599e1 · 79599e1
1 parent 3c7b45e
commit 79599e1
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 11 deletions.
diff --git a/FabTools/FabPaintLib_Control/VOControl.prg b/FabTools/FabPaintLib_Control/VOControl.prg
@@ -226,26 +226,23 @@ BEGIN NAMESPACE FabPaintLib.Control
 
 			return 
 
-		access BackgroundColor as Color  
-			local oColor as Color
+		access BackgroundColor as VO.Color  
+			local oColor as VO.Color
 			local RGB IS _WinRGBQUAD
 			//
 			oColor := NULL_OBJECT
 			if self:oImg:GetBackgroundColor( @RGB )
 				//
-				oColor := Color{ RGB:rgbRed, RGB:rgbGreen, RGB:rgbBlue }
+				oColor := VO.Color{ RGB:rgbRed, RGB:rgbGreen, RGB:rgbBlue }
 			endif 
 			return oColor
 
 
-		Assign BackgroundColor( oColor as Color )   
-			local RGB IS _WinRGBQUAD
+		Assign BackgroundColor( oColor as VO.Color )   
 			//
-			RGB:rgbGreen := oColor:Green
-			RGB:rgbRed := oColor:Red
-			RGB:rgbBlue := oColor:Blue
+			var winColor := System.Drawing.Color.FromARGB( oColor:Red, oColor:Green, oColor:Blue )
 			//
-			self:oImg:SetBackgroundColor( oColor )
+			self:oImg:SetBackgroundColor( winColor )
 
 
 		METHOD Destroy() CLIPPER

diff --git a/FabTools/FabZip/FabZipFile.prg b/FabTools/FabZip/FabZipFile.prg
@@ -321,9 +321,9 @@ BEGIN NAMESPACE FabZip
 				ENDIF
 				NewName := ""
 				IF Empty( SELF:cTempDir )
-					FabGetTempFile( NewName, "zip" )
+					FabGetTempFile( Ref NewName, "zip" )
 				ELSE
-					FabGetTempFile( NewName, "zip", SELF:cTempDir )
+					FabGetTempFile( Ref NewName, "zip", SELF:cTempDir )
 				ENDIF
 				// The temporary Zip FileName
 				TmpZipName := NewName