Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Sign In with Facebook Sign In with Google Sign In with OpenID

Categories

We have migrated to a new platform! Please note that you will need to reset your password to log in (your credentials are still in-tact though). Please contact lee@programmersheaven.com if you have questions.
Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

inverse the treeview

faimofaimo Posts: 5Member
hi folks i want the way to inverse the treeview canvase i mean :
instead of
+ xxxx
+ 11232
+ hjhjas

i want to have :
xxx+
11232+
hjhas+


so the minus and plus signs will be in right side of the treeview componant
thank you

Comments

  • khorsandikhorsandi Posts: 11Member
    you can use this code:


    const
    WS_EX_NOINHERITLAYOUT = $00100000; // Disable inheritence of mirroring by children
    WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring

    procedure SetWinControlBiDi(Control: TWinControl);
    var
    ExStyle: Longint;
    begin
    ExStyle := GetWindowLong(Control.Handle, GWL_EXSTYLE);
    SetWindowLong(Control.Handle, GWL_EXSTYLE, ExStyle or WS_EX_RTLREADING or WS_EX_RIGHT
    or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT );
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    SetWinControlBiDi(TreeView2);
    end;
  • faimofaimo Posts: 5Member
    thank you fir replay , but whene i executed your code , no tooltip is shown or hints , so how could i resolve this big problem

    many thanks


    : you can use this code:
    :
    :
    : const
    : WS_EX_NOINHERITLAYOUT = $00100000; // Disable inheritence of mirroring by children
    : WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring
    :
    : procedure SetWinControlBiDi(Control: TWinControl);
    : var
    : ExStyle: Longint;
    : begin
    : ExStyle := GetWindowLong(Control.Handle, GWL_EXSTYLE);
    : SetWindowLong(Control.Handle, GWL_EXSTYLE, ExStyle or WS_EX_RTLREADING or WS_EX_RIGHT
    : or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT );
    : end;
    :
    : procedure TForm1.FormCreate(Sender: TObject);
    : begin
    : SetWinControlBiDi(TreeView2);
    : end;
    :

  • khorsandikhorsandi Posts: 11Member
    hi;
    I have no trick for this problem now, But I try to solve it.


  • ERasekhERasekh IranPosts: 1Member

    hi Mr Khorsandi I read this article . but I want to show hint for each node ! when I make RTL TreeView , no hint would show !

Sign In or Register to comment.