وسط چین کردن استرینگ گرید

[alaveh]

سلام

من توی وسط چین کردن نوشته ها توی استرینگ گرید مشکل دارم . عکسهای زیر رو میتونید ببینید . فرم اول بدون کد وسط چین و عکس دوم با کد وسط چین هست . از کد زیر هم استفاده کردم :


procedure TFShowMiangin.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var S: String;
begin
S := StringGrid1.Cells[ACol, ARow];
StringGrid1.Canvas.FillRect(Rect);
SetTextAlign(StringGrid1.Canvas.Handle, TA_CENTER);
StringGrid1.Canvas.TextRect(Rect,Rect.Left + (Rect.Right - Rect.Left) div 2, Rect.Top + 2, S);

end;


عکس بدون اجرای کد بالا :
102693



پس از اجرای کد :
102694


در ضمن راهی هست که بشه اون عدد آخر -0.24 رو که منفیش سمت راست افتاده درست نوشت ؟ یعنی منفی همون سر جای خودش سمت چپ عدد وایسته ؟

[Mask]

از استرینگ گرید مجموعه TMS استفاده کنید.

[alaveh]

از کجا بیارم اینو ؟ توی سایت GetMyWarez گشتم نبود .

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

[Mask]

از کجا بیارم اینو ؟ توی سایت GetMyWarez گشتم نبود .
یه سرچ کن. اگه پیدا نکردی ایمیلتو بده تا برات بفرستم.

بعد هم میترسم از اینا استفاده کنم بعد از یه مدت از کار بیفته دردسر بشه . نمیشه همینو درست کرد ؟ حتما میشه دیگه . یکی کمک کنه . مگه میشه هیچ کدوم از دوستان اینجا تا حالا یک استرینگ گرید رو وسط چین نکرده باشند ؟؟؟؟
نگران نباش. خیلی وقته از این کامپوننت داریم استفاده میکنیم. مشکلی نداشته. الانم ورژن tmscp6500 تو نت هست.

[alaveh]

یه سرچ کن. اگه پیدا نکردی ایمیلتو بده تا برات بفرستم.


ممنون
پیدا کردم ولی معلوم نیست به درد بخوره یا نه
email رو براتون پخ کردم
لطف کردید