{*******************************************************************}
{                                                                   }
{       Developer Express Visual Component Library                  }
{       ExpressCommon routines                                      }
{                                                                   }
{       Copyright (c) 1998-2006 Developer Express Inc.              }
{       ALL RIGHTS RESERVED                                         }
{                                                                   }
{   The entire contents of this file is protected by U.S. and       }
{   International Copyright Laws. Unauthorized reproduction,        }
{   reverse-engineering, and distribution of all or any portion of  }
{   the code contained in this file is strictly prohibited and may  }
{   result in severe civil and criminal penalties and will be       }
{   prosecuted to the maximum extent possible under the law.        }
{                                                                   }
{   RESTRICTIONS                                                    }
{                                                                   }
{   THE SOURCE CODE CONTAINED WITHIN THIS FILE AND ALL RELATED      }
{   FILES OR ANY PORTION OF ITS CONTENTS SHALL AT NO TIME BE        }
{   COPIED, TRANSFERRED, SOLD, DISTRIBUTED, OR OTHERWISE MADE       }
{   AVAILABLE TO OTHER INDIVIDUALS WITHOUT EXPRESS WRITTEN CONSENT  }
{   AND PERMISSION FROM DEVELOPER EXPRESS INC.                      }
{                                                                   }
{   CONSULT THE END USER LICENSE AGREEMENT FOR INFORMATION ON       }
{   ADDITIONAL RESTRICTIONS.                                        }
{                                                                   }
{*******************************************************************}

unit dxCommon;

interface

uses
  Windows;

type
  TdxCorner = (coTopLeft, coTopRight, coBottomLeft, coBottomRight);

function dxDropDownNCHeight: Integer;
function GetCornerForRects(const EditRect, DropDownRect: TRect): TdxCorner;
function GetHitTestByCorner(ACorner: TdxCorner): Longint;

procedure DrawCloseButton(DC: HDC; var ARect: TRect; Selected, Pressed: Boolean;
  ACorner: TdxCorner);
procedure DrawSizeGrip(DC: HDC; var ARect: TRect; ACorner: TdxCorner);

// for CLR

function dxDrawText(ADC: HDC; AStr: string; ACount: Integer; var ARect: TRect; AFormat: UINT): Integer;
function dxExtTextOut(ADC: HDC; X, Y: Integer; AOptions: Longint; const ARect: TRect; AStr: string): BOOL;
function dxGetTextExtentPoint32(ADC: HDC; AStr: string; ACount: Integer; var ASize: TSize): BOOL;

implementation

uses
  Classes{$IFDEF CLR}, Types{$ENDIF};

function dxDropDownNCHeight: Integer;
begin
  Result := 2 + GetSystemMetrics(SM_CYHSCROLL);
  if Result < GetSystemMetrics(SM_CYSIZE) then
    Result := GetSystemMetrics(SM_CYSIZE);
  Inc(Result);
end;

function GetCornerForRects(const EditRect, DropDownRect: TRect): TdxCorner;
const
  Corners: array[Boolean, Boolean] of TdxCorner =
    ((coTopLeft, coBottomLeft), (coTopRight, coBottomRight));
begin
  Result :=
    Corners[EditRect.Left < DropDownRect.Right, EditRect.Bottom < DropDownRect.Bottom];
end;

function GetHitTestByCorner(ACorner: TdxCorner): Longint;
const
  HitTests: array[TdxCorner] of Longint =
    (HTTOPLEFT, HTTOPRIGHT, HTBOTTOMLEFT, HTBOTTOMRIGHT);
begin
  Result := HitTests[ACorner];
end;

procedure DrawCloseButton(DC: HDC; var ARect: TRect; Selected, Pressed: Boolean;
  ACorner: TdxCorner);
const
  Borders: array[Boolean] of Longint = (BDR_RAISEDINNER, BDR_SUNKENOUTER);
  States: array[Boolean] of Longint = (0, DFCS_PUSHED);
var
  Delta, SX, SY: Integer;
  Rgn1, Rgn2: HRGN;
  ClipRgnExists: Boolean;
