PDA

View Full Version : مشکل در رنگ کردن string grid


Delphi7_love
چهارشنبه 01 دی 1389, 20:14 عصر
با کد زیر سطرهای دلخواهمو ررنگ میکنم اما بعد از رنگ کردن کپشن ها از بین میرن
چطور میشه حلش کنم ؟


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if gdSelected in State then
StringGrid1.Canvas.Brush.Color := clNavy
else
if (ACol = 2) or (ACol = 3) then begin
StringGrid1.Canvas.Brush.Color := clred;
StringGrid1.Canvas.Font.Color := clYellow;
end;
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol,ACol]);
end;
با تشکر
Felony
چهارشنبه 01 دی 1389, 21:29 عصر
کد نباید مشکلی داشته باشه چون آخر کار دارید دوباره متن رو رسم میکنید .
Delphi7_love
چهارشنبه 01 دی 1389, 22:39 عصر
کارشو درست انجام میده فقط کپشن ستون ها رو پاک میکنه
Felony
پنج شنبه 02 دی 1389, 05:17 صبح
تو خط آخر برای پارامترهای مربوط به متد Cells هر دو پارامتر رو با ACol مقدار دهی کردید ، کد رو به صورت زیر تغییر بدید :

if gdSelected in State then
StringGrid1.Canvas.Brush.Color := clNavy
else
if (ACol = 2) or (ACol = 3) then
begin
StringGrid1.Canvas.Brush.Color := clred;
StringGrid1.Canvas.Font.Color := clYellow;
end;
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
مشکل دیگه ای نداره .
Delphi7_love
پنج شنبه 02 دی 1389, 07:16 صبح
بسیار متشکر آقا مجتبی
خیلی عالی شد . فقط یه مشکل دیگه بوجود اومد و نتونستم حلش کنم
نوشته ها چپ چین میشن(از چپ به راست چیده میشن)
Felony
پنج شنبه 02 دی 1389, 08:05 صبح
مشکلی نداره ، یه نمونه برنامه قرار بدید .
Delphi7_love
پنج شنبه 02 دی 1389, 15:42 عصر
نمونه برنامه رو گذاشتم

64002
Delphi7_love
پنج شنبه 02 دی 1389, 21:51 عصر
حل نمیشه آقا مجتبی ؟