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
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
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.
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.