راست چین کردن Berg Grid

[mmx110]

کسی در مورد روش کاربردی راست چین کردن Berg NextGrid اطلاعی داره؟
این Grid زیبا به طور پیش فرض جهت راست چین را برای زبان فارسی ساپورت نمی کند...
BidiMode کامپوننت NextGrid عمل نمیکند چگونه میتوان آنرا راست چین نمود ؟
اما مثل اینکه توسکای عزیز این کار را کرده بود که خواهش می کنم یک راهنمایی کامل ارائه کنند!

[nasr]

سلام
آقا من نمی دونم چرا شما می گید ساپورت نمی کنه
در صورتی که من به راحتی مثل همون DBGrid معمولی اون را راست چین می کنم

[babak869]

از چه ورژنی استفاده میکنید.بنده خدا راست میگه منم امتحان کردم راست چین نشد .

[Sohrab_Tapar]

من از این کد برا ی treeview اتفاده کردم شاید برای کار شما مناسب باشه


implementation


{$R *.dfm}

const
WS_EX_NOINHERITLAYOUT = $00100000; // Disable inheritence of mirroring by children
WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring

procedure TForm1.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;





procedure TForm1.FormCreate(Sender: TObject);
begin
// SetWinControlBiDi(TreeView1);
end;

[mmx110]

این ورژن را دارم و راست چین نمی شود: Berg Next Component Suite v3.3.3
اگر آقای Nasr این کار را انجام داده اند لطفا یک تصویر از حاصل کارشان ضمیمه کنند.
ضمنا هنوز منتظر پاسخ Touska عزیز هستم...

[best_ariya]

اگه کسی این Berg رو راست چین کرده و مشکلی نداره فایلشو آپلود کنه تا همه استفاده بکنند چون همه با این کامپونت مشکل دارند ولی هنوز کسی نتونسته بطور کامل راست چینش کنه و error نده.

[SYNDROME]

با سلام



implementation


{$R *.dfm}

const
WS_EX_NOINHERITLAYOUT = $00100000; // Disable inheritence of mirroring by children
WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring

procedure TForm1.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;





procedure TForm1.FormCreate(Sender: TObject);
begin
// SetWinControlBiDi(TreeView1);
end;

واقعا از این کد استفاده کردی و جواب نداد؟:متفکر:

[merced]

حالا راس چین کردن زیاد کاری نداره.
دیدین Hint سلول های گرید رو بعد از راست چین کردن کجا نشون میده ؟

یه فکری برا اون میشه کرد.
من رویداد onhint ندیدم .

[best_ariya]

من از همین کد استفاده کردم و Error می ده

[SYNDROME]

با سلام

من از همین کد استفاده کردم و Error می ده
Error را بنویس.

[floweryas]

سلام من درمورد tabsheet یه مشکل بزرگ دارم لطفا به من ککمک کنید

[nasr]

سلام من درمورد tabsheet یه مشکل بزرگ دارم لطفا به من ککمک کنید


خوب چه مشکلی :کف: