Исправить недочет со свойством BiDiMode в DelphiDelphi , Компоненты и Классы , Свойства и СобытияИсправить недочет со свойством BiDiMode в Delphi
Оформил: DeeCo { When you set the BiDiMode in you form to bdRightToLeft, you do only HALF mirroring. Since Win98 (Hebrew/Arabic version) mirror it's envirement completly (the Minimize, Close, Maxmize buttons are on the Left, and the Icon is on the right). How can we do it in delphi ? } {...} const WS_EX_LAYOUTRTL = $00400000; WS_EX_LAYOUT_RTL = WS_EX_LAYOUTRTL; {...} TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } procedure CreateParams(var Params : TCreateParams); override; end; {...} implementation procedure TForm1.CreateParams(var Params : TCreateParams); begin inherited CreateParams(Params); Params.ExStyle := WS_EX_LEFT or WS_EX_RTLREADING or WS_EX_LEFTSCROLLBAR or WS_EX_LAYOUT_RTL; {WS_EX_LEFT to set the text caption to the right, use WS_EX_RIGHT to set the caption to the left} end; procedure TForm1.FormCreate(Sender: TObject); begin BiDiMode := bdLeftToRight; //A must !!! end; {The result is Right to Left (including the buttons, the icon and the system menu) } Статья Исправить недочет со свойством BiDiMode в Delphi раздела Компоненты и Классы Свойства и События может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Свойства и События ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |