paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 05:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Finishes the initial implementation of TCDGroupBox and ifdefs out the usage of the freetype library

Browse Source 
git-svn-id: trunk@28155 -
This commit is contained in:
sekelsenmat 2010-11-08 12:21:38 +00:00
parent 4439ab142e
commit 76a77afa7c
1 changed files with 40 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
components/customdrawn/customdrawnextras.pas
View File

@ -17,9 +17,12 @@ uses
Classes, SysUtils, Graphics, Controls, LCLType, LCLIntf, IntfGraphics, Classes, SysUtils, Graphics, Controls, LCLType, LCLIntf, IntfGraphics,
Math, Math,
// fpimage // fpimage
fpcanvas, fpimgcanv, fpimage, fpcanvas, fpimgcanv, fpimage
{$ifdef CUSTOMDRAWN_USE_FREETYPE}
// font support // font support
{opc}ftfont; ,ftfont
{$endif}
;
type type
@ -184,14 +187,17 @@ type
public public
procedure SetClientRectPos(CDGroupBox: TCDGroupBox); virtual; abstract; procedure SetClientRectPos(CDGroupBox: TCDGroupBox); virtual; abstract;
procedure DrawToIntfImage(ADest: TFPImageCanvas; CDGroupBox: TCDGroupBox); virtual; abstract; procedure DrawToIntfImage(ADest: TFPImageCanvas; CDGroupBox: TCDGroupBox); virtual; abstract;
procedure DrawToCanvas(ADest: TCanvas; CDGroupBox: TCDGroupBox); virtual; abstract;
end; end;
{ TCDGroupBoxDrawerWinCE } { TCDGroupBoxDrawerWinCE }
TCDGroupBoxDrawerWinCE = class(TCDGroupBoxDrawer) TCDGroupBoxDrawerWinCE = class(TCDGroupBoxDrawer)
public public
FCaptionMiddle: Integer;
procedure SetClientRectPos(CDGroupBox: TCDGroupBox); override; procedure SetClientRectPos(CDGroupBox: TCDGroupBox); override;
procedure DrawToIntfImage(ADest: TFPImageCanvas; CDGroupBox: TCDGroupBox); override; procedure DrawToIntfImage(ADest: TFPImageCanvas; CDGroupBox: TCDGroupBox); override;
procedure DrawToCanvas(ADest: TCanvas; CDGroupBox: TCDGroupBox); override;
end; end;
{@@ {@@
@ -511,8 +517,11 @@ begin
ABmp.Height := Height; ABmp.Height := Height;
AImage := ABmp.CreateIntfImage; AImage := ABmp.CreateIntfImage;
lCanvas := TFPImageCanvas.create(AImage); lCanvas := TFPImageCanvas.create(AImage);
// First step of the drawing: FCL TFPCustomCanvas for fast pixel access
FCurrentDrawer.DrawToIntfImage(lCanvas, Self); FCurrentDrawer.DrawToIntfImage(lCanvas, Self);
ABmp.LoadFromIntfImage(AImage); ABmp.LoadFromIntfImage(AImage);
// Second step of the drawing: LCL TCustomCanvas for easy font access
FCurrentDrawer.DrawToCanvas(ABmp.Canvas, Self);
Canvas.Draw(0, 0, ABmp); Canvas.Draw(0, 0, ABmp);
finally finally
if lCanvas <> nil then lCanvas.Free; if lCanvas <> nil then lCanvas.Free;
@ -535,9 +544,13 @@ end;
procedure TCDGroupBoxDrawerWinCE.DrawToIntfImage(ADest: TFPImageCanvas; procedure TCDGroupBoxDrawerWinCE.DrawToIntfImage(ADest: TFPImageCanvas;
CDGroupBox: TCDGroupBox); CDGroupBox: TCDGroupBox);
{$ifdef CUSTOMDRAWN_USE_FREETYPE}
var var
AFont: TFreeTypeFont = nil; AFont: TFreeTypeFont = nil;
{$endif}
begin begin
FCaptionMiddle := CDGroupBox.Canvas.TextHeight('Ź') div 2;
// Background // Background
if CDGroupBox.Parent = nil then if CDGroupBox.Parent = nil then
ADest.Brush.FPColor := colLtGray ADest.Brush.FPColor := colLtGray
@ -551,8 +564,9 @@ begin
ADest.Pen.FPColor := colBlack; ADest.Pen.FPColor := colBlack;
ADest.Pen.Style := psSolid; ADest.Pen.Style := psSolid;
ADest.Brush.Style:=bsClear; ADest.Brush.Style:=bsClear;
ADest.Rectangle(0, 5, CDGroupBox.Width - 1, CDGroupBox.height - 1); ADest.Rectangle(0, FCaptionMiddle, CDGroupBox.Width - 1, CDGroupBox.height - 1);
{$ifdef CUSTOMDRAWN_USE_FREETYPE}
// Caption background and caption // Caption background and caption
// initialize free type font manager // initialize free type font manager
@ -576,6 +590,29 @@ begin
finally finally
AFont.Free; AFont.Free;
end; end;
{$endif}
end;
procedure TCDGroupBoxDrawerWinCE.DrawToCanvas(ADest: TCanvas;
CDGroupBox: TCDGroupBox);
begin
{$ifndef CUSTOMDRAWN_USE_FREETYPE}
if CDGroupBox.Parent = nil then
ADest.Brush.Color := clLtGray
else
ADest.Brush.Color := ColorToRGB(CDGroupBox.Parent.Color);
// Text background
ADest.Pen.Style := psClear;
ADest.Brush.Style := bsSolid;
ADest.Rectangle(FCaptionMiddle, 0, ADest.GetTextWidth(CDGroupBox.Caption) + FCaptionMiddle, 10);
// paint text
ADest.Pen.Style := psSolid;
ADest.Brush.Style:=bsClear;
ADest.Font.Size:=10;
ADest.TextOut(FCaptionMiddle,0, CDGroupBox.Caption);
{$endif}
end; end;
{ TCDTrackBar } { TCDTrackBar }