Hi again I have some functions used to make the controls draw Right To Left Can i put it in 1 - Controls.pas unit 2 - Make a new unit "BidiUtils.pas" and then use it in this controls units
------- function BidiFlipAnchors(Anchors: TAnchors; Flip: Boolean): TAnchors; function BidiFlipAlignment(Alignment: TAlignment; Flip: Boolean): TAlignment; function BidiFlipRect(const Rect: TRect; const ParentRect: TRect; const Flip: Boolean): TRect; function BidiFlipPoint(P: TPoint; const ParentRect: TRect; const Flip: Boolean): TPoint; function BidiFlipX(X: Integer; const Width: Integer; const Flip: Boolean): Integer; function BidiFlipX(X: Integer; const ParentRect: TRect; const Flip: Boolean): Integer; ------- -- Zaher Dirkey -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
