asked on

inverse a treeview canvase

i want to developpe a new treeview componant ( inherited from TTreeview ) so i want to be able to inverse the Treeview canvas with all its nodes and other things ( an RTL treeview )
right-to-left (RTL) layout for the tree :
for the first time i used this option to inverse the Original treeview : // the componant name is Faimo

private
FRightToLeftReading:Boolean;
FSortType: TSortType;
procedure SetAbout(const Value: string);
procedure SetRightToLeftReading( b:Boolean);
Public
property RightToLeftReading:Boolean read FRightToLeftReading write SetRightToLeftReading default false;
////
procedure Tfaimo.SetRightToLeftReading( b:Boolean);
var
oldParam: LongInt;
begin
if FRightToLeftReading=b then
oldParam := GetWindowLong(handle, GWL_EXSTYLE);
SetWindowLong(handle, GWL_EXSTYLE, oldParam or $400000 or WS_EX_RIGHT);
end;
///
end.

but i made some problems in design Time when we move the control over the Form , and the tooltips no more appear .
could any one help me in :

01- be able to inverse the whole treeview from right to left
so instead of
+xxxxx
+xxxx
-xxxx
-xxxxx
i would have
xxxxx+
xxxx+
xxxx-
xxxx-
i appreciate all your help

ASKER CERTIFIED SOLUTION

wolsen

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

frize

ASKER

thank you but all what i want is to developpe one by my self , above is the code that i use to developpe it , but what about the problems that i faced with this developped treeview

frize

ASKER

now i what to know how to align all the nodes ( and sub-nodes ) to the right side of this tree because i found how to redraw all the treeview but i 'm looking on how to align its nodes to the right side

frize

ASKER

please is there any reply