Problém s vykreslováním na Canvas StringGridu – Delphi – Fórum – Programujte.com

Zdravím,

prosím o radu, mám následující problém:

Vytvářím aplikaci s názvem Elektronický dopravní deník, která spočívá v evidenci časových údajů do tabulky, tedy stringgridu. Aby to nebyla jenom neupravená a nepřehledná mřížka, jsou některé řádky nebo sloupce podle jistých pravidel odděleny tenkou nebo tlustší linkou, což je prováděno v proceduře OnDrawCell pomocí MoveTo(x,y) a LineTo(x+délka buňky, y).

Dokud je ve StringGridu tolik řádek nebo sloupců že se mřížka vejde do rámce objektu (není potřeba ScrollBar), vykreslování probíhá v pořádku. Problém nastave ve chvíli, kdy počet řádků či sloupců přesáhne rámec objektu, aktivuje se posuvník a vykreslování začne dělat rotiku. Buďto nevykresluje ohraničení vůbec, nebo ho vykresluje úplně mimo, doprostřed buněk, nebo třeba jenom částečně... nevím si rady jak toto vyřešit, vykreslování "postavit do latě" i když je tabulka větší a je potřeba hýbat scrollbarem.

Díky.

Jenom poznámka u StringGridu je použito DoubleBuffered=True, abych předešel problikávání tabulky při překreslení; nevím zda by to s tím nemohlo mít něco společného.

To x a y bereš z toho Rectu, co dostáváš jako parametr OnDrawCell ?

#2 zlz
Chtěl jsem sem tu proceduru vložit, ale úspěšně jsem ji smazal. Pokusím se to popsat jak to tam bylo:

var i, DelkaShora, DelkaZleva: Integer;
begin
 i:=0; 
 for i = 0 to ARow-1
 do DelkaShora := DelkaShora + TableEDD.RowHeights[i];
 
 i := 0;
 for i := 0 to ACol-1 
 do DelkaZleva := DelkaZleva + TableEDD.ColWidth[i];

 TableEDD.Canvas.MoveTo(DelkaShora, DelkaZleva);
 TableEDD.Canvas.LineTo(DelkaShora, DelkaZleva + TableEDD.ColWidths(ACol));
end;