From: <jfu...@us...> - 2008-10-05 22:20:53
|
Revision: 11941 http://jvcl.svn.sourceforge.net/jvcl/?rev=11941&view=rev Author: jfudickar Date: 2008-10-05 22:20:50 +0000 (Sun, 05 Oct 2008) Log Message: ----------- Preventing os hints Modified Paths: -------------- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas Modified: trunk/jvcl/run/JvDynControlEngineDevExpCx.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2008-10-05 22:09:12 UTC (rev 11940) +++ trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2008-10-05 22:20:50 UTC (rev 11941) @@ -24,6 +24,7 @@ unit JvDynControlEngineDevExpCx; {$I jvcl.inc} +{$I windowsonly.inc} interface This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2009-01-25 21:18:39
|
Revision: 12175 http://jvcl.svn.sourceforge.net/jvcl/?rev=12175&view=rev Author: jfudickar Date: 2009-01-25 21:18:34 +0000 (Sun, 25 Jan 2009) Log Message: ----------- Different Improvements of the data transfer with DevExpress Components and the JvDynControlEngineDevExpCx Modified Paths: -------------- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas Modified: trunk/jvcl/run/JvDynControlEngineDevExpCx.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-01-25 16:55:49 UTC (rev 12174) +++ trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-01-25 21:18:34 UTC (rev 12175) @@ -1079,7 +1079,7 @@ procedure TJvDynControlCxMaskEdit.ControlSetValue(Value: Variant); begin - Text := Value; + Text := VarToStr(Value); end; function TJvDynControlCxMaskEdit.ControlGetValue: Variant; @@ -1157,7 +1157,7 @@ procedure TJvDynControlCxButtonEdit.ControlSetValue(Value: Variant); begin - Text := Value; + Text := VarToStr(Value); end; function TJvDynControlCxButtonEdit.ControlGetValue: Variant; @@ -1490,7 +1490,7 @@ procedure TJvDynControlCxFileNameEdit.ControlSetValue(Value: Variant); begin - Text := Value; + Text := VarToStr(Value); end; function TJvDynControlCxFileNameEdit.ControlGetValue: Variant; @@ -1611,7 +1611,7 @@ procedure TJvDynControlCxDirectoryEdit.ControlSetValue(Value: Variant); begin - Text := Value; + Text := VarToStr(Value); end; function TJvDynControlCxDirectoryEdit.ControlGetValue: Variant; @@ -1690,12 +1690,12 @@ procedure TJvDynControlCxDateTimeEdit.ControlSetValue(Value: Variant); begin - Text := Value; + Date := Value; end; function TJvDynControlCxDateTimeEdit.ControlGetValue: Variant; begin - Result := Text; + Result := Date; end; procedure TJvDynControlCxDateTimeEdit.ControlSetAnchors(Value: TAnchors); @@ -1770,12 +1770,12 @@ procedure TJvDynControlCxDateEdit.ControlSetValue(Value: Variant); begin - Text := Value; + Date := Value; end; function TJvDynControlCxDateEdit.ControlGetValue: Variant; begin - Result := Text; + Result := Date; end; procedure TJvDynControlCxDateEdit.ControlSetAnchors(Value: TAnchors); @@ -1849,12 +1849,12 @@ procedure TJvDynControlCxTimeEdit.ControlSetValue(Value: Variant); begin - Text := Value; + Time := Value; end; function TJvDynControlCxTimeEdit.ControlGetValue: Variant; begin - Result := Text; + Result := Time; end; procedure TJvDynControlCxTimeEdit.ControlSetAnchors(Value: TAnchors); @@ -2139,7 +2139,7 @@ procedure TJvDynControlCxRichEdit.ControlSetValue(Value: Variant); begin - Text := Value; + Text := VarToStr(Value); end; function TJvDynControlCxRichEdit.ControlGetValue: Variant; @@ -2609,7 +2609,7 @@ procedure TJvDynControlCxComboBox.ControlSetValue(Value: Variant); begin - Text := Value; + Text := VarToStr(Value); end; function TJvDynControlCxComboBox.ControlGetValue: Variant; @@ -3999,7 +3999,7 @@ procedure TJvDynControlCxColorComboBox.ControlSetValue(Value: Variant); begin - Text := Value; + Text := VarToStr(Value); end; function TJvDynControlCxColorComboBox.ControlGetValue: Variant; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2009-01-27 00:56:29
|
Revision: 12183 http://jvcl.svn.sourceforge.net/jvcl/?rev=12183&view=rev Author: jfudickar Date: 2009-01-27 00:56:19 +0000 (Tue, 27 Jan 2009) Log Message: ----------- Changed Default Values auf DevExpress Controls Modified Paths: -------------- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas Modified: trunk/jvcl/run/JvDynControlEngineDevExpCx.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-01-27 00:55:57 UTC (rev 12182) +++ trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-01-27 00:56:19 UTC (rev 12183) @@ -1890,6 +1890,7 @@ procedure TJvDynControlCxCheckBox.ControlSetDefaultProperties; begin + Transparent := True; end; procedure TJvDynControlCxCheckBox.ControlSetReadOnly(Value: Boolean); @@ -2719,10 +2720,7 @@ BevelInner := bvNone; BevelOuter := bvNone; PanelStyle.Active := True; - Transparent := True; - Style.TransparentBorder := True; - Style.Shadow := False; - Style.Edges := []; + Style.BorderStyle := ebsNone; end; procedure TJvDynControlCxPanel.ControlSetCaption(const Value: string); @@ -3078,6 +3076,8 @@ procedure TJvDynControlCxStaticText.ControlSetDefaultProperties; begin AutoSize := False; + Transparent := True; + Style.BorderStyle := ebsNone; end; procedure TJvDynControlCxStaticText.ControlSetCaption(const Value: string); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2009-02-03 00:02:57
|
Revision: 12202 http://jvcl.svn.sourceforge.net/jvcl/?rev=12202&view=rev Author: jfudickar Date: 2009-02-03 00:02:50 +0000 (Tue, 03 Feb 2009) Log Message: ----------- Fix for JvDynControlEngineDevExpCx whne getting tDateTimeValues Modified Paths: -------------- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas Modified: trunk/jvcl/run/JvDynControlEngineDevExpCx.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-01-30 21:13:49 UTC (rev 12201) +++ trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-02-03 00:02:50 UTC (rev 12202) @@ -1695,7 +1695,10 @@ function TJvDynControlCxDateTimeEdit.ControlGetValue: Variant; begin - Result := Date; + if Text = '' then + Result := Null + else + Result := Date; end; procedure TJvDynControlCxDateTimeEdit.ControlSetAnchors(Value: TAnchors); @@ -1775,7 +1778,10 @@ function TJvDynControlCxDateEdit.ControlGetValue: Variant; begin - Result := Date; + if Text = '' then + Result := Null + else + Result := Date; end; procedure TJvDynControlCxDateEdit.ControlSetAnchors(Value: TAnchors); @@ -1854,7 +1860,10 @@ function TJvDynControlCxTimeEdit.ControlGetValue: Variant; begin - Result := Time; + if Text = '' then + Result := Null + else + Result := Time; end; procedure TJvDynControlCxTimeEdit.ControlSetAnchors(Value: TAnchors); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2009-02-09 23:22:18
|
Revision: 12206 http://jvcl.svn.sourceforge.net/jvcl/?rev=12206&view=rev Author: jfudickar Date: 2009-02-09 21:53:00 +0000 (Mon, 09 Feb 2009) Log Message: ----------- TJvDynControlCxRTTIInspectorControl now supports the TJvDynControlInspectorControlOnTranslatePropertyNameEvent Modified Paths: -------------- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas Modified: trunk/jvcl/run/JvDynControlEngineDevExpCx.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-02-08 20:34:28 UTC (rev 12205) +++ trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-02-09 21:53:00 UTC (rev 12206) @@ -46,9 +46,9 @@ cxLookAndFeels, cxMaskEdit, cxLabel, cxButtons, cxListBox, cxDropDownEdit, cxButtonEdit, cxCalendar, cxCheckBox, cxMemo, cxRadioGroup, cxImage, cxTreeView, cxEdit, cxCalc, cxSpinEdit, cxTimeEdit, cxCheckListBox, cxGroupBox, cxRichEdit, - cxProgressBar, cxPC, cxColorComboBox, + cxProgressBar, cxPC, cxColorComboBox, cxGraphics, {$IFDEF USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID} - cxOi, cxVGrid, + cxOi, cxVGrid, cxVGridViewInfo, {$ENDIF} JvDynControlEngine, JvDynControlEngineIntf; @@ -893,6 +893,8 @@ string; var Accept: Boolean); procedure InspectorOnItemChanged(Sender: TObject; AOldRow: TcxCustomRow; AOldCellIndex: Integer); + procedure ReplaceOnDrawRowHeader(Sender: TObject; ACanvas: TcxCanvas; APainter: + TcxvgPainter; AHeaderViewInfo: TcxCustomRowHeaderInfo; var Done: Boolean); protected //IJvDynControlRTTIInspectorControl function ControlGetOnDisplayProperty: @@ -3815,6 +3817,7 @@ begin OnFilterProperty := InspectorOnFilterProperty; OnItemChanged := InspectorOnItemChanged; + OnDrawRowHeader := ReplaceOnDrawRowHeader; end; function TJvDynControlCxRTTIInspectorControl.ControlGetCurrentPropertyName: @@ -3958,6 +3961,14 @@ Accept := fOnDisplayProperty(PropertyName) and ControlIsPropertySupported(PropertyName); end; +procedure TJvDynControlCxRTTIInspectorControl.ReplaceOnDrawRowHeader(Sender: + TObject; ACanvas: TcxCanvas; APainter: TcxvgPainter; AHeaderViewInfo: + TcxCustomRowHeaderInfo; var Done: Boolean); +begin + if (AHeaderViewInfo is TcxEditorRowHeaderInfo) and Assigned(fOnTranslatePropertyName)then + TcxEditorRowHeaderInfo(AHeaderViewInfo).CaptionsInfo[0].Caption := fOnTranslatePropertyName(TcxEditorRowHeaderInfo(AHeaderViewInfo).CaptionsInfo[0].Caption); +end; + procedure TJvDynControlCxRTTIInspectorControl.SetControlDividerWidth(const Value: Integer); begin This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2009-04-26 19:30:10
|
Revision: 12286 http://jvcl.svn.sourceforge.net/jvcl/?rev=12286&view=rev Author: jfudickar Date: 2009-04-26 19:29:53 +0000 (Sun, 26 Apr 2009) Log Message: ----------- Better Support of TJvDynControlCxPanel by using cxGroupBox.Style.TransparentBorder := False Modified Paths: -------------- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas Modified: trunk/jvcl/run/JvDynControlEngineDevExpCx.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-04-25 17:51:07 UTC (rev 12285) +++ trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-04-26 19:29:53 UTC (rev 12286) @@ -2735,6 +2735,7 @@ PanelStyle.Active := True; PanelStyle.BorderWidth := 0; Style.BorderStyle := ebsNone; + Style.TransparentBorder := False; end; procedure TJvDynControlCxPanel.ControlSetCaption(const Value: string); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2009-07-02 20:12:45
|
Revision: 12366 http://jvcl.svn.sourceforge.net/jvcl/?rev=12366&view=rev Author: jfudickar Date: 2009-07-02 20:12:43 +0000 (Thu, 02 Jul 2009) Log Message: ----------- Mantis 0004796: TJvDynControlCxPanel ignores BorderStyle Modified Paths: -------------- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas Modified: trunk/jvcl/run/JvDynControlEngineDevExpCx.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-07-02 09:58:12 UTC (rev 12365) +++ trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-07-02 20:12:43 UTC (rev 12366) @@ -2814,6 +2814,16 @@ BorderStyle := cxcbsNone else BorderStyle := cxcbsDefault; + if BorderStyle = cxcbsNone then + begin + if Style.BorderStyle <> ebsNone then + Style.BorderStyle := ebsNone; + end + else + begin + if svBorderStyle in Style.AssignedValues then + Style.AssignedValues := Style.AssignedValues - [ svBorderStyle ]; + end; end; procedure TJvDynControlCxPanel.ControlSetBorderWidth(Value: Integer); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2009-07-27 23:11:31
|
Revision: 12410 http://jvcl.svn.sourceforge.net/jvcl/?rev=12410&view=rev Author: jfudickar Date: 2009-07-27 23:11:22 +0000 (Mon, 27 Jul 2009) Log Message: ----------- Fixed DateTime Variant Handling Modified Paths: -------------- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas Modified: trunk/jvcl/run/JvDynControlEngineDevExpCx.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-07-24 12:43:03 UTC (rev 12409) +++ trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2009-07-27 23:11:22 UTC (rev 12410) @@ -1,4101 +1,4110 @@ -{----------------------------------------------------------------------------- -The contents of this file are subject to the Mozilla Public License -Version 1.1 (the "License"); you may not use this file except in compliance -with the License. You may obtain a copy of the License at -http://www.mozilla.org/MPL/MPL-1.1.html - -Software distributed under the License is distributed on an "AS IS" basis, -WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for -the specific language governing rights and limitations under the License. - -The Initial Developer of the Original Code is Jens Fudickar [jens dott fudickar att oratool dott de] -All Rights Reserved. - -Contributor(s): -Jens Fudickar [jens dott fudickar att oratool dott de] - -You may retrieve the latest version of this file at the Project JEDI's JVCL home page, -located at http://jvcl.sourceforge.net - -Known Issues: ------------------------------------------------------------------------------} -// $Id$ - -unit JvDynControlEngineDevExpCx; - -{$I jvcl.inc} -{$I windowsonly.inc} - -interface - -{$IFNDEF USE_3RDPARTY_DEVEXPRESS_CXEDITOR} - -{$IFDEF UNITVERSIONING} -uses - JclUnitVersioning, JvDynControlEngineIntf, Graphics, ComCtrls, Classes, - JvInspector, ExtCtrls; -{$ENDIF UNITVERSIONING} - -{$ELSE} -uses - {$IFDEF UNITVERSIONING} - JclUnitVersioning, - {$ENDIF UNITVERSIONING} - Classes, Controls, StdCtrls, ExtCtrls, ComCtrls, Mask, Forms, Graphics, - Buttons, Dialogs, FileCtrl, ActnList, ImgList, - cxLookAndFeels, cxMaskEdit, cxLabel, cxButtons, cxListBox, cxDropDownEdit, - cxButtonEdit, cxCalendar, cxCheckBox, cxMemo, cxRadioGroup, cxImage, cxTreeView, - cxEdit, cxCalc, cxSpinEdit, cxTimeEdit, cxCheckListBox, cxGroupBox, cxRichEdit, - cxProgressBar, cxPC, cxColorComboBox, cxGraphics, - {$IFDEF USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID} - cxOi, cxVGrid, cxVGridViewInfo, - {$ENDIF} - JvDynControlEngine, JvDynControlEngineIntf; - -type - - TCxDynControlWrapper = class(TPersistent) - private - FLookAndFeel: TcxLookAndFeel; - FStyleController: TcxEditStyleController; - protected - procedure SetLookAndFeel(Value: TcxLookAndFeel); - procedure SetStyleController(Value: TcxEditStyleController); - public - constructor Create; virtual; - destructor Destroy; override; - published - property LookAndFeel: TcxLookAndFeel read FLookAndFeel write SetLookAndFeel; - property StyleController: TcxEditStyleController read FStyleController write SetStyleController; - end; - - IJvDynControlDevExpCx = interface - ['{13F812FE-9F75-4529-8452-45F2D9DE5A91}'] - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - end; - - TJvDynControlCxMaskEdit = class(TcxMaskEdit, IUnknown, IJvDynControl, IJvDynControlData, - IJvDynControlDevExpCx, IJvDynControlReadOnly, IJvDynControlEdit) - public - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - //IJvDynControlEdit - procedure ControlSetPasswordChar(Value: Char); - procedure ControlSetEditMask(const Value: string); - end; - - TJvDynControlCxButtonEdit = class(TcxButtonEdit, IUnknown, IJvDynControl, IJvDynControlData, - IJvDynControlDevExpCx, IJvDynControlReadOnly, IJvDynControlEdit, IJvDynControlButtonEdit, - IJvDynControlButton) - private - FIntOnButtonClick: TNotifyEvent; - protected - procedure IntOnButtonClick(Sender: TObject; AButtonIndex: Integer); - public - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - //IJvDynControlEdit - procedure ControlSetPasswordChar(Value: Char); - procedure ControlSetEditMask(const Value: string); - - //IJvDynControlButtonEdit - procedure ControlSetOnButtonClick(Value: TNotifyEvent); - procedure ControlSetButtonCaption(const Value: string); - - //IJvDynControlButton - procedure ControlSetGlyph(Value: TBitmap); - procedure ControlSetNumGlyphs(Value: Integer); - procedure ControlSetLayout(Value: TButtonLayout); - procedure ControlSetDefault(Value: Boolean); - procedure ControlSetCancel(Value: Boolean); - end; - - TJvDynControlCxCalcEdit = class(TcxCalcEdit, IUnknown, IJvDynControl, IJvDynControlData, - IJvDynControlDevExpCx, IJvDynControlReadOnly) - public - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - end; - - TJvDynControlCxSpinEdit = class(TcxSpinEdit, IUnknown, IJvDynControl, IJvDynControlData, - IJvDynControlDevExpCx, IJvDynControlSpin, IJvDynControlReadOnly) - public - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - // IJvDynControlSpin - procedure ControlSetIncrement(Value: Integer); - procedure ControlSetMinValue(Value: double); - procedure ControlSetMaxValue(Value: double); - procedure ControlSetUseForInteger(Value: Boolean); - end; - - TJvDynControlCxFileNameEdit = class(TcxButtonEdit, IUnknown, IJvDynControl, - IJvDynControlData, IJvDynControlDevExpCx, IJvDynControlFileName, IJvDynControlReadOnly) - private - FInitialDir: string; - FFilterIndex: Integer; - FFilter: string; - FDialogOptions: TOpenOptions; - FDialogKind: TJvDynControlFileNameDialogKind; - FDialogTitle: string; - FDefaultExt: string; - public - procedure DefaultOnButtonClick(Sender: TObject; AButtonIndex: Integer); - - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - // IJvDynControlFileName - procedure ControlSetInitialDir(const Value: string); - procedure ControlSetDefaultExt(const Value: string); - procedure ControlSetDialogTitle(const Value: string); - procedure ControlSetDialogOptions(Value: TOpenOptions); - procedure ControlSetFilter(const Value: string); - procedure ControlSetFilterIndex(Value: Integer); - procedure ControlSetDialogKind(Value: TJvDynControlFileNameDialogKind); - end; - - TJvDynControlCxDirectoryEdit = class(TcxButtonEdit, IUnknown, IJvDynControl, - IJvDynControlData, IJvDynControlDevExpCx, IJvDynControlDirectory, IJvDynControlReadOnly) - private - FInitialDir: string; - FDialogOptions: TSelectDirOpts; - FDialogTitle: string; - public - procedure DefaultOnButtonClick(Sender: TObject; AButtonIndex: Integer); - - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - // IJvDynControlDirectory - procedure ControlSetInitialDir(const Value: string); - procedure ControlSetDialogTitle(const Value: string); - procedure ControlSetDialogOptions(Value: TSelectDirOpts); - end; - - TJvDynControlCxDateTimeEdit = class(TcxDateEdit, IUnknown, IJvDynControl, - IJvDynControlData, IJvDynControlDevExpCx, IJvDynControlDate, IJvDynControlReadOnly) - public - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - procedure ControlSetAnchors(Value: TAnchors); - - // IJvDynControlDate - procedure ControlSetMinDate(Value: TDateTime); - procedure ControlSetMaxDate(Value: TDateTime); - procedure ControlSetFormat(const Value: string); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - end; - - TJvDynControlCxDateEdit = class(TcxDateEdit, IUnknown, IJvDynControl, - IJvDynControlData, IJvDynControlDevExpCx, IJvDynControlDate, IJvDynControlReadOnly) - public - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - procedure ControlSetAnchors(Value: TAnchors); - - // IJvDynControlDate - procedure ControlSetMinDate(Value: TDateTime); - procedure ControlSetMaxDate(Value: TDateTime); - procedure ControlSetFormat(const Value: string); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - end; - - TJvDynControlCxTimeEdit = class(TcxTimeEdit, IUnknown, IJvDynControl, - IJvDynControlData, IJvDynControlDevExpCx, IJvDynControlTime, IJvDynControlReadOnly) - public - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - procedure ControlSetFormat(const Value: string); - end; - - TJvDynControlCxCheckBox = class(TcxCheckBox, IUnknown, IJvDynControl, - IJvDynControlCaption, IJvDynControlData, IJvDynControlDevExpCx, IJvDynControlReadOnly, - IJvDynControlCheckBox, IJvDynControlFont) - public - function ControlGetCaption: string; - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetCaption(const Value: string); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - procedure ControlSetAnchors(Value: TAnchors); - - //IJvDynControlCheckBox - procedure ControlSetAllowGrayed(Value: Boolean); - procedure ControlSetState(Value: TCheckBoxState); - function ControlGetState: TCheckBoxState; - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - //IJvDynControlFont - procedure ControlSetFont(Value: TFont); - function ControlGetFont: TFont; - end; - - TJvDynControlCxMemo = class(TcxMemo, IUnknown, IJvDynControl, IJvDynControlData, - IJvDynControlItems, IJvDynControlMemo, IJvDynControlDevExpCx, IJvDynControlReadOnly, - IJvDynControlAlignment) - public - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - - procedure ControlSetSorted(Value: Boolean); - procedure ControlSetItems(Value: TStrings); - function ControlGetItems: TStrings; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetWantTabs(Value: Boolean); - procedure ControlSetWantReturns(Value: Boolean); - procedure ControlSetWordWrap(Value: Boolean); - procedure ControlSetScrollBars(Value: TScrollStyle); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - //IJvDynControlAlignment - procedure ControlSetAlignment(Value: TAlignment); - end; - - TJvDynControlCxRichEdit = class(TcxRichEdit, IUnknown, IJvDynControl, IJvDynControlData, - IJvDynControlItems, IJvDynControlMemo, IJvDynControlDevExpCx, IJvDynControlReadOnly) - public - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - - procedure ControlSetSorted(Value: Boolean); - procedure ControlSetItems(Value: TStrings); - function ControlGetItems: TStrings; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetWantTabs(Value: Boolean); - procedure ControlSetWantReturns(Value: Boolean); - procedure ControlSetWordWrap(Value: Boolean); - procedure ControlSetScrollBars(Value: TScrollStyle); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - end; - - TJvDynControlCxRadioGroup = class(TcxRadioGroup, IUnknown, IJvDynControl, - IJvDynControlCaption, IJvDynControlData, IJvDynControlItems, IJvDynControlDevExpCx, - IJvDynControlRadioGroup, IJvDynControlReadOnly) - public - function ControlGetCaption: string; - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetCaption(const Value: string); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - - procedure ControlSetSorted(Value: Boolean); - procedure ControlSetItems(Value: TStrings); - function ControlGetItems: TStrings; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - procedure ControlSetColumns(Value: Integer); - end; - - TJvDynControlCxListBox = class(TcxListBox, IUnknown, IJvDynControl, IJvDynControlData, - IJvDynControlItems, IJvDynControlItemIndex, IJvDynControlDblClick, IJvDynControlDevExpCx, IJvDynControlReadOnly) - public - function ControlGetItemIndex: Integer; - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - - procedure ControlSetSorted(Value: Boolean); - procedure ControlSetItems(Value: TStrings); - function ControlGetItems: TStrings; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetOnDblClick(Value: TNotifyEvent); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - procedure ControlSetItemIndex(const Value: Integer); - end; - - TJvDynControlCxCheckListBox = class(TcxCheckListBox, IUnknown, IJvDynControl, IJvDynControlData, - IJvDynControlItems, IJvDynControlDblClick, IJvDynControlDevExpCx, IJvDynControlReadOnly, - IJvDynControlCheckListBox) - private - FIntItems: TStrings; - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - - procedure ControlSetSorted(Value: Boolean); - procedure ControlSetItems(Value: TStrings); - function ControlGetItems: TStrings; - - procedure ControlSetOnDblClick(Value: TNotifyEvent); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - //IJvDynControlCheckListBox = interface - procedure ControlSetAllowGrayed(Value: Boolean); - procedure ControlSetChecked(Index: Integer; Value: Boolean); - procedure ControlSetItemEnabled(Index: Integer; Value: Boolean); - procedure ControlSetHeader(Index: Integer; Value: Boolean); - procedure ControlSetState(Index: Integer; Value: TCheckBoxState); - function ControlGetChecked(Index: Integer): Boolean; - function ControlGetItemEnabled(Index: Integer): Boolean; - function ControlGetHeader(Index: Integer): Boolean; - function ControlGetState(Index: Integer): TCheckBoxState; - procedure ControlSetAnchors(Value: TAnchors); - end; - - TJvDynControlCxComboBox = class(TcxComboBox, IUnknown, IJvDynControl, IJvDynControlData, - IJvDynControlItems, IJvDynControlDevExpCx, IJvDynControlComboBox, IJvDynControlReadOnly) - public - procedure ControlSetDefaultProperties; - procedure ControlSetReadOnly(Value: Boolean); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - - procedure ControlSetSorted(Value: Boolean); - procedure ControlSetItems(Value: TStrings); - function ControlGetItems: TStrings; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - procedure ControlSetNewEntriesAllowed(Value: Boolean); - end; - - TJvDynControlCxGroupBox = class(TcxGroupBox, IUnknown, IJvDynControl, - IJvDynControlCaption, IJvDynControlColor) - public - function ControlGetCaption: string; - procedure ControlSetAnchors(Value: TAnchors); - procedure ControlSetDefaultProperties; - procedure ControlSetCaption(const Value: string); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - // IJvDynControlColor - procedure ControlSetColor(Value: TColor); - procedure ControlSetParentColor(Value: Boolean); - end; - - TJvDynControlCxPanel = class(TcxGroupBox, IUnknown, IJvDynControl, IJvDynControlPanel, - IJvDynControlAlign, IJvDynControlAutoSize, IJvDynControlBevelBorder, IJvDynControlColor, - IJvDynControlCaption, IJvDynControlAlignment) - public - function ControlGetCaption: string; - procedure ControlSetDefaultProperties; - procedure ControlSetCaption(const Value: string); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetBorder(ABevelInner: TPanelBevel; ABevelOuter: TPanelBevel; ABevelWidth: Integer; ABorderStyle: TBorderStyle; ABorderWidth: Integer); - - // IJvDynControlAlign - procedure ControlSetAlign(Value: TAlign); - - // IJvDynControlAutoSize - procedure ControlSetAutoSize(Value: Boolean); - - // IJvDynControlBevelBorder - procedure ControlSetBevelInner(Value: TBevelCut); - procedure ControlSetBevelKind(Value: TBevelKind); - procedure ControlSetBevelOuter(Value: TBevelCut); - procedure ControlSetBorderStyle(Value: TBorderStyle); - procedure ControlSetBorderWidth(Value: Integer); - // IJvDynControlColor - procedure ControlSetColor(Value: TColor); - procedure ControlSetParentColor(Value: Boolean); - //IJvDynControlAlignment - procedure ControlSetAlignment(Value: TAlignment); - end; - - TJvDynControlCxImage = class(TcxImage, IUnknown, IJvDynControl, - IJvDynControlImage, IJvDynControlDevExpCx) - public - procedure ControlSetDefaultProperties; - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetAutoSize(Value: Boolean); - procedure ControlSetIncrementalDisplay(Value: Boolean); - procedure ControlSetCenter(Value: Boolean); - procedure ControlSetProportional(Value: Boolean); - procedure ControlSetStretch(Value: Boolean); - procedure ControlSetTransparent(Value: Boolean); - procedure ControlSetPicture(Value: TPicture); - procedure ControlSetGraphic(Value: TGraphic); - function ControlGetPicture: TPicture; - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - end; - - // (rom) TScrollBox or TcxScrollBox? - TJvDynControlCxScrollBox = class(TScrollBox, IJvDynControl, IJvDynControlCaption) - public - function ControlGetCaption: string; - procedure ControlSetAnchors(Value: TAnchors); - procedure ControlSetDefaultProperties; - procedure ControlSetCaption(const Value: string); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - end; - - TJvDynControlCxLabel = class(TcxLabel, IUnknown, IJvDynControl, IJvDynControlLabel, - IJvDynControlCaption, IJvDynControlDevExpCx, IJvDynControlAlign, - IJvDynControlAutoSize, IJvDynControlColor, - IJvDynControlAlignment, IJvDynControlFont) - public - function ControlGetCaption: string; - procedure ControlSetAnchors(Value: TAnchors); - procedure ControlSetDefaultProperties; - procedure ControlSetCaption(const Value: string); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetFocusControl(Value: TWinControl); - procedure ControlSetWordWrap(Value: Boolean); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - // IJvDynControlAlign - procedure ControlSetAlign(Value: TAlign); - - // IJvDynControlAutoSize - procedure ControlSetAutoSize(Value: Boolean); - - // IJvDynControlColor - procedure ControlSetColor(Value: TColor); - procedure ControlSetParentColor(Value: Boolean); - //IJvDynControlAlignment - procedure ControlSetAlignment(Value: TAlignment); - - //IJvDynControlFont - procedure ControlSetFont(Value: TFont); - function ControlGetFont: TFont; - end; - - // (rom) Warning! TStaticText and TLabel are very different. - TJvDynControlCxStaticText = class(TcxLabel, IUnknown, IJvDynControl, IJvDynControlDevExpCx, - IJvDynControlCaption, IJvDynControlAlign, IJvDynControlAutoSize, IJvDynControlColor, - IJvDynControlAlignment, IJvDynControlFont) - public - function ControlGetCaption: string; - procedure ControlSetAnchors(Value: TAnchors); - procedure ControlSetDefaultProperties; - procedure ControlSetCaption(const Value: string); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - // IJvDynControlAlign - procedure ControlSetAlign(Value: TAlign); - - // IJvDynControlAutoSize - procedure ControlSetAutoSize(Value: Boolean); - // IJvDynControlColor - procedure ControlSetColor(Value: TColor); - procedure ControlSetParentColor(Value: Boolean); - //IJvDynControlAlignment - procedure ControlSetAlignment(Value: TAlignment); - //IJvDynControlFont - procedure ControlSetFont(Value: TFont); - function ControlGetFont: TFont; - end; - - TJvDynControlCxButton = class(TcxButton, IUnknown, IJvDynControl, IJvDynControlButton, - IJvDynControlCaption, IJvDynControlDevExpCx, IJvDynControlAction) - public - function ControlGetCaption: string; - procedure ControlSetDefaultProperties; - procedure ControlSetCaption(const Value: string); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - procedure ControlSetGlyph(Value: TBitmap); - procedure ControlSetNumGlyphs(Value: Integer); - procedure ControlSetLayout(Value: TButtonLayout); - procedure ControlSetDefault(Value: Boolean); - procedure ControlSetCancel(Value: Boolean); - - // IJvDynControlAction - procedure ControlSetAction(Value: TCustomAction); - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - end; - - TJvDynControlCxRadioButton = class(TCxRadioButton, IUnknown, - IJvDynControl, IJvDynControlCaption, IJvDynControlData, IJvDynControlDevExpCx) - public - function ControlGetCaption: string; - procedure ControlSetDefaultProperties; - procedure ControlSetCaption(const Value: string); - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - // IJvDynControlData - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - procedure ControlSetAnchors(Value: TAnchors); - - // IJvDynControlDevExpCx - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - end; - - TJvDynControlCxTreeView = class(TcxTreeView, IUnknown, - IJvDynControl, IJvDynControlTreeView, - IJvDynControlDevExpCx, IJvDynControlReadOnly, IJvDynControlDblClick) - public - procedure ControlSetDefaultProperties; - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - - // IJvDynControlReadOnly - procedure ControlSetReadOnly(Value: Boolean); - - // IJvDynControlTreeView - procedure ControlSetAutoExpand(Value: Boolean); - procedure ControlSetHotTrack(Value: Boolean); - procedure ControlSetShowHint(Value: Boolean); - procedure ControlSetShowLines(Value: Boolean); - procedure ControlSetShowRoot(Value: Boolean); - procedure ControlSetToolTips(Value: Boolean); - procedure ControlSetItems(Value: TTreeNodes); - function ControlGetItems: TTreeNodes; - procedure ControlSetImages(Value: TCustomImageList); - procedure ControlSetStateImages(Value: TCustomImageList); - procedure ControlSetAnchors(Value: TAnchors); - procedure ControlSetOnChange(Value: TTVChangedEvent); - procedure ControlSetSortType(Value: TSortType); - procedure ControlSortItems; - function ControlGetSelected: TTreeNode; - procedure ControlSetSelected(const Value: TTreeNode); - procedure ControlSetOnChanging(Value: TTVChangingEvent); - - //IJvDynControlDblClick - procedure ControlSetOnDblClick(Value: TNotifyEvent); - - // IJvDynControlDevExpCx - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - end; - - TJvDynControlCxProgressBar = class(TcxProgressBar, IUnknown, IJvDynControl, - IJvDynControlProgressBar, IJvDynControlAlign, IJvDynControlDevExpCx) - public - procedure ControlSetAlign(Value: TAlign); - procedure ControlSetAnchors(Value: TAnchors); - procedure ControlSetCaption(const Value: string); - // IJvDynControlDevExpCx - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - procedure ControlSetDefaultProperties; - procedure ControlSetHint(const Value: string); - //IJvDynControlProgressBar - procedure ControlSetMax(Value: Integer); - procedure ControlSetMin(Value: Integer); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOrientation(Value: TProgressBarOrientation); - procedure ControlSetPosition(Value: Integer); - procedure ControlSetSmooth(Value: Boolean); - procedure ControlSetStep(Value: Integer); - procedure ControlSetTabOrder(Value: Integer); - end; - - -type - TJvDynControlCxTabControl = class(TcxTabControl, IUnknown, IJvDynControl, - IJvDynControlTabControl, IJvDynControlDevExpCx) - public - procedure ControlSetDefaultProperties; - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - procedure ControlSetAnchors(Value: TAnchors); - - //IJvDynControlTabControl - procedure ControlCreateTab(const AName: string); - procedure ControlSetOnChangeTab(OnChangeEvent: TNotifyEvent); - procedure ControlSetOnChangingTab(OnChangingEvent: TTabChangingEvent); - procedure ControlSetTabIndex(Index: Integer); - function ControlGetTabIndex: Integer; - procedure ControlSetMultiLine(Value: Boolean); - procedure ControlSetScrollOpposite(Value: Boolean); - procedure ControlSetHotTrack(Value: Boolean); - procedure ControlSetRaggedRight(Value: Boolean); - // IJvDynControlDevExpCx - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - end; - - TJvDynControlCxPageControl = class(TcxPageControl, IUnknown, - IJvDynControl, IJvDynControlTabControl, IJvDynControlPageControl, IJvDynControlDevExpCx) - public - procedure ControlSetDefaultProperties; - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - procedure ControlSetAnchors(Value: TAnchors); - - //IJvDynControlTabControl - procedure ControlCreateTab(const AName: string); - procedure ControlSetOnChangeTab(OnChangeEvent: TNotifyEvent); - procedure ControlSetOnChangingTab(OnChangingEvent: TTabChangingEvent); - procedure ControlSetTabIndex(Index: Integer); - function ControlGetTabIndex: Integer; - procedure ControlSetMultiLine(Value: Boolean); - procedure ControlSetScrollOpposite(Value: Boolean); - procedure ControlSetHotTrack(Value: Boolean); - procedure ControlSetRaggedRight(Value: Boolean); - - //IJvDynControlPageControl - function ControlGetPage(const PageName: string): TWinControl; - // IJvDynControlDevExpCx - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - end; - - {$IFDEF USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID} - TJvDynControlCxRTTIInspectorControl = class(TcxRTTIInspector, IUnknown, - IJvDynControl, IJvDynControlRTTIInspectorControl, IJvDynControlDevExpCx) - private - fControlOnPropertyChange: TJvDynControlInspectorControlOnPropertyChangeEvent; - fOnDisplayProperty: TJvDynControlInspectorControlOnDisplayPropertyEvent; - fOnTranslatePropertyName: - TJvDynControlInspectorControlOnTranslatePropertyNameEvent; - OldPropertyName: string; - procedure InspectorOnFilterProperty(Sender: TObject; const PropertyName: - string; var Accept: Boolean); - procedure InspectorOnItemChanged(Sender: TObject; AOldRow: TcxCustomRow; - AOldCellIndex: Integer); - procedure ReplaceOnDrawRowHeader(Sender: TObject; ACanvas: TcxCanvas; APainter: - TcxvgPainter; AHeaderViewInfo: TcxCustomRowHeaderInfo; var Done: Boolean); - protected - //IJvDynControlRTTIInspectorControl - function ControlGetOnDisplayProperty: - TJvDynControlInspectorControlOnDisplayPropertyEvent; - function ControlGetOnTranslatePropertyName: - TJvDynControlInspectorControlOnTranslatePropertyNameEvent; - procedure ControlSetOnDisplayProperty(const Value: - TJvDynControlInspectorControlOnDisplayPropertyEvent); overload; - procedure ControlSetOnTranslatePropertyName(const Value: - TJvDynControlInspectorControlOnTranslatePropertyNameEvent); - function GetControlDividerWidth: Integer; - procedure SetControlDividerWidth(const Value: Integer); - public - function ControlGetCurrentPropertyName: string; - procedure ControlSetDefaultProperties; - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - procedure ControlSetAnchors(Value: TAnchors); - - //IJvDynControlRTTIInspectorControl - function ControlGetInspectedObject: TObject; - function ControlGetVisibleItemsCount: Integer; - function ControlIsPropertySupported(const aPropertyName : string): Boolean; - procedure ControlSaveEditorValues; - procedure ControlSetInspectedObject(const Value: TObject); - - // IJvDynControlDevExpCx - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - function GetControlOnPropertyChange: - TJvDynControlInspectorControlOnPropertyChangeEvent; - procedure SetControlOnPropertyChange(const Value: - TJvDynControlInspectorControlOnPropertyChangeEvent); - end; - - TJvDynControlCxColorComboBox = class(TcxColorComboBox, IUnknown, IJvDynControl, - IJvDynControlColorComboBoxControl, IJvDynControlDevExpCx) - public - procedure ControlSetDefaultProperties; - procedure ControlSetTabOrder(Value: Integer); - - procedure ControlSetOnEnter(Value: TNotifyEvent); - procedure ControlSetOnExit(Value: TNotifyEvent); - procedure ControlSetOnChange(Value: TNotifyEvent); - procedure ControlSetOnClick(Value: TNotifyEvent); - procedure ControlSetHint(const Value: string); - procedure ControlSetAnchors(Value: TAnchors); - - procedure ControlSetValue(Value: Variant); - function ControlGetValue: Variant; - - // IJvDynControlDevExpCx - procedure ControlSetCxProperties(Value: TCxDynControlWrapper); - - //IJvDynControlColorComboBoxControl - function ControlGetColorName(AColor: TColor): string; - function ControlGetSelectedColor: TColor; - procedure ControlSetSelectedColor(const Value: TColor); - function GetControlDefaultColor: TColor; stdcall; - procedure SetControlDefaultColor(const Value: TColor); stdcall; - end; - - {$ENDIF} - - TJvDynControlEngineDevExpCx = class(TJvDynControlEngine) - private - FCxProperties: TCxDynControlWrapper; - protected - procedure SetcxProperties(Value: TCxDynControlWrapper); - procedure RegisterControls; override; - public - constructor Create; override; - destructor Destroy; override; - function CreateControlClass(AControlClass: TControlClass; AOwner: TComponent; AParentControl: TWinControl; AControlName: string): TControl; override; - published - property CxProperties: TCxDynControlWrapper read FCxProperties write FCxProperties; - end; - - - -procedure SetDynControlEngineDevExpCxDefault; -function DynControlEngineDevExpCx: TJvDynControlEngineDevExpCx; - -{$ENDIF USE_3RDPARTY_DEVEXPRESS_CXEDITOR} - -{$IFDEF UNITVERSIONING} -const - UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$URL$'; - Revision: '$Revision$'; - Date: '$Date$'; - LogPath: 'JVCL\run' - ); -{$ENDIF UNITVERSIONING} - -implementation - -{$IFDEF USE_3RDPARTY_DEVEXPRESS_CXEDITOR} - -uses - SysUtils, ExtDlgs, - {$IFDEF HAS_UNIT_VARIANTS} - Variants, - {$ENDIF HAS_UNIT_VARIANTS} - {$IFNDEF USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID} - JvDynControlEngineJVCL, - {$ENDIF} - cxTextEdit, cxControls, - JvDynControlEngineVCL, - JvJclUtils, JvBrowseFolder, JvDynControlEngineTools, JvVCL5Utils, - cxLookAndFeelPainters, TypInfo; - -var - IntDynControlEngineDevExpCx: TJvDynControlEngineDevExpCx = nil; - -//=== { TCxDynControlWrapper } =============================================== - -constructor TCxDynControlWrapper.Create; -begin - inherited Create; - FLookAndFeel := TcxLookAndFeel.Create(nil); - FStyleController := TcxEditStyleController.Create(nil); -end; - -destructor TCxDynControlWrapper.Destroy; -begin - FreeAndNil(FStyleController); - FreeAndNil(FLookAndFeel); - inherited Destroy; -end; - -procedure TCxDynControlWrapper.SetLookAndFeel(Value: TcxLookAndFeel); -begin - FLookAndFeel.Assign(Value); -end; - -procedure TCxDynControlWrapper.SetStyleController(Value: TcxEditStyleController); -begin - FStyleController := Value; -end; - -//=== { TJvDynControlCxMaskEdit } ============================================ - -procedure TJvDynControlCxMaskEdit.ControlSetDefaultProperties; -begin - Properties.MaskKind := emkStandard; -end; - -procedure TJvDynControlCxMaskEdit.ControlSetReadOnly(Value: Boolean); -begin - Properties.ReadOnly := Value; -end; - -procedure TJvDynControlCxMaskEdit.ControlSetTabOrder(Value: Integer); -begin - TabOrder := Value; -end; - -procedure TJvDynControlCxMaskEdit.ControlSetOnEnter(Value: TNotifyEvent); -begin - OnEnter := Value; -end; - -procedure TJvDynControlCxMaskEdit.ControlSetOnExit(Value: TNotifyEvent); -begin - OnExit := Value; -end; - -procedure TJvDynControlCxMaskEdit.ControlSetOnChange(Value: TNotifyEvent); -begin - Properties.OnChange := Value; -end; - -procedure TJvDynControlCxMaskEdit.ControlSetOnClick(Value: TNotifyEvent); -begin - -end; - -procedure TJvDynControlCxMaskEdit.ControlSetHint(const Value: string); -begin - Hint := Value; -end; - -procedure TJvDynControlCxMaskEdit.ControlSetValue(Value: Variant); -begin - Text := VarToStr(Value); -end; - -function TJvDynControlCxMaskEdit.ControlGetValue: Variant; -begin - Result := Text; -end; - -procedure TJvDynControlCxMaskEdit.ControlSetAnchors(Value: TAnchors); -begin - Anchors := Value; -end; - -procedure TJvDynControlCxMaskEdit.ControlSetCxProperties(Value: TCxDynControlWrapper); -begin - Style.LookAndFeel.Assign(Value.LookAndFeel); - Style.StyleController := Value.StyleController; -end; - -procedure TJvDynControlCxMaskEdit.ControlSetPasswordChar(Value: Char); -begin - if Value <> #0 then - Properties.EchoMode := eemPassword - else - Properties.EchoMode := eemNormal; -end; - -procedure TJvDynControlCxMaskEdit.ControlSetEditMask(const Value: string); -begin - Properties.EditMask := Value; - Properties.MaskKind := emkStandard; -end; - -//=== { TJvDynControlCxButtonEdit } ========================================== - -procedure TJvDynControlCxButtonEdit.ControlSetDefaultProperties; -begin - Properties.OnButtonClick := IntOnButtonClick; - Properties.MaskKind := emkStandard; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetReadOnly(Value: Boolean); -begin - Properties.ReadOnly := Value; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetTabOrder(Value: Integer); -begin - TabOrder := Value; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetOnEnter(Value: TNotifyEvent); -begin - OnEnter := Value; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetOnExit(Value: TNotifyEvent); -begin - OnExit := Value; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetOnChange(Value: TNotifyEvent); -begin - Properties.OnChange := Value; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetOnClick(Value: TNotifyEvent); -begin - -end; - -procedure TJvDynControlCxButtonEdit.ControlSetHint(const Value: string); -begin - Hint := Value; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetValue(Value: Variant); -begin - Text := VarToStr(Value); -end; - -function TJvDynControlCxButtonEdit.ControlGetValue: Variant; -begin - Result := Text; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetAnchors(Value: TAnchors); -begin - Anchors := Value; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetCxProperties(Value: TCxDynControlWrapper); -begin - Style.LookAndFeel.Assign(Value.LookAndFeel); - Style.StyleController := Value.StyleController; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetPasswordChar(Value: Char); -begin - if Value <> #0 then - Properties.EchoMode := eemPassword - else - Properties.EchoMode := eemNormal; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetEditMask(const Value: string); -begin - Properties.EditMask := Value; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetOnButtonClick(Value: TNotifyEvent); -begin - FIntOnButtonClick := Value;; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetButtonCaption(const Value: string); -begin - Properties.Buttons[0].DisplayName := Value; -end; - -procedure TJvDynControlCxButtonEdit.ControlSetGlyph(Value: TBitmap); -begin - Properties.Buttons[0].Glyph.Assign(Value); -end; - -procedure TJvDynControlCxButtonEdit.ControlSetNumGlyphs(Value: Integer); -begin -end; - -procedure TJvDynControlCxButtonEdit.ControlSetLayout(Value: TButtonLayout); -begin -end; - -procedure TJvDynControlCxButtonEdit.ControlSetDefault(Value: Boolean); -begin -end; - -procedure TJvDynControlCxButtonEdit.ControlSetCancel(Value: Boolean); -begin -end; - - -procedure TJvDynControlCxButtonEdit.IntOnButtonClick(Sender: TObject; - AButtonIndex: Integer); -begin - if Assigned(FIntOnButtonClick) then - FIntOnButtonClick(Sender); -end; - -//=== { TJvDynControlCxCalcEdit } ============================================ - -procedure TJvDynControlCxCalcEdit.ControlSetDefaultProperties; -begin -end; - -procedure TJvDynControlCxCalcEdit.ControlSetReadOnly(Value: Boolean); -begin - Properties.ReadOnly := Value; -end; - -procedure TJvDynControlCxCalcEdit.ControlSetTabOrder(Value: Integer); -begin - TabOrder := Value; -end; - -procedure TJvDynControlCxCalcEdit.ControlSetOnEnter(Value: TNotifyEvent); -begin - OnEnter := Value; -end; - -procedure TJvDynControlCxCalcEdit.ControlSetOnExit(Value: TNotifyEvent); -begin - OnExit := Value; -end; - -procedure TJvDynControlCxCalcEdit.ControlSetOnChange(Value: TNotifyEvent); -begin - Properties.OnChange := Value; -end; - -procedure TJvDynControlCxCalcEdit.ControlSetOnClick(Value: TNotifyEvent); -begin - -end; - -procedure TJvDynControlCxCalcEdit.ControlSetHint(const Value: string); -begin - Hint := Value; -end; - -procedure TJvDynControlCxCalcEdit.ControlSetValue(Value: Variant); -begin - Self.Value := Value; -end; - -function TJvDynControlCxCalcEdit.ControlGetValue: Variant; -begin - Result := Text; -end; - -procedure TJvDynControlCxCalcEdit.ControlSetAnchors(Value: TAnchors); -begin - Anchors := Value; -end; - -procedure TJvDynControlCxCalcEdit.ControlSetCxProperties(Value: TCxDynControlWrapper); -begin - Style.LookAndFeel.Assign(Value.LookAndFeel); - Style.StyleController := Value.StyleController; -end; - -//=== { TJvDynControlCxSpinEdit } ============================================ - -procedure TJvDynControlCxSpinEdit.ControlSetDefaultProperties; -begin - Text := '0'; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetReadOnly(Value: Boolean); -begin - Properties.ReadOnly := Value; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetTabOrder(Value: Integer); -begin - TabOrder := Value; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetOnEnter(Value: TNotifyEvent); -begin - OnEnter := Value; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetOnExit(Value: TNotifyEvent); -begin - OnExit := Value; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetOnChange(Value: TNotifyEvent); -begin - Properties.OnChange := Value; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetOnClick(Value: TNotifyEvent); -begin - -end; - -procedure TJvDynControlCxSpinEdit.ControlSetHint(const Value: string); -begin - Hint := Value; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetValue(Value: Variant); -begin - Self.Value := Value; -end; - -function TJvDynControlCxSpinEdit.ControlGetValue: Variant; -begin - Result := Value; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetAnchors(Value: TAnchors); -begin - Anchors := Value; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetIncrement(Value: Integer); -begin - Properties.Increment := Value; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetMinValue(Value: double); -begin - Properties.MinValue := Value; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetMaxValue(Value: double); -begin - Properties.MaxValue := Value; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetUseForInteger(Value: Boolean); -begin - if Value then - Properties.ValueType := vtInt - else - Properties.ValueType := vtFloat; -end; - -procedure TJvDynControlCxSpinEdit.ControlSetCxProperties(Value: TCxDynControlWrapper); -begin - Style.LookAndFeel.Assign(Value.LookAndFeel); - Style.StyleController := Value.StyleController; -end; - -//=== { TJvDynControlCxFileNameEdit } ======================================== - -procedure TJvDynControlCxFileNameEdit.DefaultOnButtonClick(Sender: TObject; AButtonIndex: Integer); -begin - if not Properties.ReadOnly then - begin - case FDialogKind of - jdkOpen: - with TOpenDialog.Create(Self) do - try - Options := FDialogOptions; - Title := FDialogTitle; - Filter := FFilter; - FilterIndex := FFilterIndex; - InitialDir := FInitialDir; - DefaultExt := FDefaultExt; - FileName := ControlGetValue; - if Execute then - ControlSetValue(FileName); - finally - Free; - end; - jdkOpenPicture: - with TOpenPictureDialog.Create(Self) do - try - Options := FDialogOptions; - Title := FDialogTitle; - Filter := FFilter; - FilterIndex := FFilterIndex; - InitialDir := FInitialDir; - DefaultExt := FDefaultExt; - FileName := ControlGetValue; - if Execute then - ControlSetValue(FileName); - finally - Free; - end; - jdkSave: - with TSaveDialog.Create(Self) do - try - Options := FDialogOptions; - Title := FDialogTitle; - Filter := FFilter; - FilterIndex := FFilterIndex; - InitialDir := FInitialDir; - DefaultExt := FDefaultExt; - FileName := ControlGetValue; - if Execute then - ControlSetValue(FileName); - finally - Free; - end; - jdkSavePicture: - with TSavePictureDialog.Create(Self) do - try - Options := FDialogOptions; - Title := FDialogTitle; - Filter := FFilter; - FilterIndex := FFilterIndex; - InitialDir := FInitialDir; - DefaultExt := FDefaultExt; - FileName := ControlGetValue; - if Execute then - ControlSetValue(FileName); - finally - Free; - end; - end; - if CanFocus then - SetFocus; - end; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetDefaultProperties; -begin - Properties.OnButtonClick := DefaultOnButtonClick; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetReadOnly(Value: Boolean); -begin - Properties.ReadOnly := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetTabOrder(Value: Integer); -begin - TabOrder := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetOnEnter(Value: TNotifyEvent); -begin - OnEnter := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetOnExit(Value: TNotifyEvent); -begin - OnExit := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetOnChange(Value: TNotifyEvent); -begin - Properties.OnChange := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetOnClick(Value: TNotifyEvent); -begin -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetHint(const Value: string); -begin - Hint := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetValue(Value: Variant); -begin - Text := VarToStr(Value); -end; - -function TJvDynControlCxFileNameEdit.ControlGetValue: Variant; -begin - Result := Text; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetAnchors(Value: TAnchors); -begin - Anchors := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetCxProperties(Value: TCxDynControlWrapper); -begin - Style.LookAndFeel.Assign(Value.LookAndFeel); - Style.StyleController := Value.StyleController; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetInitialDir(const Value: string); -begin - FInitialDir := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetDefaultExt(const Value: string); -begin - FDefaultExt := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetDialogTitle(const Value: string); -begin - FDialogTitle := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetDialogOptions(Value: TOpenOptions); -begin - FDialogOptions := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetFilter(const Value: string); -begin - FFilter := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetFilterIndex(Value: Integer); -begin - FFilterIndex := Value; -end; - -procedure TJvDynControlCxFileNameEdit.ControlSetDialogKind(Value: TJvDynControlFileNameDialogKind); -begin - FDialogKind := Value; -end; - -//=== { TJvDynControlCxDirectoryEdit } ======================================= - -procedure TJvDynControlCxDirectoryEdit.DefaultOnButtonClick(Sender: TObject; AButtonIndex: Integer); -var - Dir: string; -begin - if not Properties.ReadOnly then - begin - Dir := ControlGetValue; - if Dir = '' then - begin - if FInitialDir <> '' then - Dir := FInitialDir - else - Dir := '\'; - end; - if not DirectoryExists(Dir) then - Dir := '\'; - if BrowseForFolder('', True, Dir, HelpContext) then -// if SelectDirectory(Dir, FDialogOptions, HelpContext) then - ControlSetValue(Dir); - if CanFocus then - SetFocus; - end; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetDefaultProperties; -begin - Properties.OnButtonClick := DefaultOnButtonClick; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetReadOnly(Value: Boolean); -begin - Properties.ReadOnly := Value; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetTabOrder(Value: Integer); -begin - TabOrder := Value; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetOnEnter(Value: TNotifyEvent); -begin - OnEnter := Value; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetOnExit(Value: TNotifyEvent); -begin - OnExit := Value; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetOnChange(Value: TNotifyEvent); -begin - Properties.OnChange := Value; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetOnClick(Value: TNotifyEvent); -begin -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetHint(const Value: string); -begin - Hint := Value; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetValue(Value: Variant); -begin - Text := VarToStr(Value); -end; - -function TJvDynControlCxDirectoryEdit.ControlGetValue: Variant; -begin - Result := Text; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetAnchors(Value: TAnchors); -begin - Anchors := Value; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetCxProperties(Value: TCxDynControlWrapper); -begin - Style.LookAndFeel.Assign(Value.LookAndFeel); - Style.StyleController := Value.StyleController; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetInitialDir(const Value: string); -begin - FInitialDir := Value; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetDialogTitle(const Value: string); -begin - FDialogTitle := Value; -end; - -procedure TJvDynControlCxDirectoryEdit.ControlSetDialogOptions(Value: TSelectDirOpts); -begin - FDialogOptions := Value; -end; - -//=== { TJvDynControlCxDateTimeEdit } ======================================== - -procedure TJvDynControlCxDateTimeEdit.ControlSetDefaultProperties; -begin - Properties.ShowTime := True; - Properties.SaveTime := False; - Properties.InputKind := ikStandard; -end; - -procedure TJvDynControlCxDateTimeEdit.ControlSetReadOnly(Value: Boolean); -begin - Properties.ReadOnly := Value; -end; - -procedure TJvDynControlCxDateTimeEdit.ControlSetTabOrder(Value: Integer); -begin - TabOrder := Value; -end; - -procedure TJvDynControlCxDateTimeEdit.ControlSetOnEnter(Value: TNotifyEvent); -begin - OnEnter := Value; -end; - -procedure TJvDynControlCxDateTimeEdit.ControlSetOnExit(Value: TNotifyEvent); -begin - OnExit := Value; -end; - -procedure TJvDynControlCxDateTimeEdit.ControlSetOnChange(Value: TNotifyEvent); -begin - Properties.OnChange := Value; -end; - -procedure TJvDynControlCxDateTimeEdit.ControlSetOnClick(Value: TNotifyEvent); -begin -end; - -procedure TJvDynControlCxDateTimeEdit.ControlSetHint(const Value: string); -begin - Hint := Value; -end; - -procedure TJvDynControlCxDateTimeEdit.ControlSetValue(Value: Variant); -begin - Date := Value; -end; - -function TJvDynControlCxDateTimeEdit.ControlGetValue: Variant; -begin - if Text = '' then - Result := Null - else - Result := Date; -end; - -procedure TJvDynControlCxDateTimeEdit.ControlSetAnchors(Value: TAnchors); -begin - Anchors := Value; -end; - -// IJvDynControlDate -procedure TJvDynControlCxDateTimeEdit.ControlSetMinDate(Value: TDateTime); -begin - Properties.MinDate := Value; -end; - -procedure TJvDynControlCxDateTimeEdit.ControlSetMaxDate(Value: TDateTime); -begin - Properties.MaxDate := Value; -end; - -procedure TJvDynControlCxDateTimeEdit.ControlSetFormat(const Value: string); -begin -// Format := Value; -end; - -procedure TJvDynControlCxDateTimeEdit.ControlSetCxProperties(Value: TCxDynControlWrapper); -begin - Style.LookAndFeel.Assign(Value.LookAndFeel); - Style.StyleController := Value.StyleController; -end; - -//=== { TJvDynControlCxDateEdit } ============================================ - -procedure TJvDynControlCxDateEdit.ControlSetDefaultProperties; -begin - Properties.ShowTime := False; - Properties.SaveTime := False; - Properties.InputKind := ikStandard; -end; - -procedure TJvDynControlCxDateEdit.ControlSetReadOnly(Value: Boolean); -begin - Properties.ReadOnly := Value; -end; - -procedure TJvDynControlCxDateEdit.ControlSetTabOrder(Value: Integer); -begin - TabOrder := Value; -end; - -procedure TJvDynControlCxDateEdit.ControlSetOnEnter(Value: TNotifyEvent); -begin - OnEnter := Value; -end; - -procedure TJvDynControlCxDateEdit.ControlSetOnExit(Value: TNotifyEvent); -begin - OnExit := Value; -end; - -procedure TJvDynControlCxDateEdit.ControlSetOnChange(Value: TNotifyEvent); -begin - Properties.OnChange := Value; -end; - -procedure TJvDynControlCxDateEdit.ControlSetOnClick(Value: TNotifyEvent); -begin -end; - -procedure TJvDynControlCxDateEdit.ControlSetHint(const Value: string); -begin - Hint := Value; -end; - -procedure TJvDynControlCxDateEdit.ControlSetValue(Value: Variant); -begin - Date := Value; -end; - -function TJvDynControlCxDateEdit.ControlGetValue: Variant; -begin - if Text = '' then - Result := Null - else - Result := Date; -end; - -procedure TJvDynControlCxDateEdit.ControlSetAnchors(Value: TAnchors); -begin - Anchors := Value; -end; - -// IJvDynControlDate -procedure TJvDynControlCxDateEdit.ControlSetMinDate(Value: TDateTime); -begin - Properties.MinDate := Value; -end; - -procedure TJvDynControlCxDateEdit.ControlS... [truncated message content] |