diff --git a/components/rx/rxdbgrid.pas b/components/rx/rxdbgrid.pas
index eef851122..3ce18db2c 100644
--- a/components/rx/rxdbgrid.pas
+++ b/components/rx/rxdbgrid.pas
@@ -1643,7 +1643,7 @@ begin
         begin
           if rxTit.Orientation in [toVertical270, toVertical90] then
             H := Max((tmpCanvas.TextWidth(Columns[i].Title.Caption) +
-              tmpCanvas.TextWidth('W')) div DefaultRowHeight, H)
+              tmpCanvas.TextWidth('W')*2) div DefaultRowHeight, H)
           else
           begin
             rxColNext := nil;
diff --git a/components/rx/vclutils.pas b/components/rx/vclutils.pas
index ffd83ed1a..c01793587 100644
--- a/components/rx/vclutils.pas
+++ b/components/rx/vclutils.pas
@@ -222,8 +222,16 @@ var
   L:integer;
 begin
   L:=Canvas.Font.Orientation;
+
+  SetBkMode(Canvas.Handle, TRANSPARENT);
+
   Canvas.Font.Orientation:=RotDegree * 10;
   Canvas.TextOut(X, Y, St);
+
+{  DrawText(ACanvas.Handle, PChar(Text), Length(Text), DrawRect,
+    ALIGN_FLAGS_HEADER[Alignment]  or DT_WORDBREAK
+    );}
+
   Canvas.Font.Orientation:=L;
 end;