mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 14:19:19 +02:00
1956 lines
71 KiB
ObjectPascal
1956 lines
71 KiB
ObjectPascal
unit CustomDrawn_Common;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
// RTL / FCL
|
|
Classes, SysUtils, Types, Math, fpcanvas, fpimage,
|
|
// LazUtils
|
|
lazutf8,
|
|
// LCL -> Use only TForm, TWinControl, TCanvas and TLazIntfImage
|
|
Graphics, Controls, LCLType,
|
|
// Others only for types
|
|
StdCtrls, ComCtrls, Forms,
|
|
//
|
|
customdrawndrawers, ExtCtrls;
|
|
|
|
type
|
|
|
|
{ TCDDrawerCommon }
|
|
|
|
TCDDrawerCommon = class(TCDDrawer)
|
|
public
|
|
function PalDefaultUsesNativePalette: Boolean; override;
|
|
procedure LoadFallbackPaletteColors; override;
|
|
// General
|
|
function GetMeasures(AMeasureID: Integer): Integer; override;
|
|
function GetMeasuresEx(ADest: TCanvas; AMeasureID: Integer;
|
|
AState: TCDControlState; AStateEx: TCDControlStateEx): Integer; override;
|
|
procedure CalculatePreferredSize(ADest: TCanvas; AControlId: TCDControlID;
|
|
AState: TCDControlState; AStateEx: TCDControlStateEx;
|
|
var PreferredWidth, PreferredHeight: integer; WithThemeSpace, AAllowUseOfMeasuresEx: Boolean); override;
|
|
function GetColor(AColorID: Integer): TColor; override;
|
|
function GetClientArea(ADest: TCanvas; ASize: TSize; AControlId: TCDControlID;
|
|
AState: TCDControlState; AStateEx: TCDControlStateEx): TRect; override;
|
|
function DPIAdjustment(const AValue: Integer): Integer;
|
|
// General drawing routines
|
|
procedure DrawFocusRect(ADest: TFPCustomCanvas; ADestPos: TPoint; ASize: TSize); override;
|
|
procedure DrawRaisedFrame(ADest: TCanvas; ADestPos: TPoint; ASize: TSize); override;
|
|
procedure DrawFrame3D(ADest: TFPCustomCanvas; ADestPos: TPoint; ASize: TSize;
|
|
const FrameWidth : integer; const Style : TBevelCut); override;
|
|
procedure DrawSunkenFrame(ADest: TCanvas; ADestPos: TPoint; ASize: TSize); override;
|
|
procedure DrawShallowSunkenFrame(ADest: TCanvas; ADestPos: TPoint; ASize: TSize); override;
|
|
procedure DrawTickmark(ADest: TFPCustomCanvas; ADestPos: TPoint; AState: TCDControlState); override;
|
|
procedure DrawSlider(ADest: TCanvas; ADestPos: TPoint; ASize: TSize; AState: TCDControlState); override;
|
|
procedure DrawArrow(ADest: TCanvas; ADestPos: TPoint; ADirection: TCDControlState; ASize: Integer = 7); override;
|
|
// Extra buttons drawing routines
|
|
procedure DrawSmallCloseButton(ADest: TCanvas; ADestPos: TPoint); override;
|
|
procedure DrawButtonWithArrow(ADest: TCanvas; ADestPos: TPoint; ASize: TSize; AState: TCDControlState); override;
|
|
// TCDControl
|
|
procedure DrawControl(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
|
|
// ===================================
|
|
// Standard Tab
|
|
// ===================================
|
|
// TCDButton
|
|
procedure DrawButton(ADest: TFPCustomCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDButtonStateEx); override;
|
|
// TCDEdit
|
|
procedure DrawEditBackground(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDEditStateEx); override;
|
|
procedure DrawEditFrame(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDEditStateEx); override;
|
|
procedure DrawCaret(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDEditStateEx); override;
|
|
procedure DrawEdit(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDEditStateEx); override;
|
|
// TCDCheckBox
|
|
procedure DrawCheckBoxSquare(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
|
|
procedure DrawCheckBox(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
|
|
// TCDRadioButton
|
|
procedure DrawRadioButtonCircle(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
|
|
procedure DrawRadioButton(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
|
|
// TCDComboBox
|
|
procedure DrawComboBox(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDEditStateEx); override;
|
|
// TCDScrollBar
|
|
procedure DrawScrollBar(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDPositionedCStateEx); override;
|
|
// TCDGroupBox
|
|
procedure DrawGroupBox(ADest: TFPCustomCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
|
|
// TCDPanel
|
|
procedure DrawPanel(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDPanelStateEx); override;
|
|
// ===================================
|
|
// Additional Tab
|
|
// ===================================
|
|
procedure DrawStaticText(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDControlStateEx); override;
|
|
// ===================================
|
|
// Common Controls Tab
|
|
// ===================================
|
|
// TCDTrackBar
|
|
procedure DrawTrackBar(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDPositionedCStateEx); override;
|
|
// TCDProgressBar
|
|
procedure DrawProgressBar(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDProgressBarStateEx); override;
|
|
// TCDListView
|
|
procedure DrawListView(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDListViewStateEx); override;
|
|
procedure DrawReportListView(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDListViewStateEx); override;
|
|
procedure DrawReportListViewItem(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
|
|
ACurItem: TCDListItems; AState: TCDControlState; AStateEx: TCDListViewStateEx); override;
|
|
// TCDToolBar
|
|
procedure DrawToolBar(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDToolBarStateEx); override;
|
|
procedure DrawToolBarItem(ADest: TCanvas; ASize: TSize;
|
|
ACurItem: TCDToolBarItem; AX, AY: Integer;
|
|
AState: TCDControlState; AStateEx: TCDToolBarStateEx); override;
|
|
// TCDCustomTabControl
|
|
procedure DrawCTabControl(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDCTabControlStateEx); override;
|
|
procedure DrawCTabControlFrame(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDCTabControlStateEx); override;
|
|
procedure DrawTabSheet(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDCTabControlStateEx); override;
|
|
procedure DrawTabs(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDCTabControlStateEx); override;
|
|
procedure DrawTab(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDCTabControlStateEx); override;
|
|
// ===================================
|
|
// Misc Tab
|
|
// ===================================
|
|
procedure DrawSpinEdit(ADest: TCanvas; ADestPos: TPoint; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDSpinStateEx); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
const
|
|
WIN2000_FRAME_WHITE = clWhite;
|
|
WIN2000_FRAME_LIGHT_GRAY = $00E2EFF1;
|
|
WIN2000_FRAME_GRAY = $0099A8AC;
|
|
WIN2000_FRAME_DARK_GRAY = $00646F71;
|
|
|
|
WIN2000_DISABLED_TEXT = WIN2000_FRAME_GRAY;
|
|
|
|
WIN2000_SELECTION_BACKGROUND = $00C56A31;
|
|
|
|
WIN2000_SCROLLBAR_BACKGROUND = $00ECF4F6;
|
|
WIN2000_LIGHTGRAY_BACKGROUND = $00ECF4F6;
|
|
|
|
WIN2000_PROGRESSBAR_BLUE = $00C56A31;
|
|
|
|
WIN2000_BTNFACE = $00D8E9EC;
|
|
|
|
WIN2000_FORM = WIN2000_BTNFACE;
|
|
|
|
{ TCDDrawerCommon }
|
|
|
|
function TCDDrawerCommon.PalDefaultUsesNativePalette: Boolean;
|
|
begin
|
|
{$ifdef MSWindows}
|
|
Result := True;
|
|
{$else}
|
|
Result := False;
|
|
{$endif}
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.LoadFallbackPaletteColors;
|
|
begin
|
|
Palette.ScrollBar := $C8D0D4;
|
|
Palette.Background := $984E00;
|
|
Palette.ActiveCaption := $E35400;
|
|
Palette.InactiveCaption := $DF967A;
|
|
Palette.Menu := $FFFFFF;
|
|
Palette.Window := clWhite; // The inside of a Edit control, for example
|
|
Palette.WindowFrame := $0;
|
|
Palette.MenuText := $0;
|
|
Palette.WindowText := $0;
|
|
Palette.CaptionText := $FFFFFF;
|
|
Palette.ActiveBorder := $C8D0D4;
|
|
Palette.InactiveBorder := $C8D0D4;
|
|
Palette.AppWorkspace := $808080;
|
|
Palette.Highlight := $C56A31;
|
|
Palette.HighlightText := $FFFFFF;
|
|
Palette.BtnFace := WIN2000_BTNFACE;
|
|
Palette.BtnShadow := $99A8AC;
|
|
Palette.GrayText := $99A8AC;
|
|
Palette.BtnText := $0;
|
|
Palette.InactiveCaptionText := $F8E4D8;
|
|
Palette.BtnHighlight := $FFFFFF;
|
|
Palette.color3DDkShadow := $646F71;
|
|
Palette.color3DLight := $E2EFF1;
|
|
Palette.InfoText := $0;
|
|
Palette.InfoBk := $E1FFFF;
|
|
//
|
|
Palette.HotLight := $800000;
|
|
Palette.GradientActiveCaption := $FF953D;
|
|
Palette.GradientInactiveCaption := $EBB99D;
|
|
Palette.MenuHighlight := $C56A31;
|
|
Palette.MenuBar := $D8E9EC;
|
|
Palette.Form := WIN2000_FORM;
|
|
end;
|
|
|
|
function TCDDrawerCommon.GetMeasures(AMeasureID: Integer): Integer;
|
|
begin
|
|
case AMeasureID of
|
|
TCDEDIT_LEFT_TEXT_SPACING: Result := 6;
|
|
TCDEDIT_RIGHT_TEXT_SPACING: Result := 3;
|
|
TCDEDIT_TOP_TEXT_SPACING: Result := 3;
|
|
TCDEDIT_BOTTOM_TEXT_SPACING: Result := 3;
|
|
//
|
|
TCDCHECKBOX_SQUARE_HALF_HEIGHT: Result := Floor(GetMeasures(TCDCHECKBOX_SQUARE_HEIGHT)/2);
|
|
TCDCHECKBOX_SQUARE_HEIGHT: Result := DPIAdjustment(15);
|
|
//
|
|
TCDCOMBOBOX_DEFAULT_HEIGHT: Result := 21;
|
|
//
|
|
TCDRADIOBUTTON_CIRCLE_HEIGHT: Result := 15;
|
|
//
|
|
TCDSCROLLBAR_BUTTON_WIDTH: Result := 17;
|
|
TCDSCROLLBAR_LEFT_SPACING: Result := 17;
|
|
TCDSCROLLBAR_RIGHT_SPACING: Result := 17;
|
|
TCDSCROLLBAR_LEFT_BUTTON_POS: Result := 0;
|
|
TCDSCROLLBAR_RIGHT_BUTTON_POS: Result := -17;
|
|
//
|
|
TCDTRACKBAR_LEFT_SPACING: Result := 9;
|
|
TCDTRACKBAR_RIGHT_SPACING: Result := 9;
|
|
TCDTRACKBAR_TOP_SPACING: Result := 5;
|
|
TCDTRACKBAR_FRAME_HEIGHT: Result := DPIAdjustment(17);
|
|
//
|
|
TCDLISTVIEW_COLUMN_LEFT_SPACING: Result := 10;
|
|
TCDLISTVIEW_COLUMN_RIGHT_SPACING: Result := 10;
|
|
TCDLISTVIEW_COLUMN_TEXT_LEFT_SPACING: Result := 5;
|
|
TCDLISTVIEW_LINE_TOP_SPACING: Result := 3;
|
|
TCDLISTVIEW_LINE_BOTTOM_SPACING: Result := 3;
|
|
//
|
|
TCDTOOLBAR_ITEM_SPACING: Result := 2;
|
|
TCDTOOLBAR_ITEM_ARROW_WIDTH: Result := 7;
|
|
TCDTOOLBAR_ITEM_BUTTON_DEFAULT_WIDTH: Result := 23;
|
|
TCDTOOLBAR_ITEM_ARROW_RESERVED_WIDTH: Result := 35 - 23;
|
|
TCDTOOLBAR_ITEM_SEPARATOR_DEFAULT_WIDTH: Result := 8;
|
|
TCDTOOLBAR_DEFAULT_HEIGHT: Result := 26;
|
|
//
|
|
TCDCTABCONTROL_CLOSE_TAB_BUTTON_WIDTH: Result := 10;
|
|
TCDCTABCONTROL_CLOSE_TAB_BUTTON_EXTRA_SPACING: Result := 10;
|
|
else
|
|
Result := 0;
|
|
end;
|
|
end;
|
|
|
|
function TCDDrawerCommon.GetMeasuresEx(ADest: TCanvas; AMeasureID: Integer;
|
|
AState: TCDControlState; AStateEx: TCDControlStateEx): Integer;
|
|
const
|
|
TCDTabControl_Common_TabCaptionExtraWidth = 20;
|
|
var
|
|
ATabsStateEx: TCDCTabControlStateEx absolute AStateEx;
|
|
lCaption: String;
|
|
lTabWidth, i, t: Integer;
|
|
IsPainting: Boolean = False;
|
|
begin
|
|
ADest.Font.Assign(AStateEx.Font);
|
|
|
|
case AMeasureID of
|
|
TCDCONTROL_CAPTION_WIDTH: Result := ADest.TextWidth(AStateEx.Caption);
|
|
TCDCONTROL_CAPTION_HEIGHT: Result := ADest.TextHeight(cddTestStr);
|
|
TCDCTABCONTROL_TAB_HEIGHT: Result := ADest.TextHeight(cddTestStr)+10;
|
|
TCDCTABCONTROL_TAB_WIDTH:
|
|
begin
|
|
if ATabsStateEx.CurTabIndex < ATabsStateEx.TabCount then
|
|
begin
|
|
lCaption := ATabsStateEx.Tabs.Strings[ATabsStateEx.CurTabIndex];
|
|
Result := ADest.TextWidth(lCaption) + TCDTabControl_Common_TabCaptionExtraWidth;
|
|
if (nboShowCloseButtons in ATabsStateEx.Options) then
|
|
Result := Result + GetMeasures(TCDCTABCONTROL_CLOSE_TAB_BUTTON_WIDTH)
|
|
+ GetMeasures(TCDCTABCONTROL_CLOSE_TAB_BUTTON_EXTRA_SPACING);
|
|
end
|
|
// in any other case we are referring to the aditional + button for adding a new tab
|
|
else
|
|
Result := ADest.TextWidth('+') + TCDTabControl_Common_TabCaptionExtraWidth;
|
|
end;
|
|
TCDCTABCONTROL_TAB_LEFT_POS:
|
|
begin
|
|
Result := 0;
|
|
for i := 0 to ATabsStateEx.CurTabIndex-1 do
|
|
begin
|
|
if i = ATabsStateEx.LeftmostTabVisibleIndex then IsPainting := True;
|
|
|
|
if IsPainting then
|
|
begin
|
|
t := ATabsStateEx.CurTabIndex;
|
|
ATabsStateEx.CurTabIndex := i;
|
|
Result := Result + GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_WIDTH, AState, AStateEx);
|
|
ATabsStateEx.CurTabIndex := t;
|
|
end;
|
|
end;
|
|
end;
|
|
TCDCTABCONTROL_CLOSE_BUTTON_POS_X:
|
|
begin
|
|
lTabWidth := GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_WIDTH, AState, AStateEx);
|
|
Result := GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_LEFT_POS, AState, AStateEx)
|
|
+lTabWidth
|
|
-GetMeasures(TCDCTABCONTROL_CLOSE_TAB_BUTTON_WIDTH)
|
|
-GetMeasures(TCDCTABCONTROL_CLOSE_TAB_BUTTON_EXTRA_SPACING);
|
|
end;
|
|
TCDCTABCONTROL_CLOSE_BUTTON_POS_Y:
|
|
begin
|
|
if ATabsStateEx.TabIndex = ATabsStateEx.CurTabIndex then Result := 8
|
|
else Result := 10;
|
|
end;
|
|
else
|
|
Result := 0;
|
|
end;
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.CalculatePreferredSize(ADest: TCanvas;
|
|
AControlId: TCDControlID; AState: TCDControlState;
|
|
AStateEx: TCDControlStateEx; var PreferredWidth, PreferredHeight: integer;
|
|
WithThemeSpace, AAllowUseOfMeasuresEx: Boolean);
|
|
begin
|
|
PreferredWidth := 0;
|
|
PreferredHeight := 0;
|
|
|
|
case AControlId of
|
|
// In the LCL TEdit AutoSizes only its Height, so follow this here
|
|
cidEdit: PreferredHeight := GetMeasuresEx(ADest, TCDCONTROL_CAPTION_HEIGHT, AState, AStateEx)+8;
|
|
cidCheckBox, cidRadioButton:
|
|
begin
|
|
if AStateEx.AutoSize and AAllowUseOfMeasuresEx then
|
|
begin
|
|
PreferredWidth := GetMeasures(TCDCHECKBOX_SQUARE_HEIGHT);
|
|
PreferredWidth := PreferredWidth
|
|
+ GetMeasuresEx(ADest, TCDCONTROL_CAPTION_WIDTH, AState, AStateEx) + 6;
|
|
end;
|
|
|
|
PreferredHeight := GetMeasures(TCDCHECKBOX_SQUARE_HEIGHT);
|
|
if AAllowUseOfMeasuresEx then
|
|
PreferredHeight := Max(PreferredHeight,
|
|
GetMeasuresEx(ADest, TCDCONTROL_CAPTION_HEIGHT, AState, AStateEx));
|
|
end;
|
|
// In the LCL TComboBox AutoSizes only its Height, so follow this here
|
|
cidComboBox:
|
|
begin
|
|
PreferredHeight := GetMeasures(TCDCOMBOBOX_DEFAULT_HEIGHT);
|
|
if AAllowUseOfMeasuresEx then
|
|
PreferredHeight := Max(PreferredHeight,
|
|
GetMeasuresEx(ADest, TCDCONTROL_CAPTION_HEIGHT, AState, AStateEx));
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function TCDDrawerCommon.GetColor(AColorID: Integer): TColor;
|
|
begin
|
|
case AColorId of
|
|
TCDEDIT_BACKGROUND_COLOR: Result := clWhite;
|
|
TCDEDIT_TEXT_COLOR: Result := clBlack;
|
|
TCDEDIT_SELECTED_BACKGROUND_COLOR: Result := clBlue;
|
|
TCDEDIT_SELECTED_TEXT_COLOR: Result := clWhite;
|
|
TCDBUTTON_DEFAULT_COLOR: Result := $00F1F5F5;
|
|
else
|
|
Result := clBlack;
|
|
end;
|
|
end;
|
|
|
|
function TCDDrawerCommon.GetClientArea(ADest: TCanvas; ASize: TSize;
|
|
AControlId: TCDControlID; AState: TCDControlState; AStateEx: TCDControlStateEx
|
|
): TRect;
|
|
var
|
|
lWidth: Integer = 0;
|
|
lRows: Integer = 1;
|
|
lTabCtrlState : TCDCTabControlStateEx;
|
|
lLastIndex, i, lIndex: Integer;
|
|
begin
|
|
Result := Bounds(0, 0, ASize.cx, ASize.cy);
|
|
|
|
case AControlId of
|
|
cidCTabControl:
|
|
begin
|
|
lTabCtrlState := TCDCTabControlStateEx(AStateEx);
|
|
lLastIndex := lTabCtrlState.TabCount - Ord(not(nboShowAddTabButton in lTabCtrlState.Options));
|
|
if nboMultiLine in lTabCtrlState.Options then
|
|
begin
|
|
lIndex := lTabCtrlState.CurTabIndex;
|
|
for i := 0 to lLastIndex do
|
|
begin
|
|
lTabCtrlState.TabIndex:=i;
|
|
lWidth := lWidth + GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_WIDTH, AState, AStateEx);
|
|
if lWidth > ASize.Width then
|
|
begin
|
|
lWidth:=0;
|
|
Inc(lRows);
|
|
end;
|
|
end;
|
|
lTabCtrlState.TabIndex:=lIndex;
|
|
end;
|
|
|
|
Result.Top := GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_HEIGHT, AState, AStateEx)*lRows + 2;
|
|
Result.Left := 2;
|
|
Result.Right := Result.Right - 2;
|
|
Result.Bottom := Result.Bottom - 2;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function TCDDrawerCommon.DPIAdjustment(const AValue: Integer): Integer;
|
|
begin
|
|
if Screen.PixelsPerInch <= 125 then Result := AValue
|
|
else Result := Round(AValue * Screen.PixelsPerInch / 125);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawFocusRect(ADest: TFPCustomCanvas; ADestPos: TPoint;
|
|
ASize: TSize);
|
|
begin
|
|
ADest.Pen.FPColor := colWhite;
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Rectangle(ADestPos.X, ADestPos.Y, ADestPos.X + ASize.CX, ADestPos.Y + ASize.CY);
|
|
ADest.Pen.FPColor := colBlack;
|
|
ADest.Pen.Style := psDot;
|
|
ADest.Rectangle(ADestPos.X, ADestPos.Y, ADestPos.X + ASize.CX, ADestPos.Y + ASize.CY);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawRaisedFrame(ADest: TCanvas; ADestPos: TPoint;
|
|
ASize: TSize);
|
|
begin
|
|
// white lines in the left and top
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Pen.Color := WIN2000_FRAME_WHITE;
|
|
ADest.MoveTo(ADestPos.X, ADestPos.Y+ASize.cy-1);
|
|
ADest.LineTo(ADestPos.X, ADestPos.Y);
|
|
ADest.LineTo(ADestPos.X+ASize.cx-1, ADestPos.Y);
|
|
// Grey line on the inside left and top
|
|
ADest.Pen.Color := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.MoveTo(ADestPos.X+1, ADestPos.Y+ASize.cy-2);
|
|
ADest.LineTo(ADestPos.X+1, ADestPos.Y+1);
|
|
ADest.LineTo(ADestPos.X+ASize.cx-1, ADestPos.Y+1);
|
|
// Dark grey line on the right and bottom
|
|
ADest.Pen.Color := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.MoveTo(ADestPos.X, ADestPos.Y+ASize.cy-1);
|
|
ADest.LineTo(ADestPos.X+ASize.cx-1, ADestPos.Y+ASize.cy-1);
|
|
ADest.LineTo(ADestPos.X+ASize.cx-1, ADestPos.Y);
|
|
// Grey line on the inside right and bottom
|
|
ADest.Pen.Color := WIN2000_FRAME_GRAY;
|
|
ADest.MoveTo(ADestPos.X+1, ADestPos.Y+ASize.cy-2);
|
|
ADest.LineTo(ADestPos.X+ASize.cx-2, ADestPos.Y+ASize.cy-2);
|
|
ADest.LineTo(ADestPos.X+ASize.cx-2, ADestPos.Y-1);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawFrame3D(ADest: TFPCustomCanvas; ADestPos: TPoint; ASize: TSize;
|
|
const FrameWidth : integer; const Style : TBevelCut);
|
|
var
|
|
i: Integer;
|
|
ARect: TRect;
|
|
begin
|
|
ARect := Bounds(ADestPos.X, ADestPos.Y, ASize.cx, ASize.cy);
|
|
for i := 0 to FrameWidth-1 do
|
|
begin
|
|
case Style of
|
|
bvLowered:
|
|
begin
|
|
// white lines in the left and top
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Pen.FPColor := TColorToFPColor(WIN2000_FRAME_GRAY);
|
|
ADest.MoveTo(ARect.Left, ARect.Bottom);
|
|
ADest.LineTo(ARect.Left, ARect.Top);
|
|
ADest.LineTo(ARect.Right, ARect.Top);
|
|
// Dark grey line on the right and bottom
|
|
ADest.Pen.FPColor := TColorToFPColor(WIN2000_FRAME_WHITE);
|
|
ADest.MoveTo(ARect.Left, ARect.Bottom);
|
|
ADest.LineTo(ARect.Right, ARect.Bottom);
|
|
ADest.LineTo(ARect.Right, ARect.Top);
|
|
end;
|
|
bvRaised:
|
|
begin
|
|
// white lines in the left and top
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Pen.FPColor := TColorToFPColor(WIN2000_FRAME_WHITE);
|
|
ADest.MoveTo(ARect.Left, ARect.Bottom);
|
|
ADest.LineTo(ARect.Left, ARect.Top);
|
|
ADest.LineTo(ARect.Right, ARect.Top);
|
|
// Dark grey line on the right and bottom
|
|
ADest.Pen.FPColor := TColorToFPColor(WIN2000_FRAME_GRAY);
|
|
ADest.MoveTo(ARect.Left, ARect.Bottom);
|
|
ADest.LineTo(ARect.Right, ARect.Bottom);
|
|
ADest.LineTo(ARect.Right, ARect.Top);
|
|
end;
|
|
bvSpace:
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
InflateRect(ARect, -1, -1);
|
|
end;
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawSunkenFrame(ADest: TCanvas; ADestPos: TPoint;
|
|
ASize: TSize);
|
|
begin
|
|
// The Frame, except the lower-bottom which is white anyway
|
|
// outter top-right
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := WIN2000_FRAME_GRAY;
|
|
ADest.MoveTo(ADestPos.X, ADestPos.Y+ASize.cy-1);
|
|
ADest.LineTo(ADestPos.X, ADestPos.Y);
|
|
ADest.LineTo(ADestPos.X+ASize.cx-1, ADestPos.Y);
|
|
// inner top-right
|
|
ADest.Pen.Color := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.MoveTo(ADestPos.X+1, ADestPos.Y+ASize.cy-2);
|
|
ADest.LineTo(ADestPos.X+1, ADestPos.Y+1);
|
|
ADest.LineTo(ADestPos.X+ASize.cx-2, ADestPos.Y+1);
|
|
// inner bottom-right
|
|
ADest.Pen.Color := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.MoveTo(ADestPos.X+1, ADestPos.Y+ASize.cy-2);
|
|
ADest.LineTo(ADestPos.X+ASize.cx-2, ADestPos.Y+ASize.cy-2);
|
|
ADest.LineTo(ADestPos.X+ASize.cx-2, ADestPos.Y);
|
|
// outter bottom-right
|
|
ADest.Pen.Color := WIN2000_FRAME_WHITE;
|
|
ADest.MoveTo(ADestPos.X+1, ADestPos.Y+ASize.cy-1);
|
|
ADest.LineTo(ADestPos.X+ASize.cx-1, ADestPos.Y+ASize.cy-1);
|
|
ADest.LineTo(ADestPos.X+ASize.cx-1, ADestPos.Y);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawShallowSunkenFrame(ADest: TCanvas;
|
|
ADestPos: TPoint; ASize: TSize);
|
|
begin
|
|
// Inside area, there is no background because the control occupies the entire area
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := WIN2000_FRAME_GRAY;
|
|
ADest.MoveTo(ADestPos.X, ADestPos.Y + ASize.cy);
|
|
ADest.LineTo(ADestPos.X, ADestPos.Y);
|
|
ADest.LineTo(ADestPos.X + ASize.cx, ADestPos.Y);
|
|
ADest.Pen.Color := WIN2000_FRAME_WHITE;
|
|
ADest.MoveTo(ADestPos.X, ADestPos.Y + ASize.cy-1);
|
|
ADest.LineTo(ADestPos.X + ASize.cx-1, ADestPos.Y + ASize.cy-1);
|
|
ADest.LineTo(ADestPos.X + ASize.cx-1, ADestPos.Y-1);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawTickmark(ADest: TFPCustomCanvas; ADestPos: TPoint; AState: TCDControlState);
|
|
var
|
|
i: Integer;
|
|
lSpacing5, lFirstLinesEnd, lSecondLinesEnd: Integer;
|
|
begin
|
|
if csfPartiallyOn in AState then
|
|
ADest.Pen.FPColor := TColorToFPColor(WIN2000_FRAME_GRAY)
|
|
else
|
|
ADest.Pen.FPColor := colBlack;
|
|
ADest.Pen.Style := psSolid;
|
|
|
|
if Screen.PixelsPerInch <= 125 then
|
|
begin
|
|
// 4 lines going down and to the right
|
|
for i := 0 to 3 do
|
|
ADest.Line(ADestPos.X+1+i, ADestPos.Y+2+i, ADestPos.X+1+i, ADestPos.Y+5+i);
|
|
// Now 5 lines going up and to the right
|
|
for i := 4 to 8 do
|
|
ADest.Line(ADestPos.X+1+i, ADestPos.Y+2+6-i, ADestPos.X+1+i, ADestPos.Y+5+6-i);
|
|
Exit;
|
|
end;
|
|
|
|
lSpacing5 := DPIAdjustment(5);
|
|
lFirstLinesEnd := DPIAdjustment(4)-1;
|
|
lSecondLinesEnd := DPIAdjustment(9)-1;
|
|
|
|
// 4 lines going down and to the right
|
|
for i := 0 to lFirstLinesEnd do
|
|
ADest.Line(ADestPos.X+2+i, ADestPos.Y+2+i, ADestPos.X+2+i, ADestPos.Y+lSpacing5+i);
|
|
// Now 5 lines going up and to the right
|
|
for i := lFirstLinesEnd+1 to lSecondLinesEnd do
|
|
ADest.Line(ADestPos.X+2+i, ADestPos.Y+2+lFirstLinesEnd*2-i, ADestPos.X+2+i, ADestPos.Y+2+lFirstLinesEnd*2+lSpacing5-i);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawSlider(ADest: TCanvas; ADestPos: TPoint;
|
|
ASize: TSize; AState: TCDControlState);
|
|
var
|
|
lPoints: array[0..4] of TPoint;
|
|
lSliderBottom: Integer;
|
|
lSpacing5, lSpacing10: Integer;
|
|
begin
|
|
lSpacing5 := (ASize.cx-1)div 2;
|
|
lSpacing10 := (ASize.cx-1);
|
|
|
|
ADest.Brush.Color := Palette.BtnFace;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Color := WIN2000_FRAME_WHITE;
|
|
|
|
if csfHorizontal in AState then
|
|
begin
|
|
lSliderBottom := ADestPos.Y+ASize.CY;
|
|
// outter white frame
|
|
lPoints[0] := Point(ADestPos.X+lSpacing5, lSliderBottom);
|
|
lPoints[1] := Point(ADestPos.X, lSliderBottom-lSpacing5);
|
|
lPoints[2] := Point(ADestPos.X, ADestPos.Y);
|
|
lPoints[3] := Point(ADestPos.X+lSpacing10, ADestPos.Y);
|
|
lPoints[4] := Point(ADestPos.X+lSpacing10, lSliderBottom-lSpacing5);
|
|
ADest.Polygon(lPoints);
|
|
// left-top inner frame
|
|
ADest.Pen.Color := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.MoveTo(ADestPos.X+lSpacing5, lSliderBottom-1);
|
|
ADest.LineTo(ADestPos.X+1, lSliderBottom-lSpacing5);
|
|
ADest.LineTo(ADestPos.X+1, ADestPos.Y+1);
|
|
ADest.LineTo(ADestPos.X+lSpacing10-1, ADestPos.Y+1);
|
|
// right inner frame
|
|
ADest.Pen.Color := WIN2000_FRAME_GRAY;
|
|
ADest.MoveTo(ADestPos.X+lSpacing5, lSliderBottom-1);
|
|
ADest.LineTo(ADestPos.X+lSpacing10-1, lSliderBottom-lSpacing5);
|
|
ADest.LineTo(ADestPos.X+lSpacing10-1, ADestPos.Y);
|
|
// right outter frame
|
|
ADest.Pen.Color := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.MoveTo(ADestPos.X+lSpacing5, lSliderBottom);
|
|
ADest.LineTo(ADestPos.X+lSpacing10, lSliderBottom-lSpacing5);
|
|
ADest.LineTo(ADestPos.X+lSpacing10, ADestPos.Y-1);
|
|
end
|
|
else
|
|
begin
|
|
lSliderBottom := ADestPos.Y+ASize.CY;
|
|
// outter white frame
|
|
lPoints[0] := Point(lSliderBottom, ADestPos.X+lSpacing5);
|
|
lPoints[1] := Point(lSliderBottom-lSpacing5, ADestPos.X);
|
|
lPoints[2] := Point(ADestPos.Y, ADestPos.X);
|
|
lPoints[3] := Point(ADestPos.Y, ADestPos.X+lSpacing10);
|
|
lPoints[4] := Point(lSliderBottom-lSpacing5, ADestPos.X+lSpacing10);
|
|
ADest.Polygon(lPoints);
|
|
// left-top inner frame
|
|
ADest.Pen.Color := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.MoveTo(lSliderBottom-1, ADestPos.X+lSpacing5);
|
|
ADest.LineTo(lSliderBottom-lSpacing5, ADestPos.X+1);
|
|
ADest.LineTo(ADestPos.Y+1, ADestPos.X+1);
|
|
ADest.LineTo(ADestPos.Y+1, ADestPos.X+lSpacing10-1);
|
|
// right inner frame
|
|
ADest.Pen.Color := WIN2000_FRAME_GRAY;
|
|
ADest.MoveTo(lSliderBottom-1, ADestPos.X+lSpacing5);
|
|
ADest.LineTo(lSliderBottom-lSpacing5, ADestPos.X+lSpacing10-1);
|
|
ADest.LineTo(ADestPos.Y, ADestPos.X+lSpacing10-1);
|
|
// right outter frame
|
|
ADest.Pen.Color := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.MoveTo(lSliderBottom, ADestPos.X+lSpacing5);
|
|
ADest.LineTo(lSliderBottom-lSpacing5, ADestPos.X+lSpacing10);
|
|
ADest.LineTo(ADestPos.Y-1, ADestPos.X+lSpacing10);
|
|
end;
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawArrow(ADest: TCanvas; ADestPos: TPoint;
|
|
ADirection: TCDControlState; ASize: Integer = 7);
|
|
var
|
|
lPoints: array[0..2] of TPoint;
|
|
lPos: TPoint;
|
|
lSize, lSizeHalf: Integer;
|
|
begin
|
|
lPos := ADestPos;
|
|
lSize := ASize - 1;
|
|
lSizeHalf := ASize div 2;
|
|
// Move the arrow a little bit when a sunken state is passed
|
|
if csfSunken in ADirection then lPos := Point(lPos.X+1, lPos.Y+1);
|
|
|
|
if csfLeftArrow in ADirection then
|
|
begin
|
|
lPoints[0] := Point(lPos.X, lPos.Y+lSizeHalf);// left point
|
|
lPoints[1] := Point(lPos.X+lSizeHalf, lPos.Y+lSize);// lower point
|
|
lPoints[2] := Point(lPos.X+lSizeHalf, lPos.Y); // upper point
|
|
end
|
|
else if csfRightArrow in ADirection then
|
|
begin
|
|
lPoints[0] := Point(lPos.X+1, lPos.Y); // upper point
|
|
lPoints[1] := Point(lPos.X+1, lPos.Y+lSize);// lower point
|
|
lPoints[2] := Point(lPos.X+1+lSizeHalf, lPos.Y+lSizeHalf);// right point
|
|
end
|
|
else if csfUpArrow in ADirection then
|
|
begin
|
|
lPoints[0] := Point(lPos.X+lSizeHalf, lPos.Y); // upper point
|
|
lPoints[1] := Point(lPos.X, lPos.Y+lSizeHalf);// left point
|
|
lPoints[2] := Point(lPos.X+lSize, lPos.Y+lSizeHalf);// right point
|
|
end
|
|
else // downArrow
|
|
begin
|
|
lPoints[0] := Point(lPos.X, lPos.Y+1);// left point
|
|
lPoints[1] := Point(lPos.X+lSize, lPos.Y+1);// right point
|
|
lPoints[2] := Point(lPos.X+lSizeHalf, lPos.Y+1+lSizeHalf);// lower point
|
|
end;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Brush.Color := clBlack;
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := clBlack;
|
|
ADest.Polygon(lPoints);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawSmallCloseButton(ADest: TCanvas; ADestPos: TPoint);
|
|
begin
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := clGray;
|
|
ADest.Pen.Width := 4;
|
|
ADest.Line(ADestPos.X, ADestPos.Y, ADestPos.X+10, ADestPos.Y+10);
|
|
ADest.Line(ADestPos.X+9, ADestPos.Y, ADestPos.X-1, ADestPos.Y+10);
|
|
ADest.Pen.Width := 1;
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawButtonWithArrow(ADest: TCanvas; ADestPos: TPoint;
|
|
ASize: TSize; AState: TCDControlState);
|
|
begin
|
|
// First the background color
|
|
ADest.Brush.Color := WIN2000_BTNFACE;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.FillRect(Bounds(ADestPos.X, ADestPos.Y, ASize.CX, ASize.CY));
|
|
|
|
// Now the button frame
|
|
if csfSunken in AState then DrawSunkenFrame(ADest, ADestPos, ASize)
|
|
else DrawRaisedFrame(ADest, ADestPos, ASize);
|
|
|
|
// Now the arrow
|
|
DrawArrow(ADest, Point(ADestPos.X + ASize.CY div 4, ADestPos.Y + ASize.CY * 3 div 8), AState, ASize.CY div 2);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawControl(ADest: TCanvas;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
|
|
var
|
|
lColor: TColor;
|
|
begin
|
|
// Background
|
|
lColor := AStateEx.RGBColor;
|
|
ADest.Brush.Color := lColor;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := lColor;
|
|
ADest.FillRect(0, 0, ASize.cx, ASize.cy);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawButton(ADest: TFPCustomCanvas;
|
|
ADestPos: TPoint; ASize: TSize; AState: TCDControlState; AStateEx: TCDButtonStateEx);
|
|
var
|
|
Str: string;
|
|
lGlyphLeftSpacing: Integer = 0;
|
|
lGlyphExtra: Integer = 0;
|
|
lTextOutPos: TPoint;
|
|
lGlyphCaptionHeight: Integer;
|
|
begin
|
|
// background
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Brush.FPColor := AStateEx.FPRGBColor;
|
|
ADest.Pen.FPColor := colWhite;
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Rectangle(0, 0, ASize.cx - 1, ASize.cy - 1);
|
|
ADest.Pen.FPColor := colWhite;
|
|
ADest.Line(0, 0, ASize.cx - 1, 0);
|
|
ADest.Line(0, 0, 0, ASize.cy - 1);
|
|
ADest.Pen.FPColor := colGray;
|
|
ADest.Line(0, ASize.cy - 1, ASize.cx - 1, ASize.cy - 1);
|
|
ADest.Line(ASize.cx - 1, ASize.cy - 1, ASize.cx - 1, -1);
|
|
ADest.Pen.FPColor := TColorToFPColor($0099A8AC);
|
|
ADest.Line(1, ASize.cy - 2, ASize.cx - 2, ASize.cy - 2);
|
|
ADest.Line(ASize.cx - 2, ASize.cy - 2, ASize.cx - 2, 0);
|
|
ADest.Pen.FPColor := TColorToFPColor($00E2EFF1);
|
|
ADest.Line(1, 1, ASize.cx - 2, 1);
|
|
ADest.Line(1, 1, 1, ASize.cy - 2);
|
|
|
|
// Button image
|
|
if csfSunken in AState then
|
|
begin
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Brush.FPColor := AStateEx.FPRGBColor;
|
|
ADest.Pen.FPColor := colWhite;
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Rectangle(0, 0, ASize.cx - 1, ASize.cy - 1);
|
|
ADest.Pen.FPColor := colGray;
|
|
ADest.Line(0, 0, ASize.cx - 1, 0);
|
|
ADest.Line(0, 0, 0, ASize.cy - 1);
|
|
ADest.Pen.FPColor := colWhite;
|
|
ADest.Line(0, ASize.cy - 1, ASize.cx - 1, ASize.cy - 1);
|
|
ADest.Line(ASize.cx - 1, ASize.cy - 1, ASize.cx - 1, -1);
|
|
ADest.Pen.FPColor := TColorToFPColor($00E2EFF1);
|
|
ADest.Line(1, ASize.cy - 2, ASize.cx - 2, ASize.cy - 2);
|
|
ADest.Line(ASize.cx - 2, ASize.cy - 2, ASize.cx - 2, 0);
|
|
ADest.Pen.FPColor := TColorToFPColor($0099A8AC);
|
|
ADest.Line(1, 1, ASize.cx - 2, 1);
|
|
ADest.Line(1, 1, 1, ASize.cy - 2);
|
|
end
|
|
else if csfHasFocus in AState then
|
|
begin
|
|
if ADest is TCanvas then
|
|
DrawFocusRect(TCanvas(ADest), Point(3, 3), Size(ASize.cx - 7, ASize.cy - 7));
|
|
end;
|
|
|
|
// Position calculations
|
|
if ADest is TCanvas then
|
|
begin
|
|
ADest.Font.Assign(AStateEx.Font);
|
|
Str := AStateEx.Caption;
|
|
lGlyphCaptionHeight := Max(TCanvas(ADest).TextHeight(Str), AStateEx.Glyph.Height);
|
|
lTextOutPos.X := (ASize.cx - TCanvas(ADest).TextWidth(Str) - AStateEx.Glyph.Width) div 2;
|
|
lTextOutPos.Y := (ASize.cy - lGlyphCaptionHeight) div 2;
|
|
lTextOutPos.X := Max(lTextOutPos.X, 5);
|
|
lTextOutPos.Y := Max(lTextOutPos.Y, 5);
|
|
|
|
// Button glyph
|
|
if not AStateEx.Glyph.Empty then
|
|
begin
|
|
if csfSunken in AState then lGlyphExtra := 1;
|
|
TCanvas(ADest).Draw(lTextOutPos.X + lGlyphExtra, lTextOutPos.Y + lGlyphExtra, AStateEx.Glyph);
|
|
lGlyphLeftSpacing := AStateEx.Glyph.Width+5;
|
|
end;
|
|
|
|
// Button text
|
|
lTextOutPos.X := lTextOutPos.X + lGlyphLeftSpacing;
|
|
lTextOutPos.Y := (ASize.cy - TCanvas(ADest).TextHeight(Str)) div 2;
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Pen.Style := psSolid;
|
|
if csfEnabled in AState then
|
|
begin
|
|
if csfSunken in AState then
|
|
begin
|
|
Inc(lTextOutPos.X);
|
|
Inc(lTextOutPos.Y);
|
|
end;
|
|
ADest.TextOut(lTextOutPos.X, lTextOutPos.Y, Str)
|
|
end
|
|
else
|
|
begin
|
|
// The disabled text is composed by a white shadow under it and a grey text
|
|
TCanvas(ADest).Font.Color := clWhite;
|
|
Inc(lTextOutPos.X);
|
|
Inc(lTextOutPos.Y);
|
|
TCanvas(ADest).TextOut(lTextOutPos.X, lTextOutPos.Y, Str);
|
|
//
|
|
TCanvas(ADest).Font.Color := WIN2000_DISABLED_TEXT;
|
|
Dec(lTextOutPos.X);
|
|
Dec(lTextOutPos.Y);
|
|
ADest.TextOut(lTextOutPos.X, lTextOutPos.Y, Str);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawEditBackground(ADest: TCanvas;
|
|
ADestPos: TPoint; ASize: TSize; AState: TCDControlState;
|
|
AStateEx: TCDEditStateEx);
|
|
begin
|
|
// The background
|
|
ADest.Brush.Color := clWhite;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Color := WIN2000_FRAME_WHITE;
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawEditFrame(ADest: TCanvas; ADestPos: TPoint;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDEditStateEx);
|
|
begin
|
|
// The Frame, except the lower-bottom which is white anyway
|
|
// outter top-right
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := WIN2000_FRAME_GRAY;
|
|
ADest.MoveTo(0, ASize.cy-1);
|
|
ADest.LineTo(0, 0);
|
|
ADest.LineTo(ASize.cx-1, 0);
|
|
// inner top-right
|
|
ADest.Pen.Color := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.MoveTo(1, ASize.cy-2);
|
|
ADest.LineTo(1, 1);
|
|
ADest.LineTo(ASize.cx-2, 1);
|
|
// inner bottom-right
|
|
ADest.Pen.Color := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.MoveTo(1, ASize.cy-2);
|
|
ADest.LineTo(ASize.cx-2, ASize.cy-2);
|
|
ADest.LineTo(ASize.cx-2, 0);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawCaret(ADest: TCanvas; ADestPos: TPoint;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDEditStateEx);
|
|
var
|
|
lTextTopSpacing, lCaptionHeight, lLineHeight, lLineTop: Integer;
|
|
lControlText, lTmpText: string;
|
|
lTextBottomSpacing, lCaretPixelPos: Integer;
|
|
begin
|
|
if not AStateEx.CaretIsVisible then Exit;
|
|
|
|
if AStateEx.Lines.Count = 0 then lControlText := ''
|
|
else lControlText := AStateEx.Lines.Strings[AStateEx.CaretPos.Y];
|
|
lCaptionHeight := GetMeasuresEx(ADest, TCDCONTROL_CAPTION_HEIGHT, AState, AStateEx);
|
|
lTextBottomSpacing := GetMeasures(TCDEDIT_BOTTOM_TEXT_SPACING);
|
|
lTextTopSpacing := GetMeasures(TCDEDIT_TOP_TEXT_SPACING);
|
|
lLineHeight := ADest.TextHeight(cddTestStr)+2;
|
|
lLineHeight := Min(ASize.cy-lTextBottomSpacing, lLineHeight);
|
|
lLineTop := lTextTopSpacing + AStateEx.CaretPos.Y * lLineHeight;
|
|
|
|
lTmpText := UTF8Copy(lControlText, AStateEx.VisibleTextStart.X, AStateEx.CaretPos.X-AStateEx.VisibleTextStart.X+1);
|
|
lTmpText := VisibleText(lTmpText, AStateEx.PasswordChar);
|
|
lCaretPixelPos := ADest.TextWidth(lTmpText) + GetMeasures(TCDEDIT_LEFT_TEXT_SPACING)
|
|
+ AStateEx.LeftTextMargin;
|
|
ADest.Pen.Color := clBlack;
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Line(lCaretPixelPos, lLineTop, lCaretPixelPos, lLineTop+lCaptionHeight);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawEdit(ADest: TCanvas;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDEditStateEx);
|
|
var
|
|
lVisibleText, lControlText: TCaption;
|
|
lSelLeftPos, lSelLeftPixelPos, lSelLength, lSelRightPos: Integer;
|
|
lTextWidth, lLineHeight, lLineTop: Integer;
|
|
lControlTextLen: PtrInt;
|
|
lTextLeftSpacing, lTextTopSpacing, lTextBottomSpacing: Integer;
|
|
lTextColor: TColor;
|
|
i, lVisibleLinesCount: Integer;
|
|
begin
|
|
// Background
|
|
DrawEditBackground(ADest, Point(0, 0), ASize, AState, AStateEx);
|
|
|
|
// General text configurations which apply to all lines
|
|
// Configure the text color
|
|
if csfEnabled in AState then
|
|
lTextColor := AStateEx.Font.Color
|
|
else
|
|
lTextColor := WIN2000_DISABLED_TEXT;
|
|
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Font.Assign(AStateEx.Font);
|
|
ADest.Font.Color := lTextColor;
|
|
lTextLeftSpacing := GetMeasures(TCDEDIT_LEFT_TEXT_SPACING);
|
|
//lTextRightSpacing := GetMeasures(TCDEDIT_RIGHT_TEXT_SPACING);
|
|
lTextTopSpacing := GetMeasures(TCDEDIT_TOP_TEXT_SPACING);
|
|
lTextBottomSpacing := GetMeasures(TCDEDIT_BOTTOM_TEXT_SPACING);
|
|
|
|
lLineHeight := ADest.TextHeight(cddTestStr)+2;
|
|
lLineHeight := Min(ASize.cy-lTextBottomSpacing, lLineHeight);
|
|
|
|
// Fill this to be used in other parts
|
|
AStateEx.LineHeight := lLineHeight;
|
|
AStateEx.FullyVisibleLinesCount := ASize.cy - lTextTopSpacing - lTextBottomSpacing;
|
|
AStateEx.FullyVisibleLinesCount := AStateEx.FullyVisibleLinesCount div lLineHeight;
|
|
AStateEx.FullyVisibleLinesCount := Min(AStateEx.FullyVisibleLinesCount, AStateEx.Lines.Count);
|
|
|
|
// Calculate how many lines to draw
|
|
if AStateEx.Multiline then
|
|
lVisibleLinesCount := AStateEx.FullyVisibleLinesCount + 1
|
|
else
|
|
lVisibleLinesCount := 1;
|
|
lVisibleLinesCount := Min(lVisibleLinesCount, AStateEx.Lines.Count);
|
|
|
|
// Now draw each line
|
|
for i := 0 to lVisibleLinesCount - 1 do
|
|
begin
|
|
lControlText := AStateEx.Lines.Strings[AStateEx.VisibleTextStart.Y+i];
|
|
lControlText := VisibleText(lControlText, AStateEx.PasswordChar);
|
|
lControlTextLen := UTF8Length(lControlText);
|
|
lLineTop := lTextTopSpacing + i * lLineHeight;
|
|
|
|
// The text
|
|
ADest.Pen.Style := psClear;
|
|
ADest.Brush.Style := bsClear;
|
|
// ToDo: Implement multi-line selection
|
|
if (AStateEx.SelLength = 0) or (AStateEx.SelStart.Y <> AStateEx.VisibleTextStart.Y+i) then
|
|
begin
|
|
lVisibleText := UTF8Copy(lControlText, AStateEx.VisibleTextStart.X, lControlTextLen);
|
|
ADest.TextOut(lTextLeftSpacing, lLineTop, lVisibleText);
|
|
end
|
|
// Text and Selection
|
|
else
|
|
begin
|
|
lSelLeftPos := AStateEx.SelStart.X;
|
|
if AStateEx.SelLength < 0 then lSelLeftPos := lSelLeftPos + AStateEx.SelLength;
|
|
|
|
lSelRightPos := AStateEx.SelStart.X;
|
|
if AStateEx.SelLength > 0 then lSelRightPos := lSelRightPos + AStateEx.SelLength;
|
|
|
|
lSelLength := AStateEx.SelLength;
|
|
if lSelLength < 0 then lSelLength := lSelLength * -1;
|
|
|
|
// Text left of the selection
|
|
lVisibleText := UTF8Copy(lControlText, AStateEx.VisibleTextStart.X, lSelLeftPos-AStateEx.VisibleTextStart.X+1);
|
|
ADest.TextOut(lTextLeftSpacing, lLineTop, lVisibleText);
|
|
lSelLeftPixelPos := ADest.TextWidth(lVisibleText)+lTextLeftSpacing;
|
|
|
|
// The selection background
|
|
lVisibleText := UTF8Copy(lControlText, lSelLeftPos+1, lSelLength);
|
|
lTextWidth := ADest.TextWidth(lVisibleText);
|
|
ADest.Brush.Color := WIN2000_SELECTION_BACKGROUND;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Rectangle(Bounds(lSelLeftPixelPos, lLineTop, lTextWidth, lLineHeight));
|
|
ADest.Brush.Style := bsClear;
|
|
|
|
// The selection text
|
|
ADest.Font.Color := clWhite;
|
|
ADest.TextOut(lSelLeftPixelPos, lLineTop, lVisibleText);
|
|
lSelLeftPixelPos := lSelLeftPixelPos + lTextWidth;
|
|
|
|
// Text right of the selection
|
|
ADest.Brush.Color := clWhite;
|
|
ADest.Font.Color := lTextColor;
|
|
lVisibleText := UTF8Copy(lControlText, lSelLeftPos+lSelLength+1, lControlTextLen);
|
|
ADest.TextOut(lSelLeftPixelPos, lLineTop, lVisibleText);
|
|
end;
|
|
end;
|
|
|
|
// And the caret
|
|
DrawCaret(ADest, Point(0, 0), ASize, AState, AStateEx);
|
|
|
|
// In the end the frame, because it must be on top of everything
|
|
DrawEditFrame(ADest, Point(0, 0), ASize, AState, AStateEx);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawCheckBoxSquare(ADest: TCanvas; ADestPos: TPoint;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
|
|
var
|
|
lHalf, lSquareHalf, lSquareHeight: Integer;
|
|
begin
|
|
lHalf := ASize.cy div 2;
|
|
lSquareHalf := GetMeasures(TCDCHECKBOX_SQUARE_HALF_HEIGHT);
|
|
lSquareHeight := GetMeasures(TCDCHECKBOX_SQUARE_HEIGHT);
|
|
|
|
// the square background
|
|
ADest.Pen.Style := psClear;
|
|
ADest.Brush.Style := bsSolid;
|
|
if csfPartiallyOn in AState then ADest.Brush.Color := WIN2000_LIGHTGRAY_BACKGROUND
|
|
else ADest.Brush.Color := Palette.Window;
|
|
ADest.Rectangle(Bounds(1, lHalf - lSquareHalf, lSquareHeight, lSquareHeight));
|
|
|
|
// the square frame
|
|
DrawSunkenFrame(ADest, Point(1, lHalf - lSquareHalf),
|
|
Size(lSquareHeight, lSquareHeight));
|
|
|
|
{ // The selection inside the square
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Pen.Color := RGBToColor($31, $C6, $D6);
|
|
ADest.Pen.Style := psSolid;
|
|
if csfHasFocus in AState then
|
|
begin
|
|
ADest.Rectangle(
|
|
2,
|
|
lHalf - lSquareHalf+1,
|
|
lSquareHeight,
|
|
lHalf + lSquareHalf-1);
|
|
end;}
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawCheckBox(ADest: TCanvas;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
|
|
var
|
|
lColor: TColor;
|
|
lSquareHeight, lValue3: Integer;
|
|
lTextHeight, lTextY: Integer;
|
|
begin
|
|
lSquareHeight := GetMeasures(TCDCHECKBOX_SQUARE_HEIGHT);
|
|
lValue3 := DPIAdjustment(3);
|
|
|
|
// Background
|
|
lColor := AStateEx.ParentRGBColor;
|
|
ADest.Brush.Color := lColor;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Style := psClear;
|
|
ADest.FillRect(0, 0, ASize.cx, ASize.cy);
|
|
|
|
// The checkbox item itself
|
|
DrawCheckBoxSquare(ADest, Point(0, 0), ASize, AState, AStateEx);
|
|
|
|
// The Tickmark
|
|
if (csfOn in AState) or (csfPartiallyOn in AState) then
|
|
DrawTickmark(ADest, Point(lValue3, ASize.cy div 2 - GetMeasures(TCDCHECKBOX_SQUARE_HALF_HEIGHT)+lValue3), AState);
|
|
|
|
// The text selection
|
|
if csfHasFocus in AState then
|
|
DrawFocusRect(ADest, Point(lSquareHeight+4, 0),
|
|
Size(ASize.cx-lSquareHeight-4, ASize.cy));
|
|
|
|
// Now the text
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Pen.Style := psClear;
|
|
ADest.Font.Assign(AStateEx.Font);
|
|
lTextHeight := ADest.TextHeight(cddTestStr);
|
|
// put the text in the center
|
|
if lSquareHeight > lTextHeight then lTextY := (lSquareHeight - ADest.TextHeight(cddTestStr)) div 2
|
|
else lTextY := 0;
|
|
lTextY := Max(0, lTextY - 1);
|
|
|
|
ADest.TextOut(lSquareHeight+5, lTextY, AStateEx.Caption);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawRadioButtonCircle(ADest: TCanvas;
|
|
ADestPos: TPoint; ASize: TSize; AState: TCDControlState;
|
|
AStateEx: TCDControlStateEx);
|
|
var
|
|
lCircleThird, lCircleHeight: Integer;
|
|
begin
|
|
//lHalf := ASize.cy div 2;
|
|
lCircleHeight := GetMeasures(TCDRADIOBUTTON_CIRCLE_HEIGHT);
|
|
lCircleThird := lCircleHeight div 3;
|
|
|
|
// the circle background
|
|
ADest.Pen.Style := psClear;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Brush.Color := Palette.Window; // or WIN2000_FRAME_WHITE ?
|
|
ADest.Rectangle(Bounds(ADestPos.X, ADestPos.Y+lCircleThird-1, lCircleHeight-2, lCircleThird));
|
|
ADest.Rectangle(Bounds(ADestPos.X+lCircleThird-1, ADestPos.Y, lCircleThird, lCircleHeight-2));
|
|
|
|
// The circle itself
|
|
ADest.Pen.Style := psSolid;
|
|
// Gray area
|
|
ADest.Pixels[ADestPos.X+4, ADestPos.Y] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X+5, ADestPos.Y] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X+6, ADestPos.Y] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X+7, ADestPos.Y] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X+8, ADestPos.Y+1] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X+9, ADestPos.Y+1] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X+3, ADestPos.Y+1] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X+2, ADestPos.Y+1] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X+1, ADestPos.Y+2] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X+1, ADestPos.Y+3] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X, ADestPos.Y+4] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X, ADestPos.Y+5] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X, ADestPos.Y+6] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X, ADestPos.Y+7] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X+1, ADestPos.Y+8] := WIN2000_FRAME_GRAY;
|
|
ADest.Pixels[ADestPos.X+1, ADestPos.Y+9] := WIN2000_FRAME_GRAY;
|
|
// Dark area
|
|
ADest.Pixels[ADestPos.X+4, ADestPos.Y+1] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+5, ADestPos.Y+1] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+6, ADestPos.Y+1] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+7, ADestPos.Y+1] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+8, ADestPos.Y+2] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+9, ADestPos.Y+2] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+3, ADestPos.Y+2] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+2, ADestPos.Y+2] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+2, ADestPos.Y+3] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+1, ADestPos.Y+4] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+1, ADestPos.Y+5] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+1, ADestPos.Y+6] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+1, ADestPos.Y+7] := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.Pixels[ADestPos.X+2, ADestPos.Y+8] := WIN2000_FRAME_DARK_GRAY;
|
|
// Light area
|
|
ADest.Pixels[ADestPos.X+9, ADestPos.Y+3] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+10, ADestPos.Y+4] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+10, ADestPos.Y+5] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+10, ADestPos.Y+6] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+10, ADestPos.Y+7] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+9, ADestPos.Y+8] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+9, ADestPos.Y+9] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+8, ADestPos.Y+9] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+7, ADestPos.Y+10] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+6, ADestPos.Y+10] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+5, ADestPos.Y+10] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+4, ADestPos.Y+10] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+3, ADestPos.Y+9] := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.Pixels[ADestPos.X+2, ADestPos.Y+9] := WIN2000_FRAME_LIGHT_GRAY;
|
|
// white area
|
|
ADest.Pixels[ADestPos.X+10, ADestPos.Y+2] := WIN2000_FRAME_WHITE;
|
|
ADest.Pixels[ADestPos.X+10, ADestPos.Y+3] := WIN2000_FRAME_WHITE;
|
|
ADest.Pixels[ADestPos.X+10, ADestPos.Y+8] := WIN2000_FRAME_WHITE;
|
|
ADest.Pixels[ADestPos.X+10, ADestPos.Y+9] := WIN2000_FRAME_WHITE;
|
|
ADest.Pixels[ADestPos.X+9, ADestPos.Y+10] := WIN2000_FRAME_WHITE;
|
|
ADest.Pixels[ADestPos.X+8, ADestPos.Y+10] := WIN2000_FRAME_WHITE;
|
|
ADest.Pixels[ADestPos.X+3, ADestPos.Y+10] := WIN2000_FRAME_WHITE;
|
|
ADest.Pixels[ADestPos.X+2, ADestPos.Y+10] := WIN2000_FRAME_WHITE;
|
|
ADest.Pixels[ADestPos.X+3, ADestPos.Y+3] := WIN2000_FRAME_WHITE;
|
|
ADest.Pixels[ADestPos.X+3, ADestPos.Y+8] := WIN2000_FRAME_WHITE;
|
|
ADest.Pixels[ADestPos.X+8, ADestPos.Y+3] := WIN2000_FRAME_WHITE;
|
|
ADest.Pixels[ADestPos.X+8, ADestPos.Y+8] := WIN2000_FRAME_WHITE;
|
|
|
|
// The Tickmark
|
|
if csfOn in AState then
|
|
begin
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := clBlack;
|
|
ADest.Rectangle(ADestPos.X+4, ADestPos.Y+5, ADestPos.X+8, ADestPos.Y+7);
|
|
ADest.Rectangle(ADestPos.X+5, ADestPos.Y+4, ADestPos.X+7, ADestPos.Y+8);
|
|
end;
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawRadioButton(ADest: TCanvas;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
|
|
var
|
|
lColor: TColor;
|
|
lCircleHeight: Integer;
|
|
lTextHeight, lTextY: Integer;
|
|
begin
|
|
lCircleHeight := GetMeasures(TCDRADIOBUTTON_CIRCLE_HEIGHT);
|
|
|
|
// Background
|
|
lColor := AStateEx.ParentRGBColor;
|
|
ADest.Brush.Color := lColor;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Style := psClear;
|
|
ADest.FillRect(0, 0, ASize.cx, ASize.cy);
|
|
|
|
// The radiobutton circle itself
|
|
DrawRadioButtonCircle(ADest, Point(0, 0), ASize, AState, AStateEx);
|
|
|
|
// The text selection
|
|
if csfHasFocus in AState then
|
|
DrawFocusRect(ADest, Point(lCircleHeight+3, 0),
|
|
Size(ASize.cx-lCircleHeight-3, ASize.cy));
|
|
|
|
// Now the text
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Font.Assign(AStateEx.Font);
|
|
lTextHeight := ADest.TextHeight(cddTestStr);
|
|
// put the text in the center
|
|
if lCircleHeight > lTextHeight then lTextY := (lCircleHeight - ADest.TextHeight(cddTestStr)) div 2
|
|
else lTextY := 0;
|
|
lTextY := Max(0, lTextY - 1);
|
|
ADest.TextOut(lCircleHeight+5, lTextY, AStateEx.Caption);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawComboBox(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDEditStateEx);
|
|
begin
|
|
// First the edit, with a margin on the right for the button
|
|
AStateEx.RightTextMargin := ASize.CY;
|
|
DrawEdit(ADest, ASize, AState, AStateEx);
|
|
|
|
// Now the button
|
|
DrawButtonWithArrow(ADest, Point(ASize.CX - ASize.CY, 0), Size(ASize.CY, ASize.CY),
|
|
AStateEx.ExtraButtonState);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawScrollBar(ADest: TCanvas;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDPositionedCStateEx);
|
|
var
|
|
lPos: TPoint;
|
|
lSize: TSize;
|
|
lArrowState: TCDControlState;
|
|
begin
|
|
// Background
|
|
ADest.Brush.Color := WIN2000_SCROLLBAR_BACKGROUND;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := WIN2000_SCROLLBAR_BACKGROUND;
|
|
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
|
|
|
|
// Left/Top button
|
|
lPos := Point(0, 0);
|
|
|
|
if csfHorizontal in AState then
|
|
lSize := Size(GetMeasures(TCDSCROLLBAR_BUTTON_WIDTH), ASize.CY)
|
|
else lSize := Size(ASize.CX, GetMeasures(TCDSCROLLBAR_BUTTON_WIDTH));
|
|
|
|
ADest.Brush.Color := Palette.BtnFace;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Rectangle(Bounds(lPos.X, lPos.Y, lSize.cx, lSize.cy));
|
|
if csfLeftArrow in AState then
|
|
begin
|
|
DrawSunkenFrame(ADest, lPos, lSize);
|
|
lArrowState := [csfSunken];
|
|
end
|
|
else
|
|
begin
|
|
DrawRaisedFrame(ADest, lPos, lSize);
|
|
lArrowState := [];
|
|
end;
|
|
|
|
if csfHorizontal in AState then
|
|
DrawArrow(ADest, Point(lPos.X+5, lPos.Y+5), [csfLeftArrow]+lArrowState)
|
|
else DrawArrow(ADest, Point(lPos.X+5, lPos.Y+5), [csfUpArrow]+lArrowState);
|
|
|
|
// Right/Bottom button
|
|
if csfHorizontal in AState then
|
|
lPos.X := lPos.X+ASize.CX-GetMeasures(TCDSCROLLBAR_BUTTON_WIDTH)
|
|
else
|
|
lPos.Y := lPos.Y+ASize.CY-GetMeasures(TCDSCROLLBAR_BUTTON_WIDTH);
|
|
ADest.Brush.Color := Palette.BtnFace;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Rectangle(Bounds(lPos.X, lPos.Y, lSize.cx, lSize.cy));
|
|
if csfRightArrow in AState then
|
|
begin
|
|
DrawSunkenFrame(ADest, lPos, lSize);
|
|
lArrowState := [csfSunken];
|
|
end
|
|
else
|
|
begin
|
|
DrawRaisedFrame(ADest, lPos, lSize);
|
|
lArrowState := [];
|
|
end;
|
|
|
|
if csfHorizontal in AState then
|
|
DrawArrow(ADest, Point(lPos.X+5, lPos.Y+5), [csfRightArrow] + lArrowState)
|
|
else DrawArrow(ADest, Point(lPos.X+5, lPos.Y+5), [csfDownArrow] + lArrowState);
|
|
|
|
// The slider
|
|
lPos := Point(0, 0);
|
|
if csfHorizontal in AState then
|
|
begin
|
|
if AStateEx.FloatPageSize > 0 then lSize.cx := Round(
|
|
AStateEx.FloatPageSize * (ASize.cx - GetMeasures(TCDSCROLLBAR_BUTTON_WIDTH) * 2));
|
|
if lSize.cx < 5 then lSize.cx := 5;
|
|
|
|
lPos.X := Round(GetMeasures(TCDSCROLLBAR_BUTTON_WIDTH)
|
|
+ AStateEx.FloatPos * (ASize.cx - GetMeasures(TCDSCROLLBAR_BUTTON_WIDTH) * 2 - lSize.cx));
|
|
end
|
|
else
|
|
begin
|
|
if AStateEx.FloatPageSize > 0 then lSize.cy := Round(
|
|
AStateEx.FloatPageSize * (ASize.cy - GetMeasures(TCDSCROLLBAR_BUTTON_WIDTH) * 2));
|
|
if lSize.cy < 5 then lSize.cy := 5;
|
|
|
|
lPos.Y := Round(GetMeasures(TCDSCROLLBAR_BUTTON_WIDTH)
|
|
+ AStateEx.FloatPos * (ASize.cy - GetMeasures(TCDSCROLLBAR_BUTTON_WIDTH) * 2 - lSize.cy));
|
|
end;
|
|
ADest.Brush.Color := Palette.BtnFace;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Rectangle(Bounds(lPos.X, lPos.Y, lSize.cx, lSize.cy));
|
|
DrawRaisedFrame(ADest, lPos, lSize);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawGroupBox(ADest: TFPCustomCanvas;
|
|
ADestPos: TPoint; ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
|
|
var
|
|
FCaptionMiddle: integer = 0;
|
|
lTextSize: TSize;
|
|
lCaption: String;
|
|
begin
|
|
if ADest is TCanvas then FCaptionMiddle := (ADest as TCanvas).TextHeight(cddTestStr) div 2;
|
|
if FCaptionMiddle = 0 then FCaptionMiddle := AStateEx.Font.Size div 2;
|
|
if FCaptionMiddle = 0 then FCaptionMiddle := 5;
|
|
|
|
// Background
|
|
ADest.Brush.FPColor := AStateEx.FPParentRGBColor;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.FPColor := AStateEx.FPParentRGBColor;
|
|
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
|
|
|
|
// frame
|
|
ADest.Pen.FPColor := TColorToFPColor(WIN2000_FRAME_WHITE);
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Rectangle(Bounds(1, 1+FCaptionMiddle, ASize.cx-1, ASize.cy-1-FCaptionMiddle));
|
|
ADest.Pen.FPColor := TColorToFPColor(WIN2000_FRAME_GRAY);
|
|
ADest.Rectangle(Bounds(0, FCaptionMiddle, ASize.cx-1, ASize.cy-1-FCaptionMiddle));
|
|
if ADest is TCanvas then
|
|
begin
|
|
(ADest as TCanvas).Pixels[0, ASize.cy-1] := WIN2000_FRAME_WHITE;
|
|
(ADest as TCanvas).Pixels[ASize.cx-1, FCaptionMiddle] := WIN2000_FRAME_WHITE;
|
|
end;
|
|
|
|
// ToDo: Make the caption smaller if it is too big
|
|
lCaption := AStateEx.Caption;
|
|
if ADest is TCanvas then lTextSize := (ADest as TCanvas).TextExtent(lCaption)
|
|
else lTextSize := Size(50, AStateEx.Font.Size);
|
|
|
|
// fill the text background
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Brush.FPColor := AStateEx.FPParentRGBColor;
|
|
ADest.Pen.Style := psClear;
|
|
ADest.Rectangle(Bounds(FCaptionMiddle, 0, lTextSize.cx+5, lTextSize.cy));
|
|
|
|
// paint text
|
|
ADest.Pen.Style := psClear;
|
|
ADest.Brush.Style := bsClear;
|
|
if ADest is TCanvas then ADest.TextOut(FCaptionMiddle+3, 0, lCaption);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawPanel(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDPanelStateEx);
|
|
var
|
|
NextRectFactor: Integer = 0;
|
|
//TS : TTextStyle;
|
|
begin
|
|
// Background
|
|
ADest.Brush.Color := Palette.BtnFace;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Style := psClear;
|
|
ADest.FillRect(0, 0, ASize.cx, ASize.cy);
|
|
|
|
// The outter frame
|
|
|
|
// if BevelOuter is set then draw a frame with BevelWidth
|
|
if (AStateEx.BevelOuter <> bvNone) then
|
|
begin
|
|
NextRectFactor := AStateEx.BevelWidth;
|
|
DrawFrame3d(ADest, Point(0, 0), ASize, AStateEx.BevelWidth, AStateEx.BevelOuter); // Note: Frame3D inflates ARect
|
|
end;
|
|
|
|
ASize.cx := ASize.cx - NextRectFactor*2;
|
|
ASize.cy := ASize.cy - NextRectFactor*2;
|
|
|
|
// if BevelInner is set then skip the BorderWidth and draw a frame with BevelWidth
|
|
if (AStateEx.BevelInner <> bvNone) then
|
|
DrawFrame3d(ADest, Point(NextRectFactor, NextRectFactor), ASize, AStateEx.BevelWidth, AStateEx.BevelInner); // Note: Frame3D inflates ARect
|
|
|
|
{if Caption <> '' then
|
|
begin
|
|
TS := Canvas.TextStyle;
|
|
TS.Alignment := BidiFlipAlignment(Self.Alignment, UseRightToLeftAlignment);
|
|
if BiDiMode<>bdLeftToRight then
|
|
TS.RightToLeft:= True;
|
|
TS.Layout:= tlCenter;
|
|
TS.Opaque:= false;
|
|
TS.Clipping:= false;
|
|
TS.SystemFont:=Canvas.Font.IsDefault;
|
|
if not Enabled then
|
|
begin
|
|
Canvas.Font.Color := clBtnHighlight;
|
|
OffsetRect(ARect, 1, 1);
|
|
Canvas.TextRect(ARect, ARect.Left, ARect.Top, Caption, TS);
|
|
Canvas.Font.Color := clBtnShadow;
|
|
OffsetRect(ARect, -1, -1);
|
|
end
|
|
else
|
|
Canvas.Font.Color := Font.Color;
|
|
|
|
Canvas.TextRect(ARect,ARect.Left,ARect.Top, Caption, TS);
|
|
end;}
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawStaticText(ADest: TCanvas;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
|
|
var
|
|
lColor: TColor;
|
|
begin
|
|
// Background
|
|
lColor := AStateEx.ParentRGBColor;
|
|
ADest.Brush.Color := lColor;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Style := psClear;
|
|
ADest.FillRect(0, 0, ASize.cx, ASize.cy);
|
|
|
|
// Now the text
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Font.Assign(AStateEx.Font);
|
|
ADest.TextOut(0, 0, AStateEx.Caption);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawTrackBar(ADest: TCanvas;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDPositionedCStateEx);
|
|
var
|
|
StepsCount, i: Integer;
|
|
lTickmarkLeft, lTickmarkTop: integer; // for drawing the decorative bars
|
|
CDBarSpacing: Integer;
|
|
pStepWidth, lTickmarkLeftFloat: Double;
|
|
lPoint: TPoint;
|
|
lSize, lMeasureSize: TSize;
|
|
lValue5, lValue11: Integer;
|
|
begin
|
|
lValue5 := DPIAdjustment(5);
|
|
lValue11 := DPIAdjustment(11);
|
|
// The orientation i
|
|
if csfHorizontal in AState then lMeasureSize := ASize
|
|
else lMeasureSize := Size(ASize.CY, ASize.CX);
|
|
|
|
CDBarSpacing := GetMeasures(TCDTRACKBAR_LEFT_SPACING) + GetMeasures(TCDTRACKBAR_RIGHT_SPACING);
|
|
|
|
// Preparations
|
|
StepsCount := AStateEx.PosCount;
|
|
if StepsCount > 0 then pStepWidth := (lMeasureSize.cx - CDBarSpacing) / (StepsCount-1)
|
|
else pStepWidth := 0.0;
|
|
|
|
// Background
|
|
|
|
ADest.Brush.Color := AStateEx.ParentRGBColor;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := AStateEx.ParentRGBColor;
|
|
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
|
|
|
|
// Draws the frame and its inner white area
|
|
if csfHorizontal in AState then
|
|
begin
|
|
lPoint := Point(GetMeasures(TCDTRACKBAR_LEFT_SPACING),
|
|
GetMeasures(TCDTRACKBAR_TOP_SPACING));
|
|
lSize := Size(ASize.CX - CDBarSpacing, GetMeasures(TCDTRACKBAR_FRAME_HEIGHT));
|
|
end
|
|
else
|
|
begin
|
|
lPoint := Point(GetMeasures(TCDTRACKBAR_TOP_SPACING),
|
|
GetMeasures(TCDTRACKBAR_LEFT_SPACING));
|
|
lSize := Size(GetMeasures(TCDTRACKBAR_FRAME_HEIGHT), ASize.CY - CDBarSpacing);
|
|
end;
|
|
ADest.Brush.Color := Palette.Window;
|
|
ADest.Pen.Style := psClear;
|
|
ADest.Rectangle(Bounds(lPoint.X, lPoint.Y, lSize.cx, lSize.cy));
|
|
DrawSunkenFrame(ADest, lPoint, lSize);
|
|
|
|
// Draws the tickmarks and also the slider button
|
|
lTickmarkLeft := GetMeasures(TCDTRACKBAR_LEFT_SPACING);
|
|
lTickmarkLeftFloat := lTickmarkLeft;
|
|
lTickmarkTop := GetMeasures(TCDTRACKBAR_TOP_SPACING) + GetMeasures(TCDTRACKBAR_FRAME_HEIGHT)+5;
|
|
ADest.Pen.Style := psSolid;
|
|
for i := 0 to StepsCount - 1 do
|
|
begin
|
|
ADest.Pen.Color := clBlack;
|
|
if csfHorizontal in AState then
|
|
ADest.Line(lTickmarkLeft, lTickmarkTop, lTickmarkLeft, lTickmarkTop+3)
|
|
else
|
|
ADest.Line(lTickmarkTop, lTickmarkLeft, lTickmarkTop+3, lTickmarkLeft);
|
|
|
|
// Draw the slider
|
|
if i = AStateEx.Position then
|
|
DrawSlider(ADest,
|
|
Point(lTickmarkLeft-lValue5, GetMeasures(TCDTRACKBAR_TOP_SPACING)-2),
|
|
Size(lValue11, GetMeasures(TCDTRACKBAR_FRAME_HEIGHT)+lValue5), AState);
|
|
|
|
lTickmarkLeftFloat := lTickmarkLeftFloat + pStepWidth;
|
|
lTickmarkLeft := Round(lTickmarkLeftFloat);
|
|
end;
|
|
|
|
// Draw the focus
|
|
if csfHasFocus in AState then
|
|
DrawFocusRect(ADest,
|
|
Point(1, 1),
|
|
Size(ASize.CX - 2, ASize.CY - 2));
|
|
end;
|
|
|
|
// Felipe: Smooth=False is not supported for now
|
|
procedure TCDDrawerCommon.DrawProgressBar(ADest: TCanvas;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDProgressBarStateEx);
|
|
var
|
|
lProgPos, lProgMult: TPoint;
|
|
lProgSize: TSize;
|
|
lProgWidth: Integer;
|
|
begin
|
|
// Inside area, there is no background because the control occupies the entire area
|
|
ADest.Brush.Color := WIN2000_BTNFACE;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Style := psClear;
|
|
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
|
|
|
|
// The Frame
|
|
DrawShallowSunkenFrame(ADest, Point(0, 0), ASize);
|
|
|
|
// Preparations to have 1 code for all orientations
|
|
lProgSize := Size(ASize.cx-4, ASize.cy-4);
|
|
if csfHorizontal in AState then
|
|
begin
|
|
lProgPos := Point(2, 2);
|
|
lProgMult := Point(1, 0);
|
|
lProgWidth := lProgSize.cx;
|
|
end
|
|
else if csfVertical in AState then
|
|
begin
|
|
lProgPos := Point(2, ASize.cy-2);
|
|
lProgMult := Point(0, -1);
|
|
lProgWidth := lProgSize.cy;
|
|
end else if csfRightToLeft in AState then
|
|
begin
|
|
lProgPos := Point(ASize.cx-2, 2);
|
|
lProgMult := Point(-1, 0);
|
|
lProgWidth := lProgSize.cx;
|
|
end
|
|
else
|
|
begin
|
|
lProgPos := Point(2, 2);
|
|
lProgMult := Point(0, 1);
|
|
lProgWidth := lProgSize.cy;
|
|
end;
|
|
lProgWidth := Round(lProgWidth * AStateEx.PercentPosition);
|
|
|
|
// Draws the filling
|
|
ADest.Pen.Color := WIN2000_PROGRESSBAR_BLUE;
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Brush.Color := WIN2000_PROGRESSBAR_BLUE;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Rectangle(
|
|
lProgPos.X,
|
|
lProgPos.Y,
|
|
lProgPos.X+lProgWidth*lProgMult.X+lProgSize.cx*Abs(lProgMult.Y),
|
|
lProgPos.Y+lProgWidth*lProgMult.Y+lProgSize.cy*Abs(lProgMult.X));
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawListView(ADest: TCanvas;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDListViewStateEx);
|
|
begin
|
|
// Inside area, there is no background because the control occupies the entire area
|
|
ADest.Brush.Color := Palette.Window;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Style := psClear;
|
|
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
|
|
|
|
// The frame
|
|
DrawSunkenFrame(ADest, Point(0, 0), ASize);
|
|
|
|
// The contents depend on the view style
|
|
case AStateEx.ViewStyle of
|
|
vsReport: DrawReportListView(ADest, Point(0, 0), ASize, AState, AStateEx);
|
|
end;
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawReportListView(ADest: TCanvas; ADestPos: TPoint;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDListViewStateEx);
|
|
var
|
|
lColumn: TListColumn;
|
|
i, j: Integer;
|
|
lCurPos: TPoint;
|
|
lItemSize: TSize;
|
|
lItemCount: Integer;
|
|
lCurItem: TCDListItems;
|
|
begin
|
|
lCurPos := Point(2, 2);
|
|
lItemCount := AStateEx.Items.GetItemCount();
|
|
|
|
// i is an column zero-based index
|
|
for i := AStateEx.FirstVisibleColumn to AStateEx.Columns.Count-1 do
|
|
begin
|
|
lColumn := AStateEx.Columns[i];
|
|
lCurPos.Y := 2;
|
|
|
|
// get the column width
|
|
if lColumn.AutoSize then
|
|
begin
|
|
lItemSize.cx := ADest.GetTextWidth(lColumn.Caption)
|
|
+ GetMeasures(TCDLISTVIEW_COLUMN_LEFT_SPACING)
|
|
+ GetMeasures(TCDLISTVIEW_COLUMN_RIGHT_SPACING);
|
|
if (lColumn.MinWidth > 0) and (lItemSize.cx < lColumn.MinWidth) then lItemSize.cx := lColumn.MinWidth
|
|
else if (lColumn.MaxWidth > 0) and (lItemSize.cx > lColumn.MaxWidth) then lItemSize.cx := lColumn.MaxWidth;
|
|
end
|
|
else lItemSize.cx := lColumn.Width;
|
|
|
|
// line height measure
|
|
lItemSize.cy := ADest.TextHeight(cddTestStr)
|
|
+ GetMeasures(TCDLISTVIEW_LINE_TOP_SPACING)
|
|
+ GetMeasures(TCDLISTVIEW_LINE_BOTTOM_SPACING);
|
|
|
|
// Draw the column header
|
|
if AStateEx.ShowColumnHeader then
|
|
begin
|
|
// Foreground
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Brush.Color := Palette.BtnFace; // WIN2000_BTNFACE
|
|
ADest.Pen.Style := psClear;
|
|
ADest.FillRect(Bounds(lCurPos.X, lCurPos.Y, lItemSize.cx, lItemSize.cy));
|
|
|
|
// Frame
|
|
DrawRaisedFrame(ADest, lCurPos, lItemSize);
|
|
|
|
// The caption
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Pen.Style := psClear;
|
|
ADest.TextOut(
|
|
lCurPos.X+GetMeasures(TCDLISTVIEW_COLUMN_TEXT_LEFT_SPACING),
|
|
lCurPos.Y+GetMeasures(TCDLISTVIEW_LINE_TOP_SPACING),
|
|
lColumn.Caption);
|
|
|
|
Inc(lCurPos.Y, lItemSize.cy);
|
|
end;
|
|
|
|
// j is a zero-based index for lines, ignoring the header
|
|
// Draw all items until we get out of the visible area
|
|
for j := 0 to lItemCount-1 do
|
|
begin
|
|
lCurItem := nil;
|
|
if i = 0 then lCurItem := AStateEx.Items.GetItem(j)
|
|
else if AStateEx.Items.GetItem(j).GetItemCount >= i then
|
|
lCurItem := AStateEx.Items.GetItem(j).GetItem(i-1);
|
|
|
|
if lCurItem = nil then Continue;
|
|
|
|
// Draw the item
|
|
DrawReportListViewItem(ADest, lCurPos, lItemSize, lCurItem, AState, AStateEx);
|
|
|
|
Inc(lCurPos.Y, lItemSize.CY);
|
|
end;
|
|
|
|
Inc(lCurPos.X, lItemSize.CX);
|
|
end;
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawReportListViewItem(ADest: TCanvas;
|
|
ADestPos: TPoint; ASize: TSize; ACurItem: TCDListItems; AState: TCDControlState;
|
|
AStateEx: TCDListViewStateEx);
|
|
begin
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Pen.Style := psClear;
|
|
ADest.TextOut(
|
|
ADestPos.X+GetMeasures(TCDLISTVIEW_COLUMN_TEXT_LEFT_SPACING),
|
|
ADestPos.Y+GetMeasures(TCDLISTVIEW_LINE_TOP_SPACING),
|
|
ACurItem.Caption);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawToolBar(ADest: TCanvas; ASize: TSize;
|
|
AState: TCDControlState; AStateEx: TCDToolBarStateEx);
|
|
var
|
|
lX, lY, lX2: Integer;
|
|
lItemSize: TSize;
|
|
i: Integer;
|
|
lCurItem: TCDToolBarItem;
|
|
lItemState: TCDControlState = [];
|
|
begin
|
|
// Background
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := AStateEx.ParentRGBColor;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Brush.Color := AStateEx.ParentRGBColor;
|
|
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
|
|
|
|
// Items
|
|
lX := GetMeasures(TCDTOOLBAR_ITEM_SPACING);
|
|
lY := GetMeasures(TCDTOOLBAR_ITEM_SPACING);
|
|
lItemSize.CY := AStateEx.ToolBarHeight - GetMeasures(TCDTOOLBAR_ITEM_SPACING) * 2;
|
|
for i := 0 to AStateEx.Items.Count-1 do
|
|
begin
|
|
lCurItem := TCDToolBarItem(AStateEx.Items[i]);
|
|
|
|
// make space for the arrow if necessary
|
|
if lCurItem.Kind = tikDropDownButton then
|
|
lItemSize.CX := lCurItem.Width - GetMeasures(TCDTOOLBAR_ITEM_ARROW_RESERVED_WIDTH)
|
|
else
|
|
lItemSize.CX := lCurItem.Width;
|
|
|
|
lCurItem.SubpartKind := tiskMain;
|
|
DrawToolBarItem(ADest, lItemSize, lCurItem, lX, lY, lCurItem.State, AStateEx);
|
|
|
|
if lCurItem.Kind = tikDropDownButton then
|
|
begin
|
|
lCurItem.SubpartKind := tiskArrow;
|
|
lX2 := lX + lCurItem.Width - GetMeasures(TCDTOOLBAR_ITEM_ARROW_RESERVED_WIDTH);
|
|
lItemSize.CX := GetMeasures(TCDTOOLBAR_ITEM_ARROW_RESERVED_WIDTH);
|
|
DrawToolBarItem(ADest, lItemSize, lCurItem, lX2, lY, lCurItem.State, AStateEx);
|
|
end;
|
|
|
|
lX := lX + lCurItem.Width;
|
|
end;
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawToolBarItem(ADest: TCanvas; ASize: TSize;
|
|
ACurItem: TCDToolBarItem; AX, AY: Integer; AState: TCDControlState; AStateEx: TCDToolBarStateEx);
|
|
var
|
|
lX, lY1, lY2: Integer;
|
|
|
|
procedure DrawToolBarItemBorder();
|
|
begin
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := $AFAFAF;
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Rectangle(Bounds(AX, AY, ASize.cx, ASize.cy));
|
|
end;
|
|
|
|
begin
|
|
// tikDivider is centralized, tikSeparator is left-aligned
|
|
case ACurItem.Kind of
|
|
tikSeparator, tikDivider:
|
|
begin
|
|
lX := AX;
|
|
if ACurItem.Kind = tikDivider then
|
|
lX := AX + ASize.CX div 2 - 1;
|
|
|
|
lY1 := AY;
|
|
lY2 := AY+ASize.CY;
|
|
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := $DCDEE1;
|
|
ADest.Line(lX+1, lY1, lX+1, lY2);
|
|
ADest.Line(lX+3, lY1, lX+3, lY2);
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := $93979E;
|
|
ADest.Line(lX+2, lY1, lX+2, lY2);
|
|
end;
|
|
tikButton, tikCheckButton, tikDropDownButton:
|
|
begin
|
|
if ACurItem.SubpartKind = tiskArrow then
|
|
begin
|
|
// Centralize the arrow in the available space
|
|
lX := AX + ASize.CX div 2 - GetMeasures(TCDTOOLBAR_ITEM_ARROW_WIDTH) div 2;
|
|
lY1 := AY + ASize.CY div 2 - GetMeasures(TCDTOOLBAR_ITEM_ARROW_WIDTH) div 2;
|
|
DrawArrow(ADest, Point(lX, lY1), [csfDownArrow], GetMeasures(TCDTOOLBAR_ITEM_ARROW_WIDTH));
|
|
Exit;
|
|
end;
|
|
|
|
if csfSunken in AState then
|
|
begin
|
|
ADest.GradientFill(Bounds(AX, AY, ASize.CX, ASize.CY),
|
|
$C4C4C4, $DBDBDB, gdVertical);
|
|
DrawToolBarItemBorder();
|
|
end
|
|
else if csfMouseOver in AState then
|
|
begin
|
|
ADest.GradientFill(Bounds(AX, AY, ASize.CX, ASize.CY),
|
|
$E3E3E3, $F7F7F7, gdVertical);
|
|
DrawToolBarItemBorder();
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawCTabControl(ADest: TCanvas;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDCTabControlStateEx);
|
|
begin
|
|
// Background
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := AStateEx.ParentRGBColor;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Brush.Color := AStateEx.ParentRGBColor;
|
|
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
|
|
|
|
// frame
|
|
DrawCTabControlFrame(ADest, Point(0, 0), ASize, AState, AStateEx);
|
|
|
|
// Tabs
|
|
ADest.Font.Assign(AStateEx.Font);
|
|
DrawTabs(ADest, Point(0, 0), ASize, AState, AStateEx);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawCTabControlFrame(ADest: TCanvas;
|
|
ADestPos: TPoint; ASize: TSize; AState: TCDControlState;
|
|
AStateEx: TCDCTabControlStateEx);
|
|
var
|
|
CaptionHeight, lIndex, i: Integer;
|
|
lWidth: Integer = 0;
|
|
lRows: Integer = 1;
|
|
begin
|
|
if AStateEx.TabCount = 0 then CaptionHeight := 0
|
|
else if not (nboMultiLine in AStateEx.Options) then
|
|
CaptionHeight := GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_HEIGHT, AState, AStateEx)
|
|
else begin
|
|
lIndex := AStateEx.TabIndex;
|
|
for i := 0 to AStateEx.TabCount - ord(not(nboShowAddTabButton in AStateEx.Options)) do
|
|
begin
|
|
lWidth := lWidth + GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_WIDTH, AState, AStateEx);
|
|
if lWidth > ASize.Width then
|
|
begin
|
|
lWidth := 0;
|
|
Inc(lRows);
|
|
end;
|
|
end;
|
|
AStateEx.TabIndex := lIndex;
|
|
CaptionHeight := GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_HEIGHT, AState, AStateEx) * lRows;
|
|
end;
|
|
|
|
|
|
DrawRaisedFrame(ADest, Point(0, CaptionHeight), Size(ASize.cx, ASize.cy-CaptionHeight));
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawTabSheet(ADest: TCanvas; ADestPos: TPoint;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDCTabControlStateEx);
|
|
begin
|
|
ADest.Brush.Color := AStateEx.RGBColor;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := AStateEx.RGBColor;
|
|
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawTabs(ADest: TCanvas; ADestPos: TPoint;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDCTabControlStateEx);
|
|
var
|
|
IsPainting: Boolean = False;
|
|
lLastTabIndex, i, lWidth: Integer;
|
|
begin
|
|
AStateEx.CurStartLeftPos := 0;
|
|
AStateEx.CurStartTopPos := 0;
|
|
if nboShowAddTabButton in AStateEx.Options then lLastTabIndex := AStateEx.Tabs.Count
|
|
else lLastTabIndex := AStateEx.Tabs.Count - 1;
|
|
|
|
for i := 0 to lLastTabIndex do
|
|
begin
|
|
if (i = AStateEx.LeftmostTabVisibleIndex) or (nboMultiLine in AStateEx.Options) then
|
|
IsPainting := True;
|
|
|
|
if IsPainting then
|
|
begin
|
|
AStateEx.CurTabIndex := i;
|
|
lWidth := GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_WIDTH, AState, AStateEx);
|
|
|
|
if (nboMultiLine in AStateEx.Options) and (AStateEx.CurStartLeftPos+lWidth > ADest.Width) then
|
|
begin
|
|
AStateEx.CurStartLeftPos := 0;
|
|
AStateEx.CurStartTopPos:=AStateEx.CurStartTopPos+GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_HEIGHT, AState, AStateEx) ;
|
|
end;
|
|
|
|
DrawTab(ADest, ADestPos, ASize, AState, AStateEx);
|
|
AStateEx.CurStartLeftPos := AStateEx.CurStartLeftPos + lWidth;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawTab(ADest: TCanvas; ADestPos: TPoint;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDCTabControlStateEx);
|
|
var
|
|
IsSelected, IsAddButton: Boolean;
|
|
lTabWidth, lTabHeight, lTabTopPos: Integer;
|
|
Points: array of TPoint;
|
|
lCaption: String;
|
|
lTabHeightCorrection: Integer = 0;
|
|
lTabRightBorderExtraHeight: Integer = 0;
|
|
lCloseButtonPos: TPoint;
|
|
begin
|
|
IsSelected := AStateEx.TabIndex = AStateEx.CurTabIndex;
|
|
IsAddButton := AStateEx.CurTabIndex = AStateEx.Tabs.Count;
|
|
|
|
if not IsSelected then lTabHeightCorrection := 3;
|
|
if IsSelected then lTabRightBorderExtraHeight := 1;
|
|
|
|
lTabTopPos := lTabHeightCorrection+AStateEx.CurStartTopPos;
|
|
lTabHeight := GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_HEIGHT, AState, AStateEx)-lTabHeightCorrection;
|
|
lTabWidth := GetMeasuresEx(ADest, TCDCTABCONTROL_TAB_WIDTH, AState, AStateEx);
|
|
|
|
// Fill the area inside the outer border
|
|
// And at the same time fill the white border (part of it will be erased later)
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := WIN2000_FRAME_WHITE;
|
|
ADest.Brush.Style := bsSolid;
|
|
ADest.Brush.Color := AStateEx.RGBColor;
|
|
SetLength(Points, 6);
|
|
Points[0] := Point(AStateEx.CurStartLeftPos, lTabTopPos+lTabHeight);
|
|
Points[1] := Point(AStateEx.CurStartLeftPos, lTabTopPos+2);
|
|
Points[2] := Point(AStateEx.CurStartLeftPos+2, lTabTopPos);
|
|
Points[3] := Point(AStateEx.CurStartLeftPos+lTabWidth-3, lTabTopPos);
|
|
Points[4] := Point(AStateEx.CurStartLeftPos+lTabWidth-1, lTabTopPos+2);
|
|
Points[5] := Point(AStateEx.CurStartLeftPos+lTabWidth-1, lTabTopPos+lTabHeight);
|
|
ADest.Polygon(Points);
|
|
|
|
// Draw the inner border of the top and right sides,
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Brush.Style := bsClear;
|
|
ADest.Pen.Color := WIN2000_FRAME_LIGHT_GRAY;
|
|
ADest.MoveTo(AStateEx.CurStartLeftPos+1, lTabTopPos+lTabHeight-1);
|
|
ADest.LineTo(AStateEx.CurStartLeftPos+1, lTabTopPos+2);
|
|
ADest.LineTo(AStateEx.CurStartLeftPos+2, lTabTopPos+1);
|
|
ADest.LineTo(AStateEx.CurStartLeftPos+lTabWidth-3, lTabTopPos+1);
|
|
|
|
// Draw the inner border of the right side
|
|
ADest.Pen.Color := WIN2000_FRAME_GRAY;
|
|
ADest.MoveTo(AStateEx.CurStartLeftPos+lTabWidth-2, lTabTopPos+2);
|
|
ADest.LineTo(AStateEx.CurStartLeftPos+lTabWidth-2, lTabTopPos+lTabHeight+lTabRightBorderExtraHeight);
|
|
// Draw the outter border of the right side
|
|
ADest.Pen.Color := WIN2000_FRAME_DARK_GRAY;
|
|
ADest.MoveTo(AStateEx.CurStartLeftPos+lTabWidth-1, lTabTopPos+2);
|
|
ADest.LineTo(AStateEx.CurStartLeftPos+lTabWidth-1, lTabTopPos+lTabHeight+lTabRightBorderExtraHeight);
|
|
ADest.Pixels[AStateEx.CurStartLeftPos+lTabWidth-2, lTabTopPos+1] := WIN2000_FRAME_DARK_GRAY;
|
|
|
|
if IsSelected then
|
|
begin
|
|
// If it is selected, add a selection frame
|
|
DrawFocusRect(ADest, Point(AStateEx.CurStartLeftPos+3, lTabTopPos+3),
|
|
Size(lTabWidth-8, lTabHeight-6));
|
|
|
|
// and Clear the bottom area if selected
|
|
ADest.Pen.Style := psSolid;
|
|
ADest.Pen.Color := AStateEx.RGBColor;
|
|
ADest.Line(AStateEx.CurStartLeftPos+1, lTabTopPos+lTabHeight,
|
|
AStateEx.CurStartLeftPos+lTabWidth-2, lTabTopPos+lTabHeight);
|
|
ADest.Line(AStateEx.CurStartLeftPos+1, lTabTopPos+lTabHeight+1,
|
|
AStateEx.CurStartLeftPos+lTabWidth-2, lTabTopPos+lTabHeight+1);
|
|
end;
|
|
|
|
// Now the text
|
|
if IsAddButton then lCaption := '+'
|
|
else lCaption := AStateEx.Tabs.Strings[AStateEx.CurTabIndex];
|
|
ADest.TextOut(AStateEx.CurStartLeftPos+5, lTabTopPos+5, lCaption);
|
|
|
|
// Now the close button
|
|
if (not IsAddButton) and (nboShowCloseButtons in AStateEx.Options) then
|
|
begin
|
|
lCloseButtonPos.X := GetMeasuresEx(ADest, TCDCTABCONTROL_CLOSE_BUTTON_POS_X, AState, AStateEx);
|
|
lCloseButtonPos.Y := GetMeasuresEx(ADest, TCDCTABCONTROL_CLOSE_BUTTON_POS_Y, AState, AStateEx);
|
|
DrawSmallCloseButton(ADest, lCloseButtonPos);
|
|
end;
|
|
end;
|
|
|
|
procedure TCDDrawerCommon.DrawSpinEdit(ADest: TCanvas; ADestPos: TPoint;
|
|
ASize: TSize; AState: TCDControlState; AStateEx: TCDSpinStateEx);
|
|
begin
|
|
|
|
end;
|
|
|
|
{ TCDListViewDrawerCommon }
|
|
|
|
initialization
|
|
RegisterDrawer(TCDDrawerCommon.Create, dsCommon);
|
|
end.
|
|
|