pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix paint on windows

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@741 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2009-03-16 14:27:16 +00:00
parent be86fa976b
commit 80a8d607a9
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/rxlookup.pas
View File

@@ -1352,10 +1352,10 @@ procedure TRxDBLookupCombo.OnClosePopup(AResult: boolean);
begin begin
inherited OnClosePopup(AResult); inherited OnClosePopup(AResult);
SetFocus; SetFocus;
if (Owner is TWinControl) then { if (Owner is TWinControl) then
TWinControl(Owner).Repaint TWinControl(Owner).Repaint
else else
Parent.Repaint; Parent.Repaint;}
end; end;
end. end.