Toto vykresli bunku ve StringGridu v proceduře DrawCell.
Kód: Vybrať všetko
case ACol of 1:
if (gdSelected in State) or (gdFocused in State) then begin
CV.Brush.Color := 65535; //žluta
CV.FillRect(Rect);
CV.TextOut(Rect.Left + 2, Rect.Top + 2, sCellString);
end
else
begin
CV.Brush.Color := 12632256; //šeda
CV.FillRect(Rect);
CV.TextOut(Rect.Left + 2, Rect.Top + 2, sCellString);
end;
//obrázok patrí do prílohy, prečítaj si pravidlá
Jak však vykreslit cele pozadí bunky, aby tam nebyly ty bile mezery.
Prostě chci aby byl vybarven cely řadek.
Tu bilou mezeru děla to +2
CV.TextOut(Rect.Left + 2, Rect.Top + 2, sCellString);