<div>
<br />
Something like the following will allow you to &quot;blink&quot; (it inverts the image) &nbsp;the list item without having to use a timer, and without having to implement owner-drawing. May make things a little easier to implement....<br />
<br />
Regards,<br />
Russell<br />
<br />
procedure BlinkListItem(Item: TListItem);<br />
var &nbsp;hdcPaint: &nbsp; &nbsp; &nbsp;HDC;<br />
&nbsp; &nbsp; &nbsp; rcBounds: &nbsp; &nbsp; &nbsp;TRect;<br />
begin<br />
<br />
&nbsp; // Check assignment<br />
&nbsp; if Assigned(Item) then<br />
&nbsp; begin<br />
&nbsp; &nbsp; &nbsp;// Get the bounds rect for the item<br />
&nbsp; &nbsp; &nbsp;rcBounds:=Item.DisplayRect<wbr />(drBounds)<wbr />;<br />
&nbsp; &nbsp; &nbsp;// Get the window DC<br />
&nbsp; &nbsp; &nbsp;hdcPaint:=GetDC(Item.Handl<wbr />e);<br />
&nbsp; &nbsp; &nbsp;// Invert the item<br />
&nbsp; &nbsp; &nbsp;Assert(InvertRect(hdcPaint<wbr />, rcBounds), 'Failed to invert the rectangle');<br />
&nbsp; &nbsp; &nbsp;// Release the dc<br />
&nbsp; &nbsp; &nbsp;ReleaseDC(Item.Handle, hdcPaint);<br />
&nbsp; &nbsp; &nbsp;// Validate the item rectangle<br />
&nbsp; &nbsp; &nbsp;ValidateRect(Item.Handle, @rcBounds);<br />
&nbsp; &nbsp; &nbsp;// Delay<br />
&nbsp; &nbsp; &nbsp;Sleep(500);<br />
&nbsp; &nbsp; &nbsp;// Have the item repaint<br />
&nbsp; &nbsp; &nbsp;InvalidateRect(Item.Handle<wbr />, @rcBounds, True);<br />
&nbsp; end;<br />
<br />
end;<br />
<br />

</div>



Something like the following will allow you to "blink" (it inverts the image)  the list item without having to use a timer, and without having to implement owner-drawing. May make things a little easier to implement....

Regards,
Russell

procedure BlinkListItem(Item: TListItem);
var  hdcPaint:      HDC;
      rcBounds:      TRect;
begin

  // Check assignment
  if Assigned(Item) then
  begin
     // Get the bounds rect for the item
     rcBounds:=Item.DisplayRect(drBounds);
     // Get the window DC
     hdcPaint:=GetDC(Item.Handle);
     // Invert the item
     Assert(InvertRect(hdcPaint, rcBounds), 'Failed to invert the rectangle');
     // Release the dc
     ReleaseDC(Item.Handle, hdcPaint);
     // Validate the item rectangle
     ValidateRect(Item.Handle, @rcBounds);
     // Delay
     Sleep(500);
     // Have the item repaint
     InvalidateRect(Item.Handle, @rcBounds, True);
  end;

end;



<div>
I'm glad that I gave you enough information to be able to solve this problem.
</div>


I'm glad that I gave you enough information to be able to solve this problem.

<div>
<div class="content wysiwyg-content">
 How may I blink a specific item in TListView?<br />
<br />

</div>
</div>


 How may I blink a specific item in TListView?



Blinking item in TListView

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.