paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 17:20:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

customdrawn: Implements basic Mac square button look

Browse Source 
git-svn-id: trunk@49563 -
This commit is contained in:
sekelsenmat 2015-07-24 08:22:12 +00:00
parent c6a1a07dac
commit 9a491976ca
1 changed files with 85 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
lcl/customdrawn_mac.pas
View File

@ -6,7 +6,7 @@ interface
uses
// RTL
Classes, SysUtils, Types,
Classes, SysUtils, Types, fpcanvas, fpimage,
// LCL -> Use only TForm, TWinControl, TCanvas and TLazIntfImage
Graphics, Controls, LCLType,
//
@ -20,9 +20,18 @@ type
public
procedure DrawExpandTriangle(ADest: TCanvas; ASize: TSize;
AX, AY: Integer; AFacing: TCDControlStateFlag);
//
procedure DrawMacSquareButton(ADest: TFPCustomCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDButtonStateEx);
public
function GetMeasures(AMeasureID: Integer): Integer; override;
// ===================================
// Standard Tab
// ===================================
// TCDButton
procedure DrawButton(ADest: TFPCustomCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDButtonStateEx); override;
// ===================================
// Common Controls Tab
// ===================================
// TCDToolBar
@ -33,6 +42,21 @@ type
implementation
const
// Button
MAC_SQUARE_BUTTON_FOCUS_FRAME_OUTTER = $00D7BE9F;
MAC_SQUARE_BUTTON_FOCUS_FRAME_INNER = $00F7DEBF; // actually it is a gradient as well
//
MAC_SQUARE_BUTTON_FRAME = $00AFAFAF;
MAC_SQUARE_BUTTON_FOCUS_GRADIENT_TOP = $00E3E3E3;
MAC_SQUARE_BUTTON_FOCUS_GRADIENT_BOTTOM = $00F7F7F7;
//
MAC_SQUARE_BUTTON_SUNKEN_GRADIENT_TOP = $00AFAFAF;
MAC_SQUARE_BUTTON_SUNKEN_GRADIENT_BOTTOM = $00C5C5C5;
{ TCDDrawerMac }
procedure TCDDrawerMac.DrawExpandTriangle(ADest: TCanvas; ASize: TSize; AX,
@ -83,6 +107,60 @@ begin
ADest.Polygon(lPoints);
end;
procedure TCDDrawerMac.DrawMacSquareButton(ADest: TFPCustomCanvas;
ASize: TSize; AState: TCDControlState; AStateEx: TCDButtonStateEx);
var
lDest: TCanvas absolute ADest;
Str: string;
lColor: TColor;
lRect: TRect;
lFrameDark, lFrameMedDark, lFrameMedium, lFrameLight: TColor;
lSelTop, lSelTopGrad, lSelBottomGrad, lSelBottom: TColor;
lGradientTop, lGradientBottom: TColor;
begin
// Main body with gradient
if csfSunken in AState then
begin
lGradientTop := MAC_SQUARE_BUTTON_SUNKEN_GRADIENT_TOP;
lGradientBottom := MAC_SQUARE_BUTTON_SUNKEN_GRADIENT_BOTTOM;
end
else// if csfEnabled in AState then
begin
lGradientTop := MAC_SQUARE_BUTTON_FOCUS_GRADIENT_TOP;
lGradientBottom := MAC_SQUARE_BUTTON_FOCUS_GRADIENT_BOTTOM;
end;
lRect := Bounds(1, 1, ASize.cx-2, ASize.cy-2);
lDest.GradientFill(lRect, lGradientTop, lGradientBottom, gdVertical);
// outter rectangle
lColor := AStateEx.ParentRGBColor;
ADest.Brush.Style := bsClear;
if (csfHasFocus in AState) and not (csfSunken in AState) then
lDest.Pen.Color := MAC_SQUARE_BUTTON_FOCUS_FRAME_OUTTER
else
lDest.Pen.Color := MAC_SQUARE_BUTTON_FRAME;
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
ADest.Rectangle(1, 1, ASize.cx-1, ASize.cy-1);
// inner rectangle (only for focused)
if (csfHasFocus in AState) and not (csfSunken in AState) then
begin
lDest.Pen.Color := MAC_SQUARE_BUTTON_FOCUS_FRAME_INNER;
ADest.Rectangle(2, 2, ASize.cx-2, ASize.cy-2);
ADest.Rectangle(3, 3, ASize.cx-3, ASize.cy-3);
end;
// Button text
ADest.Font.Assign(AStateEx.Font);
ADest.Brush.Style := bsClear;
ADest.Pen.Style := psSolid;
if (csfSunken in AState) then
ADest.Font.FPColor := colWhite;
Str := AStateEx.Caption;
lDest.TextOut((ASize.cx - lDest.TextWidth(Str)) div 2,
(ASize.cy - lDest.TextHeight(Str)) div 2, Str);
end;
function TCDDrawerMac.GetMeasures(AMeasureID: Integer): Integer;
begin
case AMeasureID of
@ -93,6 +171,12 @@ begin
end;
end;
procedure TCDDrawerMac.DrawButton(ADest: TFPCustomCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDButtonStateEx);
begin
DrawMacSquareButton(ADest, ASize, AState, AStateEx);
end;
procedure TCDDrawerMac.DrawToolBarItem(ADest: TCanvas; ASize: TSize;
ACurItem: TCDToolBarItem; AX, AY: Integer; AState: TCDControlState;
AStateEx: TCDToolBarStateEx);