[Lazarus] WMPaint

Alexey aaa5500 at ya.ru
Sun Apr 30 18:06:18 CEST 2017


procedure TCustomControl.WMPaint(var Message: TLMPaint);
begin
   if (csDestroying in ComponentState) or (not HandleAllocated) then exit;
   Include(FControlState, csCustomPaint);
   inherited WMPaint(Message);
   Exclude(FControlState, csCustomPaint);
end;

Maybe use try-finally here for Exclude?


-- 
Regards,
Alexey



More information about the Lazarus mailing list