راست چین کردن pagecontrol

[szabeh]

با تشکر از دوستان
آیا کسی میداند چگونه میتوان در pagcontrol تبها را راست چین کرد.
یعنی tabsheet ها از راست به چپ تراز شوند.

[Touska]

می تونی از Mirror استفاده کنی ولی درست جواب نمی ده یا از SUipack فارسی استفاده کنی.

:)

[szabeh]

با تشکر از آقا مصطفی.
اگه میشه بیشتر توضیح بدین.
ممنون

[Touska]

یک تابع هست که یکی از بچه های سایت گذاسته بود :


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;

اینو باید در onCreate فرم استفاده کنی و خوب جواب نمیده یا از کامپوننت فارسی Suipack

استفاده کنی.

[MNosouhi]

من معمولا برای حل این مشکل توی برنامه هام ، خاصیت TabWith مربوط به PageControl رو طوری مقدار دهی می کنم تا Tabها از هر دو طرف تنظیم بشن.
موفق باشی

[Touska]

اینم فکر خوبی هست.

[sql_qassem]

با تشکر از راهنمایی هاتون . اون کد جواب نمی ده .
یک روش اصولی باید وجود داشته باشه.

لطفا اگه کسی بلد راهنمایی کنه.

[sql_qassem]

آقا کد بالا جواب داد ولی باید اینطوری استفاده بشه :
بعد از اینکه متغیر های ثابت و روال مورد نظر رو تعریف کردی باید oncreate فرم کد زیر رو بنویسی.

procedure TFmain.FormCreate(Sender: TObject);
begin
SetWinControlBiDi(PageControl1);
end;

[sql_qassem]

هنوز مشکل دارد .
بعد از چند بار و حتی بعضی اوقات بعد از کی دوباره کلیک کردن tab ها قاطی می کند و محتویات برگه مورد نظر را نشان نمی دهد. اما وقتی که آن روال مورد نظر را در oncreate غیر فعال می کنی دوباره درست نشان می دهد و با مرور تب ها خراب نمی شود.

یکی کمک کنه !!!!!!

[B-Vedadian]

PageControl خود دلفی کامل پیاده سازی نشده، این رو آقای کرامتی بهش اشاره کردند و راه حلش رو هم دادند، از پک های دیگه ای مثل Raize استفاده کنید (یا خودتون Page Control رو کامل پیاده سازی کنید).

[parniant]

با سلام به آقای کشاورز می شه یک راه حل مناسب برای راست چین کردن تب شیت ها ارائه بدین ممنون می شم

[ali_abbasi22145]

سلام
من اينكار را مي كنم طول tab ها را مثلا دو تا باشد نصف طول pagecontrol مي گيرم اگر 3 tab داري 3/1 طول pagecontrol و... و عالي جواب مي دهد.

[parniant]

منظورتون رو نفهمیدم می شه توضیح کاملتری بدید ممنون