开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
fccombo.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：56k
源码类别：

Delphi控件源码

开发平台：

Delphi

fccombo.pas：源码内容
  1. {
  2. //
  3. // Components : TfcCustomCombo
  4. //
  5. // Copyright (c) 2001 by Woll2Woll Software
  6. //
  7. // Changes:
  8. // 3/23/99 - PYW - Need to automatically set datasource when dropping control
  9. //                   in a TDBCtrlGrid.
  10. // 3/25/99 -PYW - Make sure handle is allocated when setCaret is called.
  11. // 6/6/99 - RSW - Close this modal form upon escape or return
  12. // 6/22/99 - RSW - Use HWND_TOPMOST for drop-down control only for formstyle=fsStayOnTop
  13. // 6/28/99 - Support unbound csPaintCopy
  14. // 7/4/99 - Support TCustomGrid instead of just TwwDBGrid
  15. // 9/15/99 - Make sure handle is for me in hook
  16. // 1/28/2000 - Fix bitmap glyph paint problem when flat or transparent
  17. // 8/16/2000 - Fire dropdown also if screen.activecontrol is me.  When TWebBrowser has
  18. //             focus, the dropdown button was not working.
  19. // 6/3/2001 - PYW - MDI Child forms would not get activated prior to setting focus by clicking on button.
  20. // 10/1/2001 - Added for OnMouseEnter and OnMouseLeave events. -PYW
  21. }
  22. unit fcCombo;
  24. interface
  25. {$i fcIfDef.pas}
  26. {$R-}
  27. uses
  28.   Forms, Menus, SysUtils, Windows, Graphics, Messages, Classes,
  29.   Controls, Buttons, Mask, StdCtrls, fcCommon, TypInfo, Dialogs, Grids,
  30.   DB, DBCtrls, fcframe, fccombobutton;
  32. type
  33.   TfcComboButtonStyle = (cbsEllipsis, cbsDownArrow, cbsCustom);
  34. //  TfcComboButtonStyle = (cbsEllipsis, cbsDownArrow);
  35.   TfcComboStyle = (csDropDown, csDropDownList);
  36.   TfcAlignVertical = (fcavTop, fcavCenter);
  37.   TfcComboCloseUpEvent = procedure(Sender: TObject; Select: boolean) of object;
  39.   TfcDropDownButton = class(TfcComboButton)
  40.   private
  41.     procedure CMDesignHitTest(var Message: TCMDesignHitTest); message CM_DESIGNHITTEST;
  42.   protected
  43.     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
  44.     procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
  45.     procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
  46.     procedure Paint; override;
  47.   end;
  49.   TfcCustomCombo = class(TCustomEdit)
  50.   private
  51.     FController: TComponent;
  52.     FAlignmentVertical: TfcAlignVertical;
  53.     FBtnParent: TWinControl;
  54.     FButton: TfcDropDownButton;
  55.     FDataLink: TFieldDataLink;
  56.     FDropDownCount: Integer;
  57.     FInfoPower: Boolean;
  58.     FOnCustomDlg: TNotifyevent;
  59.     FOnCloseUp: TfcComboCloseUpEvent;
  60.     FOnDropDown: TNotifyEvent;
  61.     FOnAfterDropDown: TNotifyEvent;
  62.     FButtonStyle: TfcComboButtonStyle;
  63. //    FButtonGlyph: TBitmap;
  64.     FButtonWidth: integer;
  65.     FCanvas, FPaintCanvas: TControlCanvas;
  66.     FStyle: TfcComboStyle;
  67.     FReadOnly: boolean;
  68.     FAllowClearKey: boolean;
  70.     FOnMouseEnter: TNotifyEvent;
  71.     FOnMouseLeave: TNotifyEvent;
  72.     FFrame: TfcEditFrame;
  73.     FButtonEffects: TfcButtonEffects;
  75.     FSavedCursor: TCursor;
  76.     FIgnoreCursorChange: Boolean;
  77.     skipUpdate: boolean;
  78.     FMouseInButtonControl: boolean;
  79.     FDisableThemes: boolean;
  81.     // Message Handlers
  82.     procedure WMSetFont(var Message: TWMSetFont); message WM_SETFONT;
  83.     procedure CMCancelMode(var Message: TCMCancelMode); message CM_CANCELMODE;
  84.     procedure CMCursorChanged(var Message: TMessage); message CM_CURSORCHANGED;
  85.     procedure CMEnter(var Message: TCMEnter); message CM_ENTER;
  86.     procedure CMExit(var Message: TCMExit); message CM_EXIT;
  87.     procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
  88.     procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
  89.     procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;
  90.     procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
  91.     procedure CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN;
  92.     procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
  93.     procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
  94.     procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  95.     procedure WMSize(var Message: TWMSize); message WM_SIZE;
  96.     procedure WMCut(var Message: TMessage); message WM_CUT;
  97.     procedure WMPaste(var Message: TMessage); message WM_PASTE;
  98.     procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message WM_ERASEBkgnd;
  99.     procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  100.     procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  102.     // Property Access Methods
  103.     procedure SetController(Value: TComponent);
  104.     function GetDataField: string;
  105.     function GetDataSource: TDataSource;
  106.     function GetReadOnly: Boolean;
  107.     procedure SetButtonStyle(Value: TfcComboButtonStyle);
  108.     Function GetButtonGlyph: TBitmap;
  109.     procedure SetButtonGlyph(Value: TBitmap);
  110.     Procedure SetButtonWidth(val: integer);
  111.     function GetButtonWidth: integer;
  112.     procedure SetDataField(Value: string);
  113.     procedure SetDataSource(Value: TDataSource);
  114.     procedure SetReadOnly(Value: Boolean);
  115.     procedure SetStyle(Value: TfcComboStyle);
  116.     procedure SetAlignmentVertical(Value: TfcAlignVertical);
  117.     procedure SetFocused(Value: Boolean);
  118.   protected
  119.     FFocused: Boolean;
  120. //    Function LoadComboGlyph: HBitmap; virtual;
  121.     Procedure UpdateButtonGlyph;
  122.     procedure SetDropDownCount(Value: Integer); virtual;
  123.     function GetDropDownControl: TWinControl; virtual; abstract;
  124.     function GetDropDownContainer: TWinControl; virtual; abstract;
  125.     function GetItemCount: Integer; virtual; abstract;
  126.     function GetItemSize: TSize; virtual; abstract;
  127.     function GetLeftIndent: Integer; virtual;
  128.     procedure BtnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  129.       X, Y: Integer); virtual;
  130.     procedure DrawButton(Canvas: TCanvas; R: TRect; State: TButtonState;
  131.     ControlState: TControlState; var DefaultPaint:boolean); virtual;
  132.     procedure HideCaret; virtual;
  133.     procedure Paint; virtual;
  134.     procedure ShowCaret; virtual;
  135. //    procedure GlyphChanged(Sender: TObject); virtual;
  137.     // Virtual Property Access Methods
  138.     function GetShowButton: Boolean; virtual;
  139.     procedure SetModified(Value: Boolean); virtual;
  140.     procedure SetShowButton(Value: Boolean);
  142.     // Virtual Methods
  143.     function Editable: Boolean; virtual;
  144.     function EditCanModify: Boolean; virtual;
  145.     function GetClientEditRect: TRect; virtual;
  146.     function GetEditRect: TRect; virtual;
  147.     function GetIconIndent: Integer; virtual;
  148.     function GetIconLeft: Integer; virtual;
  149.     procedure DoDropDown; virtual;
  150.     procedure DoAfterDropDown; virtual;
  151.     procedure CloseUp(Accept: Boolean); virtual;
  152.     procedure DataChange(Sender: TObject); virtual;
  153.     procedure EditingChange(Sender: TObject); virtual;
  154.     procedure HandleDropDownKeys(var Key: Word; Shift: TShiftState); virtual;
  155.     procedure HandleGridKeys(var Key: Word; Shift: TShiftState); virtual;
  156.     procedure Reset; virtual;
  157.     procedure SetEditRect; virtual;
  158.     procedure UpdateButtonPosition; virtual;
  159.     procedure UpdateData(Sender: TObject); virtual;
  160.     function EffectiveReadOnly: Boolean; virtual;
  161.     procedure DoCloseUp(Accept: boolean); virtual;
  162.     procedure DoEnter; override;
  163.     function SkipInheritedPaint : boolean; virtual;
  165.     function GetRightIndent(Rect:TRect): Integer; virtual;
  166.     function GetTopIndent: Integer; virtual;
  168.     // Overridden Methods
  169.     procedure Change; override;
  170.     procedure CreateParams(var Params: TCreateParams); override;
  171.     procedure CreateWnd; override;
  172.     procedure KeyDown(var Key: Word; Shift: TShiftState); override;
  173.     procedure KeyPress(var Key: Char); override;
  174.     procedure Loaded; override;
  175.     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
  176.     procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
  177.     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  178.     procedure WndProc(var Message: TMessage); override;
  179.     procedure PaintToCanvas(Canvas: TCanvas; Rect: TRect; Highlight, GridPaint: Boolean;
  180.       Text: string); virtual; abstract;
  181.     procedure DrawFrame(Canvas: TCanvas); virtual;
  182.     function IsCustom: Boolean; virtual;
  183.     procedure InvalidateTransparentButton;
  184.     procedure DoMouseEnter; virtual;
  185.     procedure DoMouseLeave; virtual;
  187.     property Canvas: TControlCanvas read FCanvas;
  188.     property DataLink: TFieldDataLink read FDataLink;
  189.     property DropDownContainer: TWinControl read GetDropDownContainer;
  190.     property BtnParent: TWinControl read FBtnParent;
  191.   public
  192.     ComboPatch: Variant;
  193.     property Controller : TComponent read FController write SetController;
  195.     constructor Create(AOwner:tcomponent); override;
  196.     destructor Destroy; override;
  197.     function isTransparentEffective: boolean;
  199.     procedure SelectAll; virtual;
  200.     function IsDataBound: Boolean; virtual;
  201.     function IsDroppedDown: Boolean; virtual;
  202.     procedure CheckCancelMode; virtual;
  203.     procedure DrawInGridCell(ACanvas: TCanvas; Rect: TRect;
  204.       State: TGridDrawState); virtual;
  205.     procedure DropDown; virtual;
  207.     property AlignmentVertical: TfcAlignVertical read FAlignmentVertical write SetAlignmentVertical default fcavTop;
  208.     property AllowClearKey: boolean read FAllowClearKey write FAllowClearKey default False;
  209.     property Button: TfcDropDownButton read FButton;
  210.     property ButtonStyle: TfcComboButtonStyle read FButtonStyle write SetButtonStyle;
  211.     property ButtonGlyph: TBitmap read GetButtonGlyph write SetButtonGlyph stored IsCustom;
  212.     property ButtonWidth: integer read GetButtonWidth write SetButtonWidth default 0;
  213.     property DataField: string read GetDataField write SetDataField;
  214.     property DataSource: TDataSource read GetDataSource write SetDataSource;
  215.     property DropDownCount: Integer read FDropDownCount write SetDropDownCount;
  216.     property DropDownControl: TWinControl read GetDropDownControl;
  217.     property InfoPower: Boolean read FInfoPower;
  218.     property ItemCount: Integer read GetItemCount;
  219.     property ItemSize: TSize read GetItemSize;
  220.     property ReadOnly: Boolean read GetReadOnly write SetReadOnly;
  221.     property ShowButton: boolean read GetShowButton write SetShowButton default True;
  222.     property Style: TfcComboStyle read FStyle write SetStyle;
  223.     property OnCustomDlg: TNotifyevent read FOnCustomDlg write FOnCustomDlg;
  224.     property OnCloseUp: TfcComboCloseUpEvent read FOnCloseUp write FOnCloseUp;
  225.     property OnDropDown: TNotifyEvent read FOnDropDown write FOnDropDown;
  226.     property OnAfterDropDown: TNotifyEvent read FOnAfterDropDown write FOnAfterDropDown;
  228.     property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
  229.     property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  231.     property Frame: TfcEditFrame read FFrame write FFrame;
  232.     property ButtonEffects: TfcButtonEffects read FButtonEffects write FButtonEffects;
  233.     property DisableThemes : boolean read FDisableThemes write FDisableThemes default False;
  234.   end;
  236.   function fcGetControlInGrid(Form: TComponent; Grid: TComponent; FieldName: string): TfcCustomCombo;
  238. implementation
  240. //uses uxtheme, tmschema;
  241.   {$ifdef fcDelphi7Up}
  242.   uses Themes;
  243.   {$endif}
  244.   {$ifdef ThemeManager}
  245.   uses thememgr, themesrv, uxtheme;
  246.   {$endif}
  248. type
  249.   TCheatGridCast = class(TCustomGrid);
  251.   TBtnWinControl = class(TWinControl)
  252.   private
  253.     EditControl: TfcCustomCombo;
  254.     procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message WM_ERASEBkgnd;
  255.     procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  256.   public
  257.     constructor Create(AOwner: TComponent); override;
  258.   end;
  260. var fcCOMBOHOOK: HHOOK = 0;
  261.     WM_FC_CALLDROPDOWN: UINT = 0;
  263. {$ifndef fcDelphi4Up}
  264. function fcIsInwwObjectView(control: TWinControl):boolean;
  265. begin
  266.   result := False;
  267. end;
  268. function fcIsInwwObjectViewPaint(control: TWinControl):boolean;
  269. begin
  270.   result := False;
  271. end;
  272. {$endif}
  275. function fcGetControlInGrid(Form: TComponent; Grid: TComponent; FieldName: string): TfcCustomCombo;
  276. var i: Integer;
  277.     ControlType: TStrings;
  278.     AComponent: TComponent;
  279. begin
  280.   if not Boolean(fcGetOrdProp(Grid, 'ControlInfoInDataSet')) then
  281.     ControlType := TStrings(fcGetOrdProp(Grid, 'ControlType'))
  282.   else ControlType := TStrings(fcGetOrdProp(TDataSource(fcGetOrdProp(Grid, 'DataSource')).DataSet, 'ControlType'));
  284.   result := nil;
  286.   for i := 0 to ControlType.Count - 1 do
  287.   begin
  288.     if (fcGetToken(ControlType[i], ';', 0) = FieldName) then
  289.     begin
  290.       AComponent := Form.FindComponent(fcGetToken(ControlType[i], ';', 2));
  291.       if AComponent is TfcCustomCombo then
  292.          result := AComponent as TfcCustomCombo;
  293.       Break;
  294.     end;
  295.   end;
  296. end;
  298. { 9/28/99 - Change made 9/15/99 causes side effect of combo not clsing when dragging form's caption }
  299. { Logic changed }
  300. function fcComboHookProc(nCode: Integer; wParam: Integer; lParam: Integer): LResult; stdcall;
  301. var r1, r2: TRect;
  302.     CurHandle: HWND;
  303.     parentForm: TCustomForm;
  304. begin
  305.   result := CallNextHookEx(fcCOMBOHOOK, nCode, wParam, lParam);
  306.   with PMouseHookStruct(lParam)^ do
  307.   begin
  308.     case wParam of
  309.       WM_LBUTTONDOWN, WM_NCLBUTTONDOWN, WM_MOUSEMOVE, WM_LBUTTONUP:
  310.       begin
  311.         if (Screen.ActiveControl <> nil) and (Screen.ActiveControl is TfcCustomCombo) then
  312.           with (Screen.ActiveControl as TfcCustomCombo) do
  313.         begin
  314.           // Auto-closeup if clicked outside of drop-down area
  315.           // 9/15/99 - Make sure handle is for me }
  316.           if IsDroppedDown {and (hwnd = DropDownControl.Handle) }then
  317.           begin
  319.             GetWindowRect(DropDownControl.Handle, r1);
  320.             if (wParam = WM_LBUTTONDOWN) or (wParam = WM_NCLBUTTONDOWN) then
  321.             begin
  322.               GetWindowRect(Handle, r2);
  323. //              if (not PtInRect(r1, pt)) and (not PtInRect(r2, pt)) then CloseUp(False);
  324.               with r1 do
  325.               begin
  326.                 Right := Left + DropDownControl.Width;
  327.                 Bottom := Top + DropDownControl.Height;
  328.               end;
  329.               CurHandle := Handle;
  330.               if wParam = WM_LBUTTONDOWN then CurHandle := DropDownControl.Handle;
  332.               parentForm:= GetParentForm(Screen.ActiveControl);
  333.               if ((parentForm<>nil) and (parentForm.Handle=hwnd)) or
  334.                  (GetParent(hwnd)<>0) then
  335.               begin
  336.                  if not PtInRect(r1, pt) then with DropDownControl.ScreenToClient(Point(pt.x, pt.y)) do
  337.                    PostMessage(CurHandle, wParam, 0, MakeLParam(WORD(fcThisThat(x >= 0, x, -1)),WORD(fcThisThat(y >= 0, y, -1))));
  338.               end
  339.             end else if (hwnd = DropDownControl.handle) and
  340.               ((wParam = WM_MOUSEMOVE) or (wParam = WM_LBUTTONUP)) then
  341.             begin
  342.                if not PtInRect(r1, pt) then with DropDownControl.ScreenToClient(Point(pt.x, pt.y)) do
  343.                   PostMessage(DropDownControl.Handle, wParam, 0, MakeLParam(WORD(fcThisThat(x >= 0, x, -1)),WORD(fcThisThat(y >= 0, y, -1))));
  344.             end
  345.           end
  346.         end;
  347.       end;
  348.     end;
  349.   end;
  350. end;
  352. procedure TfcDropDownButton.CMDesignHitTest(var Message: TCMDesignHitTest);
  353. begin
  354.   inherited;
  355. //  Message.Result := 1;
  356. end;
  358. procedure TfcDropDownButton.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  359. begin
  360. //  TfcCustomCombo(Owner).FDroppingDown := True;
  361.   inherited;
  362. end;
  364. procedure TfcDropDownButton.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  365. begin
  366.   inherited;
  367.   TfcCustomCombo(parent.parent).InvalidateTransparentButton; { 1/28/2000 }
  368. //  TfcCustomCombo(Owner).FDroppingDown := False;
  369. end;
  371. procedure TfcDropDownButton.MouseMove(Shift: TShiftState; X, Y: Integer);
  372. begin
  373.   inherited;
  374.   if not PtInRect(Clientrect, Point(x, y)) then
  375.   begin
  376.     Perform(WM_LBUTTONUP, 0, MAKELPARAM(x, y));
  377.     ReleaseCapture;
  378.   end;
  379. end;
  382. procedure TfcDropDownButton.Paint;
  383. var R : TRect;
  384.     DefaultPaint:boolean;
  385. begin
  386.   if TfcCustomCombo(parent.parent).SkipUpdate then exit;
  388.   if (csPaintCopy in ControlState) and
  389.       not (csDesigning in ComponentState) and fcIsInGrid(parent.parent) then exit;
  391.   SetRect(R, 0, 0, ClientWidth, ClientHeight);
  393.    with TfcCustomCombo(Parent.Parent) do
  394.    begin
  395.       DefaultPaint:= True;
  396.       FMouseInButtonControl:= MouseInControl;
  398.       if (FButton.Glyph.Handle=0) or MouseInControl or
  399.          FFocused or fcisClass(Parent.classType, 'TwwDBGrid') then
  400.          if not (ButtonEffects.Transparent and (ButtonStyle=cbsDownArrow)) then
  401.            if not fcUseThemes(self.parent.parent) then
  402.            begin
  403.               DrawButton(self.Canvas, R, FState, ControlState, DefaultPaint);
  404.            end;
  405. {           if not ThemeServices.ThemesEnabled then
  406.            begin
  407.               DrawButton(self.Canvas, R, FState, ControlState, DefaultPaint);
  408.            end;
  409. }
  410.       if DefaultPaint then begin
  411.          Ellipsis:= ButtonStyle = cbsEllipsis;
  412.          inherited Paint;
  413.       end;
  415.       { Draw edges if Default Paint }
  416.       if MouseInControl or (not ButtonEffects.Flat) or //FButton.Flat) or
  417.          FFocused or fcisClass(Parent.classType, 'TwwDBGrid') then
  418.       begin
  419.          if not fcUseThemes(self.parent.parent) then
  420. //         if not ThemeServices.ThemesEnabled then
  421.          begin
  422.             if FState=bsDown then
  423.                DrawEdge(self.Canvas.Handle, R, EDGE_SUNKEN, BF_RECT)
  424.             else
  425.                DrawEdge(self.Canvas.Handle, R, EDGE_RAISED, BF_RECT)
  426.          end;
  427.       end
  428.    end
  430. end;
  432. type
  433. TfcComboButtonEffects = class(TfcButtonEffects)
  434.    protected
  435.       procedure Refresh; override;
  436. end;
  438. Procedure TfcComboButtonEffects.Refresh;
  439. begin
  440.    (Control as TfcCustomCombo).Updatebuttonglyph;
  441. end;
  443. constructor TfcCustomCombo.Create;
  444. begin
  445.   inherited Create(AOwner);
  447.   ControlStyle := ControlStyle + [csReplicatable];
  449.   FCanvas := TControlCanvas.Create;
  450.   FCanvas.Control := self;
  452.   FAlignmentVertical := fcavTop;
  453.   FButtonStyle := cbsDownArrow;
  454.   FDropDownCount := 8;
  456.   FBtnParent := TBtnWinControl.Create (Self);
  457.   with FBtnParent do
  458.   begin
  459.     ControlStyle := ControlStyle + [csReplicatable];
  460.     Width := fcMax(GetSystemMetrics(SM_CXVSCROLL) + 4, 17);
  461.     Height := 17;
  462.     Visible := True;
  463.     Parent := Self;
  464.   end;
  466.   FButton := TfcDropDownButton.Create(self);
  467.   with FButton do
  468.   begin
  469.     ControlStyle := ControlStyle + [csReplicatable];
  470.     SetBounds (0, 0, FBtnParent.Width, FBtnParent.Height);
  471.     Width := fcMax(GetSystemMetrics(SM_CXVSCROLL), 15);
  472.     Parent := FBtnParent;
  473.     OnMouseDown := BtnMouseDown;
  474.   end;
  476.   FDataLink := TFieldDataLink.Create;
  477.   FDataLink.Control := self;
  478.   FDataLink.OnDataChange := DataChange;
  479.   FDataLink.OnEditingChange := EditingChange;
  480.   FDataLink.OnUpdateData := UpdateData;
  482.   FSavedCursor := crIBeam;
  484.   FFrame:= TfcEditFrame.create(self);
  485.   FButtonEffects:= TfcComboButtonEffects.create(self, FButton);
  486. //  FButton.Glyph.Handle:= LoadComboGlyph;  { Do after button effects is assigned }
  487. //
  488. //  FButtonGlyph := TBitmap.Create;
  489. //  FButtonGlyph.OnChange := GlyphChanged;
  492. end;
  494. destructor TfcCustomCombo.Destroy;
  495. begin
  496.   if fcCOMBOHOOK <> 0 then
  497.   begin
  498.     UnhookWindowsHookEx(fcCOMBOHOOK);
  499.     fcCOMBOHOOK := 0;
  500.   end;
  501.   FCanvas.Free;
  502.   FPaintCanvas.Free;
  503.   FDataLink.Free;
  504.   FDataLink:= Nil;
  505.   FFrame.Free;
  506.   FButtonEffects.Free;
  507. //  FButtonGlyph.Free;
  508.   inherited Destroy;
  509. end;
  511. function TfcCustomCombo.isTransparentEffective: boolean;
  512. begin
  513.    result:= Frame.Transparent and Frame.IsFrameEffective
  514.      and not fcIsDesigning(self)
  515. end;
  517. function TfcCustomCombo.GetIconIndent: Integer;
  518. begin
  519.   result:= FBtnParent.Width;
  520. end;
  522. function TfcCustomCombo.GetIconLeft: Integer;
  523. begin
  524.   result:= FBtnParent.Left - 1;
  525. end;
  527. function TfcCustomCombo.GetShowButton: Boolean;
  528. begin
  529.   result:= FBtnParent.Visible;
  530. end;
  532. procedure TfcCustomCombo.SetShowButton(Value: Boolean);
  533. begin
  534.   if (FBtnParent.Visible <> Value) then
  535.   begin
  536.     FBtnParent.Visible := Value;
  537.     UpdateButtonPosition;
  538.     if not (csLoading in Owner.ComponentState) then SetEditRect;
  539.     Invalidate;
  540.   end
  541. end;
  543. procedure TfcCustomCombo.DrawButton(Canvas: TCanvas; R: TRect; State: TButtonState;
  544.     ControlState: TControlState; var DefaultPaint:boolean);
  545. var Transparent: boolean;
  546. begin
  547.    if ButtonStyle=cbsCustom then exit;
  549.    DefaultPaint:= False;
  550.    Transparent:=  FButton.Flat and
  551.       (not FMouseInButtonControl) and not (FFocused);
  552.    if ButtonStyle=cbsDownArrow then
  553.       fcDrawDropDownArrow(Canvas, R, State, Enabled, ControlState)
  554.    else begin
  555.       fcDrawEllipsis(Canvas, R, State, Enabled, Transparent,
  556.          ButtonEffects.Transparent {and ButtonEffects.Flat},
  557.          ControlState)
  558.    end
  559. end;
  561. procedure TfcCustomCombo.CreateParams(var Params: TCreateParams);
  562. begin
  563.   inherited CreateParams(Params);
  565.   with Params do
  566.     Style := Style and not (ES_AUTOVSCROLL or ES_WANTRETURN) or
  567.       WS_CLIPCHILDREN or ES_MULTILINE;
  569.   if IsTransparentEffective and Frame.CreateTransparent then
  570.   begin
  571.      Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
  572.   end;
  575. end;
  577. procedure TfcCustomCombo.CreateWnd;
  578. begin
  579.   inherited;
  580.   if (BorderStyle=bsNone) and AutoSize and
  581.      not (parent is TCustomGrid) then Frame.AdjustHeight;
  582.   SetEditRect;
  583.   if IsTransparentEffective then
  584.   begin
  585.     fcDisableParentClipping(Parent);
  586.   end
  587. end;
  589. function TfcCustomCombo.GetEditRect: TRect;
  590. begin
  591.   result.Bottom := ClientHeight + 1;
  592.   if ShowButton then result.Right := FBtnParent.Left - 2   //10/4/2001 - Changed from -1 to -2
  593.   else result.Right := ClientWidth - 2;
  595.   { RSW - 3/27/99 }
  596.   Result.Top := GetTopIndent;
  597.   if fcIsInwwObjectView(Self) then
  598.   begin
  599.     Result.Top:= 1;
  600.     Result.Left:=1;
  601.   end
  602.   else if (Frame.IsFrameEffective) then
  603.   begin
  604.      Frame.GetEditRectForFrame(Result);
  605.   end
  606.   else if (BorderStyle = bsNone) and fcIsInwwGrid(Self) then begin
  607.      Result.Left := 2;
  608.   end
  609.   else if (BorderStyle = bsNone) then
  610.   begin
  611.      Result.Left := 1;
  612.   end
  613.   else begin
  614.      Result.Left := 0;
  615.   end;
  616. //  if not Frame.isFrameEffective then { 11/22/99 - Don't do for frame }
  617.      inc(result.Left, GetLeftIndent);
  618. end;
  620. procedure TfcCustomCombo.SetEditRect;
  621. var r: TRect;
  622. begin
  623.   Canvas.font:= Font; { 4/14/99 }
  624.   r := GetEditRect;
  625.   SendMessage(Handle, EM_SETRECTNP, 0, LPARAM(@r));
  626. end;
  628. procedure TfcCustomCombo.UpdateButtonPosition;
  629. var offset: integer;
  630. begin
  631.   if Frame.IsFrameEffective then
  632.   begin
  633.      offset:= 2
  634.   end
  635.   else offset:= 0;
  636.   if (not NewStyleControls) or (BorderStyle = bsNone) or (not Ctl3d) then
  637.      FBtnParent.SetBounds (Width - FButton.Width - offset, offset, FButton.Width, ClientHeight-offset*2)
  638.   else
  639.      FBtnParent.SetBounds (Width - FButton.Width - 4, offset, FButton.Width, ClientHeight-offset);
  641. //  if (not NewStyleControls) or (BorderStyle = bsNone) or (not Ctl3d) then
  642. //    FBtnParent.SetBounds(Width - FButton.Width, 0, FButton.Width, ClientHeight)
  643. //  else
  644. //    FBtnParent.SetBounds(Width - FButton.Width - 4, 0, FButton.Width, ClientHeight);
  646.   if not FBtnParent.Visible and (csDesigning in ComponentState) then
  647.     FBtnParent.Left := BoundsRect.Right;
  649.   if BorderStyle = bsNone then
  650.   begin
  651.     FButton.Top := -1;
  652.     FButton.Height := FBtnParent.Height+1;
  653.   end else begin
  654.     FButton.Top:= 0;
  655.     FButton.Height := FBtnParent.Height;
  656.   end;
  658.   SetEditRect;
  659. end;
  661. function TfcCustomCombo.IsDataBound: Boolean;
  662. begin
  663.   result := (DataSource <> nil) and (DataSource.DataSet <> nil) and (DataField <> '');
  664. end;
  666. procedure TfcCustomCombo.CheckCancelMode;
  667. var p, p2: TPoint;
  668.     wndRect: TRect;
  669. begin
  670.   GetCursorPos(p);
  671.   p2 := DropDownControl.ClientToScreen(Point(0, 0));
  672.   GetWindowRect(Handle, wndRect);
  673.   with p2 do
  674.   begin
  675.     if (not PtInRect(Rect(x, y, x + DropDownControl.Width, y + DropDownControl.Height), p)) and
  676.        (not PtInRect(wndRect, p)) then CloseUp(False);
  677.   end;
  678. end;
  680. procedure TfcCustomCombo.DoCloseUp(Accept: boolean);
  681. begin
  682.    if Assigned(FOnCloseUp) then FOnCloseUp(self, Accept);
  683. end;
  685. procedure TfcCustomCombo.CloseUp(Accept: boolean);
  686. //var i: Integer;
  687. begin
  688. //  i := GetCapture; { RSW }
  689. //  if Accept then Modified := True; { RSW - Rely on parent class to set modified as we don't really know }
  690. //  if i <> 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
  691.   { RSW - comment out as this causes problem with button not getting mouse up }
  692.   try
  693.     SelectAll;
  695.     if IsDroppedDown then
  696.     begin
  697.       SetWindowPos(DropDownContainer.Handle, 0, 0, 0, 0, 0, SWP_NOZORDER or
  698.         SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_HIDEWINDOW);
  699.       DropDownContainer.Visible := False;
  700.       Invalidate;
  701.       if DropDownControl.Focused then SetFocus;
  702.      { RSW - Let parent class call CloseUP so that its fired after things are updated (i.e. modified flag )}
  703. //    if Assigned(FOnCloseUp) then FOnCloseUp(self, Accept);
  704.     end;
  705.     if Style = csDropDownList then HideCaret;
  706.   finally
  707.     if fcCOMBOHOOK <> 0 then
  708.     begin
  709.       UnhookWindowsHookEx(fcCOMBOHOOK);
  710.       fcCOMBOHOOK := 0;
  711.     end;
  712.   end;
  713. end;
  715. procedure TfcCustomCombo.DataChange(Sender: TObject);
  716. begin
  717.   if FDataLink.Field <> nil then
  718.   begin
  719.     if not (csDesigning in ComponentState) then
  720.     begin
  721.       if (FDataLink.Field.DataType = ftString) and (MaxLength = 0) then
  722.         MaxLength := FDataLink.Field.Size;
  723.     end;
  724.     if Focused and FDataLink.CanModify then
  725.       Text := FDataLink.Field.Text
  726.     else begin
  727.       Text := FDataLink.Field.DisplayText;
  728. { 7/31/00 - Remove setting modified as this oode sets it to true even when the control does
  729.  not have focus }
  730. //      if FDataLink.Editing then
  731. //        Modified := True;
  732.     end;
  733.   end else
  734.   begin
  735.     if csDesigning in ComponentState then
  736.       Text := Name else
  737.       Text := '';
  738.   end;
  739. end;
  741. procedure TfcCustomCombo.EditingChange(Sender: TObject);
  742. begin
  743.   inherited ReadOnly := not FDataLink.Editing;  // RSW use inherited ReadOnly
  744. end;
  746. procedure TfcCustomCombo.UpdateData(Sender: TObject);
  747. begin
  748.   if FDataLink.Field.Text <> Text then
  749.     FDataLink.Field.Text := Text;
  750. end;
  752. procedure TfcCustomCombo.DrawInGridCell(ACanvas: TCanvas; Rect: TRect;
  753.   State: TGridDrawState);
  754. begin
  755. end;
  757. procedure TfcCustomCombo.DoDropDown;
  758. begin
  759.   if Assigned(FOnDropDown) then FOnDropDown(self);
  760. end;
  762. procedure TfcCustomCombo.DoAfterDropDown;
  763. begin
  764.   if Assigned(FOnAfterDropDown) then FOnAfterDropDown(self);
  765. end;
  767. procedure TfcCustomCombo.DropDown;
  768. var p: TPoint;
  769.     NewControlSize: TSize;
  770.     Border: Integer;
  771. begin
  772.   if fcCOMBOHOOK = 0 then fcCOMBOHOOK := SetWindowsHookEx(WH_MOUSE, @fcComboHookProc, HINSTANCE, GetCurrentThreadID);
  773.   DoDropDown;
  775.   p := Parent.ClientToScreen(Point(Left, Top));
  777.   // 2/25/99 - Handle Grid Paint bug when closing up in grid
  778.   if fcIsInwwGrid(Self) then inc(p.y);
  780.   // Initialize size of DropDownControl
  781.   Border := 2 * GetSystemMetrics(SM_CYBORDER);
  782.   NewControlSize := ItemSize;
  783.   if ItemCount > 0 then NewControlSize.cy :=
  784.     fcMin(DropDownCount, ItemCount) * NewControlSize.cy
  785.   else NewControlSize.cy := Height;
  786.   inc(NewControlSize.cy, Border);
  787.   DropDownContainer.Height := NewControlSize.cy;
  789.   // 2/8/01 - Color combo too wide before
  790.   if NewControlSize.cx=0 then
  791.      NewControlSize.cx:= Width
  792.   else
  793.      NewControlSize.cx := fcMax(Width, NewControlSize.cx + Border + 2 * GetSystemMetrics(SM_CXVSCROLL));
  795.   // Adjust if near right edge of screen
  796.   if p.x > Screen.Width - NewControlSize.cx then p.x := (p.x + Width) - NewControlSize.cx;
  797.   // Adjust if near bottom of screen
  798.   if p.y + Height + NewControlSize.cy > Screen.Height{GetSystemMetrics(SM_CYFULLSCREEN)} then p.y := (p.y - Height) - NewControlSize.cy;
  800.   TEdit(DropDownContainer).Color := TEdit(DropDownControl).Color;
  802.   { 6/22/99 - Use HWND_TOPMOST only for formstyle=fsStayOnTop }
  803.   if TForm(GetParentForm(self)).formstyle = fsStayOnTop then
  804.     SetWindowPos(DropDownContainer.Handle, HWND_TOPMOST, p.x, p.y + Height, NewControlSize.cx, NewControlSize.cy,
  805.       SWP_NOACTIVATE or SWP_SHOWWINDOW)
  806.   else
  807.     SetWindowPos(DropDownContainer.Handle, HWND_TOP, p.x, p.y + Height, NewControlSize.cx, NewControlSize.cy,
  808.       SWP_NOACTIVATE or SWP_SHOWWINDOW);
  809.   DoAfterDropDown;
  810.   DropDownContainer.Visible := True;
  811.   DropDownControl.Update;
  812.   //2/25/99 - Let inherited classes do the selectall.
  813.   //  SelectAll;
  814.   ShowCaret;
  815. end;
  817. { return true if allowed to type text into control }
  818. function TfcCustomCombo.Editable: boolean;
  819. begin
  820.   result := true;
  821. //  Result := IsDroppedDown;
  822. end;
  824. procedure TfcCustomCombo.HandleDropDownKeys(var Key: Word; Shift: TShiftState);
  825. begin
  826.   case Key of
  827.     VK_F4: // Support F4 for dropping-down
  828.       if not (ssAlt in Shift) then begin
  829.         if isDroppedDown then CloseUp(True)
  830.         else DropDown;
  831.         Key := 0;
  832.       end;
  833.     VK_UP, VK_DOWN:
  834.       if ssAlt in Shift then
  835.       begin
  836.         if IsDroppedDown then CloseUp(True)
  837.         else DropDown;
  838.         Key := 0;
  839.       end;
  840.     VK_RETURN, VK_ESCAPE:
  841.       if IsDroppedDown and not (ssAlt in Shift) then
  842.       begin
  843.         CloseUp(Key = VK_RETURN);
  844.         Key := 0;
  845.       end
  846.   end;
  847. end;
  849. procedure TfcCustomCombo.Change;
  850. begin
  851.   if ((DataLink<>Nil) and (FDataLink.Field=Nil)) then Modified:= True;
  852. {  if (DataLink<>Nil) and
  853.      ((FDataLink.Field=Nil) or
  854.       (DataSource.dataset.state in [dsEdit, dsInsert])) then
  855.   begin
  856.      FDataLink.Modified;
  857.      Modified:= True;
  858.   end;}
  860.   inherited;
  861. end;
  863. function TfcCustomCombo.EditCanModify: Boolean;
  864. begin
  865.   result:= False;
  866.   if EffectiveReadOnly then exit; { RSW - otherwise CloseUP still goes into edit mode}
  868.   // Respect autoedit
  869.   if (DataSource<>Nil) and (not DataSource.autoEdit) then
  870.      if (not (DataSource.state in [dsEdit, dsInsert])) then exit;
  872.   if FDatalink.Field <> nil then result := FDataLink.Edit
  873.   else result := True;
  874. end;
  876. procedure TfcCustomCombo.HandleGridKeys(var Key: Word; Shift: TShiftState);
  877. type
  878.   TSelection = record
  879.     StartPos, EndPos: Integer;
  880.   end;
  882. var SkipGridCode: boolean;
  884.   procedure SendToObjectView;
  885.   begin
  886.      TCheatGridCast(Parent).KeyDown(Key, Shift);
  887.   end;
  889.   procedure SendToParent;
  890.   begin
  891.     Parent.setFocus;
  892.     if Parent.focused then
  893.        SendMessage(Parent.handle,wm_keydown,key,0);
  894.     Key := 0;
  895.   end;
  897.   procedure ParentEvent;
  898.   var GridKeyDown: TKeyEvent;
  899.   begin
  900.     { 1/25/99 - RSW Prevent grid's OnKeyDown from firing twice when encounter tab or cr }
  901.     if (Screen.ActiveControl<>self) and ((key=13) or (key=9)) then exit;
  903.     GridKeyDown := TEdit(Parent).OnKeyDown;
  904.     if Assigned(GridKeyDown) then GridKeyDown(Parent, Key, Shift);
  905.   end;
  907.   function Alt: Boolean;
  908.   begin
  909.     Result := ssAlt in Shift;
  910.   end;
  912.   function Ctrl: Boolean;
  913.   begin
  914.     Result := ssCtrl in Shift;
  915.   end;
  917. {  procedure Deselect;
  918.   begin
  919.     Exit;
  920.     SendMessage(Handle, EM_SETSEL, -1, 0);
  921.     selLength := 0;
  922.   end;}
  924.   function ForwardMovement: Boolean;
  925.   begin
  926.      Result := (dgAlwaysShowEditor in fcGetGridOptions(self));
  927.   end;
  929.   function Selection: TSelection;
  930.   begin
  931.     SendMessage(Handle, EM_GETSEL, Longint(@Result.StartPos), Longint(@Result.EndPos));
  932.   end;
  934.   function LeftSide: Boolean;
  935.   begin
  936. //    result := ((SelStart = 0) and (SelLength <> GetTextLen)) or (Style = csDropDownList)
  937.     with Selection do
  938.       Result := (StartPos = 0) and
  939.       ((EndPos = 0) or (EndPos = GetTextLen));
  940.   end;
  942.   function RightSide: Boolean;
  943.   begin
  944.     with Selection do
  945.       Result := ((StartPos = 0) or (EndPos = StartPos)) and
  946.         (EndPos = GetTextLen);
  947.    end;
  949.   procedure Deselect; {!!! Don't do for Treecombo}
  950.   begin
  951.     SendMessage(Handle, EM_SETSEL, -1, 0);
  952.     selLength:= 0;
  953.   end;
  955. begin
  956.   if (Key in [vk_next, vk_prior, vk_up, vk_down, vk_home, vk_end, vk_right, vk_left]) and
  957.      (IsDroppedDown) then skipGridCode:= True
  958.   else SkipGridCode:= False;
  960.   if (fcIsInwwGrid(Self)) and (not SkipGridCode) then begin
  961.     case Key of
  962.       VK_ESCAPE: if not Modified then SendToParent;
  963.       VK_NEXT, VK_PRIOR, VK_UP, VK_DOWN: if (not Alt) then SendToParent;
  964.        VK_LEFT: if fcIsInwwObjectView(self) then
  965.                 begin
  966. //                   if Ctrl or LeftSide then SendToObjectView
  967.                 end
  968.                 else if ForwardMovement and (Ctrl or LeftSide) then SendToParent;
  969.        VK_RIGHT: if fcIsInwwObjectView(self) then
  970.                  begin
  971. //                    if Ctrl or RightSide then SendToObjectView
  972.                  end
  973.                  else if ForwardMovement and (Ctrl or RightSide) then SendToParent;
  974. //      VK_LEFT: if fcIsInwwObjectView(self) then SendToObjectView
  975. //                else if ForwardMovement and (Ctrl or LeftSide) then SendToParent;
  976. //      VK_RIGHT: if fcIsInwwObjectView(self) then SendToObjectView
  977. //                 else if ForwardMovement and (Ctrl or RightSide) then SendToParent;
  978.       VK_HOME: if ForwardMovement and (Ctrl or LeftSide) then SendToParent;
  979.       //((SelStart = 0) and (SelLength <> GetTextLen)) or (Style = csDropDownList) then SendToParent;
  980.       VK_END: if ForwardMovement and (Ctrl or RightSide) then SendToParent;
  981.       //if (SelStart = GetTextLen) or (Style = csDropDownList) then SendToParent;
  982.       VK_INSERT: if not (ssShift in Shift) then SendToParent;
  983.       VK_DELETE: if Ctrl then SendToParent;
  984.       VK_F2:
  985.          begin
  986.            ParentEvent;
  987.            if Key = VK_F2 then
  988.            begin
  989.              if Editable and (Style=csDropDown) then Deselect;
  990.              Key:=0;
  991.            end;
  992.          end;
  993.     end;
  994.     if not (Editable and (Style=csDropDown)) and
  995.        (Key in [VK_LEFT, VK_RIGHT, VK_HOME, VK_END]) then
  996.        if not fcIsInwwObjectView(self) then SendToParent;
  998.     if Key <> 0 then ParentEvent;
  999.   end;
  1000.   if Key = 0 then Exit;
  1002.   if (ssCtrl in Shift) then
  1003.   begin
  1004.     inherited KeyDown(Key, Shift);
  1005.      Exit;
  1006.   end;
  1008.   if fcIsInwwGrid(Self) and (Key = VK_TAB) then
  1009.   begin
  1010.     inherited KeyDown(Key, Shift);
  1011.     Exit;
  1012.   end;
  1014.   inherited KeyDown(Key, Shift);
  1015. end;
  1017. procedure TfcCustomCombo.KeyDown(var Key: Word; Shift: TShiftState);
  1018. begin
  1019.   if GetKeyState(VK_MENU) < 0 then Include(Shift, ssAlt);
  1021.   if modified and (not isDroppedDown) and (key=VK_ESCAPE) then
  1022.   begin
  1023.     Reset;
  1024.     Key := 0;
  1025.   end;
  1027.   HandleDropDownKeys(Key, Shift);
  1028.   HandleGridKeys(Key, Shift);
  1030.   inherited KeyDown(Key, Shift);
  1032.   if (Key = VK_DELETE) or ((Key = VK_INSERT) and (ssShift in Shift)) then
  1033.     if not EditCanModify then
  1034.        key:= 0;
  1035. //    FDataLink.Edit;
  1037. end;
  1040. procedure TfcCustomCombo.KeyPress(var Key: Char);
  1041. begin
  1042.   inherited;
  1043.   if EffectiveReadOnly then
  1044.   begin
  1045.      Key:= #0;
  1046.      exit;
  1047.   end;{ RSW }
  1049.   case Key of
  1050.     ^H, ^V, ^X, #32..#255:
  1051. //      if (Style = csDropDown) or IsDroppedDown then
  1052. //      if (Style = csDropDown) or isDroppedDown then
  1053.       if Editable then
  1054.       begin
  1055.          if (not IsDroppedDown) then
  1056.             if not EditCanModify then key:= #0
  1057.             //FDataLink.Edit
  1058.       end
  1059.       else Key := #0;
  1060.     #27:
  1061.       begin
  1062. //        Reset;  //12/11/1998 - Moved to OnKeyDown event.
  1063.         Key := #0;
  1064.       end;
  1065.     #9, #13: if fcIsInwwGrid(Self) then Key:= #0;
  1066.                                                          { 4/28/99 - Ignore tab and cr                            }
  1067.                                                          { cr needs to be eaten so that parentgrid is not confused }
  1068.                                                          { when using dgEnterToTab }
  1069.   end;
  1070. end;
  1072. function TfcCustomCombo.GetClientEditRect: TRect;
  1073. begin
  1074.   result := ClientRect;
  1075.   // 9/28/01 - Fix combo in grid problem where button area should still paint text
  1076. //  if not fcIsInwwObjectViewPaint(self) and ShowButton then
  1077.   if not fcIsInwwGridPaint(self) and ShowButton then
  1078.      result.Right := FBtnParent.Left;
  1079. end;
  1081. function TfcCustomCombo.GetDataField;
  1082. begin
  1083.   result := FDataLink.FieldName;
  1084. end;
  1086. function TfcCustomCombo.GetDataSource: TDataSource;
  1087. begin
  1088.   if FDataLink<>nil then
  1089.      result := FDataLink.DataSource
  1090.   else
  1091.     result:= nil;
  1092. end;
  1094. function TfcCustomCombo.EffectiveReadOnly: Boolean;
  1095. begin
  1096.   result:= FReadOnly or FDataLink.ReadOnly or {(inherited ReadOnly) or}
  1097.            ((FDataLink.Field<>nil) and (not FDataLink.Field.CanModify));
  1098. end;
  1100. function TfcCustomCombo.GetReadOnly: Boolean;
  1101. begin
  1102.   result:= FReadOnly;
  1103. //  if IsDataBound then result := FDataLink.ReadOnly else result := inherited ReadOnly;
  1104. end;
  1106. procedure TfcCustomCombo.SetButtonStyle(Value: TfcComboButtonStyle);
  1107. begin
  1108.   if Value <> FButtonStyle then
  1109.   begin
  1110.     FButtonStyle := Value;
  1111.     if HandleAllocated then RecreateWnd;
  1112.     FButton.Invalidate;
  1113.   end
  1114. end;
  1116. procedure TfcCustomCombo.SetDataField(Value: string);
  1117. begin
  1118.   FDataLink.FieldName := Value;
  1119. end;
  1121. procedure TfcCustomCombo.SetDataSource(Value: TDataSource);
  1122. begin
  1123.   FDataLink.DataSource := Value;
  1124.   if Value <> nil then Value.FreeNotification(self);
  1125. end;
  1127. procedure TfcCustomCombo.SetReadOnly(Value: Boolean);
  1128. begin
  1129. //  FDataLink.ReadOnly:= Value;
  1130.   FReadOnly:= Value;
  1131. {  if Style <> csDropDownList then }inherited ReadOnly := Value;
  1132. //  if IsDataBound then FDataLink.ReadOnly := Value;
  1133. //{  if Style <> csDropDownList then }inherited ReadOnly := Value;
  1134. end;
  1136. procedure TfcCustomcombo.SetStyle(Value: TfcComboStyle);
  1137. begin
  1138.   if FStyle <> Value then
  1139.   begin
  1140.     FStyle := Value;
  1141.     if HandleAllocated and not (csLoading in ComponentState) then
  1142.     begin
  1143.       if FStyle = csDropDownList then
  1144.       begin
  1145.         inherited ReadOnly := True;  { Should be inherited Readonly, but Hidecaret already does this }
  1146.         HideCaret;
  1147.       end else begin
  1148.         ShowCaret;
  1149.       end;
  1150.     end;
  1151.   end;
  1152. end;
  1154. function TfcCustomCombo.IsDroppedDown: boolean;
  1155. begin
  1156.   result := False;
  1157. end;
  1159. procedure TfcCustomCombo.Loaded;
  1160. begin
  1161.   if FButtonWidth=0 then
  1162.      FButton.Width := fcMax(GetSystemMetrics(SM_CXVSCROLL), 15);
  1163.   if (Parent <> nil) or (Owner <> nil) then
  1164.     UpdateButtonPosition;
  1165.   inherited Loaded;
  1166. end;
  1168. procedure TfcCustomCombo.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1169. begin
  1170.   inherited;
  1171. //  InvalidateTransparentButton;
  1173.   if Style = csDropDownList then
  1174.   begin
  1175.     if not IsDroppedDown and (Button = mbLeft) then begin
  1176.       PostMessage(Handle, WM_FC_CALLDROPDOWN, 0, 0);
  1177.       ReleaseCapture; { RSW - Capture causes cursor problems }
  1178.     end
  1179.     else CloseUp(True);
  1180.   end;
  1181. end;
  1183. procedure TfcCustomCombo.MouseMove(Shift: TShiftState; X, Y: Integer);
  1184. begin
  1185.   inherited;
  1186.   FIgnoreCursorChange := True;
  1187.   if Style = csDropDownList then {Screen.}Cursor := crArrow else Cursor := FSavedCursor;   // Change component cursor, not screen cursor. -ksw (2/12/99)
  1188.   FIgnoreCursorChange := False;
  1189. end;
  1191. procedure TfcCustomCombo.Notification(AComponent: TComponent; Operation: TOperation);
  1192. begin
  1193.   inherited;
  1194.   if (Operation = opRemove) and (AComponent = DataSource) then DataSource := nil;
  1195.   if (Operation = opRemove) and (AComponent = FController) then FController:= nil;
  1196. end;
  1198. procedure TfcCustomCombo.WndProc(var Message: TMessage);
  1199. begin
  1200.   if Message.Msg = WM_FC_CALLDROPDOWN then
  1201.     DropDown;
  1202.   case Message.Msg of
  1203.     WM_PASTE, WM_CUT, WM_KEYFIRST..WM_KEYLAST:
  1204.       if fcIsInwwGrid(self) then Change;
  1205.     WM_NCLBUTTONDOWN: CloseUp(True);
  1206.   end;
  1208.   inherited;
  1209. end;
  1211. procedure TfcCustomCombo.CMCancelMode(var Message: TCMCancelMode);
  1212. begin
  1213. //  if (Message.Sender <> Self) and (Message.Sender <> DropDownControl) then
  1214. //    CloseUp(False);
  1215. end;
  1217. procedure TfcCustomCombo.CMCursorChanged(var Message: TMessage);
  1218. begin
  1219.   inherited;
  1220.   if not FIgnoreCursorChange then FSavedCursor := Cursor;
  1221. end;
  1223. procedure TfcCustomCombo.CMEnter(var Message: TCMEnter);
  1224. var exStyle, origStyle: longint;
  1225. begin
  1226.   if AutoSelect and not (csLButtonDown in ControlState) then SelectAll;
  1227.   inherited;
  1229.   SetFocused(True);
  1231.   if ButtonEffects.Flat then FButton.invalidate;
  1232.   
  1233.   if IsTransparentEffective then begin
  1234.      Frame.CreateTransparent:= False;
  1235.      OrigStyle:= Windows.GetWindowLong(handle, GWL_EXSTYLE);
  1236.      exStyle:= OrigStyle and not WS_EX_TRANSPARENT;
  1237.      Windows.SetWindowLong(handle, GWL_EXSTYLE, exStyle);
  1238.      invalidate;
  1239.   end;
  1241.   if Frame.enabled then invalidate; { See if this causes any flicker }
  1242.   
  1243. end;
  1245. procedure TfcCustomCombo.CMEnabledChanged(var Message: TMessage);
  1246. begin
  1247.   inherited;
  1248.   FButton.Enabled := Enabled;
  1249. end;
  1251. procedure TfcCustomCombo.SetFocused(Value: Boolean);
  1252. begin
  1253.   if FFocused <> Value then
  1254.   begin
  1255.     FFocused := Value;
  1256. //    if (FAlignment <> taLeftJustify) then Invalidate;
  1257.     if FDataLink.Field<>Nil then begin
  1258.        FDataLink.Reset;
  1259.     end
  1260.   end;
  1261. end;
  1263. procedure TfcCustomCombo.CMExit(var Message: TCMExit);
  1264. var exStyle, origStyle: longint;
  1265. begin
  1266.   try
  1267.     FDataLink.UpdateRecord;
  1268.     SetFocused(False);
  1270.     if ButtonEffects.Flat then FButton.invalidate;
  1272.     if IsTransparentEffective then begin
  1273. //       Frame.CreateTransparent:= True;
  1274. //       RecreateWnd;
  1275.        { Try not recreating window by testing following code instead of IP2000 code }
  1276.        OrigStyle:= Windows.GetWindowLong(handle, GWL_EXSTYLE);
  1277.        exStyle:= OrigStyle or WS_EX_TRANSPARENT;
  1278.        Windows.SetWindowLong(handle, GWL_EXSTYLE, exStyle);
  1280.        SetEditRect;
  1281.        Frame.RefreshTransparentText(True);
  1282.     end;
  1283.     if Frame.enabled then invalidate;
  1285.   except
  1286.     SelectAll;
  1287.     SetFocus;
  1288.     raise;
  1289.   end;
  1290.   DoExit;
  1291. end;
  1293. //3/23/1999 - PYW - Need to automatically set datasource when dropping control
  1294. //                  in a TDBCtrlGrid.
  1295. procedure TfcCustomCombo.CMGetDataLink(var Message: TMessage);
  1296. begin
  1297.   Message.Result := Integer(FDataLink);
  1298. end;
  1300. procedure TfcCustomCombo.CMTextChanged(var Message: TMessage);
  1301. begin
  1302.   if IsTransparentEffective and not FFocused then
  1303.      Frame.RefreshTransparentText;
  1304.   inherited;
  1305.   if fcIsInwwGrid(self) then Change;
  1306. end;
  1308. procedure TfcCustomCombo.CMFontChanged(var Message: TMessage);
  1309. begin
  1310.   inherited;
  1311.   // This is needed only when changing font in the middle of editing
  1312.   if not (csLoading in Owner.ComponentState) then SetEditRect;
  1313. end;
  1315. procedure TfcCustomCombo.CNKeyDown(var Message: TWMKeyDown);
  1316. var ShiftState: TShiftState;
  1317. begin
  1318.   if not (csDesigning in ComponentState) then
  1319.     with Message do
  1320.     begin
  1321.        if (charcode = VK_TAB) and IsDroppedDown then Closeup(True)
  1322.        else if((charcode=vk_return) or (charcode=vk_escape)) then begin
  1323.           if IsDroppedDown then exit
  1324.           else if (not modified) or (charcode = vk_return) then { 6/6/99 - Close this modal form }
  1325.              SendMessage(GetParent(Handle), TMessage(Message).Msg,
  1326.              TMessage(Message).wParam, TMessage(Message).lParam);
  1327.        end
  1328.     end;
  1330.   if not (csDesigning in ComponentState) and fcIsInwwGrid(self) then
  1331.   begin
  1332.     with Message do
  1333.     begin
  1335.       ShiftState := KeyDataToShiftState(KeyData);
  1337.       if (charcode = VK_TAB) or (charcode = VK_RETURN) then begin
  1338.          if parent is TCustomGrid then begin
  1339.            if (charcode <> VK_TAB) or (goTabs in TCheatGridCast(parent).Options) then {7/3/97}
  1340.            begin
  1341.               parent.setFocus;
  1342.               if parent.focused then { Bug fix - Abort in validation prevents focus change }
  1343.                 TCheatGridCast(parent).KeyDown(charcode, shiftState);
  1344.               exit;
  1345.            end
  1346.          end
  1347.       end;
  1349.       if (CharCode = VK_TAB) or (CharCode = VK_RETURN) then
  1350.       begin
  1351.         if fcIsInwwGrid(self) then
  1352.         begin
  1353.           if (CharCode <> VK_TAB) or (dgTabs in (fcGetGridOptions(self))) then
  1354.           begin
  1355.             Parent.SetFocus;
  1356.             if Parent.Focused then
  1357.               SendMessage(Parent.Handle, WM_KEYDOWN, CharCode, 0);
  1358.             Exit;
  1359.           end
  1360.         end
  1361.       end
  1362.     end
  1363.   end;
  1365.   inherited;
  1366. end;
  1368. function TfcCustomCombo.SkipInheritedPaint : boolean;
  1369. begin
  1370.   result := False;
  1371. end;
  1373. procedure TfcCustomCombo.WMPaint(var Message: TWMPaint);
  1374. var r: TRect;
  1375.     DC: HDC;
  1376.     PS: TPaintStruct;
  1378.   procedure CanvasNeeded;
  1379.   begin
  1380.     if FCanvas = nil then
  1381.     begin
  1382.       FCanvas := TControlCanvas.Create;
  1383.       FCanvas.Control := Self;
  1384.     end;
  1385.   end;
  1387. begin
  1388.   if ((Frame.enabled or SkipInheritedPaint) and (not FFocused)) or
  1389.      (csPaintCopy in ControlState) then
  1390.   begin
  1391.      // 6/28/99 - Support unbound csPaintCopy }
  1392.       { if not editable with focus, need to do drawing to show proper focus }
  1393.       try
  1394.          if FPaintCanvas = nil then
  1395.          begin
  1396.             FPaintCanvas := TControlCanvas.Create;
  1397.             FPaintCanvas.Control := Self;
  1398.          end;
  1399.          CanvasNeeded;
  1401.          if Message.DC = 0 then DC := BeginPaint(Handle, PS)
  1402.          else DC:= Message.DC;
  1403.          FPaintCanvas.Handle := DC;
  1405.          if FDataLink.Field=nil then
  1406.             PaintToCanvas(FPaintCanvas, GetClientEditRect, True, False,
  1407.                Text)
  1408.          else
  1409.             PaintToCanvas(FPaintCanvas, GetClientEditRect, True, False,
  1410.                FDataLink.Field.asString);
  1412.         if Frame.IsFrameEffective then
  1413.         begin
  1414.           DrawFrame(FPaintCanvas);
  1415.         end;
  1417.       finally
  1418.          FPaintCanvas.Handle := 0;
  1419.          if Message.DC = 0 then EndPaint(Handle, PS);
  1420.       end;
  1421.   end
  1422.   else begin
  1423.      inherited;
  1424.      Paint;
  1426.      if Frame.IsFrameEffective then
  1427.      begin
  1428.        CanvasNeeded;
  1429.        FCanvas.Handle:= message.DC;
  1430.        DrawFrame(FCanvas);
  1431.        FCanvas.Handle:= 0;
  1432.      end;
  1433.   end;
  1435.   r := FBtnParent.ClientRect;
  1436.   InvalidateRect(FBtnParent.Handle, @r, False);
  1437. end;
  1439. procedure TfcCustomCombo.WMSize(var Message: TWMSize);
  1440. begin
  1441.   inherited;
  1442.   UpdateButtonPosition;
  1443.   SetEditRect;
  1444. end;
  1446. procedure TfcCustomCombo.WMKillFocus(var Message: TWMKillFocus);
  1447. begin
  1448.   inherited;
  1449.   if (DropdownContainer<>nil) and
  1450.      DropDownContainer.HandleAllocated and (Message.FocusedWnd <> DropDownContainer.Handle) then
  1451.     CloseUp(True);
  1452.   if Style = csDropDownList then Invalidate;
  1453. end;
  1455. procedure TfcCustomCombo.WMSetFocus(var Message: TWMSetFocus);
  1456. begin
  1457.   inherited;
  1458.   if Style = csDropDownList then
  1459.   begin
  1460.     Invalidate;
  1461.     ShowCaret;
  1462.     HideCaret;
  1463.   end;
  1464. end;
  1466. procedure TfcCustomCombo.SetModified(Value: Boolean);
  1467. begin
  1468.   if Value then begin
  1469.      if (DataSource<>nil) and (DataSource.State in [dsEdit, dsInsert]) then
  1470.         FDatalink.modified;
  1471.   end;
  1472.   inherited Modified := Value;
  1473. end;
  1475. procedure TfcCustomCombo.BtnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  1476.   X, Y: Integer);
  1477. var parentForm: TCustomForm;
  1478. begin
  1479.   if Button <> mbLeft then Exit;
  1480.   if IsDroppedDown then CloseUp(True) { 2/11/99 - RSW }
  1481.   else begin
  1482.    { RSW - Kirk, what was this line for
  1483.      It causes a problem as its not ever reset.  For instance, your CMEnter code
  1484.      checks ControlState.  To see problem put control in grid and click in the control.
  1485.      Then tab to it and it does not select all }
  1486. //    ControlState := ControlState +[csLButtonDown];
  1488.     // 6/3/2001 - PYW - MDI Child forms would not get activated prior to setting focus.
  1489.     parentForm:= GetParentForm(self);
  1490.     if (parentForm<>nil) and (TForm(parentForm).formstyle = fsMDIChild) then
  1491.        if Screen.ActiveForm <> parentForm then
  1492.           SendMessage(parentform.Handle, WM_ACTIVATE, 0, 0);
  1494.     if CanFocus then
  1495.     begin
  1496.        SetFocus;
  1497.        // 6/16/01 - Fix problem when using WebBrowse and it has text selected
  1498.        if Handle<>GetFocus then
  1499.           windows.SetFocus(Handle);
  1500.     end;
  1502.     if (Screen.ActiveControl=self) or Focused then // 8/16/2000 - Fire also if screen.activecontrol is me
  1503.        PostMessage(Handle, WM_FC_CALLDROPDOWN, 0, 0);
  1504.   end
  1505. end;
  1507. procedure TfcCustomCombo.HideCaret;
  1508. begin
  1509.   Windows.HideCaret(Handle);
  1510.   inherited ReadOnly := True;
  1511. end;
  1513. procedure TfcCustomCombo.Paint;
  1514. begin
  1515. end;
  1517. procedure TfcCustomCombo.Reset;
  1518. begin
  1519.   if DataLink.Field <> nil then DataLink.Reset;
  1520.   SelectAll;
  1521.   SetModified(False);
  1522.   Paint;
  1523. end;
  1525. procedure TfcCustomCombo.SelectAll;
  1526. begin
  1527.    inherited SelectAll;
  1528. end;
  1530. procedure TfcCustomCombo.ShowCaret;
  1531. begin
  1532.   if not HandleAllocated then exit; //3/25/99-PYW - Make sure handle is allocated.
  1533.   Windows.ShowCaret(Handle);
  1534.   inherited ReadOnly := False;
  1535. end;
  1537. function TfcCustomCombo.GetLeftIndent: Integer;
  1538. begin
  1539.   result := 0;
  1540. end;
  1542. procedure TfcCustomCombo.SetDropDownCount(Value: Integer);
  1543. begin
  1544.   FDropDownCount := Value;
  1545. end;
  1547. procedure TfcCustomCombo.WMPaste(var Message: TMessage);
  1548. begin
  1549.   if (Style=csDropDown) then
  1550.   begin
  1551.      if not EditCanModify then exit
  1552.      else begin
  1553.        FDataLink.Edit;
  1554.        inherited;
  1555.        SetModified(True);
  1556.      end
  1557.   end
  1558.   else inherited;
  1559. end;
  1561. procedure TfcCustomCombo.WMCut(var Message: TMessage);
  1562. begin
  1563.   if (Style=csDropDown) then
  1564.   begin
  1565.      if not EditCanModify then exit
  1566.      else begin
  1567.        FDataLink.Edit;
  1568.        inherited;
  1569.        SetModified(True);
  1570.      end
  1571.   end
  1572.   else inherited;
  1573. end;
  1575. function TfcCustomCombo.GetRightIndent(Rect:TRect): Integer;
  1576. begin
  1577.   result:= 0;
  1578. {  result := Width-2;
  1579.   if (ColorAlignment <> taRightJustify) then exit;
  1580.   if FColorListOptions = nil then exit;
  1581.   GetColorRectInfo(Rect,AWidth,AHeight);
  1582.   if (Awidth <> 0) then
  1583.      inc(result, -AWidth);}
  1584. end;
  1586. function TfcCustomCombo.GetTopIndent: Integer;
  1587. begin
  1588.   result := 0;
  1589.   if (BorderStyle = bsNone) and fcIsInwwGrid(Self) then begin
  1590.      Result := 2;
  1591.      if fcIsClass(parent.classtype, 'TwwDBGrid') then
  1592.      begin
  1593.         if ([dgRowLines, dgRowFixedLines] * fcGetGridOptions(self) = []) then Result:=1;
  1594.      end;
  1596.   end
  1597.   else if (BorderStyle = bsNone) then
  1598.   begin
  1599.      Result := 1;
  1600.   end;
  1601.   if AlignmentVertical = fcavCenter then
  1602.   begin
  1603.      if BorderStyle=bsNone then
  1604.         inc(result,(Height - Canvas.Textheight('A')-2) div 2)
  1605.      else
  1606.         result:= (Height - Canvas.Textheight('A')-5) div 2;
  1607.   end;
  1608. end;
  1610. procedure TfcCustomCombo.SetAlignmentVertical(Value: TfcAlignVertical);
  1611. begin
  1612.   if FAlignmentVertical <> Value then begin
  1613.      FAlignmentVertical := Value;
  1614.      Invalidate;
  1615.   end;
  1616. end;
  1618. Procedure TfcCustomCombo.DoEnter;
  1619. begin
  1620.    inherited DoEnter;
  1621.    if (FDataLink.Field=Nil) then modified:= False;  { 1/21/97 - Only clear if unbound }
  1622. end;
  1625. constructor TBtnWinControl.Create(AOwner: TComponent);
  1626. begin
  1627.    inherited Create(AOwner);
  1628.    EditControl:= AOwner as TfcCustomCombo;
  1629. end;
  1631. procedure TBtnWinControl.CMMouseLeave(var Message: TMessage);
  1632. var r: TRect;
  1633.     offset: integer;
  1634. begin
  1635.   inherited;
  1636.   if not EditControl.ButtonEffects.Flat then exit;
  1638.   if EditControl.BorderStyle=bsSingle then offset:=2 else offset:= 0;
  1639.   if not EditControl.FFocused then begin
  1640.      if EditControl.IsTransparentEffective then begin
  1641.         r:= Rect(parent.left + Left + offset, parent.Top+top+offset,
  1642.                  parent.left + left + offset + Width, parent.top + offset + Top + Height);
  1643.         if fcIsTransparentParent(self) then
  1644.           fcInvalidateTransparentArea(self) // just to be safer, but probably works in both cases
  1645.         else
  1646.           InvalidateRect(parent.parent.handle, @r, True);
  1647. //        InvalidateRect(parent.parent.handle, @r, True);
  1648.         Invalidate;
  1649.      end;
  1650.      Invalidate;
  1651.   end
  1652. end;
  1654. procedure TBtnWinControl.WMEraseBkgnd(var Message: TWmEraseBkgnd);
  1655. var r: TRect;
  1656.    control: TfcCustomCombo;
  1657. begin
  1658.   control:= TfcCustomCombo(parent);
  1659.   if control.SkipUpdate then exit;
  1661.   if fcIsInwwGridPaint(parent) or
  1662.      control.isTransparentEffective  then
  1663.   begin
  1664.      { Fixes paint problem when mouse is clicked in button and moved outside
  1665.        region, but it is not released }
  1666.      if (not fcIsInwwGridPaint(parent)) and
  1667.         (control.ButtonEffects.Flat or control.ButtonEffects.Transparent) and
  1668.         (csLButtonDown in control.FButton.ControlState) then
  1669.      begin
  1670.         r:= Rect(parent.left + Left , parent.Top+top,
  1671.                  parent.left + left + Width, parent.top + Top + Height);
  1672.         InvalidateRect(parent.parent.handle, @r, False);
  1673.         control.skipupdate:= true;
  1674.         parent.parent.update;
  1675.         control.skipupdate:= False;
  1676.      end;
  1677.      Message.result:= 1;
  1678.      exit;
  1679.   end
  1680.   else inherited;
  1681. end;
  1683. procedure TfcCustomCombo.WMEraseBkgnd(var Message: TWmEraseBkgnd);
  1684. var r: TRect;
  1685. begin
  1686.   if fcIsInwwObjectViewPaint(self) or
  1687.     (IsTransparentEffective and (not FFocused)) then
  1688.   begin
  1689.      Message.result:= 1;
  1690.   end
  1691.   // 8/1/02 - Respect NonFocusColor when it does not have focus
  1692.   else if (not fcIsInwwGridPaint(self)) and
  1693.       (not FFocused) and (Frame.NonFocusColor<>clNone) then
  1694.   begin
  1695.      r:= ClientRect;
  1696.      if FCanvas<>nil then
  1697.      begin
  1698.         FCanvas.Brush.Color:= Frame.NonFocusColor;
  1699.         Windows.FillRect(message.dc, r, FCanvas.brush.handle );
  1700.      end;
  1701.      message.result:=1
  1702.   end
  1703.   else inherited;
  1704. end;
  1706. procedure TfcCustomCombo.DrawFrame(Canvas: TCanvas);
  1707. begin
  1708.     fcDrawEdge(self, Frame, Canvas, FFocused);
  1709. end;
  1711. procedure TfcCustomCombo.InvalidateTransparentButton;
  1712. var r: TRect;
  1713. begin
  1714.    if ButtonEffects.Flat or ButtonEffects.Transparent then begin
  1715.      with FBtnParent do begin
  1716.          r:= Rect(parent.left + Left, parent.Top+top,
  1717.                parent.left + left+ Width, parent.top + Top + Height);
  1718.         { Calling with True causes flicker for any control that is invalidated.
  1719.           Test with False to see if any side effects  }
  1720.          InvalidateRect(parent.parent.handle, @r, False);
  1721.          parent.parent.Update;
  1722.       end
  1723.    end;
  1724.    FButton.invalidate;
  1725. end;
  1727. Procedure TfcCustomCombo.UpdatebuttonGlyph;
  1728. begin
  1729. //   FButton.Glyph.Handle:=0;  7/28/01 - Don't clear glyph
  1730.    if (FButtonStyle<>cbsCustom) and
  1731.       (ButtonEffects.Flat or ButtonEffects.Transparent) then
  1732.    begin
  1733.       if (FButtonStyle = cbsDownArrow) then
  1734.          FButton.Glyph.Handle:= LoadBitmap(HInstance, 'FCDROPDOWN')
  1735.    end;
  1736. end;
  1738. function TfcCustomCombo.IsCustom: Boolean;
  1739. begin
  1740.   Result := ButtonStyle = cbsCustom;
  1741. end;
  1743. function TfcCustomCombo.GetButtonGlyph: TBitmap;
  1744. begin
  1745.   result:= FButton.Glyph;
  1746. end;
  1748. procedure TfcCustomCombo.SetButtonGlyph(Value: TBitmap);
  1749. begin
  1750.   FButton.Glyph.Assign(Value);
  1751. //  FButtonGlyph.Assign(Value);
  1752.   Invalidate;
  1753. end;
  1754. {
  1755. procedure TfcCustomCombo.GlyphChanged(Sender: TObject);
  1756. begin
  1757.    FButton.Glyph.Handle:= LoadComboGlyph;
  1758.    Invalidate;
  1759. end;
  1760. }
  1761. Procedure TfcCustomCombo.SetButtonWidth(val: integer);
  1762. begin
  1763.    if FButtonWidth<>val then
  1764.    begin
  1765.       FButtonWidth:= val;
  1766.       if val<>0 then Button.Width:= val
  1767.       else Button.Width:= fcmax(GetSystemMetrics(SM_CXVSCROLL), 15);
  1768.       UpdateButtonPosition;
  1769.    end
  1770. end;
  1772. function TfcCustomCombo.GetButtonWidth: integer;
  1773. begin
  1774.    result:= FButtonWidth;
  1775. end;
  1777. procedure TfcCustomCombo.CMMouseEnter(var Message: TMessage);
  1778. begin
  1779.   inherited;
  1780.   DoMouseEnter;
  1781. end;
  1783. procedure TfcCustomCombo.CMMouseLeave(var Message: TMessage);
  1784. var r:TRect;
  1785.     pt:TPoint;
  1786. begin
  1787.   GetCursorPos(pt);
  1788.   pt := ScreenToClient(pt);
  1789.   r := ClientRect;
  1790.   if (PtInRect(r,pt)) then exit;
  1792.   inherited;
  1793.   DoMouseLeave;
  1794. end;
  1796. procedure TfcCustomCombo.DoMouseEnter;
  1797. begin
  1798.   try
  1799.      If Assigned( FOnMouseEnter ) Then FOnMouseEnter( self );  //10/1/2001 - Added for OnMouseEnter and OnMouseLeave events.
  1800.   except
  1801.     exit;
  1802.   end;
  1803.   if Frame.IsFrameEffective and (not FFocused) and
  1804.      Frame.MouseEnterSameAsFocus then
  1805.      fcDrawEdge(self, Frame, FCanvas, True);
  1806. //     fcDrawEdge(self, Frame, ControlCanvas, True);
  1807. end;
  1809. procedure TfcCustomCombo.DoMouseLeave;
  1810. begin
  1811.   try
  1812.     If Assigned( FOnMouseLeave ) Then FOnMouseLeave( self ); //10/1/2001 - Added for OnMouseEnter and OnMouseLeave events.
  1813.   except
  1814.     exit;
  1815.   end;
  1816.   if Frame.IsFrameEffective and (not FFocused) and
  1817.      Frame.MouseEnterSameAsFocus then begin
  1818.      fcDrawEdge(self, Frame, FCanvas, False);
  1819.      if IsTransparentEffective then
  1820.         Frame.CreateTransparent:= True;
  1821.      RecreateWnd;
  1822.   end;
  1823. end;
  1825. // Some fonts change the margin, so let us reset back to 0 so that
  1826. // borders will be ok
  1827. procedure TfcCustomCombo.WMSetFont(var Message: TWMSetFont);
  1828. begin
  1829.   inherited;
  1830.   if Frame.Enabled and NewStyleControls then
  1831.      SendMessage(Handle, EM_SETMARGINS, EC_LEFTMARGIN or EC_RIGHTMARGIN, 0);
  1832. end;
  1834. procedure TfcCustomCombo.SetController(Value: TComponent);
  1835. var tempFrame: TfcEditFrame;
  1836. begin
  1837.    if FController<>Value then
  1838.    begin
  1839.       fcUpdateController(TComponent(FController), Value, self);
  1840.       if FController<>nil then
  1841.       begin
  1842.          tempFrame:= TfcEditFrame.Get(TControl(FController));
  1843.          FFrame.Assign(tempFrame);
  1844. //         FFrame.Assign(FController.Frame);
  1845.          if HandleAllocated then RecreateWnd;
  1846.       end
  1847.    end
  1848. end;
  1851. initialization
  1852.   WM_FC_CALLDROPDOWN := RegisterWindowMessage('FCCOMBODROPDOWNMESSAGE');
  1853. end.