RxDBGrid - fix draw themed vertical collumn caption

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2512 8e941d3f-bd1b-0410-a28a-d453659cc2b4

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;

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;