stringgrid satır boyama

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
sako
Üye
Mesajlar: 473
Kayıt: 11 Haz 2003 02:40
Konum: ERZURUM

stringgrid satır boyama

Mesaj gönderen sako »

Arkadaşlar aşağıdaki kodla 5. satırı boyuyorum. diğer kodla ise hücrede 'ekip başlangıcı yazan hücreyi boyuyorum.
Amacım "ekip Başlangıcı yazan satırı komple boyamak ama sadece hücreyi boyuyor. Bir türlü birleştiremedim. Yani birini diğerinin içine alınca kod çalışmıyor. :?
i:=0 to 4 do begin
if (ARow = 5) and (ACol=i) then
begin
g7.Canvas.Brush.Color := $00FFEEDD;
g7.Font.Color:=clBlack;
g7.Font.Style:=[fsbold];
g7.Canvas.FillRect(Rect);
end;
end;
g7.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, g7.Cells[ACol, ARow]);
if g7.Cells[ACol, ARow] = 'Ekip Başı' then begin
g7.Canvas.Brush.Color := $00FFEEDD;
g7.Font.Color:=clBlack;
g7.Font.Style:=[fsbold];
g7.Canvas.FillRect(Rect);
end;
end;
g7.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, g7.Cells[ACol, ARow]);
DOĞUNUN SINIR TAŞI ERZURUM'UN DADAŞ'I
EFE'Sİ VAR İZMİR'İN EĞİLMEZ TÜRK' ÜN BAŞI
sako
Üye
Mesajlar: 473
Kayıt: 11 Haz 2003 02:40
Konum: ERZURUM

Re: stringgrid satır boyama

Mesaj gönderen sako »

Aşağıdaki kodla yaptım. Belki birilerine lazım olur birgün. :)
With Sender as TStringGrid do
begin
if ((Cells[1,Arow])) = 'Ekip Başı' then
begin
//for BackGround Color
Canvas.Brush.Color := $00FFEEDD;
Canvas.FillRect(Rect);
//for Font.Color
Canvas.Font.Color := clBlack;
Canvas.TextRect( Rect, Rect.Left+2, Rect.Top+2, Cells[acol, arow]);
end;
g7.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, g7.Cells[ACol, ARow]);
DOĞUNUN SINIR TAŞI ERZURUM'UN DADAŞ'I
EFE'Sİ VAR İZMİR'İN EĞİLMEZ TÜRK' ÜN BAŞI
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: stringgrid satır boyama

Mesaj gönderen ertank »

Merhaba,

TStringGrid'e ait hangi olayları kullandığınızı bilemiyoruz. Ancak yapmak istediğinizi Direk bir TStringGrid üzerinde yapamazsınız. Bir miktar ekstra kod eklemeniz gerekir.

Mevcut hali ile TStringGrid tek bir hücre içinde boyama yapmanıza izin verecek olayları sizin kullanımınıza açar. İstediğinizi elde etmek için TStringGrid'e ait "protected" metodları da kullanmanız gerekir.

Ekte Delphi 10.3.3 ile çalışan bir örnek bulabilirsiniz.
Dosya ekleri
string grid satır boyama.rar
(8.97 KiB) 72 kere indirildi
Kullanıcı avatarı
kubilay59
Üye
Mesajlar: 3
Kayıt: 06 Kas 2020 11:53
Konum: Tekirdağ

Re: stringgrid satır boyama

Mesaj gönderen kubilay59 »

ertank yazdı: 06 Kas 2020 11:40 Merhaba,

TStringGrid'e ait hangi olayları kullandığınızı bilemiyoruz. Ancak yapmak istediğinizi Direk bir TStringGrid üzerinde yapamazsınız. Bir miktar ekstra kod eklemeniz gerekir.

Mevcut hali ile TStringGrid tek bir hücre içinde boyama yapmanıza izin verecek olayları sizin kullanımınıza açar. İstediğinizi elde etmek için TStringGrid'e ait "protected" metodları da kullanmanız gerekir.

Ekte Delphi 10.3.3 ile çalışan bir örnek bulabilirsiniz.
Teşekkürler!
Cevapla