Delphi > Obecné

Chybné vykreslení ve StringGridu

(1/1)

Jirka:
Narazil jsem zřejmě na chybu v XE2 (D2007  ani 10.4.2 to nedělají).
Na levé straně buňky zůstane asi 2 pixely nevykresleno podkladovou barvou.
Nejlépe je to vidět na přiloženém obrazku
Potřebuji to nějak obejít - přechod na 10.4.2 je až to poslední řešení
DrawGrid nemohu použít  - potřebuji totiž Objects



--- Kód: Delphi ---procedure TFoPlanSmen.GridHarmongramTxtDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;  State: TGridDrawState);beginwith TStringGrid(Sender) do           begin            Canvas.Brush.Color := clLime ;            Canvas.FillRect(Rect);                      end;end;

pf1957:

--- Citace: Jirka  16-10-2021, 22:58:20 ---Narazil jsem zřejmě na chybu v XE2 (D2007  ani 10.4.2 to nedělají).
Na levé straně buňky zůstane asi 2 pixely nevykresleno podkladovou barvou.

--- Konce citace ---
Ty gridy z Delphi jsem pouzil tak davno, ze si o nich vubec nic nepamatuju - jakmile jsme objevilli VTV, tak uz jsme ho pouzivali na vsechno.

Kdyz zahybes s hodnotami v Rect pred FillRect(), tak co se stane?

Jirka:

--- Citace: pf1957  17-10-2021, 07:49:31 ---Kdyz zahybes s hodnotami v Rect pred FillRect(), tak co se stane?

--- Konce citace ---

Jednoduché a efektivní - viz obrázek
Díky

P.S.  Koukám že to bude chtít přida ještě jeden pixlík

Navigace

[0] Seznam témat

Přejít na plnou verzi