If BidiMode=RightToLeft Header not draw

[cirtasoft]

Hello,

I have try change bidimode to right to left and header not draw.

joint photo

[cirtasoft]

Hello,

I have find the solution, is bug in your source.

change to :

// Now go for each button.
if Self.FHeader.FOwner.BiDiMode = bdRightToLeft then
  while (Run > NoColumn) do
  begin
    TargetRect.Right := TargetRect.Left + Items[Run].FWidth;
    //TargetRect.Right := TargetRect.Left;
    //TargetRect.Left := TargetRect.Left - Items[Run].FWidth;

    // create a clipping rect to limit painting to button area
    ClipCanvas(TargetCanvas, Rect(TargetRect.Left, Target.Y + R.Top,
                                  TargetRect.Right, TargetRect.Bottom));

    PaintColumnHeader(Run, TargetRect);

    SelectClipRgn(Handle, 0);

    TargetRect.Left := TargetRect.Right;
    Run := GetNextVisibleColumn(Run)
  end
else
  while (Run > NoColumn) and (TargetRect.Left < MaxX) do
  begin
    TargetRect.Right := TargetRect.Left + Items[Run].FWidth;

    // create a clipping rect to limit painting to button area
    ClipCanvas(TargetCanvas, Rect(Max(TargetRect.Left, Target.X), Target.Y + R.Top,
                                  Min(TargetRect.Right, MaxX), TargetRect.Bottom));

    PaintColumnHeader(Run, TargetRect);

    SelectClipRgn(Handle, 0);

    TargetRect.Left := TargetRect.Right;
    Run := GetNextVisibleColumn(Run)
  end;

[joachimmarder]

Could this be a duplicate of #427?
Which version of Virtual TreeView do you use?
Are you able to send a pull request or a patch file?

[sanjayssk]

Rather than the code suggested, the solution involves offsetting MaxX correctly based on BidiMode. Done and tested.