Batman
پنج شنبه 30 مهر 1388, 07:08 صبح
با سلام
من از کد زیر برای راست چین pagecontrol استفاده میکنم:
Const
WS_EX_NOINHERITLAYOUT = $00100000; // Disable inheritence of mirroring by children
WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring
{$R *.dfm}
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;
SetWinControlBiDi(PageControl1);
pagecontrol فارسی میشه اما caption مربوط به tabsheet حروفش برعکس میشه.
در ضمن من از vclskin هم استفاده میکنم.
من از کد زیر برای راست چین pagecontrol استفاده میکنم:
Const
WS_EX_NOINHERITLAYOUT = $00100000; // Disable inheritence of mirroring by children
WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring
{$R *.dfm}
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;
SetWinControlBiDi(PageControl1);
pagecontrol فارسی میشه اما caption مربوط به tabsheet حروفش برعکس میشه.
در ضمن من از vclskin هم استفاده میکنم.