[Delphi] Gridlines flikkeren andere kleur bij repaint

[pelleke]

Ik heb een StringGrid (TNldStringGrid) waarbij ik mijn gridlines een andere kleur heb gegeven dan grijs. (Dat is een van de features van een TNldStringGrid.)

Nu is mijn probleem dat mijn gridlines grijs gaan knipperen als ik Grid.Repaint aanroep. Dit gebeurt nogal vaak in mijn prog, en het ziet er niet uit.

Ik heb niet kunnen vinden waar ze grijs worden, maar hoe kan ik ervoor zorgen dat ze gewoon de originele kleur houden tijdens het repainten?

[OZ-Gump]

Hoe heb je de lijntjes een andere kleur gegeven? Draw je zelf de rect (en staat je grid op OwnerDraw)? En zo ja: in welk event draw je de rects, gewoon bij de onCellDraw of ergens anders?

Een andere (misschien wel belangrijkere) vraag: is het wel echt nodig je grid zo vaak opnieuw te laten tekenen? Misschien is er een andere oplossing voor je probleem te vinden. Misschien kun je de situatie wat duidelijker uitleggen?

[LordLarry]

Meestal is het een slecht idee om Repaint aan te roepen, want dat laat je soms onnodig tekenen wat flikekering op kan leveren. Gebruik liever Grid.Invalidate;

[pelleke]

De kleur wordt in mijn component zelf veranderd in de procedure DrawCell. Deze component heeft geen OwnerDraw-property (tenminste, geen published )

Invalidate maakt het minder, maar lost het niet op. Het lijkt wel alsof ze minder lang grijs blijven. Ik heb alle open units (use debug dcu's) al gezocht naar clSilver maar kon niks boeiends vinden/patchen (wat sowieso nooit echt verstandig is...)

Ze zijn oorspronkelijk donkerblauw, en ik denk dat die grijze kleur komt van een rect die wordt getekend ter grootte van de hele oppervlakte van de TNldStringGrid, waaroverheen de cellen weer staan. Die gridlines worden waarschijnlijk pas later ingekleurd.

Interessante info?

Pel.

[codebeat]

Probleem is dat het control een repaint message stuurt naar onderliggende controls, daardoor krijg je de flicker. Je hebt een repaint echter wel nodig, bijvoorbeeld als je het venster resized. Dus wat je kunt doen is tijdelijk de achtergrond refresh uit te schakelen. Dat kun je zo doen zonder een nieuwe unit te maken:

Bovenaan je form unit:

TNldStringGrid = class( NldStringGrid.TNldStringGrid )
protected
redrawDisabled : boolean;

// Avoid redraw flicker
procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message WM_ERASEBKGND;

public
procedure flickerFreeRepaint();
end;

In implementation:
procedure TNldStringGrid.WMEraseBkgnd(var Message: TWmEraseBkgnd);
begin
if( NOT redrawDisabled ) then
inherited
else Message.Result:=1; // Fake erase
end;

procedure TNldStringGrid.WMEraseBkgnd(var Message: TWmEraseBkgnd);
begin
redrawDisabled:=true;
rePaint();
redrawDisabled:=false;
end;


In je code:
NldStringGrid1.flickerFreeRepaint();

Et viola.

[Creepy]

Maar om daar nu een topic uit 2004 (!!) voor omhoog te duwen is ook weer wat overdreven...