VirtualTreeView: fix building with Qt4 widgetset on non-x86 platforms (unify with Qt5 and Qt6 widgetsets), issue #40431

(cherry picked from commit b101a75d7e)

components/virtualtreeview/include/intf/qt/laz.vtgraphicsi.inc

@@ -1,7 +1,9 @@
 uses
   qt4, qtobjects;
 
-{$ASMMODE INTEL}
+{$if Defined(CPU386)}
+ {$ASMMODE INTEL}
+{$endif}
 
 procedure AlphaBlendLineConstant(Source, Destination: Pointer; Count: Integer; ConstantAlpha, Bias: Integer);
 
@@ -10,7 +12,11 @@ procedure AlphaBlendLineConstant(Source, Destination: Pointer; Count: Integer; C
 // ConstantAlpha must be in the range 0..255 where 0 means totally transparent (destination pixel only)
 // and 255 totally opaque (source pixel only).
 // Bias is an additional value which gets added to every component and must be in the range -128..127
+{$if not Defined(CPU386)}
+begin
 
+end;
+{$else}
 asm
 
 {$ifdef CPU64}
@@ -168,6 +174,7 @@ asm
         POP     ESI
 {$endif}
 end;
+{$endif}
 
 //----------------------------------------------------------------------------------------------------------------------
 
@@ -176,7 +183,11 @@ procedure AlphaBlendLinePerPixel(Source, Destination: Pointer; Count, Bias: Inte
 // Blends a line of Count pixels from Source to Destination using the alpha value of the source pixels.
 // The layout of a pixel must be BGRA.
 // Bias is an additional value which gets added to every component and must be in the range -128..127
+{$if not Defined(CPU386)}
+begin
 
+end;
+{$else}
 asm
 
 {$ifdef CPU64}
@@ -327,6 +338,7 @@ asm
         POP     ESI
 {$endif}
 end;
+{$endif}
 
 //----------------------------------------------------------------------------------------------------------------------
 
@@ -336,7 +348,11 @@ procedure AlphaBlendLineMaster(Source, Destination: Pointer; Count: Integer; Con
 // The layout of a pixel must be BGRA.
 // ConstantAlpha must be in the range 0..255.
 // Bias is an additional value which gets added to every component and must be in the range -128..127
+{$if not Defined(CPU386)}
+begin
 
+end;
+{$else}
 asm
 
 {$ifdef CPU64}
@@ -511,7 +527,7 @@ asm
         POP     ESI
 {$endif}
 end;
-
+{$endif}
 //----------------------------------------------------------------------------------------------------------------------
 
 procedure AlphaBlendLineMasterAndColor(Destination: Pointer; Count: Integer; ConstantAlpha, Color: Integer);
@@ -519,7 +535,11 @@ procedure AlphaBlendLineMasterAndColor(Destination: Pointer; Count: Integer; Con
 // Blends a line of Count pixels in Destination against the given color using a constant alpha value.
 // The layout of a pixel must be BGRA and Color must be rrggbb00 (as stored by a COLORREF).
 // ConstantAlpha must be in the range 0..255.
+{$if not Defined(CPU386)}
+begin
 
+end;
+{$else}
 asm
 
 {$ifdef CPU64}
@@ -649,10 +669,16 @@ asm
         JNZ     @1
 {$endif}
 end;
+{$endif}
 
 //----------------------------------------------------------------------------------------------------------------------
 
 procedure EMMS;
+{$if not Defined(CPU386)}
+begin
+
+end;
+{$else}
 
 // Reset MMX state to use the FPU for other tasks again.
 
@@ -667,6 +693,7 @@ asm
         DB      $0F, $77               /// EMMS
 end;
 {$endif}
+{$endif}
 
 //----------------------------------------------------------------------------------------------------------------------
 
@@ -758,13 +785,13 @@ var
   SourceHeight,
   DestWidth,
   DestHeight: Integer;
-  {$ifdef CPU64}
+  {$IFDEF CPU64}
   ATransform: QTransformH;
   DX, DY: QReal;
   AColor: QColorH;
   ADst: TQtDeviceContext absolute Destination;
   AFillColor: TQColor;
-  {$endif}
+  {$ENDIF}
 
   //BlendColor: TQColor;
 begin
@@ -844,7 +871,6 @@ begin
             R.Right - R.Left, R.Bottom - R.Top, @BlendColor);
           }
           // Source is ignored since there is a constant color value.
-
           {$IFDEF CPU64}
           if ADst <> nil then
           begin
@@ -860,7 +886,6 @@ begin
             QColor_destroy(AColor);
           end;
           {$ELSE}
-
           DestBits := GetBitmapBitsFromDeviceContext(Destination, DestWidth, DestHeight);
           if Assigned(DestBits) then
           begin