9 replies to this topic

[Jon G]

Is it possible to have vertical rotated text in a header or cell like Excel?

 7_26_2010_6_02_13_PM.png   5.71KB   1 downloads

Thanks!

[Boki (Berg)]

Hello,

Set Orientation property of Column.Header to hoVertical

I hope that this is what you search for.

Best regards

[Jon G]

Thank you very much! It worked perfectly.

-Jon G.

Hello,

Set Orientation property of Column.Header to hoVertical

I hope that this is what you search for.

Best regards

[Jon G]

Set Orientation property of Column.Header to hoVertical

Multiline does not work correctly with Column.Header set to hoVertical.

Could you have a look at that?

- JonG

[Boki (Berg)]

Hello,

This is unfortunately a issue of DrawText function in Windows API. I don't know why it won't work as expected

Best regards

[Jon G]

Hello,

This is unfortunately a issue of DrawText function in Windows API. I don't know why it won't work as expected

Best regards

If I fix it, can I get my changes included in your source? I don't want to have to update my source every time you update yours.

Best regards,
- JonG

[Boki (Berg)]

Hello JonG,

Sure, I will integrate it.

Best regards

[Jon G]

Hello JonG,

Sure, I will integrate it.

Best regards

This is only tested for TNxGrid.

In NxSharedCommon.pas:

CODE

procedure DrawVerticalText(Canvas: TCanvas; Rect: TRect; Text: string);
var
  LogRec: TLOGFONT;
  OldFont, NewFont: HFONT;
  Flags: Integer;
  i : Integer;
  SL : TStringlist;
  S : String;
  TH : Integer;
begin
  Flags := DT_NOPREFIX or DT_BOTTOM or DT_EXTERNALLEADING or DT_SINGLELINE;
  with Canvas do
  begin
    Brush.Style := bsClear;
    GetObject(Font.Handle, SizeOf(LogRec), @LogRec);
    LogRec.lfEscapement := 900;
    LogRec.lfOutPrecision := OUT_TT_ONLY_PRECIS;
    NewFont := CreateFontIndirect(LogRec);
    OldFont := SelectObject(Canvas.Handle, NewFont);
    if Pos(#13,Text) = 0 then
      DrawText(Canvas.Handle, PAnsiChar(Text), Length(Text), Rect, Flags)
    else
    begin
      // Windows.DrawText has a bug that can't handle multiple lines in non-horizontal orientation.
      // See http://msdn.microsoft.com/en-us/library/dd162498(VS.85).aspx
      SL := TStringlist.Create;
      SL.Text := Text;
      TH := TextHeight(Text);
      For i := 0 to SL.Count - 1 do
      begin
        S := SL.Strings[i];
        DrawText(Canvas.Handle, PAnsiChar(S), Length(S), Rect, Flags);
        Inc(Rect.Left,TH);
      end;
      SL.Free;
    end;
    NewFont := SelectObject(Canvas.Handle,OldFont);
    DeleteObject(NewFont);
  end;
end;

[Jon G]

Hello JonG,

Sure, I will integrate it.

Best regards

Hi Boki,

You have released another version of NextSuite.

Please please integrate my suggested changes (or your own version) to NXSharedCommon.pas so that I don't have to choose whether to keep up with the latest versions.

Thanks,
JonG

[Boki (Berg)]

Hello Jon,

Please sorry, I have add it.

I will upload it during tomorrow.

Best regards