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

Win32 and GTK2 widgetset endless loop eliminated

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1033 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
macpgmr
2009-12-05 23:25:47 +00:00
parent 7ed85a3234
commit 7dc9c2a8a2
5 changed files with 47 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/thtmlport/package/htmlview.pas
View File

@@ -4333,7 +4333,7 @@ end;
procedure ThtmlViewer.PaintWindow(DC: HDC);
begin
PaintPanel.RePaint;
BorderPanel.RePaint;
BorderPanel.RePaint;
VScrollbar.RePaint;
HScrollbar.RePaint;
end;
@@ -5049,7 +5049,9 @@ var
begin
if FViewer.DontDraw or (Canvas2 <> Nil) then
Exit;
FViewer.DrawBorder;
{$IFNDEF LCL}
FViewer.DrawBorder; //Causes endless loop for some reason on win32 and gtk2.
{$ENDIF}
OldPal := 0;
Canvas.Font := Font;
Canvas.Brush.Color := Color;