begin
  SX := GetSystemMetrics(SM_CXSIZE);
  Delta := 1;//Byte(SX = 18);
  SY := GetSystemMetrics(SM_CXSIZE) + Delta;
  with ARect do
  begin
    if ACorner in [coTopRight, coBottomRight] then
      Right := Left + SX
    else
      Left := Right - SX;
    Top := (Top + Bottom - SY) div 2;
    if ACorner in [coBottomLeft, coBottomRight] then Inc(Top, Delta);
    Bottom := Top + SY;
  end;
  InflateRect(ARect, -1, -2);
  if Selected then
    DrawEdge(DC, ARect, Borders[Pressed], BF_RECT)
  else
    FrameRect(DC, ARect, GetSysColorBrush(COLOR_BTNFACE));
  InflateRect(ARect, -1, -1);
  FrameRect(DC, ARect, GetSysColorBrush(COLOR_BTNFACE));

  Rgn1 := CreateRectRgn(0, 0, 0, 0);
  ClipRgnExists := GetClipRgn(DC, Rgn1) = 1;
  with ARect do
    Rgn2 := CreateRectRgn(Left + 1, Top + 1, Right - 1, Bottom - 1);
  SelectClipRgn(DC, Rgn2);
  DeleteObject(Rgn2);
  InflateRect(ARect, 1, 1);
  if SX <> 22 then Inc(ARect.Top, Delta);
  DrawFrameControl(DC, ARect, DFC_CAPTION, DFCS_CAPTIONCLOSE or DFCS_FLAT or States[Pressed]);
  if SX <> 22 then Dec(ARect.Top, Delta);
  if ClipRgnExists then
    SelectClipRgn(DC, Rgn1)
  else
    SelectClipRgn(DC, 0);
  DeleteObject(Rgn1);
end;

procedure DrawSizeGrip(DC: HDC; var ARect: TRect; ACorner: TdxCorner);
const
  Offset = 2;
var
  MirrorX, MirrorY: Boolean;
  R: TRect;
  X, Y: Integer;
  MDC: HDC;
  PrevB: HBITMAP;
begin
  with ARect do
  begin
    if ACorner in [coTopRight, coBottomRight] then
      Left := Right - GetSystemMetrics(SM_CXVSCROLL)
    else
      Right := Left + GetSystemMetrics(SM_CXVSCROLL);
    if ACorner in [coBottomLeft, coBottomRight] then
      Top := Bottom - GetSystemMetrics(SM_CYHSCROLL)
    else
      Bottom := Top + GetSystemMetrics(SM_CYHSCROLL);
    MirrorX := ACorner in [coTopLeft, coBottomLeft];
    MirrorY := ACorner in [coTopLeft, coTopRight];
  end;
  R := ARect;
  with R do
  begin
    if MirrorX then
    begin
      Inc(Left, Offset);
      FillRect(DC, Rect(ARect.Left, Top, Left, Bottom), COLOR_BTNFACE + 1);
    end
    else
    begin
      Dec(Right, Offset);
      FillRect(DC, Rect(Right, Top, ARect.Right, Bottom), COLOR_BTNFACE + 1);
    end;  
    if MirrorY then
    begin
      Inc(Top, Offset);
      FillRect(DC, Rect(Left, ARect.Top, Right, Top), COLOR_BTNFACE + 1);
    end
    else
    begin
      Dec(Bottom, Offset);
      FillRect(DC, Rect(Left, Bottom, Right, ARect.Bottom), COLOR_BTNFACE + 1);
    end;  
    X := Left;
    Y := Top;
    OffsetRect(R, -Left, -Top);
  end;

  MDC := CreateCompatibleDC(DC);
  PrevB := SelectObject(MDC, CreateCompatibleBitmap(DC, R.Right, R.Bottom));
  DrawFrameControl(MDC, R, DFC_SCROLL, DFCS_SCROLLSIZEGRIP);
  with R do
    StretchBlt(DC, X, Y, Right, Bottom,
      MDC, Byte(MirrorX) * (Right - 1), Byte(MirrorY) * (Bottom - 1),
      (2 * Byte(not MirrorX) - 1) * Right,
      (2 * Byte(not MirrorY) - 1) * Bottom, SRCCOPY);
  DeleteObject(SelectObject(MDC, PrevB));
  DeleteDC(MDC);
end;

function dxDrawText(ADC: HDC; AStr: string; ACount: Integer; var ARect: TRect; AFormat: UINT): Integer;
begin
{$IFDEF CLR}
//  if ACount = -1 then ACount := Length(AStr);
// TODO: !!!
  Result := DrawText(ADC, AStr, ACount, ARect, AFormat);
{$ELSE}
  Result := DrawText(ADC, PChar(AStr), ACount, ARect, AFormat);
{$ENDIF}
end;

function dxExtTextOut(ADC: HDC; X, Y: Integer; AOptions: Longint; const ARect: TRect; AStr: string): BOOL;
begin
{$IFDEF CLR}
  Result := ExtTextOut(ADC, X, Y, AOptions, ARect, AStr, Length(AStr), nil);
{$ELSE}
  Result := ExtTextOut(ADC, X, Y, AOptions, @ARect, PChar(AStr), Length(AStr), nil);
{$ENDIF}
end;

function dxGetTextExtentPoint32(ADC: HDC; AStr: string; ACount: Integer; var ASize: TSize): BOOL;
begin
{$IFDEF CLR}
  Result := GetTextExtentPoint32(ADC, AStr, ACount, ASize);
{$ELSE}
  Result := GetTextExtentPoint32(ADC, PChar(AStr), ACount, ASize);
{$ENDIF}
end;

end.