mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Background color in Viewer with Qt and Lazarus 0.9.30.

Browse source
This commit is contained in:
cobines 2011-11-16 18:12:52 +00:00
commit 09c923c2e5
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
components/viewer/viewercontrol.pas
View file

@ -399,7 +399,7 @@ procedure Register;
implementation
uses
LCLType, Graphics, Forms, LCLProc, Clipbrd, LConvEncoding, UnicodeUtils, LCLIntf
LCLType, LCLVersion, Graphics, Forms, LCLProc, Clipbrd, LConvEncoding, UnicodeUtils, LCLIntf
{$IF DEFINED(UNIX)}
, BaseUnix, Unix
{$ELSEIF DEFINED(WINDOWS)}
@ -489,6 +489,10 @@ begin
Canvas.Font := Self.Font;
Canvas.Brush.Color := Self.Color;
{$IF DEFINED(LCLQT) and (LCL_FULLVERSION < 093100)}
Canrvas.Brush.Style := bsSolid;
Canrvas.FillRect(ClientRect);
{$ENDIF}
Canvas.Brush.Style := bsClear;
FTextHeight := Canvas.TextHeight('Wg') + 2;