From: <ob...@us...> - 2006-04-19 09:08:35
|
Revision: 10525 Author: obones Date: 2006-04-19 02:08:23 -0700 (Wed, 19 Apr 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10525&view=rev Log Message: ----------- Mantis 3342: Reworked class hierarchy for actions Modified Paths: -------------- trunk/jvcl/run/JvBaseDlg.pas trunk/jvcl/run/JvDesktopAlert.pas trunk/jvcl/run/JvDialogActns.pas trunk/jvcl/run/JvImageDlg.pas trunk/jvcl/run/JvJVCLAboutForm.pas trunk/jvcl/run/JvProgressDialog.pas trunk/jvcl/run/JvTipOfDay.pas trunk/jvcl/run/JvWinDialogs.pas Modified: trunk/jvcl/run/JvBaseDlg.pas =================================================================== --- trunk/jvcl/run/JvBaseDlg.pas 2006-04-19 08:58:37 UTC (rev 10524) +++ trunk/jvcl/run/JvBaseDlg.pas 2006-04-19 09:08:23 UTC (rev 10525) @@ -48,29 +48,29 @@ property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; end; - TJvCommonDialogP = class(TJvComponent) + TJvCommonDialogP = class(TJvCommonDialog) public {$IFDEF CLR} procedure DefaultHandler(var Msg); virtual; {$ENDIF CLR} - procedure Execute; virtual; abstract; +// procedure Execute; virtual; abstract; end; // (rom) alternative to TJvCommonDialogP - TJvCommonDialogF = class(TJvComponent) + TJvCommonDialogF = class(TJvCommonDialog) public {$IFDEF CLR} procedure DefaultHandler(var Msg); virtual; {$ENDIF CLR} - function Execute: Boolean; virtual; abstract; +// function Execute: Boolean; virtual; abstract; end; {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$RCSfile: JvBaseDlg.pas,v $'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvDesktopAlert.pas =================================================================== --- trunk/jvcl/run/JvDesktopAlert.pas 2006-04-19 08:58:37 UTC (rev 10524) +++ trunk/jvcl/run/JvDesktopAlert.pas 2006-04-19 09:08:23 UTC (rev 10525) @@ -215,7 +215,7 @@ destructor Destroy; override; function Showing: Boolean; procedure Close(Immediate: Boolean); - procedure Execute; override; + function Execute: Boolean; override; property Form: TJvFormDesktopAlert read FDesktopForm; property Data: TObject read FData write FData; property StyleHandler: TJvCustomDesktopAlertStyleHandler read FStyleHandler write SetStyleHandler; @@ -440,7 +440,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$RCSfile: JvDesktopAlert.pas,v $'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' @@ -726,7 +726,7 @@ end; end; -procedure TJvDesktopAlert.Execute; +function TJvDesktopAlert.Execute: Boolean; var ARect: TRect; I, X, Y: Integer; @@ -854,6 +854,7 @@ end; FDesktopForm.AllowFocus := AutoFocus; FDesktopForm.ShowNoActivate; + Result := True; if not AutoFocus and (FActiveFocus <> GetFocus) then begin if (FActiveFocus <> NullHandle) then Modified: trunk/jvcl/run/JvDialogActns.pas =================================================================== --- trunk/jvcl/run/JvDialogActns.pas 2006-04-19 08:58:37 UTC (rev 10524) +++ trunk/jvcl/run/JvDialogActns.pas 2006-04-19 09:08:23 UTC (rev 10525) @@ -95,8 +95,6 @@ protected FDialog: TJvCommonDialog; function GetDialogClass: TJvCommonDialogClass; virtual; - property OnAccept: TNotifyEvent read FOnAccept write FOnAccept; - property OnCancel: TNotifyEvent read FOnCancel write FOnCancel; public constructor Create(AOwner: TComponent); override; function HandlesTarget(Target: TObject): Boolean; override; @@ -116,19 +114,20 @@ property SecondaryShortCuts; {$ENDIF COMPILER6_UP} property Visible; + property OnAccept: TNotifyEvent read FOnAccept write FOnAccept; + property OnCancel: TNotifyEvent read FOnCancel write FOnCancel; end; - TJvCommonDialogPAction = class(TCustomAction) + TJvCommonDialogPAction = class(TJvCommonDialogAction) private FBeforeExecute: TNotifyEvent; FAfterExecute: TNotifyEvent; protected - FDialog: TJvCommonDialogP; - function GetDialogClass: TJvCommonDialogPClass; virtual; + //FDialog: TJvCommonDialogP; + function GetDialogClass: TJvCommonDialogPClass; reintroduce; virtual; public constructor Create(AOwner: TComponent); override; function HandlesTarget(Target: TObject): Boolean; override; - procedure ExecuteTarget(Target: TObject); override; published property Caption; property Enabled; @@ -144,17 +143,18 @@ property AfterExecute: TNotifyEvent read FAfterExecute write FAfterExecute; end; + // (obones): what's the point of this class, it's the exact same as + // TJvCommonDialogPAction? TJvCommonDialogFAction = class(TJvCommonDialogAction) private FBeforeExecute: TNotifyEvent; FAfterExecute: TNotifyEvent; protected - FDialog: TJvCommonDialogF; + //FDialog: TJvCommonDialogF; function GetDialogClass: TJvCommonDialogFClass; reintroduce; virtual; public constructor Create(AOwner: TComponent); override; function HandlesTarget(Target: TObject): Boolean; override; - procedure ExecuteTarget(Target: TObject); override; published property Caption; property Enabled; @@ -317,7 +317,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$RCSfile: JvDialogActns.pas,v $'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' @@ -398,18 +398,6 @@ Enabled := True; end; -procedure TJvCommonDialogPAction.ExecuteTarget(Target: TObject); -begin - if Assigned(FDialog) then - begin - if Assigned(FBeforeExecute) then - FBeforeExecute(Self); - FDialog.Execute; - if Assigned(FAfterExecute) then - FAfterExecute(Self); - end; -end; - function TJvCommonDialogPAction.GetDialogClass: TJvCommonDialogPClass; begin Result := nil; @@ -440,18 +428,6 @@ Enabled := True; end; -procedure TJvCommonDialogFAction.ExecuteTarget(Target: TObject); -begin - if Assigned(FDialog) then - begin - if Assigned(FBeforeExecute) then - FBeforeExecute(Self); - FDialog.Execute; - if Assigned(FAfterExecute) then - FAfterExecute(Self); - end; -end; - function TJvCommonDialogFAction.GetDialogClass: TJvCommonDialogFClass; begin Result := nil; Modified: trunk/jvcl/run/JvImageDlg.pas =================================================================== --- trunk/jvcl/run/JvImageDlg.pas 2006-04-19 08:58:37 UTC (rev 10524) +++ trunk/jvcl/run/JvImageDlg.pas 2006-04-19 09:08:23 UTC (rev 10525) @@ -53,13 +53,13 @@ published property Picture: TPicture read GetPicture write SetPicture; property Title: string read FTitle write FTitle; - procedure Execute; override; + function Execute: Boolean; override; end; {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$RCSfile: JvImageDlg.pas,v $'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' @@ -84,11 +84,12 @@ inherited Destroy; end; -procedure TJvImageDialog.Execute; +function TJvImageDialog.Execute: Boolean; var Form: TJvForm; Image1: TImage; begin + Result := False; if (Picture.Height <> 0) and (Picture.Width <> 0) then begin Form := TJvForm.CreateNew(Self); @@ -104,7 +105,7 @@ Form.Caption := FTitle; Image1.SetBounds(0,0,Picture.Width,Picture.Height); Image1.Anchors := [akTop, akLeft, akRight, akBottom]; - Form.ShowModal; + Result := Form.ShowModal = mrOk; finally Form.Free; end; Modified: trunk/jvcl/run/JvJVCLAboutForm.pas =================================================================== --- trunk/jvcl/run/JvJVCLAboutForm.pas 2006-04-19 08:58:37 UTC (rev 10524) +++ trunk/jvcl/run/JvJVCLAboutForm.pas 2006-04-19 09:08:23 UTC (rev 10525) @@ -87,14 +87,14 @@ public procedure LoadOptions; procedure SaveOptions; - class procedure Execute(StoreSettings: Boolean); + class function Execute(StoreSettings: Boolean): Boolean; end; TJvJVCLAboutComponent = class(TJvCommonDialogP) private FStoreSettings: Boolean; public - procedure Execute; override; + function Execute: Boolean; override; published property StoreSettings: Boolean read FStoreSettings write FStoreSettings default False; end; @@ -102,7 +102,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$RCSfile: JvJVCLAboutForm.pas,v $'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' @@ -243,12 +243,12 @@ Close; end; -procedure TJvJVCLAboutComponent.Execute; +function TJvJVCLAboutComponent.Execute: Boolean; begin - TJvJVCLAboutForm.Execute(StoreSettings); + Result := TJvJVCLAboutForm.Execute(StoreSettings); end; -class procedure TJvJVCLAboutForm.Execute(StoreSettings: Boolean); +class function TJvJVCLAboutForm.Execute(StoreSettings: Boolean): Boolean; begin with Self.Create(Application) do try @@ -257,7 +257,7 @@ // (rom) used as component outside the IDE the buttons are not useful btnHelp.Visible := StoreSettings; btnOptions.Visible := StoreSettings; - ShowModal; + Result := ShowModal = mrOk; if StoreSettings then SaveOptions; finally Modified: trunk/jvcl/run/JvProgressDialog.pas =================================================================== --- trunk/jvcl/run/JvProgressDialog.pas 2006-04-19 08:58:37 UTC (rev 10524) +++ trunk/jvcl/run/JvProgressDialog.pas 2006-04-19 09:08:23 UTC (rev 10525) @@ -137,8 +137,8 @@ AInterval: Integer; var ACaption, ALabel: string; AnImage: TPicture; var AContinue: Boolean); procedure InternalDoCancel(Sender: TObject); - procedure DoShow; - procedure DoClose; + procedure DoShow; override; + procedure DoClose; override; procedure StoreValues; procedure RestoreValues; public @@ -175,7 +175,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$RCSfile: JvProgressDialog.pas,v $'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvTipOfDay.pas =================================================================== --- trunk/jvcl/run/JvTipOfDay.pas 2006-04-19 08:58:37 UTC (rev 10524) +++ trunk/jvcl/run/JvTipOfDay.pas 2006-04-19 09:08:23 UTC (rev 10525) @@ -136,7 +136,7 @@ public constructor Create(AOwner: TComponent); override; destructor Destroy; override; - procedure Execute; override; + function Execute: Boolean; override; procedure Notification(AComponent: TComponent; Operation: TOperation); override; procedure LoadFromFile(const AFileName: string); procedure SaveToFile(const AFileName: string); @@ -163,7 +163,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$RCSfile: JvTipOfDay.pas,v $'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' @@ -269,10 +269,11 @@ FOnAfterExecute(Self); end; -procedure TJvTipOfDay.Execute; +function TJvTipOfDay.Execute: Boolean; var LForm: TJvForm; begin + Result := False; // Reentrance check if FRunning then Exit; @@ -305,7 +306,7 @@ UpdateTip; {$IFDEF VCL} - ShowModal; + Result := ShowModal = mrOk; if not (toHideStartupCheckbox in Options) then if TButtonControlAccessProtected(FCheckBox).Checked then @@ -328,6 +329,7 @@ OnHide := FormHide ; // onclose FormStyle := fsStayOnTop; Show ; // Shown non modal + Result := True; except Free; end; Modified: trunk/jvcl/run/JvWinDialogs.pas =================================================================== --- trunk/jvcl/run/JvWinDialogs.pas 2006-04-19 08:58:37 UTC (rev 10524) +++ trunk/jvcl/run/JvWinDialogs.pas 2006-04-19 09:08:23 UTC (rev 10525) @@ -283,7 +283,7 @@ public constructor Create(AOwner: TComponent); override; destructor Destroy; override; - procedure Execute; override; + function Execute: Boolean; override; published property Caption: string read FCaption write FCaption; property Description: string read FDescription write FDescription; @@ -307,21 +307,21 @@ private FDestinationFolder: string; public - procedure Execute; override; + function Execute: Boolean; override; published property DestinationFolder: string read FDestinationFolder write FDestinationFolder; end; TJvAddHardwareDialog = class(TJvCommonDialogP) public - procedure Execute; override; + function Execute: Boolean; override; end; TJvOpenWithDialog = class(TJvCommonDialogP) private FFileName: TFileName; public - procedure Execute; override; + function Execute: Boolean; override; published property FileName: TFileName read FFileName write FFileName; end; @@ -340,7 +340,7 @@ TJvExitWindowsDialog = class(TJvCommonDialogP) public - procedure Execute; override; + function Execute: Boolean; override; end; {$IFDEF VCL} @@ -599,7 +599,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$RCSfile: JvWinDialogs.pas,v $'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' @@ -1308,7 +1308,7 @@ inherited Destroy; end; -procedure TJvRunDialog.Execute; +function TJvRunDialog.Execute: Boolean; var CaptionBuffer: Pointer; DescriptionBuffer: Pointer; @@ -1340,12 +1340,12 @@ if Assigned(SHRunDialog) then {$IFDEF VCL} - SHRunDialog(GetForegroundWindow, FIcon.Handle, nil, CaptionBuffer, - DescriptionBuffer, 0) + Result := SHRunDialog(GetForegroundWindow, FIcon.Handle, nil, CaptionBuffer, + DescriptionBuffer, 0) = 0 {$ENDIF VCL} {$IFDEF VisualCLX} - SHRunDialog(GetForegroundWindow, 0, nil, CaptionBuffer, - DescriptionBuffer, 0) + Result := SHRunDialog(GetForegroundWindow, 0, nil, CaptionBuffer, + DescriptionBuffer, 0) = 0 {$ENDIF VisualCLX} else raise EWinDialogError.CreateRes(@RsENotSupported); @@ -1423,24 +1423,27 @@ //=== { TJvNewLinkDialog } =================================================== -procedure TJvNewLinkDialog.Execute; +function TJvNewLinkDialog.Execute: Boolean; begin NewLinkHere(0, 0, PChar(DestinationFolder), 0); + Result := True; // No way to know it worked end; //=== { TJvAddHardwareDialog } =============================================== -procedure TJvAddHardwareDialog.Execute; +function TJvAddHardwareDialog.Execute: Boolean; var APModule: THandle; Applet: TCplApplet; begin + Result := False; APModule := LoadLibrary('hdwwiz.cpl'); if APModule <= HINSTANCE_ERROR then Exit; Applet := TCplApplet(GetProcAddress(APModule, 'CPlApplet')); Applet(0, CPL_DBLCLK, 0, 0); FreeLibrary(APModule); + Result := True; end; function CreateShellLink(const AppName, Desc: string; Dest: string): string; @@ -1578,9 +1581,10 @@ //=== { TJvOpenWithDialog } ================================================== -procedure TJvOpenWithDialog.Execute; +function TJvOpenWithDialog.Execute: Boolean; begin SHOpenWith(0, 0, PChar(FileName), SW_SHOW); + Result := True; // No way to know it worked end; //=== { TJvDiskFullDialog } ================================================== @@ -1618,9 +1622,10 @@ //=== { TJvExitWindowsDialog } =============================================== -procedure TJvExitWindowsDialog.Execute; +function TJvExitWindowsDialog.Execute: Boolean; begin SHShutDownDialog(GetForegroundWindow); + Result := True; end; //=== { TJvChangeIconDialog } ================================================ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-04-22 15:29:24
|
Revision: 10549 Author: marquardt Date: 2006-04-22 08:29:05 -0700 (Sat, 22 Apr 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10549&view=rev Log Message: ----------- removed DesignSize and Explicit* entries Modified Paths: -------------- trunk/jvcl/examples/Globus/Visual Components Demo/glDemo.dfm trunk/jvcl/examples/JvAppStorage/SubStorage Example/JvAppStorageSubStorageMainFrm.dfm trunk/jvcl/examples/JvScrollingWindow/ScrollWinMainFormU.dfm trunk/jvcl/examples/JvShellHook/JvShellHookDemoMainFormU.dfm trunk/jvcl/install/JVCLInstall/Main.dfm trunk/jvcl/run/JvDBQueryParamsForm.dfm Modified: trunk/jvcl/examples/Globus/Visual Components Demo/glDemo.dfm =================================================================== --- trunk/jvcl/examples/Globus/Visual Components Demo/glDemo.dfm 2006-04-22 10:59:04 UTC (rev 10548) +++ trunk/jvcl/examples/Globus/Visual Components Demo/glDemo.dfm 2006-04-22 15:29:05 UTC (rev 10549) @@ -120,10 +120,6 @@ Options = [ftoAutoFontDirection, ftoExcludeGlyphs] object TabSheet1: TTabSheet Caption = 'ListBox ' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object glListBox1: TJvgListBox Left = 0 Top = 0 @@ -543,10 +539,6 @@ end object TabSheet2: TTabSheet Caption = ' AskListBox ' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object FrAskListBox1: TJvgAskListBox Left = 0 Top = 17 @@ -1327,10 +1319,6 @@ Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Image2: TImage Left = 26 Top = 164 @@ -2600,10 +2588,6 @@ end object TabSheet4: TTabSheet Caption = 'Page&&TabControl' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object glTabControl3: TJvgTabControl Left = 328 Top = 6 @@ -3711,10 +3695,6 @@ end object TabSheet5: TTabSheet Caption = 'Bevel ' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object glBevel2: TJvgBevel Left = 61 Top = 98 @@ -3861,10 +3841,6 @@ end object TabSheet6: TTabSheet Caption = 'TreeView ' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object glSplitter2: TJvgSplitter Left = 259 Top = 0 @@ -4325,10 +4301,6 @@ end object TabSheet7: TTabSheet Caption = 'Shadow ' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object glShadow13: TJvgShadow Left = 454 Top = 186 @@ -4834,10 +4806,6 @@ end object TabSheet8: TTabSheet Caption = ' BitmapImage ' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Panel3: TPanel Left = 0 Top = 0 @@ -4963,10 +4931,6 @@ end object TabSheet9: TTabSheet Caption = 'FlyingText ' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Panel5: TPanel Left = 0 Top = 0 @@ -5018,10 +4982,6 @@ end object TabSheet10: TTabSheet Caption = 'Digits ' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object diTime: TJvgDigits Left = 3 Top = -1 @@ -5881,10 +5841,6 @@ end object TabSheet11: TTabSheet Caption = 'GroupBox ' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Label2: TLabel Left = 214 Top = 8 @@ -6471,10 +6427,6 @@ end object TabSheet12: TTabSheet Caption = ' About ' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Shape2: TShape Left = 0 Top = 0 @@ -8218,10 +8170,6 @@ end object TabSheet13: TTabSheet Caption = 'Splitter ' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object glSplitter1: TJvgSplitter Left = 157 Top = 0 @@ -8255,10 +8203,6 @@ end object TabSheet14: TTabSheet Caption = ' HoleShape ' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object glBevel5a: TJvgBevel Left = 0 Top = 0 @@ -8291,10 +8235,6 @@ object TabSheet15: TTabSheet Caption = 'Ruler ' ImageIndex = 14 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object glRuler1: TJvgRuler Left = 0 Top = 0 @@ -8315,10 +8255,6 @@ object TabSheet16: TTabSheet Caption = 'Buttons ' ImageIndex = 15 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object glSpeedButton1: TJvgSpeedButton Left = 208 Top = 16 @@ -8395,10 +8331,6 @@ object TabSheet17: TTabSheet Caption = 'WizardHeader ' ImageIndex = 16 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object glWizardHeader1: TJvgWizardHeader Left = 0 Top = 0 @@ -8522,10 +8454,6 @@ object TabSheet18: TTabSheet Caption = 'Progress ' ImageIndex = 17 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object glProgress1: TJvgProgress Left = 8 Top = 16 @@ -8768,10 +8696,6 @@ object TabSheet19: TTabSheet Caption = 'Nonvisual ' ImageIndex = 18 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Image1: TImage Left = 10 Top = 16 @@ -9491,10 +9415,6 @@ object TabSheet20: TTabSheet Caption = 'CheckBox' ImageIndex = 19 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object glCheckBox1: TJvgCheckBox Tag = 1 Left = 14 Modified: trunk/jvcl/examples/JvAppStorage/SubStorage Example/JvAppStorageSubStorageMainFrm.dfm =================================================================== --- trunk/jvcl/examples/JvAppStorage/SubStorage Example/JvAppStorageSubStorageMainFrm.dfm 2006-04-22 10:59:04 UTC (rev 10548) +++ trunk/jvcl/examples/JvAppStorage/SubStorage Example/JvAppStorageSubStorageMainFrm.dfm 2006-04-22 15:29:05 UTC (rev 10549) @@ -44,7 +44,6 @@ Height = 13 Align = alTop Caption = 'Stored Memo:' - ExplicitWidth = 66 end object Memo2: TMemo Left = 1 Modified: trunk/jvcl/examples/JvScrollingWindow/ScrollWinMainFormU.dfm =================================================================== --- trunk/jvcl/examples/JvScrollingWindow/ScrollWinMainFormU.dfm 2006-04-22 10:59:04 UTC (rev 10548) +++ trunk/jvcl/examples/JvScrollingWindow/ScrollWinMainFormU.dfm 2006-04-22 15:29:05 UTC (rev 10549) @@ -20,9 +20,6 @@ Position = poDesktopCenter Scaled = False OnResize = FormResize - DesignSize = ( - 392 - 306) PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Modified: trunk/jvcl/examples/JvShellHook/JvShellHookDemoMainFormU.dfm =================================================================== --- trunk/jvcl/examples/JvShellHook/JvShellHookDemoMainFormU.dfm 2006-04-22 10:59:04 UTC (rev 10548) +++ trunk/jvcl/examples/JvShellHook/JvShellHookDemoMainFormU.dfm 2006-04-22 15:29:05 UTC (rev 10549) @@ -27,9 +27,6 @@ ShowHint = True OnCreate = FormCreate OnDestroy = FormDestroy - DesignSize = ( - 532 - 253) PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel @@ -54,8 +51,6 @@ Caption = '&Clear' TabOrder = 3 OnClick = btnClearClick - ExplicitLeft = 448 - ExplicitTop = 207 end object chkActive: TCheckBox Left = 16 @@ -66,7 +61,6 @@ Caption = '&Active' TabOrder = 1 OnClick = chkActiveClick - ExplicitTop = 197 end object chkNoRedraw: TCheckBox Left = 16 @@ -78,7 +72,6 @@ Checked = True State = cbChecked TabOrder = 2 - ExplicitTop = 220 end object lvMessages: TListView Left = 8 @@ -111,7 +104,5 @@ TabOrder = 0 ViewStyle = vsReport OnResize = lvMessagesResize - ExplicitWidth = 515 - ExplicitHeight = 155 end end Modified: trunk/jvcl/install/JVCLInstall/Main.dfm =================================================================== --- trunk/jvcl/install/JVCLInstall/Main.dfm 2006-04-22 10:59:04 UTC (rev 10548) +++ trunk/jvcl/install/JVCLInstall/Main.dfm 2006-04-22 15:29:05 UTC (rev 10549) @@ -54,9 +54,6 @@ OnCancelButtonClick = JvWizardCancelButtonClick OnActivePageChanged = JvWizardActivePageChanged OnActivePageChanging = JvWizardActivePageChanging - DesignSize = ( - 683 - 493) object LblHomepage: TLabel Left = 8 Top = 473 Modified: trunk/jvcl/run/JvDBQueryParamsForm.dfm =================================================================== (Binary files differ) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2006-04-23 10:57:48
|
Revision: 10556 Author: obones Date: 2006-04-23 03:57:29 -0700 (Sun, 23 Apr 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10556&view=rev Log Message: ----------- Grabber classes now have to override Grab instead of Execute. This is to ensure the gsClosed state is always and other cleanups are done. Modified Paths: -------------- trunk/jvcl/run/JvUrlGrabbers.pas trunk/jvcl/run/JvUrlListGrabber.pas Modified: trunk/jvcl/run/JvUrlGrabbers.pas =================================================================== --- trunk/jvcl/run/JvUrlGrabbers.pas 2006-04-23 10:44:28 UTC (rev 10555) +++ trunk/jvcl/run/JvUrlGrabbers.pas 2006-04-23 10:57:29 UTC (rev 10556) @@ -154,8 +154,7 @@ TJvFtpUrlGrabberThread = class(TJvCustomUrlGrabberThread) protected function GetGrabber: TJvFtpUrlGrabber; - procedure Closed; - procedure Execute; override; + procedure Grab; override; public property Grabber: TJvFtpUrlGrabber read GetGrabber; end; @@ -230,10 +229,8 @@ protected FContinue: Boolean; function GetGrabber: TJvHttpUrlGrabber; - procedure Execute; override; - procedure Closed; + procedure Grab; override; public - constructor Create(Grabber: TJvCustomUrlGrabber); override; property Grabber: TJvHttpUrlGrabber read GetGrabber; end; @@ -283,8 +280,7 @@ TJvLocalFileUrlGrabberThread = class(TJvCustomUrlGrabberThread) protected function GetGrabber: TJvLocalFileUrlGrabber; - procedure Execute; override; - procedure Closed; + procedure Grab; override; public property Grabber: TJvLocalFileUrlGrabber read GetGrabber; end; @@ -567,12 +563,7 @@ //=== { TJvFtpUrlGrabberThread } ============================================= -procedure TJvFtpUrlGrabberThread.Closed; -begin - Grabber.DoClosed; -end; - -procedure TJvFtpUrlGrabberThread.Execute; +procedure TJvFtpUrlGrabberThread.Grab; const cPassive: array [Boolean] of DWORD = (0, INTERNET_FLAG_PASSIVE); var @@ -584,8 +575,6 @@ Buf: array [0..1023] of Byte; dwFileSizeHigh: DWORD; begin - Grabber.Stream := nil; - SetGrabberStatus(gsStopped); hSession := nil; hHostConnection := nil; hDownload := nil; @@ -694,10 +683,6 @@ except end; finally - //Free all stuff's - Grabber.Stream.Free; - Grabber.Stream := nil; - //Release all handles // (rom) now all connections get closed and Closed is always signalled if (hDownload <> nil) and not InternetCloseHandle(hDownload) then @@ -715,11 +700,6 @@ ErrorText := GetLastInternetError; Synchronize(Error); end; - - // (obones): Set stopped before calling closed so that users can change - // the URL in an OnConnectionClosed event handler. - SetGrabberStatus(gsStopped); - Synchronize(Closed); end; end; @@ -730,17 +710,7 @@ //=== { TJvHttpUrlGrabberThread } ============================================ -procedure TJvHttpUrlGrabberThread.Closed; -begin - Grabber.DoClosed; -end; - -constructor TJvHttpUrlGrabberThread.Create(Grabber: TJvCustomUrlGrabber); -begin - inherited Create(Grabber); -end; - -procedure TJvHttpUrlGrabberThread.Execute; +procedure TJvHttpUrlGrabberThread.Grab; var hSession, hHostConnection, hDownload: HINTERNET; HostName, FileName, strUserName, strPassword: string; @@ -754,8 +724,6 @@ Buffer := nil; FContinue := True; - SetGrabberStatus(gsStopped); - Grabber.Stream := nil; hSession := nil; hHostConnection := nil; hDownload := nil; @@ -903,8 +871,6 @@ // Free all stuff's if Buffer <> nil then FreeMem(Buffer); - Grabber.Stream.Free; - Grabber.Stream := nil; // Release all handles if (hDownload <> nil) and not InternetCloseHandle(hDownload) then @@ -922,11 +888,6 @@ ErrorText := GetLastInternetError; Synchronize(Error); end; - - // (obones): Set stopped before calling closed so that users can change - // the URL in an OnConnectionClosed event handler. - SetGrabberStatus(gsStopped); - Synchronize(Closed); end; end; @@ -1008,12 +969,7 @@ //=== { TJvLocalFileUrlGrabberThread } ======================================= -procedure TJvLocalFileUrlGrabberThread.Closed; -begin - Grabber.DoClosed; -end; - -procedure TJvLocalFileUrlGrabberThread.Execute; +procedure TJvLocalFileUrlGrabberThread.Grab; var FileName: string; BytesRead, TotalBytes: DWORD; @@ -1021,8 +977,6 @@ AFileStream: TFileStream; Attrs: Integer; begin - SetGrabberStatus(gsStopped); - Grabber.Stream := nil; Grabber.ParseUrl(Grabber.Url, FileName); if not FileExists(FileName) then begin @@ -1065,13 +1019,6 @@ SetFileAttributes(PChar(Grabber.FileName), Attrs); finally AFileStream.Free; - Grabber.Stream.Free; - Grabber.Stream := nil; - - // (obones): Set stopped before calling closed so that users can change - // the URL in an OnConnectionClosed event handler. - SetGrabberStatus(gsStopped); - Synchronize(Closed); end; except // Application.HandleException(Self); Modified: trunk/jvcl/run/JvUrlListGrabber.pas =================================================================== --- trunk/jvcl/run/JvUrlListGrabber.pas 2006-04-23 10:44:28 UTC (rev 10555) +++ trunk/jvcl/run/JvUrlListGrabber.pas 2006-04-23 10:57:29 UTC (rev 10556) @@ -488,8 +488,19 @@ FContinue: Boolean; protected FGrabber: TJvCustomUrlGrabber; + + procedure Execute; override; + + // Derived classes must not override Execute. They must instead override + // Grab which is called by this class' Execute. This is done to ensure + // that all derived classes will always set the status back to gsStopped + // and trigger the OnConnectionClosed event at the end. + procedure Grab; virtual; abstract; + procedure Error; procedure Ended; + procedure Closed; + procedure UpdateGrabberProgress; procedure UpdateGrabberStatus; @@ -1173,6 +1184,11 @@ //=== { TJvCustomUrlGrabberThread } ========================================== +procedure TJvCustomUrlGrabberThread.Closed; +begin + FGrabber.DoClosed; +end; + constructor TJvCustomUrlGrabberThread.Create(Grabber: TJvCustomUrlGrabber); begin inherited Create(True); @@ -1201,6 +1217,23 @@ FGrabber.DoError(FErrorText); end; +procedure TJvCustomUrlGrabberThread.Execute; +begin + SetGrabberStatus(gsStopped); + FGrabber.Stream := nil; + try + Grab; + finally + //Free all stuff's + FGrabber.Stream.Free; + FGrabber.Stream := nil; + + // Signal Closed, after having changed the state of the grabber + SetGrabberStatus(gsStopped); + Synchronize(Closed); + end; +end; + procedure TJvCustomUrlGrabberThread.SetGrabberStatus( Status: TJvGrabberStatus); begin This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2006-04-23 12:42:50
|
Revision: 10559 Author: obones Date: 2006-04-23 05:42:37 -0700 (Sun, 23 Apr 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10559&view=rev Log Message: ----------- Prevents starting and changing urls while at least one grabber is running Modified Paths: -------------- trunk/jvcl/run/JvResources.pas trunk/jvcl/run/JvUrlListGrabber.pas Modified: trunk/jvcl/run/JvResources.pas =================================================================== --- trunk/jvcl/run/JvResources.pas 2006-04-23 11:13:36 UTC (rev 10558) +++ trunk/jvcl/run/JvResources.pas 2006-04-23 12:42:37 UTC (rev 10559) @@ -2238,6 +2238,7 @@ //=== JvUrlListGrabber.pas =================================================== resourcestring RsENoGrabberForUrl = 'There is no grabber capable of handling URL: %s'; + RsEAtLeastOneGrabberRunning = 'There is at least one grabber running, you cannot change the URLs.'; RsEGrabberNotStopped = 'The grabber is not stopped, you cannot change its URL.'; RsJediAgent = 'JEDI-VCL'; Modified: trunk/jvcl/run/JvUrlListGrabber.pas =================================================================== --- trunk/jvcl/run/JvUrlListGrabber.pas 2006-04-23 11:13:36 UTC (rev 10558) +++ trunk/jvcl/run/JvUrlListGrabber.pas 2006-04-23 12:42:37 UTC (rev 10559) @@ -71,6 +71,10 @@ // of handling a given URL. This is only raised if DefaultGrabberIndex is -1 ENoGrabberForUrl = class(Exception); + // The exception triggered if someone tries to set the URLs property while at + // least one grabber is running + EAtLeastOneGrabberRunning = class(Exception); + // This component allows the user to specify a list of URLs to be // grabbed and then start grabbing. All the grab operations will be done // in parallel in the background, leaving the user's application free @@ -121,8 +125,8 @@ // returns the grabber associated with the given index function GetGrabbers(const Index: Integer): TJvCustomUrlGrabber; - // Called whenever the list of Urls has changed - procedure URLsChange(Sender: TObject); + // Called whenever the list of Urls is about to change + procedure URLsChanging(Sender: TObject); // The event handlers for the grabbers, to propagate them to the // user through the events of this class @@ -594,7 +598,7 @@ FDefaultGrabbersProperties := TJvUrlGrabberDefaultPropertiesList.Create(Self); FGrabbers := TJvUrlGrabberList.Create(True); FURLs := TStringList.Create; - FURLs.OnChange := URLsChange; + FURLs.OnChanging := URLsChanging; FDefaultGrabberIndex := -1; end; @@ -689,7 +693,9 @@ I: Integer; MaxNewGrabbers: Integer; begin - // TODO: Check that no grabber is running. + // If at least one grabber is running, then do not start + if GrabberCount > 0 then + Exit; FGrabbers.Clear; @@ -720,14 +726,11 @@ Stop; end; -procedure TJvUrlListGrabber.URLsChange(Sender: TObject); -var - I: Integer; +procedure TJvUrlListGrabber.URLsChanging(Sender: TObject); begin - // TODO: Check that no grabber is running - for I := 0 to FGrabbers.Count - 1 do - begin - end; + // Prevent changing the URLs while at least one grabber is running + if GrabberCount > 0 then + raise EAtLeastOneGrabberRunning.CreateRes(@RsEAtLeastOneGrabberRunning); end; function TJvUrlListGrabber.GetGrabberCount: Integer; @@ -783,20 +786,16 @@ procedure TJvUrlListGrabber.GrabberConnectionClosed(Grabber: TObject); begin - // Grabber has closed connection, meaning that it has finished. So we now - // check if can and have to launch a new grabber. - if FNextUrlIndex < FURLs.Count then - begin - // Test for cleanup threshold - if Cardinal(FCleanupList.Count) = CleanupThreshold then - FCleanupList.Clear; - - // Put the recently finished grabber in the cleanup list - FCleanupList.Add(FGrabbers.Extract(Grabber)); + // Grabber has closed connection, meaning that it has finished, hence we check + // the cleanup threshold move the finished grabber to the cleanup list and + // start a new grabber if there are URLs left + if Cardinal(FCleanupList.Count) = CleanupThreshold then + FCleanupList.Clear; - // Get a new grabber and start it + FCleanupList.Add(FGrabbers.Extract(Grabber)); + + if FNextUrlIndex < FURLs.Count then StartNextGrabber; - end; if Assigned(OnConnectionClosed) then OnConnectionClosed(Self, TJvCustomUrlGrabber(Grabber)); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2006-05-05 13:29:44
|
Revision: 10589 Author: obones Date: 2006-05-05 06:29:35 -0700 (Fri, 05 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10589&view=rev Log Message: ----------- From Fred: OnGetText related changes Modified Paths: -------------- trunk/jvcl/run/JvDBCombobox.pas trunk/jvcl/run/JvDBRadioPanel.pas Modified: trunk/jvcl/run/JvDBCombobox.pas =================================================================== --- trunk/jvcl/run/JvDBCombobox.pas 2006-05-05 13:27:54 UTC (rev 10588) +++ trunk/jvcl/run/JvDBCombobox.pas 2006-05-05 13:29:35 UTC (rev 10589) @@ -249,7 +249,7 @@ if DroppedDown then Exit; if FDataLink.Field <> nil then - ComboText := FDataLink.Field.Text + ComboText := FDataLink.Field.AsString else if csDesigning in ComponentState then ComboText := Name @@ -581,7 +581,7 @@ if FDataLink.Field <> nil then if FEnableValues then begin - I := Values.IndexOf(FDataLink.Field.Text); + I := Values.IndexOf(FDataLink.Field.AsString); if I >= 0 then Result := Items.Strings[I] end Modified: trunk/jvcl/run/JvDBRadioPanel.pas =================================================================== --- trunk/jvcl/run/JvDBRadioPanel.pas 2006-05-05 13:27:54 UTC (rev 10588) +++ trunk/jvcl/run/JvDBRadioPanel.pas 2006-05-05 13:29:35 UTC (rev 10589) @@ -378,7 +378,7 @@ procedure TJvDBRadioPanel.DataChange(Sender: TObject); begin if FDataLink.Field <> nil then - Value := FDataLink.Field.Text + Value := FDataLink.Field.AsString else Value := ''; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-05-16 09:39:42
|
Revision: 10602 Author: marquardt Date: 2006-05-16 02:39:10 -0700 (Tue, 16 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10602&view=rev Log Message: ----------- files moved to archive Added Paths: ----------- trunk/jvcl/archive/JvgProcess.pas trunk/jvcl/archive/JvgRichEditUtils.pas trunk/jvcl/archive/TJVGPROCESS.BMP Removed Paths: ------------- trunk/jvcl/images/TJVGPROCESS.BMP trunk/jvcl/run/JvgProcess.pas trunk/jvcl/run/JvgRichEditUtils.pas Copied: trunk/jvcl/archive/JvgProcess.pas (from rev 10599, trunk/jvcl/run/JvgProcess.pas) =================================================================== --- trunk/jvcl/archive/JvgProcess.pas (rev 0) +++ trunk/jvcl/archive/JvgProcess.pas 2006-05-16 09:39:10 UTC (rev 10602) @@ -0,0 +1,159 @@ +{----------------------------------------------------------------------------- +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 Original Code is: JvgProcess.PAS, released on 2003-01-15. + +The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] +Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. +All Rights Reserved. + +Contributor(s): +Michael Beck [mbeck att bigfoot dott com]. + +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 JvgProcess; + +{$I jvcl.inc} + +interface + +//...simple process managment + +uses + {$IFDEF USEJVCL} + {$IFDEF UNITVERSIONING} + JclUnitVersioning, + {$ENDIF UNITVERSIONING} + Windows, SysUtils, Messages, Classes, Forms, + JvComponentBase; + {$ELSE} + Windows, SysUtils, Messages, Classes, Forms; + {$ENDIF USEJVCL} + +type + {$IFDEF USEJVCL} + TJvgProcess = class(TJvComponent) + {$ELSE} + TJvgProcess = class(TComponent) + {$ENDIF USEJVCL} + private + FInfo: TProcessInformation; + FRunning: Boolean; + FFileName: TFileName; + FOnTerminated: TNotifyEvent; + public + destructor Destroy; override; + function Run: Boolean; + function Kill: Boolean; + public + property Info: TProcessInformation read FInfo; + property Running: Boolean read FRunning; + published + property FileName: TFileName read FFileName write FFileName; + property OnTerminated: TNotifyEvent read FOnTerminated write FOnTerminated; + end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +const + UnitVersioning: TUnitVersionInfo = ( + RCSfile: '$RCSfile$'; + Revision: '$Revision$'; + Date: '$Date$'; + LogPath: 'JVCL\run' + ); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +implementation + +type + TJvgProcessMonitorThread = class(TThread) + public + Process: THandle; + Owner: TJvgProcess; + procedure Execute; override; + procedure DoTerminated; + end; + +var + ProcessMonitorThread: TJvgProcessMonitorThread; + +procedure TJvgProcessMonitorThread.DoTerminated; +begin + Owner.FRunning := False; + if not (csDestroying in Owner.ComponentState) then + if Assigned(Owner.FOnTerminated) then + Owner.FOnTerminated(Owner); +end; + +procedure TJvgProcessMonitorThread.Execute; +begin + while not Terminated do + if WaitForSingleObject(Process, 100) <> WAIT_TIMEOUT then + Break; + Synchronize(DoTerminated); +end; + +destructor TJvgProcess.Destroy; +begin + Kill; + inherited Destroy; +end; + +function TJvgProcess.Run: Boolean; +var + Si: TStartupInfo; +begin + Result := False; + if Running then + Exit; + FillChar(Si, SizeOf(Si), #0); + Si.cb := SizeOf(Si); + GetStartupInfo(Si); + Si.wShowWindow := SW_NORMAL; + FRunning := CreateProcess(PChar(FFileName), nil, nil, nil, False, + NORMAL_PRIORITY_CLASS, nil, nil, Si, FInfo); + Result := FRunning; + if FRunning then + begin + ProcessMonitorThread := TJvgProcessMonitorThread.Create(True); + ProcessMonitorThread.FreeOnTerminate := True; + ProcessMonitorThread.Process := Info.hProcess; + ProcessMonitorThread.Resume; + end; +end; + +function TJvgProcess.Kill: Boolean; +begin + if FRunning then + Result := TerminateProcess(Info.hProcess, 0) + else + Result := False; +end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +initialization + RegisterUnitVersion(HInstance, UnitVersioning); + +finalization + UnregisterUnitVersion(HInstance); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +end. + Copied: trunk/jvcl/archive/JvgRichEditUtils.pas (from rev 10599, trunk/jvcl/run/JvgRichEditUtils.pas) =================================================================== --- trunk/jvcl/archive/JvgRichEditUtils.pas (rev 0) +++ trunk/jvcl/archive/JvgRichEditUtils.pas 2006-05-16 09:39:10 UTC (rev 10602) @@ -0,0 +1,256 @@ +{----------------------------------------------------------------------------- +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 Original Code is: JvgRichEditUtils.PAS, released on 2003-01-15. + +The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] +Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. +All Rights Reserved. + +Contributor(s): +Michael Beck [mbeck att bigfoot dott com]. + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Description: + TRichEdit Wrapping functions + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvgRichEditUtils; + +{$I jvcl.inc} + +interface + +uses + {$IFDEF USEJVCL} + {$IFDEF UNITVERSIONING} + JclUnitVersioning, + {$ENDIF UNITVERSIONING} + {$ENDIF USEJVCL} + Windows, Messages, Graphics, ComCtrls, Classes; + +procedure AddNl(RE: TRichEdit); +procedure AddText(RE: TRichEdit; const Str: string; TxtSize: Integer; + TxtStyle: TFontStyles; TxtColor: TColor); +procedure AddTextNl(RE: TRichEdit; const Str: string; TxtSize: Integer; + TxtStyle: TFontStyles; TxtColor: TColor); +procedure DoSyntaxHighlight(Memo: TRichEdit); + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +const + UnitVersioning: TUnitVersionInfo = ( + RCSfile: '$RCSfile$'; + Revision: '$Revision$'; + Date: '$Date$'; + LogPath: 'JVCL\run' + ); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +implementation + +procedure AddNl(RE: TRichEdit); +begin + RE.Lines.Add(''); +end; + +procedure AddText(RE: TRichEdit; const Str: string; TxtSize: Integer; + TxtStyle: TFontStyles; TxtColor: TColor); +var + Pos1, Pos2: Integer; +begin + with RE, RE.Lines do + begin + Pos1 := Length(Text); + if Pos1 = 0 then + Text := Str + else + Lines[Lines.Count - 1] := Lines[Lines.Count - 1] + Str; + Pos2 := Length(Text); + SelStart := Pos1 - 2; + SelLength := Pos2 - Pos1 + 1; + + SelAttributes.Size := TxtSize; + SelAttributes.Style := TxtStyle; + SelAttributes.Color := TxtColor; + end; +end; + +procedure AddTextNl(RE: TRichEdit; const Str: string; TxtSize: Integer; + TxtStyle: TFontStyles; TxtColor: TColor); +begin + RE.Lines.Add(''); + AddText(RE, Str, TxtSize, TxtStyle, TxtColor); +end; + +procedure DoSyntaxHighlight(Memo: TRichEdit); +type + THData = record + Word: string; + Color: TColor; + Bold: Boolean; + end; + + TLexemKind = (ltTag, ltComma); + + PLexem = ^TLexem; + TLexem = record + StartPos, EndPos: Integer; + Kind: TLexemKind; + end; + + TLastLexem = record + Tag, Comma: TLexem; + end; + +{ (rom) disabled not used +const + cWordsCount = 6; + cWord: array [1..cWordsCount] of PChar = + ('<html>', '<body>', 'function', 'var', 'script', '<Table'); + cColor: array [1..cWordsCount] of TColor = + ($500000, $500000, $500000, $500000, $000060, $606000); + cBold: array [1..cWordsCount] of Boolean = + (False, False, True, True, False, False); +} +var + Pos1: Integer; + i: Integer; + doBold: Boolean; + MemoText: string; + Lexems: TList; + LastLexem: TLastLexem; + PL: PLexem; + + function GetNextLexem(var Pos1, Pos2: Integer; Trimleft: Boolean): string; + var + Pos: Integer; + begin + Pos := Pos1; + if MemoText[Pos] = ' ' then + repeat + Inc(Pos); + until (Pos > Length(MemoText)) or (MemoText[Pos] <> ' '); + Pos2 := Pos; + if Trimleft then + Pos1 := Pos; + repeat + Inc(Pos2); + until (Pos2 > Length(MemoText)) or (MemoText[Pos2] = ' ') or + (MemoText[Pos2] = '''') or (MemoText[Pos2] = '"') or + (MemoText[Pos2] = Chr($0D)); + + Result := Copy(MemoText, Pos1, Pos2 - Pos1); + end; + +begin + doBold := False; + Lexems := TList.Create; + try + MemoText := Memo.Text; + + Memo.Lines.BeginUpdate; + SendMessage(Memo.Handle, WM_SETREDRAW, 0, 0); + Pos1 := 1; + + Memo.SelStart := 0; + Memo.SelLength := Length(MemoText); + Memo.SelAttributes.Color := clBlack; + Memo.SelAttributes.Style := []; + + LastLexem.Tag.StartPos := -1; + LastLexem.Comma.StartPos := -1; + + while Pos1 < Length(MemoText) do + begin + if (MemoText[Pos1] = '>') and (LastLexem.Tag.StartPos <> -1) then + begin + New(PL); + Lexems.Add(PL); + PL^.Kind := ltTag; + PL^.StartPos := LastLexem.Tag.StartPos; + PL^.EndPos := Pos1; + LastLexem.Tag.StartPos := -1; + end + else + if ((MemoText[Pos1] = '''') or (MemoText[Pos1] = '"')) and + (LastLexem.Comma.StartPos <> -1) then + begin + New(PL); + Lexems.Add(PL); + PL^.Kind := ltComma; + PL^.StartPos := LastLexem.Comma.StartPos; + PL^.EndPos := Pos1; + LastLexem.Comma.StartPos := -1; + end + else + if MemoText[Pos1] = '<' then + LastLexem.Tag.StartPos := Pos1 - 1 + else + if (MemoText[Pos1] = '''') or (MemoText[Pos1] = '"') then + LastLexem.Comma.StartPos := Pos1 - 1; + Inc(Pos1); + if (MemoText[Pos1 - 1] = '<') and (MemoText[Pos1] = '#') then + doBold := True; + end; + + for i := 0 to Lexems.Count - 1 do + with PLexem(Lexems[i])^ do + if Kind = ltTag then + begin + Memo.SelStart := StartPos; + Memo.SelLength := EndPos - StartPos; + Memo.SelAttributes.Color := clBlue; + if doBold then + Memo.SelAttributes.Style := [fsBold] + else + Memo.SelAttributes.Style := []; + end; + + for i := 0 to Lexems.Count - 1 do + with PLexem(Lexems[i])^ do + if Kind = ltComma then + begin + Memo.SelStart := StartPos; + Memo.SelLength := EndPos - StartPos; + Memo.SelAttributes.Color := clTeal; + end; + + Memo.Lines.EndUpdate; + SendMessage(Memo.Handle, WM_SETREDRAW, 1, 0); + RedrawWindow(Memo.Handle, nil, 0, RDW_INVALIDATE or RDW_ALLCHILDREN); + Memo.SelStart := 0; + Memo.SelLength := 0; + + finally + for i := 0 to Lexems.Count - 1 do + Dispose(Lexems[i]); + Lexems.Free; + end; +end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +initialization + RegisterUnitVersion(HInstance, UnitVersioning); + +finalization + UnregisterUnitVersion(HInstance); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +end. + Copied: trunk/jvcl/archive/TJVGPROCESS.BMP (from rev 10599, trunk/jvcl/images/TJVGPROCESS.BMP) =================================================================== (Binary files differ) Deleted: trunk/jvcl/images/TJVGPROCESS.BMP =================================================================== (Binary files differ) Deleted: trunk/jvcl/run/JvgProcess.pas =================================================================== --- trunk/jvcl/run/JvgProcess.pas 2006-05-16 09:34:26 UTC (rev 10601) +++ trunk/jvcl/run/JvgProcess.pas 2006-05-16 09:39:10 UTC (rev 10602) @@ -1,159 +0,0 @@ -{----------------------------------------------------------------------------- -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 Original Code is: JvgProcess.PAS, released on 2003-01-15. - -The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] -Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. -All Rights Reserved. - -Contributor(s): -Michael Beck [mbeck att bigfoot dott com]. - -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 JvgProcess; - -{$I jvcl.inc} - -interface - -//...simple process managment - -uses - {$IFDEF USEJVCL} - {$IFDEF UNITVERSIONING} - JclUnitVersioning, - {$ENDIF UNITVERSIONING} - Windows, SysUtils, Messages, Classes, Forms, - JvComponentBase; - {$ELSE} - Windows, SysUtils, Messages, Classes, Forms; - {$ENDIF USEJVCL} - -type - {$IFDEF USEJVCL} - TJvgProcess = class(TJvComponent) - {$ELSE} - TJvgProcess = class(TComponent) - {$ENDIF USEJVCL} - private - FInfo: TProcessInformation; - FRunning: Boolean; - FFileName: TFileName; - FOnTerminated: TNotifyEvent; - public - destructor Destroy; override; - function Run: Boolean; - function Kill: Boolean; - public - property Info: TProcessInformation read FInfo; - property Running: Boolean read FRunning; - published - property FileName: TFileName read FFileName write FFileName; - property OnTerminated: TNotifyEvent read FOnTerminated write FOnTerminated; - end; - -{$IFDEF USEJVCL} -{$IFDEF UNITVERSIONING} -const - UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; - Revision: '$Revision$'; - Date: '$Date$'; - LogPath: 'JVCL\run' - ); -{$ENDIF UNITVERSIONING} -{$ENDIF USEJVCL} - -implementation - -type - TJvgProcessMonitorThread = class(TThread) - public - Process: THandle; - Owner: TJvgProcess; - procedure Execute; override; - procedure DoTerminated; - end; - -var - ProcessMonitorThread: TJvgProcessMonitorThread; - -procedure TJvgProcessMonitorThread.DoTerminated; -begin - Owner.FRunning := False; - if not (csDestroying in Owner.ComponentState) then - if Assigned(Owner.FOnTerminated) then - Owner.FOnTerminated(Owner); -end; - -procedure TJvgProcessMonitorThread.Execute; -begin - while not Terminated do - if WaitForSingleObject(Process, 100) <> WAIT_TIMEOUT then - Break; - Synchronize(DoTerminated); -end; - -destructor TJvgProcess.Destroy; -begin - Kill; - inherited Destroy; -end; - -function TJvgProcess.Run: Boolean; -var - Si: TStartupInfo; -begin - Result := False; - if Running then - Exit; - FillChar(Si, SizeOf(Si), #0); - Si.cb := SizeOf(Si); - GetStartupInfo(Si); - Si.wShowWindow := SW_NORMAL; - FRunning := CreateProcess(PChar(FFileName), nil, nil, nil, False, - NORMAL_PRIORITY_CLASS, nil, nil, Si, FInfo); - Result := FRunning; - if FRunning then - begin - ProcessMonitorThread := TJvgProcessMonitorThread.Create(True); - ProcessMonitorThread.FreeOnTerminate := True; - ProcessMonitorThread.Process := Info.hProcess; - ProcessMonitorThread.Resume; - end; -end; - -function TJvgProcess.Kill: Boolean; -begin - if FRunning then - Result := TerminateProcess(Info.hProcess, 0) - else - Result := False; -end; - -{$IFDEF USEJVCL} -{$IFDEF UNITVERSIONING} -initialization - RegisterUnitVersion(HInstance, UnitVersioning); - -finalization - UnregisterUnitVersion(HInstance); -{$ENDIF UNITVERSIONING} -{$ENDIF USEJVCL} - -end. - Deleted: trunk/jvcl/run/JvgRichEditUtils.pas =================================================================== --- trunk/jvcl/run/JvgRichEditUtils.pas 2006-05-16 09:34:26 UTC (rev 10601) +++ trunk/jvcl/run/JvgRichEditUtils.pas 2006-05-16 09:39:10 UTC (rev 10602) @@ -1,256 +0,0 @@ -{----------------------------------------------------------------------------- -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 Original Code is: JvgRichEditUtils.PAS, released on 2003-01-15. - -The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] -Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. -All Rights Reserved. - -Contributor(s): -Michael Beck [mbeck att bigfoot dott com]. - -You may retrieve the latest version of this file at the Project JEDI's JVCL home page, -located at http://jvcl.sourceforge.net - -Description: - TRichEdit Wrapping functions - -Known Issues: ------------------------------------------------------------------------------} -// $Id$ - -unit JvgRichEditUtils; - -{$I jvcl.inc} - -interface - -uses - {$IFDEF USEJVCL} - {$IFDEF UNITVERSIONING} - JclUnitVersioning, - {$ENDIF UNITVERSIONING} - {$ENDIF USEJVCL} - Windows, Messages, Graphics, ComCtrls, Classes; - -procedure AddNl(RE: TRichEdit); -procedure AddText(RE: TRichEdit; const Str: string; TxtSize: Integer; - TxtStyle: TFontStyles; TxtColor: TColor); -procedure AddTextNl(RE: TRichEdit; const Str: string; TxtSize: Integer; - TxtStyle: TFontStyles; TxtColor: TColor); -procedure DoSyntaxHighlight(Memo: TRichEdit); - -{$IFDEF USEJVCL} -{$IFDEF UNITVERSIONING} -const - UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; - Revision: '$Revision$'; - Date: '$Date$'; - LogPath: 'JVCL\run' - ); -{$ENDIF UNITVERSIONING} -{$ENDIF USEJVCL} - -implementation - -procedure AddNl(RE: TRichEdit); -begin - RE.Lines.Add(''); -end; - -procedure AddText(RE: TRichEdit; const Str: string; TxtSize: Integer; - TxtStyle: TFontStyles; TxtColor: TColor); -var - Pos1, Pos2: Integer; -begin - with RE, RE.Lines do - begin - Pos1 := Length(Text); - if Pos1 = 0 then - Text := Str - else - Lines[Lines.Count - 1] := Lines[Lines.Count - 1] + Str; - Pos2 := Length(Text); - SelStart := Pos1 - 2; - SelLength := Pos2 - Pos1 + 1; - - SelAttributes.Size := TxtSize; - SelAttributes.Style := TxtStyle; - SelAttributes.Color := TxtColor; - end; -end; - -procedure AddTextNl(RE: TRichEdit; const Str: string; TxtSize: Integer; - TxtStyle: TFontStyles; TxtColor: TColor); -begin - RE.Lines.Add(''); - AddText(RE, Str, TxtSize, TxtStyle, TxtColor); -end; - -procedure DoSyntaxHighlight(Memo: TRichEdit); -type - THData = record - Word: string; - Color: TColor; - Bold: Boolean; - end; - - TLexemKind = (ltTag, ltComma); - - PLexem = ^TLexem; - TLexem = record - StartPos, EndPos: Integer; - Kind: TLexemKind; - end; - - TLastLexem = record - Tag, Comma: TLexem; - end; - -{ (rom) disabled not used -const - cWordsCount = 6; - cWord: array [1..cWordsCount] of PChar = - ('<html>', '<body>', 'function', 'var', 'script', '<Table'); - cColor: array [1..cWordsCount] of TColor = - ($500000, $500000, $500000, $500000, $000060, $606000); - cBold: array [1..cWordsCount] of Boolean = - (False, False, True, True, False, False); -} -var - Pos1: Integer; - i: Integer; - doBold: Boolean; - MemoText: string; - Lexems: TList; - LastLexem: TLastLexem; - PL: PLexem; - - function GetNextLexem(var Pos1, Pos2: Integer; Trimleft: Boolean): string; - var - Pos: Integer; - begin - Pos := Pos1; - if MemoText[Pos] = ' ' then - repeat - Inc(Pos); - until (Pos > Length(MemoText)) or (MemoText[Pos] <> ' '); - Pos2 := Pos; - if Trimleft then - Pos1 := Pos; - repeat - Inc(Pos2); - until (Pos2 > Length(MemoText)) or (MemoText[Pos2] = ' ') or - (MemoText[Pos2] = '''') or (MemoText[Pos2] = '"') or - (MemoText[Pos2] = Chr($0D)); - - Result := Copy(MemoText, Pos1, Pos2 - Pos1); - end; - -begin - doBold := False; - Lexems := TList.Create; - try - MemoText := Memo.Text; - - Memo.Lines.BeginUpdate; - SendMessage(Memo.Handle, WM_SETREDRAW, 0, 0); - Pos1 := 1; - - Memo.SelStart := 0; - Memo.SelLength := Length(MemoText); - Memo.SelAttributes.Color := clBlack; - Memo.SelAttributes.Style := []; - - LastLexem.Tag.StartPos := -1; - LastLexem.Comma.StartPos := -1; - - while Pos1 < Length(MemoText) do - begin - if (MemoText[Pos1] = '>') and (LastLexem.Tag.StartPos <> -1) then - begin - New(PL); - Lexems.Add(PL); - PL^.Kind := ltTag; - PL^.StartPos := LastLexem.Tag.StartPos; - PL^.EndPos := Pos1; - LastLexem.Tag.StartPos := -1; - end - else - if ((MemoText[Pos1] = '''') or (MemoText[Pos1] = '"')) and - (LastLexem.Comma.StartPos <> -1) then - begin - New(PL); - Lexems.Add(PL); - PL^.Kind := ltComma; - PL^.StartPos := LastLexem.Comma.StartPos; - PL^.EndPos := Pos1; - LastLexem.Comma.StartPos := -1; - end - else - if MemoText[Pos1] = '<' then - LastLexem.Tag.StartPos := Pos1 - 1 - else - if (MemoText[Pos1] = '''') or (MemoText[Pos1] = '"') then - LastLexem.Comma.StartPos := Pos1 - 1; - Inc(Pos1); - if (MemoText[Pos1 - 1] = '<') and (MemoText[Pos1] = '#') then - doBold := True; - end; - - for i := 0 to Lexems.Count - 1 do - with PLexem(Lexems[i])^ do - if Kind = ltTag then - begin - Memo.SelStart := StartPos; - Memo.SelLength := EndPos - StartPos; - Memo.SelAttributes.Color := clBlue; - if doBold then - Memo.SelAttributes.Style := [fsBold] - else - Memo.SelAttributes.Style := []; - end; - - for i := 0 to Lexems.Count - 1 do - with PLexem(Lexems[i])^ do - if Kind = ltComma then - begin - Memo.SelStart := StartPos; - Memo.SelLength := EndPos - StartPos; - Memo.SelAttributes.Color := clTeal; - end; - - Memo.Lines.EndUpdate; - SendMessage(Memo.Handle, WM_SETREDRAW, 1, 0); - RedrawWindow(Memo.Handle, nil, 0, RDW_INVALIDATE or RDW_ALLCHILDREN); - Memo.SelStart := 0; - Memo.SelLength := 0; - - finally - for i := 0 to Lexems.Count - 1 do - Dispose(Lexems[i]); - Lexems.Free; - end; -end; - -{$IFDEF USEJVCL} -{$IFDEF UNITVERSIONING} -initialization - RegisterUnitVersion(HInstance, UnitVersioning); - -finalization - UnregisterUnitVersion(HInstance); -{$ENDIF UNITVERSIONING} -{$ENDIF USEJVCL} - -end. - This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-05-17 07:15:34
|
Revision: 10606 Author: marquardt Date: 2006-05-17 00:15:21 -0700 (Wed, 17 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10606&view=rev Log Message: ----------- thinned out JvgTypes.pas Modified Paths: -------------- trunk/jvcl/run/JvgCommClasses.pas trunk/jvcl/run/JvgFlyingText.pas trunk/jvcl/run/JvgLabel.pas trunk/jvcl/run/JvgProgress.pas trunk/jvcl/run/JvgTypes.pas Modified: trunk/jvcl/run/JvgCommClasses.pas =================================================================== --- trunk/jvcl/run/JvgCommClasses.pas 2006-05-17 06:45:14 UTC (rev 10605) +++ trunk/jvcl/run/JvgCommClasses.pas 2006-05-17 07:15:21 UTC (rev 10606) @@ -90,7 +90,7 @@ private FBufferedDraw: Boolean; FSteps: Integer; - FPercentFilling: TPercentRange; + FPercentFilling: Integer; FBrushStyle: TBrushStyle; FOrientation: TglGradientDir; //...public! FActive: Boolean; @@ -98,14 +98,14 @@ procedure SetActive(Value: Boolean); procedure SetOrientation(Value: TglGradientDir); procedure SetSteps(Value: Integer); - procedure SetPercentFilling(Value: TPercentRange); + procedure SetPercentFilling(Value: Integer); procedure SetBrushStyle(Value: TBrushStyle); protected property Active: Boolean read FActive write SetActive; property BufferedDraw: Boolean read FBufferedDraw write FBufferedDraw default False; property Orientation: TglGradientDir read FOrientation write SetOrientation; property Steps: Integer read FSteps write SetSteps default 255; - property PercentFilling: TPercentRange read FPercentFilling write SetPercentFilling default 100; + property PercentFilling: Integer read FPercentFilling write SetPercentFilling default 100; property BrushStyle: TBrushStyle read FBrushStyle write SetBrushStyle default bsSolid; public constructor Create; override; @@ -672,9 +672,9 @@ end; end; -procedure TJvgCustomGradient.SetPercentFilling(Value: TPercentRange); +procedure TJvgCustomGradient.SetPercentFilling(Value: Integer); begin - if FPercentFilling <> Value then + if (FPercentFilling <> Value) and (Value >= 0) and (Value <= 100) then begin FPercentFilling := Value; Changed; Modified: trunk/jvcl/run/JvgFlyingText.pas =================================================================== --- trunk/jvcl/run/JvgFlyingText.pas 2006-05-17 06:45:14 UTC (rev 10605) +++ trunk/jvcl/run/JvgFlyingText.pas 2006-05-17 07:15:21 UTC (rev 10606) @@ -66,7 +66,7 @@ FGradient: TJvgGradient; FThreeDGradient: TJvg3DGradient; FInteriorOffset: Word; - FScalePercent: TSpPercent; + FScalePercent: Integer; FStepScaleFactor: Single; FResultFont: TFont; FTimerInterval: Word; @@ -111,7 +111,7 @@ procedure BuildTxtBitmap; procedure WMSize(var Msg: TWMSize); message WM_SIZE; procedure OnParamsChanged(Sender: TObject); - procedure Repaint_; + procedure InternalRepaint; function GetText: TStrings; procedure SetHorAlign(Value: TglHorAlign); @@ -119,7 +119,7 @@ procedure SetTransparent(Value: Boolean); procedure SetBackgrColor(Value: TColor); procedure SetInteriorOffset(Value: Word); - procedure SetScalePercent(Value: TSpPercent); + procedure SetScalePercent(Value: Integer); procedure SetStepScaleFactor(Value: Single); procedure SetResultFont(Value: TFont); procedure SetTimerInterval(Value: Word); @@ -149,7 +149,7 @@ property Gradient: TJvgGradient read FGradient write FGradient; property Gradient3D: TJvg3DGradient read FThreeDGradient write FThreeDGradient; property InteriorOffset: Word read FInteriorOffset write SetInteriorOffset default 0; - property ScalePercent: TSpPercent read FScalePercent write SetScalePercent default 5; + property ScalePercent: Integer read FScalePercent write SetScalePercent default 5; property StepScaleFactor: Single read FStepScaleFactor write SetStepScaleFactor; property ResultFont: TFont read FResultFont write SetResultFont; property TimerInterval: Word read FTimerInterval write SetTimerInterval default 10; @@ -658,16 +658,16 @@ begin FNeedRemakeBackground := True; BuildBitmaps; - Repaint_; + InternalRepaint; end; procedure TJvgFlyingText.OnParamsChanged(Sender: TObject); begin BuildBitmaps; - Repaint_; + InternalRepaint; end; -procedure TJvgFlyingText.Repaint_; +procedure TJvgFlyingText.InternalRepaint; //var R: TRect; begin if FLoaded then @@ -680,14 +680,14 @@ begin FHorAlign := Value; BuildBitmaps; - Repaint_; + InternalRepaint; end; procedure TJvgFlyingText.SetVertAlign(Value: TglVertAlign); begin FVertAlign := Value; BuildBitmaps; - Repaint_; + InternalRepaint; end; procedure TJvgFlyingText.SetTransparent(Value: Boolean); @@ -695,14 +695,14 @@ FTransparent := Value; FNeedRemakeBackground := True; BuildBitmaps; - Repaint_; + InternalRepaint; end; procedure TJvgFlyingText.SetBackgrColor(Value: TColor); begin FBackgrColor := Value; BuildBitmaps; - Repaint_; + InternalRepaint; end; procedure TJvgFlyingText.SetInteriorOffset(Value: Word); @@ -710,11 +710,14 @@ FInteriorOffset := Value; end; -procedure TJvgFlyingText.SetScalePercent(Value: TSpPercent); +procedure TJvgFlyingText.SetScalePercent(Value: Integer); begin - FScalePercent := Value; - BuildBitmaps; - Repaint_; + if (Value >= 1) and (Value <= 99) then + begin + FScalePercent := Value; + BuildBitmaps; + InternalRepaint; + end; end; procedure TJvgFlyingText.SetStepScaleFactor(Value: Single); @@ -725,7 +728,7 @@ Value := 2; FStepScaleFactor := Value; BuildBitmaps; - Repaint_; + InternalRepaint; end; procedure TJvgFlyingText.SetResultFont(Value: TFont); @@ -767,7 +770,7 @@ for I := 0 to FText.Count - 1 do FText[I] := Trim(FText[I]); BuildBitmaps; - Repaint_; + InternalRepaint; Active := OldActive; end; @@ -777,7 +780,7 @@ Exit; FFastDraw := Value; BuildBitmaps; - Repaint_; + InternalRepaint; end; procedure TJvgFlyingText.SetDirection(Value: TglScalingDir); @@ -788,7 +791,7 @@ if csDesigning in ComponentState then begin BuildBitmaps; - Repaint_; + InternalRepaint; end; end; @@ -798,7 +801,7 @@ Exit; FShowTextWhilePassive := Value; BuildBitmaps; - Repaint_; + InternalRepaint; end; procedure TJvgFlyingText.SetVisible(Value: Boolean); @@ -810,7 +813,7 @@ if FVisible then begin BuildBitmaps; - Repaint_; + InternalRepaint; end; end; Modified: trunk/jvcl/run/JvgLabel.pas =================================================================== --- trunk/jvcl/run/JvgLabel.pas 2006-05-17 06:45:14 UTC (rev 10605) +++ trunk/jvcl/run/JvgLabel.pas 2006-05-17 07:15:21 UTC (rev 10606) @@ -49,6 +49,9 @@ RadianEscapments: array [TglLabelDir] of Integer = (0, -1800, -900, 900); type + TFontWeight = (fwDONTCARE, fwTHIN, fwEXTRALIGHT, fwLIGHT, fwNORMAL, fwMEDIUM, + fwSEMIBOLD, fwBOLD, fwEXTRABOLD, fwHEAVY); + {$IFDEF USEJVCL} TJvgCustomLabel = class(TJvGraphicControl) {$ELSE} Modified: trunk/jvcl/run/JvgProgress.pas =================================================================== --- trunk/jvcl/run/JvgProgress.pas 2006-05-17 06:45:14 UTC (rev 10605) +++ trunk/jvcl/run/JvgProgress.pas 2006-05-17 07:15:21 UTC (rev 10606) @@ -55,7 +55,7 @@ FColors: TJvgSimleLabelColors; FGradient: TJvgGradient; FGradientBack: TJvgGradient; - FPercent: TPercentRange; + FPercent: Integer; FCaptionAlignment: TAlignment; FCaptionDirection: TglLabelDir; FCaptionStyle: TglTextStyle; @@ -68,7 +68,7 @@ procedure SetBevelInner(Value: TPanelBevel); procedure SetBevelOuter(Value: TPanelBevel); procedure SetBevelBold(Value: Boolean); - procedure SetPercent(Value: TPercentRange); + procedure SetPercent(Value: Integer); procedure SetCaptionAlignment(Value: TAlignment); procedure SetCaptionDirection(Value: TglLabelDir); procedure SetCaptionStyle(Value: TglTextStyle); @@ -92,7 +92,7 @@ property Colors: TJvgSimleLabelColors read FColors write FColors; property Gradient: TJvgGradient read FGradient write FGradient; property GradientBack: TJvgGradient read FGradientBack write FGradientBack; - property Percent: TPercentRange read FPercent write SetPercent; + property Percent: Integer read FPercent write SetPercent; property CaptionAlignment: TAlignment read FCaptionAlignment write SetCaptionAlignment default taLeftJustify; property CaptionDirection: TglLabelDir read FCaptionDirection write SetCaptionDirection default fldLeftRight; property CaptionStyle: TglTextStyle read FCaptionStyle write SetCaptionStyle default fstShadow; @@ -391,9 +391,9 @@ Repaint; end; -procedure TJvgProgress.SetPercent(Value: TPercentRange); +procedure TJvgProgress.SetPercent(Value: Integer); begin - if FPercent <> Value then + if (FPercent <> Value) and (Value >= 0) and (Value <= 100) then begin FPercent := Value; FGradient.PercentFilling := FPercent; Modified: trunk/jvcl/run/JvgTypes.pas =================================================================== --- trunk/jvcl/run/JvgTypes.pas 2006-05-17 06:45:14 UTC (rev 10605) +++ trunk/jvcl/run/JvgTypes.pas 2006-05-17 07:15:21 UTC (rev 10606) @@ -85,7 +85,6 @@ {$ENDIF MSWINDOWS} type - TSpPercent = 1..99; TglItemsDrawStyle = (idsNone, idsRecessed, idsRaised); TglWallpaperOption = (fwoNone, fwoStretch, fwoPropStretch, fwoTile); TglDrawState = (fdsDefault, fdsDisabled, fdsDelicate); @@ -104,13 +103,10 @@ // TglGgradientColorOnStep = ( fgcIncrease, fgcDecrease ); TglLabelDir = (fldLeftRight, fldRightLeft, fldUpDown, fldDownUp); TglAlignment = (ftaLeftJustify, ftaRightJustify, ftaCenter, ftaBroadwise); - TFontWeight = (fwDONTCARE, fwTHIN, fwEXTRALIGHT, fwLIGHT, fwNORMAL, fwMEDIUM, - fwSEMIBOLD, fwBOLD, fwEXTRABOLD, fwHEAVY); TglGlyphKind = (fgkCustom, fgkDefault); TglFileType = (fftUndefined, fftGif, fftJpeg, fftBmp); // TglProgressBorderStyle = (fbsFlat, fbsCtl3D, fbsStatusControl, // fbsRaised, fbsRaisedFrame, fbsRecessedFrame); - TPercentRange = 0..100; TglLabelOption = (floActiveWhileControlFocused, floBufferedDraw, floDelineatedText, floIgnoreMouse, {floQuality3D,} floTransparentFont); TglLabelOptions = set of TglLabelOption; @@ -143,7 +139,6 @@ TglTreeViewOptions = set of TglTreeViewOption; TFocusControlMethod = (fcmOnMouseEnter, fcmOnMouseDown, fcmOnMouseUp); - TProgressChangeEvent = procedure(Sender: TObject; Percent: Integer) of object; TglOnGetItemColorEvent = procedure(Sender: TObject; Index: Integer; var Color: TColor) of object; // TglDrawGlyphsOption = ( fgoDefaultEnabled, fgoDefaultDisabled ); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2006-05-17 23:14:09
|
Revision: 10608 Author: jfudickar Date: 2006-05-17 16:13:55 -0700 (Wed, 17 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10608&view=rev Log Message: ----------- TreeView Interface enhanced Modified Paths: -------------- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas trunk/jvcl/run/JvDynControlEngineIntf.pas trunk/jvcl/run/JvDynControlEngineJVCL.pas trunk/jvcl/run/JvDynControlEngineVCL.pas Modified: trunk/jvcl/run/JvDynControlEngineDevExpCx.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2006-05-17 22:25:45 UTC (rev 10607) +++ trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2006-05-17 23:13:55 UTC (rev 10608) @@ -767,6 +767,7 @@ procedure ControlSetAnchors(Value : TAnchors); procedure ControlSetOnChange(Value: TTVChangedEvent); procedure ControlSetSortType(Value: TSortType); + procedure ControlSortItems; //IJvDynControlDblClick procedure ControlSetOnDblClick(Value: TNotifyEvent); @@ -3169,6 +3170,11 @@ LookAndFeel.Assign(Value.LookAndFeel); end; +procedure TJvDynControlCxTreeView.ControlSortItems; +begin + AlphaSort; +end; + //=== { TJvDynControlCxProgressbar } ========================================= procedure TJvDynControlCxProgressbar.ControlSetDefaultProperties; Modified: trunk/jvcl/run/JvDynControlEngineIntf.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineIntf.pas 2006-05-17 22:25:45 UTC (rev 10607) +++ trunk/jvcl/run/JvDynControlEngineIntf.pas 2006-05-17 23:13:55 UTC (rev 10608) @@ -268,6 +268,7 @@ function ControlGetSelected: TTreeNode; procedure ControlSetOnChange(Value: TTVChangedEvent); procedure ControlSetSortType(Value: TSortType); + procedure ControlSortItems; end; IJvDynControlProgressbar = interface Modified: trunk/jvcl/run/JvDynControlEngineJVCL.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineJVCL.pas 2006-05-17 22:25:45 UTC (rev 10607) +++ trunk/jvcl/run/JvDynControlEngineJVCL.pas 2006-05-17 23:13:55 UTC (rev 10608) @@ -698,6 +698,7 @@ procedure ControlSetAnchors(Value : TAnchors); procedure ControlSetOnChange(Value: TTVChangedEvent); procedure ControlSetSortType(Value: TSortType); + procedure ControlSortItems; //IJvDynControlDblClick procedure ControlSetOnDblClick(Value: TNotifyEvent); @@ -2903,7 +2904,12 @@ OnDblClick := Value; end; +procedure TJvDynControlJVCLTreeView.ControlSortItems; +begin + AlphaSort; +end; + //=== { TJvDynControlJVCLProgressbar } ========================================= procedure TJvDynControlJVCLProgressbar.ControlSetDefaultProperties; Modified: trunk/jvcl/run/JvDynControlEngineVCL.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineVCL.pas 2006-05-17 22:25:45 UTC (rev 10607) +++ trunk/jvcl/run/JvDynControlEngineVCL.pas 2006-05-17 23:13:55 UTC (rev 10608) @@ -692,6 +692,7 @@ function ControlGetSelected: TTreeNode; procedure ControlSetOnChange(Value: TTVChangedEvent); procedure ControlSetSortType(Value: TSortType); + procedure ControlSortItems; //IJvDynControlDblClick = interface procedure ControlSetOnDblClick(Value: TNotifyEvent); @@ -2924,6 +2925,11 @@ OnDblClick := Value; end; +procedure TJvDynControlVCLTreeView.ControlSortItems; +begin + AlphaSort; +end; + //=== { TJvDynControlVCLProgressbar } ========================================= procedure TJvDynControlVCLProgressbar.ControlSetDefaultProperties; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2006-05-19 19:14:26
|
Revision: 10612 Author: jfudickar Date: 2006-05-19 12:04:09 -0700 (Fri, 19 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10612&view=rev Log Message: ----------- Replaced $RCSFile$ with $URL$ Modified Paths: -------------- trunk/jvcl/run/JVCLVer.pas trunk/jvcl/run/JvAVICapture.pas trunk/jvcl/run/JvActions.pas trunk/jvcl/run/JvAddPrinter.pas trunk/jvcl/run/JvAirBrush.pas trunk/jvcl/run/JvAlarms.pas trunk/jvcl/run/JvAni.pas trunk/jvcl/run/JvAniFile.pas trunk/jvcl/run/JvAnimTitle.pas trunk/jvcl/run/JvAnimate.pas trunk/jvcl/run/JvAnimatedImage.pas trunk/jvcl/run/JvAppAnimatedIcon.pas trunk/jvcl/run/JvAppCommand.pas trunk/jvcl/run/JvAppDBStorage.pas trunk/jvcl/run/JvAppEvent.pas trunk/jvcl/run/JvAppHotKey.pas trunk/jvcl/run/JvAppIniStorage.pas trunk/jvcl/run/JvAppInst.pas trunk/jvcl/run/JvAppRegistryStorage.pas trunk/jvcl/run/JvAppStorage.pas trunk/jvcl/run/JvAppStoragePropertyEngineDB.pas trunk/jvcl/run/JvAppStorageSelectList.pas trunk/jvcl/run/JvAppXMLStorage.pas trunk/jvcl/run/JvArrayButton.pas trunk/jvcl/run/JvArrowButton.pas trunk/jvcl/run/JvAutoComplete.pas trunk/jvcl/run/JvBDECheckPasswordForm.pas trunk/jvcl/run/JvBDEExceptionForm.pas trunk/jvcl/run/JvBDEFilter.pas trunk/jvcl/run/JvBDEIndex.pas trunk/jvcl/run/JvBDELists.pas trunk/jvcl/run/JvBDELoginDialog.pas trunk/jvcl/run/JvBDEMemTable.pas trunk/jvcl/run/JvBDEMove.pas trunk/jvcl/run/JvBDEProgress.pas trunk/jvcl/run/JvBDEQBE.pas trunk/jvcl/run/JvBDEQuery.pas trunk/jvcl/run/JvBDESQLScript.pas trunk/jvcl/run/JvBDESecurity.pas trunk/jvcl/run/JvBackgrounds.pas trunk/jvcl/run/JvBalloonHint.pas trunk/jvcl/run/JvBandForms.pas trunk/jvcl/run/JvBandObject.pas trunk/jvcl/run/JvBaseEdits.pas trunk/jvcl/run/JvBaseThumbnail.pas trunk/jvcl/run/JvBdeUtils.pas trunk/jvcl/run/JvBehaviorLabel.pas trunk/jvcl/run/JvBevel.pas trunk/jvcl/run/JvBitBtn.pas trunk/jvcl/run/JvBitmapButton.pas trunk/jvcl/run/JvBmpAnimator.pas trunk/jvcl/run/JvBoxProcs.pas trunk/jvcl/run/JvBrowseFolder.pas trunk/jvcl/run/JvButton.pas trunk/jvcl/run/JvButtonPersistent.pas trunk/jvcl/run/JvButtons.pas trunk/jvcl/run/JvCSVBaseControls.pas trunk/jvcl/run/JvCabFile.pas trunk/jvcl/run/JvCalc.pas trunk/jvcl/run/JvCalendar.pas trunk/jvcl/run/JvCaptionButton.pas trunk/jvcl/run/JvCaptionPanel.pas trunk/jvcl/run/JvCaret.pas trunk/jvcl/run/JvChangeNotify.pas trunk/jvcl/run/JvCharMap.pas trunk/jvcl/run/JvChart.pas trunk/jvcl/run/JvCheckBox.pas trunk/jvcl/run/JvCheckListBox.pas trunk/jvcl/run/JvCheckTreeView.pas trunk/jvcl/run/JvCheckedMaskEdit.pas trunk/jvcl/run/JvCipher.pas trunk/jvcl/run/JvClipboardMonitor.pas trunk/jvcl/run/JvClipboardViewer.pas trunk/jvcl/run/JvClipbrd.pas trunk/jvcl/run/JvClock.pas trunk/jvcl/run/JvColorBox.pas trunk/jvcl/run/JvColorButton.pas trunk/jvcl/run/JvColorCombo.pas trunk/jvcl/run/JvColorForm.pas trunk/jvcl/run/JvColorProvider.pas trunk/jvcl/run/JvColorTrackbar.pas trunk/jvcl/run/JvComCtrls.pas trunk/jvcl/run/JvComboListBox.pas trunk/jvcl/run/JvCombobox.pas trunk/jvcl/run/JvCommStatus.pas trunk/jvcl/run/JvCommonDialogD.pas trunk/jvcl/run/JvCommonExecDlg.pas trunk/jvcl/run/JvComponent.pas trunk/jvcl/run/JvComponentBase.pas trunk/jvcl/run/JvComponentPanel.pas trunk/jvcl/run/JvComputerInfoEx.pas trunk/jvcl/run/JvConnectNetwork.pas trunk/jvcl/run/JvContentScroller.pas trunk/jvcl/run/JvContextProvider.pas trunk/jvcl/run/JvControlBar.pas trunk/jvcl/run/JvControlComponent.pas trunk/jvcl/run/JvControlPanelButton.pas trunk/jvcl/run/JvConverter.pas trunk/jvcl/run/JvCoolBar.pas trunk/jvcl/run/JvCopyError.pas trunk/jvcl/run/JvCpuUsage.pas trunk/jvcl/run/JvCreateProcess.pas trunk/jvcl/run/JvCsvData.pas trunk/jvcl/run/JvCsvParse.pas trunk/jvcl/run/JvCtrls.pas trunk/jvcl/run/JvCursor.pas trunk/jvcl/run/JvCustomItemViewer.pas trunk/jvcl/run/JvDBActions.pas trunk/jvcl/run/JvDBCombobox.pas trunk/jvcl/run/JvDBControls.pas trunk/jvcl/run/JvDBDatePickerEdit.pas trunk/jvcl/run/JvDBDateTimePicker.pas trunk/jvcl/run/JvDBDotNetControls.pas trunk/jvcl/run/JvDBFindEdit.pas trunk/jvcl/run/JvDBGrid.pas trunk/jvcl/run/JvDBGridExport.pas trunk/jvcl/run/JvDBGridFooter.pas trunk/jvcl/run/JvDBGridSelectColumnForm.pas trunk/jvcl/run/JvDBHTLabel.pas trunk/jvcl/run/JvDBImage.pas trunk/jvcl/run/JvDBLookup.pas trunk/jvcl/run/JvDBLookupComboEdit.pas trunk/jvcl/run/JvDBLookupTreeView.pas trunk/jvcl/run/JvDBProgressBar.pas trunk/jvcl/run/JvDBQueryParamsForm.pas trunk/jvcl/run/JvDBRadioPanel.pas trunk/jvcl/run/JvDBRemoteLogin.pas trunk/jvcl/run/JvDBRichEdit.pas trunk/jvcl/run/JvDBSearchComboBox.pas trunk/jvcl/run/JvDBSearchEdit.pas trunk/jvcl/run/JvDBSpinEdit.pas trunk/jvcl/run/JvDBTreeView.pas trunk/jvcl/run/JvDBUltimGrid.pas trunk/jvcl/run/JvDBUtils.pas trunk/jvcl/run/JvDSADialogs.pas trunk/jvcl/run/JvDataEmbedded.pas trunk/jvcl/run/JvDataProvider.pas trunk/jvcl/run/JvDataProviderIntf.pas trunk/jvcl/run/JvDatePickerEdit.pas trunk/jvcl/run/JvDateTimePicker.pas trunk/jvcl/run/JvDdeCmd.pas trunk/jvcl/run/JvDebugHandler.pas trunk/jvcl/run/JvDeleteError.pas trunk/jvcl/run/JvDesignClip.pas trunk/jvcl/run/JvDesignImp.pas trunk/jvcl/run/JvDesignSurface.pas trunk/jvcl/run/JvDesignUtils.pas trunk/jvcl/run/JvDesktopAlertForm.pas trunk/jvcl/run/JvDiagramShape.pas trunk/jvcl/run/JvDialButton.pas trunk/jvcl/run/JvDialogs.pas trunk/jvcl/run/JvDice.pas trunk/jvcl/run/JvDiskPrompt.pas trunk/jvcl/run/JvDockAdvTree.pas trunk/jvcl/run/JvDockControlForm.pas trunk/jvcl/run/JvDockDelphiStyle.pas trunk/jvcl/run/JvDockGlobals.pas trunk/jvcl/run/JvDockHashTable.pas trunk/jvcl/run/JvDockInfo.pas trunk/jvcl/run/JvDockSupportClass.pas trunk/jvcl/run/JvDockSupportControl.pas trunk/jvcl/run/JvDockSupportProc.pas trunk/jvcl/run/JvDockTree.pas trunk/jvcl/run/JvDockVCStyle.pas trunk/jvcl/run/JvDockVIDStyle.pas trunk/jvcl/run/JvDockVIDVCStyle.pas trunk/jvcl/run/JvDockVSNetStyle.pas trunk/jvcl/run/JvDotNetControls.pas trunk/jvcl/run/JvDotNetUtils.pas trunk/jvcl/run/JvDragDrop.pas trunk/jvcl/run/JvDrawImage.pas trunk/jvcl/run/JvDriveCtrls.pas trunk/jvcl/run/JvDropDownForm.pas trunk/jvcl/run/JvDsgnIntf.pas trunk/jvcl/run/JvDualList.pas trunk/jvcl/run/JvDualListForm.pas trunk/jvcl/run/JvDynControlEngine.pas trunk/jvcl/run/JvDynControlEngineDB.pas trunk/jvcl/run/JvDynControlEngineDBIntf.pas trunk/jvcl/run/JvDynControlEngineDBTools.pas trunk/jvcl/run/JvDynControlEngineDevExpCx.pas trunk/jvcl/run/JvDynControlEngineDevExpCxDB.pas trunk/jvcl/run/JvDynControlEngineJVCLDB.pas trunk/jvcl/run/JvDynControlEngineTools.pas trunk/jvcl/run/JvDynControlEngineVCL.pas trunk/jvcl/run/JvDynControlEngineVCLDB.pas trunk/jvcl/run/JvEDIDBBuffering.pas trunk/jvcl/run/JvEasterEgg.pas trunk/jvcl/run/JvEdit.pas trunk/jvcl/run/JvEditor.pas trunk/jvcl/run/JvEditorCommon.pas trunk/jvcl/run/JvEmbeddedForms.pas trunk/jvcl/run/JvEnterTab.pas trunk/jvcl/run/JvErrorIndicator.pas trunk/jvcl/run/JvExButtons.pas trunk/jvcl/run/JvExCheckLst.pas trunk/jvcl/run/JvExComCtrls.pas trunk/jvcl/run/JvExControls.pas trunk/jvcl/run/JvExDBGrids.pas trunk/jvcl/run/JvExExtCtrls.pas trunk/jvcl/run/JvExForms.pas trunk/jvcl/run/JvExGrids.pas trunk/jvcl/run/JvExMask.pas trunk/jvcl/run/JvExStdCtrls.pas trunk/jvcl/run/JvExceptionForm.pas trunk/jvcl/run/JvExtComponent.pas trunk/jvcl/run/JvFavoritesButton.pas trunk/jvcl/run/JvFindFiles.pas trunk/jvcl/run/JvFindReplace.pas trunk/jvcl/run/JvFixedEditPopUp.pas trunk/jvcl/run/JvFooter.pas trunk/jvcl/run/JvFormAnimatedIcon.pas trunk/jvcl/run/JvFormAnimation.pas trunk/jvcl/run/JvFormAutoSize.pas trunk/jvcl/run/JvFormMagnet.pas trunk/jvcl/run/JvFormPlacement.pas trunk/jvcl/run/JvFormPlacementSelectList.pas trunk/jvcl/run/JvFormToHtml.pas trunk/jvcl/run/JvFormTransparent.pas trunk/jvcl/run/JvFormWallpaper.pas trunk/jvcl/run/JvForth.pas trunk/jvcl/run/JvFullColorCircleForm.pas trunk/jvcl/run/JvFullColorCtrls.pas trunk/jvcl/run/JvFullColorDialogs.pas trunk/jvcl/run/JvFullColorForm.pas trunk/jvcl/run/JvFullColorRotate.pas trunk/jvcl/run/JvFullColorSpaces.pas trunk/jvcl/run/JvGIF.pas trunk/jvcl/run/JvGIFCtrl.pas trunk/jvcl/run/JvGammaPanel.pas trunk/jvcl/run/JvGenetic.pas trunk/jvcl/run/JvGradient.pas trunk/jvcl/run/JvGradientCaption.pas trunk/jvcl/run/JvGradientHeaderPanel.pas trunk/jvcl/run/JvGridFilter.pas trunk/jvcl/run/JvGridPreviewForm.pas trunk/jvcl/run/JvGridPrinter.pas trunk/jvcl/run/JvGrids.pas trunk/jvcl/run/JvGroupBox.pas trunk/jvcl/run/JvGroupHeader.pas trunk/jvcl/run/JvHLEditor.pas trunk/jvcl/run/JvHLEditorPropertyForm.pas trunk/jvcl/run/JvHLParser.pas trunk/jvcl/run/JvHeaderControl.pas trunk/jvcl/run/JvHidControllerClass.pas trunk/jvcl/run/JvHint.pas trunk/jvcl/run/JvHints.pas trunk/jvcl/run/JvHotKey.pas trunk/jvcl/run/JvHtControls.pas trunk/jvcl/run/JvHtmlParser.pas trunk/jvcl/run/JvID3v2Base.pas trunk/jvcl/run/JvIconList.pas trunk/jvcl/run/JvId3v1.pas trunk/jvcl/run/JvId3v2.pas trunk/jvcl/run/JvId3v2Types.pas trunk/jvcl/run/JvImage.pas trunk/jvcl/run/JvImageDrawThread.pas trunk/jvcl/run/JvImageList.pas trunk/jvcl/run/JvImageListViewer.pas trunk/jvcl/run/JvImageRotate.pas trunk/jvcl/run/JvImageSquare.pas trunk/jvcl/run/JvImageTransform.pas trunk/jvcl/run/JvImagesViewer.pas trunk/jvcl/run/JvInspDB.pas trunk/jvcl/run/JvInspExtraEditors.pas trunk/jvcl/run/JvInspXVCL.pas trunk/jvcl/run/JvInspector.pas trunk/jvcl/run/JvInstallLabel.pas trunk/jvcl/run/JvInterpreter.pas trunk/jvcl/run/JvInterpreterConst.pas trunk/jvcl/run/JvInterpreterFm.pas trunk/jvcl/run/JvInterpreter_Buttons.pas trunk/jvcl/run/JvInterpreter_Classes.pas trunk/jvcl/run/JvInterpreter_ComCtrls.pas trunk/jvcl/run/JvInterpreter_Contnrs.pas trunk/jvcl/run/JvInterpreter_Controls.pas trunk/jvcl/run/JvInterpreter_DBTables.pas trunk/jvcl/run/JvInterpreter_Db.pas trunk/jvcl/run/JvInterpreter_DbCtrls.pas trunk/jvcl/run/JvInterpreter_DbGrids.pas trunk/jvcl/run/JvInterpreter_Dialogs.pas trunk/jvcl/run/JvInterpreter_ExtCtrls.pas trunk/jvcl/run/JvInterpreter_Forms.pas trunk/jvcl/run/JvInterpreter_Graphics.pas trunk/jvcl/run/JvInterpreter_Grids.pas trunk/jvcl/run/JvInterpreter_JvEditor.pas trunk/jvcl/run/JvInterpreter_JvInterpreter.pas trunk/jvcl/run/JvInterpreter_JvUtils.pas trunk/jvcl/run/JvInterpreter_Menus.pas trunk/jvcl/run/JvInterpreter_Quickrpt.pas trunk/jvcl/run/JvInterpreter_StdCtrls.pas trunk/jvcl/run/JvInterpreter_SysUtils.pas trunk/jvcl/run/JvInterpreter_System.pas trunk/jvcl/run/JvInterpreter_Types.pas trunk/jvcl/run/JvInterpreter_Windows.pas trunk/jvcl/run/JvInterpreter_all.pas trunk/jvcl/run/JvInterpreter_httpapp.pas trunk/jvcl/run/JvItemsPanel.pas trunk/jvcl/run/JvItemsSearchs.pas trunk/jvcl/run/JvJCLUtils.pas trunk/jvcl/run/JvJVCLUtils.pas trunk/jvcl/run/JvJanTreeView.pas trunk/jvcl/run/JvJoystick.pas trunk/jvcl/run/JvLED.pas trunk/jvcl/run/JvLabel.pas trunk/jvcl/run/JvLinkLabel.pas trunk/jvcl/run/JvLinkLabelDebug.pas trunk/jvcl/run/JvLinkLabelParser.pas trunk/jvcl/run/JvLinkLabelRenderer.pas trunk/jvcl/run/JvLinkLabelTextHandler.pas trunk/jvcl/run/JvLinkLabelTools.pas trunk/jvcl/run/JvLinkLabelTree.pas trunk/jvcl/run/JvLinkedControls.pas trunk/jvcl/run/JvListBox.pas trunk/jvcl/run/JvListComb.pas trunk/jvcl/run/JvListView.pas trunk/jvcl/run/JvLogFile.pas trunk/jvcl/run/JvLogForm.pas trunk/jvcl/run/JvLoginForm.pas trunk/jvcl/run/JvLookOut.pas trunk/jvcl/run/JvMRUList.pas trunk/jvcl/run/JvMRUManager.pas trunk/jvcl/run/JvMTComponents.pas trunk/jvcl/run/JvMTConsts.pas trunk/jvcl/run/JvMTData.pas trunk/jvcl/run/JvMTSync.pas trunk/jvcl/run/JvMTSyncMon.pas trunk/jvcl/run/JvMTThreading.pas trunk/jvcl/run/JvMail.pas trunk/jvcl/run/JvMarkupCommon.pas trunk/jvcl/run/JvMarkupLabel.pas trunk/jvcl/run/JvMarkupViewer.pas trunk/jvcl/run/JvMaskEdit.pas trunk/jvcl/run/JvMaxPixel.pas trunk/jvcl/run/JvMemo.pas trunk/jvcl/run/JvMemoryDataset.pas trunk/jvcl/run/JvMenus.pas trunk/jvcl/run/JvMergeManager.pas trunk/jvcl/run/JvMessageControl.pas trunk/jvcl/run/JvMonthCalendar.pas trunk/jvcl/run/JvMouseGesture.pas trunk/jvcl/run/JvMouseTimer.pas trunk/jvcl/run/JvMovableBevel.pas trunk/jvcl/run/JvNTEventLog.pas trunk/jvcl/run/JvNavigationPane.pas trunk/jvcl/run/JvNetscapeSplitter.pas trunk/jvcl/run/JvObjectPickerDialog.pas trunk/jvcl/run/JvOfficeColorButton.pas trunk/jvcl/run/JvOfficeColorForm.pas trunk/jvcl/run/JvOfficeColorPanel.pas trunk/jvcl/run/JvOracleDataSet.pas trunk/jvcl/run/JvOutlookBar.pas trunk/jvcl/run/JvOwnerDrawViewer.pas trunk/jvcl/run/JvPageList.pas trunk/jvcl/run/JvPageListTreeView.pas trunk/jvcl/run/JvPageManager.pas trunk/jvcl/run/JvPageScroller.pas trunk/jvcl/run/JvPageSetup.pas trunk/jvcl/run/JvPageSetupTitled.pas trunk/jvcl/run/JvPaintFX.pas trunk/jvcl/run/JvPainterEffectsForm.pas trunk/jvcl/run/JvPainterQBForm.pas trunk/jvcl/run/JvParameterList.pas trunk/jvcl/run/JvParameterListParameter.pas trunk/jvcl/run/JvParameterListTools.pas trunk/jvcl/run/JvParserForm.pas trunk/jvcl/run/JvPatchFile.pas trunk/jvcl/run/JvPatchForm.pas trunk/jvcl/run/JvPcx.pas trunk/jvcl/run/JvPerfMon95.pas trunk/jvcl/run/JvPicClip.pas trunk/jvcl/run/JvPickDate.pas trunk/jvcl/run/JvPlaylist.pas trunk/jvcl/run/JvPlugin.pas trunk/jvcl/run/JvPluginManager.pas trunk/jvcl/run/JvPoweredBy.pas trunk/jvcl/run/JvPrint.pas trunk/jvcl/run/JvProfilerForm.pas trunk/jvcl/run/JvProgramVersionCheck.pas trunk/jvcl/run/JvProgressBar.pas trunk/jvcl/run/JvProgressComponent.pas trunk/jvcl/run/JvProgressForm.pas trunk/jvcl/run/JvProgressUtils.pas trunk/jvcl/run/JvPropertyStorage.pas trunk/jvcl/run/JvPropertyStore.pas trunk/jvcl/run/JvPrvwDoc.pas trunk/jvcl/run/JvPrvwRender.pas trunk/jvcl/run/JvQuickPreviewForm.pas trunk/jvcl/run/JvRadioButton.pas trunk/jvcl/run/JvRadioGroup.pas trunk/jvcl/run/JvRas32.pas trunk/jvcl/run/JvRecentMenuButton.pas trunk/jvcl/run/JvRegistryTreeview.pas trunk/jvcl/run/JvRenameError.pas trunk/jvcl/run/JvResample.pas trunk/jvcl/run/JvResources.pas trunk/jvcl/run/JvRgbToHtml.pas trunk/jvcl/run/JvRichEdit.pas trunk/jvcl/run/JvRichEditToHtml.pas trunk/jvcl/run/JvRollOut.pas trunk/jvcl/run/JvRuler.pas trunk/jvcl/run/JvSAL.pas trunk/jvcl/run/JvSALCore.pas trunk/jvcl/run/JvSALHashList.pas trunk/jvcl/run/JvSALMath.pas trunk/jvcl/run/JvSHFileOperation.pas trunk/jvcl/run/JvSLDMappingEditorDialog.pas trunk/jvcl/run/JvSchedEvtStore.pas trunk/jvcl/run/JvScheduledEvents.pas trunk/jvcl/run/JvScreenResolution.pas trunk/jvcl/run/JvScreenSaveSuppress.pas trunk/jvcl/run/JvScreenSaver.pas trunk/jvcl/run/JvScrollBar.pas trunk/jvcl/run/JvScrollBox.pas trunk/jvcl/run/JvScrollMax.pas trunk/jvcl/run/JvScrollPanel.pas trunk/jvcl/run/JvScrollText.pas trunk/jvcl/run/JvSearchFiles.pas trunk/jvcl/run/JvSecretPanel.pas trunk/jvcl/run/JvSegmentedLEDDisplay.pas trunk/jvcl/run/JvSegmentedLEDDisplayMapperFrame.pas trunk/jvcl/run/JvSelectDirectory.pas trunk/jvcl/run/JvSerialMaker.pas trunk/jvcl/run/JvShape.pas trunk/jvcl/run/JvShapedButton.pas trunk/jvcl/run/JvShellHook.pas trunk/jvcl/run/JvSimIndicator.pas trunk/jvcl/run/JvSimLogic.pas trunk/jvcl/run/JvSimPID.pas trunk/jvcl/run/JvSimPIDLinker.pas trunk/jvcl/run/JvSimScope.pas trunk/jvcl/run/JvSimpleXml.pas trunk/jvcl/run/JvSlider.pas trunk/jvcl/run/JvSoundControl.pas trunk/jvcl/run/JvSpacer.pas trunk/jvcl/run/JvSpecialImage.pas trunk/jvcl/run/JvSpecialProgress.pas trunk/jvcl/run/JvSpeedButton.pas trunk/jvcl/run/JvSpeedbar.pas trunk/jvcl/run/JvSpeedbarSetupForm.pas trunk/jvcl/run/JvSpellChecker.pas trunk/jvcl/run/JvSpellIntf.pas trunk/jvcl/run/JvSpellerForm.pas trunk/jvcl/run/JvSpin.pas trunk/jvcl/run/JvSplashWindow.pas trunk/jvcl/run/JvSplit.pas trunk/jvcl/run/JvSplitter.pas trunk/jvcl/run/JvStarfield.pas trunk/jvcl/run/JvStartMenuButton.pas trunk/jvcl/run/JvStaticText.pas trunk/jvcl/run/JvStatusBar.pas trunk/jvcl/run/JvSticker.pas trunk/jvcl/run/JvStrToHtml.pas trunk/jvcl/run/JvStringGrid.pas trunk/jvcl/run/JvStringHolder.pas trunk/jvcl/run/JvStringListToHtml.pas trunk/jvcl/run/JvStrings.pas trunk/jvcl/run/JvSwitch.pas trunk/jvcl/run/JvSyncSplitter.pas trunk/jvcl/run/JvSystemPopup.pas trunk/jvcl/run/JvTFAlarm.pas trunk/jvcl/run/JvTFDays.pas trunk/jvcl/run/JvTFGantt.pas trunk/jvcl/run/JvTFGlance.pas trunk/jvcl/run/JvTFGlanceTextViewer.pas trunk/jvcl/run/JvTFManager.pas trunk/jvcl/run/JvTFMonths.pas trunk/jvcl/run/JvTFSparseMatrix.pas trunk/jvcl/run/JvTFUtils.pas trunk/jvcl/run/JvTFWeeks.pas trunk/jvcl/run/JvTMTimeLine.pas trunk/jvcl/run/JvTabBar.pas trunk/jvcl/run/JvTextListBox.pas trunk/jvcl/run/JvThemes.pas trunk/jvcl/run/JvThread.pas trunk/jvcl/run/JvThreadDialog.pas trunk/jvcl/run/JvThreadTimer.pas trunk/jvcl/run/JvThumbImage.pas trunk/jvcl/run/JvThumbViews.pas trunk/jvcl/run/JvThumbnails.pas trunk/jvcl/run/JvTimeLimit.pas trunk/jvcl/run/JvTimeLine.pas trunk/jvcl/run/JvTimer.pas trunk/jvcl/run/JvTimerList.pas trunk/jvcl/run/JvToolBar.pas trunk/jvcl/run/JvToolEdit.pas trunk/jvcl/run/JvTracker.pas trunk/jvcl/run/JvTranslator.pas trunk/jvcl/run/JvTransparentButton.pas trunk/jvcl/run/JvTrayIcon.pas trunk/jvcl/run/JvTurtle.pas trunk/jvcl/run/JvTypes.pas trunk/jvcl/run/JvUIB.pas trunk/jvcl/run/JvUIBConst.pas trunk/jvcl/run/JvUIBDataSet.pas trunk/jvcl/run/JvUIBError.pas trunk/jvcl/run/JvUIBLib.pas trunk/jvcl/run/JvUIBMetaData.pas trunk/jvcl/run/JvUIBObj.pas trunk/jvcl/run/JvUIBSQLParser.pas trunk/jvcl/run/JvUIBSrv.pas trunk/jvcl/run/JvUIBase.pas trunk/jvcl/run/JvUnicodeCanvas.pas trunk/jvcl/run/JvUnicodeEditor.pas trunk/jvcl/run/JvUnicodeHLEditor.pas trunk/jvcl/run/JvUninstallControls.pas trunk/jvcl/run/JvUpDown.pas trunk/jvcl/run/JvUrlGrabbers.pas trunk/jvcl/run/JvUrlListGrabber.pas trunk/jvcl/run/JvValidateEdit.pas trunk/jvcl/run/JvValidators.pas trunk/jvcl/run/JvVirtualKeySelectionFrame.pas trunk/jvcl/run/JvWaitingGradient.pas trunk/jvcl/run/JvWaitingProgress.pas trunk/jvcl/run/JvWallpaperEditForm.pas trunk/jvcl/run/JvWavePlayer.pas trunk/jvcl/run/JvWinampLabel.pas trunk/jvcl/run/JvaScrollText.pas trunk/jvcl/run/Jvg3DColors.pas trunk/jvcl/run/JvgAlignFunction.pas trunk/jvcl/run/JvgAskListBox.pas trunk/jvcl/run/JvgBevel.pas trunk/jvcl/run/JvgButton.pas trunk/jvcl/run/JvgCaption.pas trunk/jvcl/run/JvgCheckBox.pas trunk/jvcl/run/JvgCommClasses.pas trunk/jvcl/run/JvgCrossTable.pas trunk/jvcl/run/JvgDBGrid.pas trunk/jvcl/run/JvgDigits.pas trunk/jvcl/run/JvgDrawTab.pas trunk/jvcl/run/JvgExceptionHandler.pas trunk/jvcl/run/JvgExport.pas trunk/jvcl/run/JvgExportComponents.pas trunk/jvcl/run/JvgFileIterator.pas trunk/jvcl/run/JvgFixFont.pas trunk/jvcl/run/JvgFlyingText.pas trunk/jvcl/run/JvgGraph.pas trunk/jvcl/run/JvgGraphicButton.pas trunk/jvcl/run/JvgGridHeaderControl.pas trunk/jvcl/run/JvgGroupBox.pas trunk/jvcl/run/JvgHTTPVersionInfo.pas trunk/jvcl/run/JvgHelpPanel.pas trunk/jvcl/run/JvgHint.pas trunk/jvcl/run/JvgHoleShape.pas trunk/jvcl/run/JvgImage.pas trunk/jvcl/run/JvgImageGroup.pas trunk/jvcl/run/JvgInspectorGrid.pas trunk/jvcl/run/JvgLabel.pas trunk/jvcl/run/JvgLanguageLoader.pas trunk/jvcl/run/JvgListBox.pas trunk/jvcl/run/JvgLogics.pas trunk/jvcl/run/JvgMailSlots.pas trunk/jvcl/run/JvgPage.pas trunk/jvcl/run/JvgProgress.pas trunk/jvcl/run/JvgQPrintPreviewForm.pas trunk/jvcl/run/JvgQPrintSetupForm.pas trunk/jvcl/run/JvgQRLabel.pas trunk/jvcl/run/JvgReport.pas trunk/jvcl/run/JvgReportParamsEditor.pas trunk/jvcl/run/JvgRuler.pas trunk/jvcl/run/JvgScrollBox.pas trunk/jvcl/run/JvgShade.pas trunk/jvcl/run/JvgShadow.pas trunk/jvcl/run/JvgSingleInstance.pas trunk/jvcl/run/JvgSmallFontsDefense.pas trunk/jvcl/run/JvgSpeedButton.pas trunk/jvcl/run/JvgSplit.pas trunk/jvcl/run/JvgStaticText.pas trunk/jvcl/run/JvgStringContainer.pas trunk/jvcl/run/JvgStringGrid.pas trunk/jvcl/run/JvgSysRequirements.pas trunk/jvcl/run/JvgTab.pas trunk/jvcl/run/JvgTabComm.pas trunk/jvcl/run/JvgTagParser.pas trunk/jvcl/run/JvgTransparentMemo.pas trunk/jvcl/run/JvgTreeView.pas trunk/jvcl/run/JvgTypes.pas trunk/jvcl/run/JvgUtils.pas trunk/jvcl/run/JvgVertDBGrid.pas trunk/jvcl/run/JvgWebDocumentIterator.pas trunk/jvcl/run/JvgWinMask.pas trunk/jvcl/run/JvgWizardHeader.pas trunk/jvcl/run/JvgXMLSerializer.pas Modified: trunk/jvcl/run/JVCLVer.pas =================================================================== --- trunk/jvcl/run/JVCLVer.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JVCLVer.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -63,7 +63,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAVICapture.pas =================================================================== --- trunk/jvcl/run/JvAVICapture.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAVICapture.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -549,7 +549,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvActions.pas =================================================================== --- trunk/jvcl/run/JvActions.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvActions.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -116,7 +116,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAddPrinter.pas =================================================================== --- trunk/jvcl/run/JvAddPrinter.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAddPrinter.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -46,7 +46,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAirBrush.pas =================================================================== --- trunk/jvcl/run/JvAirBrush.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAirBrush.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -74,7 +74,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAlarms.pas =================================================================== --- trunk/jvcl/run/JvAlarms.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAlarms.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -98,7 +98,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAni.pas =================================================================== --- trunk/jvcl/run/JvAni.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAni.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -141,7 +141,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAniFile.pas =================================================================== --- trunk/jvcl/run/JvAniFile.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAniFile.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -102,7 +102,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAnimTitle.pas =================================================================== --- trunk/jvcl/run/JvAnimTitle.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAnimTitle.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -66,7 +66,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAnimate.pas =================================================================== --- trunk/jvcl/run/JvAnimate.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAnimate.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -66,7 +66,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAnimatedImage.pas =================================================================== --- trunk/jvcl/run/JvAnimatedImage.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAnimatedImage.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -200,7 +200,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAppAnimatedIcon.pas =================================================================== --- trunk/jvcl/run/JvAppAnimatedIcon.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAppAnimatedIcon.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -60,7 +60,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAppCommand.pas =================================================================== --- trunk/jvcl/run/JvAppCommand.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAppCommand.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -131,7 +131,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAppDBStorage.pas =================================================================== --- trunk/jvcl/run/JvAppDBStorage.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAppDBStorage.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -128,7 +128,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAppEvent.pas =================================================================== --- trunk/jvcl/run/JvAppEvent.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAppEvent.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -220,7 +220,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAppHotKey.pas =================================================================== --- trunk/jvcl/run/JvAppHotKey.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAppHotKey.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -86,7 +86,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAppIniStorage.pas =================================================================== --- trunk/jvcl/run/JvAppIniStorage.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAppIniStorage.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -144,7 +144,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAppInst.pas =================================================================== --- trunk/jvcl/run/JvAppInst.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAppInst.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -106,7 +106,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAppRegistryStorage.pas =================================================================== --- trunk/jvcl/run/JvAppRegistryStorage.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAppRegistryStorage.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -125,7 +125,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAppStorage.pas =================================================================== --- trunk/jvcl/run/JvAppStorage.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAppStorage.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -841,7 +841,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAppStoragePropertyEngineDB.pas =================================================================== --- trunk/jvcl/run/JvAppStoragePropertyEngineDB.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAppStoragePropertyEngineDB.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -42,7 +42,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAppStorageSelectList.pas =================================================================== --- trunk/jvcl/run/JvAppStorageSelectList.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAppStorageSelectList.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -94,7 +94,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAppXMLStorage.pas =================================================================== --- trunk/jvcl/run/JvAppXMLStorage.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAppXMLStorage.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -171,7 +171,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvArrayButton.pas =================================================================== --- trunk/jvcl/run/JvArrayButton.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvArrayButton.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -128,7 +128,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvArrowButton.pas =================================================================== --- trunk/jvcl/run/JvArrowButton.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvArrowButton.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -149,7 +149,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvAutoComplete.pas =================================================================== --- trunk/jvcl/run/JvAutoComplete.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvAutoComplete.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -247,7 +247,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDECheckPasswordForm.pas =================================================================== --- trunk/jvcl/run/JvBDECheckPasswordForm.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDECheckPasswordForm.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -48,7 +48,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDEExceptionForm.pas =================================================================== --- trunk/jvcl/run/JvBDEExceptionForm.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDEExceptionForm.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -110,7 +110,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDEFilter.pas =================================================================== --- trunk/jvcl/run/JvBDEFilter.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDEFilter.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -141,7 +141,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDEIndex.pas =================================================================== --- trunk/jvcl/run/JvBDEIndex.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDEIndex.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -111,7 +111,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDELists.pas =================================================================== --- trunk/jvcl/run/JvBDELists.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDELists.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -200,7 +200,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDELoginDialog.pas =================================================================== --- trunk/jvcl/run/JvBDELoginDialog.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDELoginDialog.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -117,7 +117,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDEMemTable.pas =================================================================== --- trunk/jvcl/run/JvBDEMemTable.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDEMemTable.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -84,7 +84,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDEMove.pas =================================================================== --- trunk/jvcl/run/JvBDEMove.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDEMove.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -122,7 +122,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDEProgress.pas =================================================================== --- trunk/jvcl/run/JvBDEProgress.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDEProgress.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -130,7 +130,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDEQBE.pas =================================================================== --- trunk/jvcl/run/JvBDEQBE.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDEQBE.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -121,7 +121,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDEQuery.pas =================================================================== --- trunk/jvcl/run/JvBDEQuery.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDEQuery.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -183,7 +183,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDESQLScript.pas =================================================================== --- trunk/jvcl/run/JvBDESQLScript.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDESQLScript.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -66,7 +66,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBDESecurity.pas =================================================================== --- trunk/jvcl/run/JvBDESecurity.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBDESecurity.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -98,7 +98,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBackgrounds.pas =================================================================== --- trunk/jvcl/run/JvBackgrounds.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBackgrounds.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -246,7 +246,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBalloonHint.pas =================================================================== --- trunk/jvcl/run/JvBalloonHint.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBalloonHint.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -274,7 +274,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBandForms.pas =================================================================== --- trunk/jvcl/run/JvBandForms.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBandForms.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -291,7 +291,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBandObject.pas =================================================================== --- trunk/jvcl/run/JvBandObject.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBandObject.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -168,7 +168,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBaseEdits.pas =================================================================== --- trunk/jvcl/run/JvBaseEdits.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBaseEdits.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -309,7 +309,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBaseThumbnail.pas =================================================================== --- trunk/jvcl/run/JvBaseThumbnail.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBaseThumbnail.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -197,7 +197,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBdeUtils.pas =================================================================== --- trunk/jvcl/run/JvBdeUtils.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBdeUtils.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -224,7 +224,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBehaviorLabel.pas =================================================================== --- trunk/jvcl/run/JvBehaviorLabel.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBehaviorLabel.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -400,7 +400,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBevel.pas =================================================================== --- trunk/jvcl/run/JvBevel.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBevel.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -64,7 +64,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBitBtn.pas =================================================================== --- trunk/jvcl/run/JvBitBtn.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBitBtn.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -83,7 +83,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBitmapButton.pas =================================================================== --- trunk/jvcl/run/JvBitmapButton.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBitmapButton.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -124,7 +124,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBmpAnimator.pas =================================================================== --- trunk/jvcl/run/JvBmpAnimator.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBmpAnimator.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -129,7 +129,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBoxProcs.pas =================================================================== --- trunk/jvcl/run/JvBoxProcs.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBoxProcs.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -52,7 +52,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvBrowseFolder.pas =================================================================== --- trunk/jvcl/run/JvBrowseFolder.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvBrowseFolder.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -308,7 +308,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvButton.pas =================================================================== --- trunk/jvcl/run/JvButton.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvButton.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -186,7 +186,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvButtonPersistent.pas =================================================================== --- trunk/jvcl/run/JvButtonPersistent.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvButtonPersistent.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -83,7 +83,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvButtons.pas =================================================================== --- trunk/jvcl/run/JvButtons.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvButtons.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -280,7 +280,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCSVBaseControls.pas =================================================================== --- trunk/jvcl/run/JvCSVBaseControls.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCSVBaseControls.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -161,7 +161,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCabFile.pas =================================================================== --- trunk/jvcl/run/JvCabFile.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCabFile.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -86,7 +86,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCalc.pas =================================================================== --- trunk/jvcl/run/JvCalc.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCalc.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -126,7 +126,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCalendar.pas =================================================================== --- trunk/jvcl/run/JvCalendar.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCalendar.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -291,7 +291,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCaptionButton.pas =================================================================== --- trunk/jvcl/run/JvCaptionButton.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCaptionButton.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -295,7 +295,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCaptionPanel.pas =================================================================== --- trunk/jvcl/run/JvCaptionPanel.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCaptionPanel.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -206,7 +206,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCaret.pas =================================================================== --- trunk/jvcl/run/JvCaret.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCaret.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -96,7 +96,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvChangeNotify.pas =================================================================== --- trunk/jvcl/run/JvChangeNotify.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvChangeNotify.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -165,7 +165,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCharMap.pas =================================================================== --- trunk/jvcl/run/JvCharMap.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCharMap.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -390,7 +390,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvChart.pas =================================================================== --- trunk/jvcl/run/JvChart.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvChart.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -796,7 +796,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCheckBox.pas =================================================================== --- trunk/jvcl/run/JvCheckBox.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCheckBox.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -124,7 +124,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCheckListBox.pas =================================================================== --- trunk/jvcl/run/JvCheckListBox.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCheckListBox.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -128,7 +128,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCheckTreeView.pas =================================================================== --- trunk/jvcl/run/JvCheckTreeView.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCheckTreeView.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -151,7 +151,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCheckedMaskEdit.pas =================================================================== --- trunk/jvcl/run/JvCheckedMaskEdit.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCheckedMaskEdit.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -177,7 +177,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvCipher.pas =================================================================== --- trunk/jvcl/run/JvCipher.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvCipher.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -91,7 +91,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvClipboardMonitor.pas =================================================================== --- trunk/jvcl/run/JvClipboardMonitor.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvClipboardMonitor.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -67,7 +67,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvClipboardViewer.pas =================================================================== --- trunk/jvcl/run/JvClipboardViewer.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvClipboardViewer.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -105,7 +105,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvClipbrd.pas =================================================================== --- trunk/jvcl/run/JvClipbrd.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvClipbrd.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -245,7 +245,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvClock.pas =================================================================== --- trunk/jvcl/run/JvClock.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvClock.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -189,7 +189,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvColorBox.pas =================================================================== --- trunk/jvcl/run/JvColorBox.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvColorBox.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -164,7 +164,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvColorButton.pas =================================================================== --- trunk/jvcl/run/JvColorButton.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvColorButton.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -116,7 +116,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvColorCombo.pas =================================================================== --- trunk/jvcl/run/JvColorCombo.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvColorCombo.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -320,7 +320,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvColorForm.pas =================================================================== --- trunk/jvcl/run/JvColorForm.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvColorForm.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -99,7 +99,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvColorProvider.pas =================================================================== --- trunk/jvcl/run/JvColorProvider.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvColorProvider.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -505,7 +505,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvColorTrackbar.pas =================================================================== --- trunk/jvcl/run/JvColorTrackbar.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvColorTrackbar.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -145,7 +145,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvComCtrls.pas =================================================================== --- trunk/jvcl/run/JvComCtrls.pas 2006-05-19 18:59:32 UTC (rev 10611) +++ trunk/jvcl/run/JvComCtrls.pas 2006-05-19 19:04:09 UTC (rev 10612) @@ -688,7 +688,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JV... [truncated message content] |
From: <jfu...@us...> - 2006-05-19 19:28:27
|
Revision: 10613 Author: jfudickar Date: 2006-05-19 12:21:43 -0700 (Fri, 19 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10613&view=rev Log Message: ----------- Replaced $RCSFile$ with $URL$ Modified Paths: -------------- trunk/jvcl/common/JvConsts.pas trunk/jvcl/common/JvWin32.pas trunk/jvcl/design/JvgAlignForm.pas trunk/jvcl/devtools/JvExVCL/src/JvExButtons.pas trunk/jvcl/devtools/JvExVCL/src/JvExCheckLst.pas trunk/jvcl/devtools/JvExVCL/src/JvExComCtrls.pas trunk/jvcl/devtools/JvExVCL/src/JvExControls.pas trunk/jvcl/devtools/JvExVCL/src/JvExDBCtrls.pas trunk/jvcl/devtools/JvExVCL/src/JvExDBGrids.pas trunk/jvcl/devtools/JvExVCL/src/JvExExtCtrls.pas trunk/jvcl/devtools/JvExVCL/src/JvExForms.pas trunk/jvcl/devtools/JvExVCL/src/JvExGrids.pas trunk/jvcl/devtools/JvExVCL/src/JvExMask.pas trunk/jvcl/devtools/JvExVCL/src/JvExStdCtrls.pas trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.pas trunk/jvcl/qcommon/JvQConsts.pas trunk/jvcl/qcommon/QWindows.pas trunk/jvcl/qrun/JvQActions.pas trunk/jvcl/qrun/JvQAddPrinter.pas trunk/jvcl/qrun/JvQAirBrush.pas trunk/jvcl/qrun/JvQAlarms.pas trunk/jvcl/qrun/JvQAni.pas trunk/jvcl/qrun/JvQAnimTitle.pas trunk/jvcl/qrun/JvQAnimate.pas trunk/jvcl/qrun/JvQAnimatedImage.pas trunk/jvcl/qrun/JvQAppAnimatedIcon.pas trunk/jvcl/qrun/JvQAppDBStorage.pas trunk/jvcl/qrun/JvQAppEvent.pas trunk/jvcl/qrun/JvQAppIniStorage.pas trunk/jvcl/qrun/JvQAppInst.pas trunk/jvcl/qrun/JvQAppRegistryStorage.pas trunk/jvcl/qrun/JvQAppStorage.pas trunk/jvcl/qrun/JvQAppStorageSelectList.pas trunk/jvcl/qrun/JvQAppXMLStorage.pas trunk/jvcl/qrun/JvQArrayButton.pas trunk/jvcl/qrun/JvQArrowButton.pas trunk/jvcl/qrun/JvQAutoComplete.pas trunk/jvcl/qrun/JvQBaseDlg.pas trunk/jvcl/qrun/JvQBaseEdits.pas trunk/jvcl/qrun/JvQBehaviorLabel.pas trunk/jvcl/qrun/JvQBevel.pas trunk/jvcl/qrun/JvQBitBtn.pas trunk/jvcl/qrun/JvQBitmapButton.pas trunk/jvcl/qrun/JvQBmpAnimator.pas trunk/jvcl/qrun/JvQBoxProcs.pas trunk/jvcl/qrun/JvQBrowseFolder.pas trunk/jvcl/qrun/JvQButton.pas trunk/jvcl/qrun/JvQButtonPersistent.pas trunk/jvcl/qrun/JvQButtons.pas trunk/jvcl/qrun/JvQCSVBaseControls.pas trunk/jvcl/qrun/JvQCabFile.pas trunk/jvcl/qrun/JvQCalc.pas trunk/jvcl/qrun/JvQCaptionPanel.pas trunk/jvcl/qrun/JvQCaret.pas trunk/jvcl/qrun/JvQChangeNotify.pas trunk/jvcl/qrun/JvQCharMap.pas trunk/jvcl/qrun/JvQChart.pas trunk/jvcl/qrun/JvQCheckBox.pas trunk/jvcl/qrun/JvQCheckListBox.pas trunk/jvcl/qrun/JvQCheckedMaskEdit.pas trunk/jvcl/qrun/JvQCipher.pas trunk/jvcl/qrun/JvQClock.pas trunk/jvcl/qrun/JvQColorBox.pas trunk/jvcl/qrun/JvQColorButton.pas trunk/jvcl/qrun/JvQColorCombo.pas trunk/jvcl/qrun/JvQColorForm.pas trunk/jvcl/qrun/JvQColorProvider.pas trunk/jvcl/qrun/JvQColorTrackbar.pas trunk/jvcl/qrun/JvQComCtrls.pas trunk/jvcl/qrun/JvQComboListBox.pas trunk/jvcl/qrun/JvQCommStatus.pas trunk/jvcl/qrun/JvQCommonDialogD.pas trunk/jvcl/qrun/JvQCommonExecDlg.pas trunk/jvcl/qrun/JvQComponent.pas trunk/jvcl/qrun/JvQComponentPanel.pas trunk/jvcl/qrun/JvQConnectNetwork.pas trunk/jvcl/qrun/JvQContentScroller.pas trunk/jvcl/qrun/JvQContextProvider.pas trunk/jvcl/qrun/JvQControlBar.pas trunk/jvcl/qrun/JvQControlComponent.pas trunk/jvcl/qrun/JvQConverter.pas trunk/jvcl/qrun/JvQCopyError.pas trunk/jvcl/qrun/JvQCreateProcess.pas trunk/jvcl/qrun/JvQCsvData.pas trunk/jvcl/qrun/JvQCtrls.pas trunk/jvcl/qrun/JvQDBFindEdit.pas trunk/jvcl/qrun/JvQDBHTLabel.pas trunk/jvcl/qrun/JvQDBProgressBar.pas trunk/jvcl/qrun/JvQDBQueryParamsForm.pas trunk/jvcl/qrun/JvQDBRemoteLogin.pas trunk/jvcl/qrun/JvQDBUtils.pas trunk/jvcl/qrun/JvQDSADialogs.pas trunk/jvcl/qrun/JvQDataEmbedded.pas trunk/jvcl/qrun/JvQDataProvider.pas trunk/jvcl/qrun/JvQDataProviderIntf.pas trunk/jvcl/qrun/JvQDeleteError.pas trunk/jvcl/qrun/JvQDesktopAlert.pas trunk/jvcl/qrun/JvQDesktopAlertForm.pas trunk/jvcl/qrun/JvQDiagramShape.pas trunk/jvcl/qrun/JvQDialButton.pas trunk/jvcl/qrun/JvQDice.pas trunk/jvcl/qrun/JvQDiskPrompt.pas trunk/jvcl/qrun/JvQDrawImage.pas trunk/jvcl/qrun/JvQDropDownForm.pas trunk/jvcl/qrun/JvQDsgnIntf.pas trunk/jvcl/qrun/JvQDualList.pas trunk/jvcl/qrun/JvQDualListForm.pas trunk/jvcl/qrun/JvQDynControlEngine.pas trunk/jvcl/qrun/JvQDynControlEngineIntf.pas trunk/jvcl/qrun/JvQDynControlEngineTools.pas trunk/jvcl/qrun/JvQDynControlEngineVCL.pas trunk/jvcl/qrun/JvQEDIDBBuffering.pas trunk/jvcl/qrun/JvQEasterEgg.pas trunk/jvcl/qrun/JvQEdit.pas trunk/jvcl/qrun/JvQEmbeddedForms.pas trunk/jvcl/qrun/JvQEnterTab.pas trunk/jvcl/qrun/JvQErrorIndicator.pas trunk/jvcl/qrun/JvQEventFilter.pas trunk/jvcl/qrun/JvQExceptionForm.pas trunk/jvcl/qrun/JvQFindFiles.pas trunk/jvcl/qrun/JvQFindReplace.pas trunk/jvcl/qrun/JvQFooter.pas trunk/jvcl/qrun/JvQFormAnimatedIcon.pas trunk/jvcl/qrun/JvQFormAnimation.pas trunk/jvcl/qrun/JvQFormAutoSize.pas trunk/jvcl/qrun/JvQFormPlacement.pas trunk/jvcl/qrun/JvQFormPlacementSelectList.pas trunk/jvcl/qrun/JvQFormToHtml.pas trunk/jvcl/qrun/JvQFormWallpaper.pas trunk/jvcl/qrun/JvQForth.pas trunk/jvcl/qrun/JvQFullColorCircleForm.pas trunk/jvcl/qrun/JvQFullColorCtrls.pas trunk/jvcl/qrun/JvQFullColorDialogs.pas trunk/jvcl/qrun/JvQFullColorForm.pas trunk/jvcl/qrun/JvQFullColorRotate.pas trunk/jvcl/qrun/JvQFullColorSpaces.pas trunk/jvcl/qrun/JvQGammaPanel.pas trunk/jvcl/qrun/JvQGenetic.pas trunk/jvcl/qrun/JvQGradient.pas trunk/jvcl/qrun/JvQGradientHeaderPanel.pas trunk/jvcl/qrun/JvQGridFilter.pas trunk/jvcl/qrun/JvQGridPreviewForm.pas trunk/jvcl/qrun/JvQGridPrinter.pas trunk/jvcl/qrun/JvQGrids.pas trunk/jvcl/qrun/JvQGroupBox.pas trunk/jvcl/qrun/JvQGroupHeader.pas trunk/jvcl/qrun/JvQHeaderControl.pas trunk/jvcl/qrun/JvQHint.pas trunk/jvcl/qrun/JvQHints.pas trunk/jvcl/qrun/JvQHtControls.pas trunk/jvcl/qrun/JvQHtmlParser.pas trunk/jvcl/qrun/JvQID3v2Base.pas trunk/jvcl/qrun/JvQIconList.pas trunk/jvcl/qrun/JvQId3v1.pas trunk/jvcl/qrun/JvQId3v2.pas trunk/jvcl/qrun/JvQId3v2Types.pas trunk/jvcl/qrun/JvQImage.pas trunk/jvcl/qrun/JvQImageDlg.pas trunk/jvcl/qrun/JvQImageDrawThread.pas trunk/jvcl/qrun/JvQImageList.pas trunk/jvcl/qrun/JvQImageRotate.pas trunk/jvcl/qrun/JvQImageSquare.pas trunk/jvcl/qrun/JvQImageTransform.pas trunk/jvcl/qrun/JvQInspDB.pas trunk/jvcl/qrun/JvQInspExtraEditors.pas trunk/jvcl/qrun/JvQInspector.pas trunk/jvcl/qrun/JvQInstallLabel.pas trunk/jvcl/qrun/JvQItemsPanel.pas trunk/jvcl/qrun/JvQItemsSearchs.pas trunk/jvcl/qrun/JvQJCLUtils.pas trunk/jvcl/qrun/JvQJVCLUtils.pas trunk/jvcl/qrun/JvQJanTreeView.pas trunk/jvcl/qrun/JvQLED.pas trunk/jvcl/qrun/JvQLabel.pas trunk/jvcl/qrun/JvQLinkLabel.pas trunk/jvcl/qrun/JvQLinkLabelDebug.pas trunk/jvcl/qrun/JvQLinkLabelParser.pas trunk/jvcl/qrun/JvQLinkLabelRenderer.pas trunk/jvcl/qrun/JvQLinkLabelTextHandler.pas trunk/jvcl/qrun/JvQLinkLabelTools.pas trunk/jvcl/qrun/JvQLinkLabelTree.pas trunk/jvcl/qrun/JvQLinkedControls.pas trunk/jvcl/qrun/JvQListComb.pas trunk/jvcl/qrun/JvQLogFile.pas trunk/jvcl/qrun/JvQLogForm.pas trunk/jvcl/qrun/JvQLoginForm.pas trunk/jvcl/qrun/JvQLookOut.pas trunk/jvcl/qrun/JvQMRUList.pas trunk/jvcl/qrun/JvQMRUManager.pas trunk/jvcl/qrun/JvQMTComponents.pas trunk/jvcl/qrun/JvQMTConsts.pas trunk/jvcl/qrun/JvQMTData.pas trunk/jvcl/qrun/JvQMTSync.pas trunk/jvcl/qrun/JvQMTSyncMon.pas trunk/jvcl/qrun/JvQMTThreading.pas trunk/jvcl/qrun/JvQMarkupCommon.pas trunk/jvcl/qrun/JvQMarkupLabel.pas trunk/jvcl/qrun/JvQMarkupViewer.pas trunk/jvcl/qrun/JvQMaskEdit.pas trunk/jvcl/qrun/JvQMaxPixel.pas trunk/jvcl/qrun/JvQMemoryDataset.pas trunk/jvcl/qrun/JvQMergeManager.pas trunk/jvcl/qrun/JvQMouseGesture.pas trunk/jvcl/qrun/JvQMouseTimer.pas trunk/jvcl/qrun/JvQMovableBevel.pas trunk/jvcl/qrun/JvQNTEventLog.pas trunk/jvcl/qrun/JvQNavigationPane.pas trunk/jvcl/qrun/JvQNetscapeSplitter.pas trunk/jvcl/qrun/JvQObjectPickerDialog.pas trunk/jvcl/qrun/JvQOfficeColorButton.pas trunk/jvcl/qrun/JvQOfficeColorForm.pas trunk/jvcl/qrun/JvQOfficeColorPanel.pas trunk/jvcl/qrun/JvQOutlookBar.pas trunk/jvcl/qrun/JvQPageList.pas trunk/jvcl/qrun/JvQPageListTreeView.pas trunk/jvcl/qrun/JvQPageManager.pas trunk/jvcl/qrun/JvQPaintFX.pas trunk/jvcl/qrun/JvQPainterEffectsForm.pas trunk/jvcl/qrun/JvQPainterQBForm.pas trunk/jvcl/qrun/JvQPanel.pas trunk/jvcl/qrun/JvQParameterList.pas trunk/jvcl/qrun/JvQParameterListParameter.pas trunk/jvcl/qrun/JvQParameterListTools.pas trunk/jvcl/qrun/JvQParserForm.pas trunk/jvcl/qrun/JvQPatchFile.pas trunk/jvcl/qrun/JvQPatchForm.pas trunk/jvcl/qrun/JvQPerfMon95.pas trunk/jvcl/qrun/JvQPicClip.pas trunk/jvcl/qrun/JvQPickDate.pas trunk/jvcl/qrun/JvQPoweredBy.pas trunk/jvcl/qrun/JvQPrint.pas trunk/jvcl/qrun/JvQProfilerForm.pas trunk/jvcl/qrun/JvQProgressBar.pas trunk/jvcl/qrun/JvQProgressComponent.pas trunk/jvcl/qrun/JvQProgressDialog.pas trunk/jvcl/qrun/JvQProgressForm.pas trunk/jvcl/qrun/JvQProgressUtils.pas trunk/jvcl/qrun/JvQPropertyStorage.pas trunk/jvcl/qrun/JvQPropertyStore.pas trunk/jvcl/qrun/JvQQuickPreviewForm.pas trunk/jvcl/qrun/JvQRadioButton.pas trunk/jvcl/qrun/JvQRadioGroup.pas trunk/jvcl/qrun/JvQRas32.pas trunk/jvcl/qrun/JvQRenameError.pas trunk/jvcl/qrun/JvQResample.pas trunk/jvcl/qrun/JvQResources.pas trunk/jvcl/qrun/JvQRgbToHtml.pas trunk/jvcl/qrun/JvQRollOut.pas trunk/jvcl/qrun/JvQSAL.pas trunk/jvcl/qrun/JvQSALCore.pas trunk/jvcl/qrun/JvQSALHashList.pas trunk/jvcl/qrun/JvQSALMath.pas trunk/jvcl/qrun/JvQSHFileOperation.pas trunk/jvcl/qrun/JvQSLDMappingEditorDialog.pas trunk/jvcl/qrun/JvQScheduledEvents.pas trunk/jvcl/qrun/JvQScreenResolution.pas trunk/jvcl/qrun/JvQScreenSaver.pas trunk/jvcl/qrun/JvQScrollBar.pas trunk/jvcl/qrun/JvQScrollMax.pas trunk/jvcl/qrun/JvQScrollPanel.pas trunk/jvcl/qrun/JvQScrollText.pas trunk/jvcl/qrun/JvQSearchFiles.pas trunk/jvcl/qrun/JvQSecretPanel.pas trunk/jvcl/qrun/JvQSegmentedLEDDisplay.pas trunk/jvcl/qrun/JvQSegmentedLEDDisplayMapperFrame.pas trunk/jvcl/qrun/JvQSelectDirectory.pas trunk/jvcl/qrun/JvQSerialMaker.pas trunk/jvcl/qrun/JvQShape.pas trunk/jvcl/qrun/JvQShellHook.pas trunk/jvcl/qrun/JvQSimIndicator.pas trunk/jvcl/qrun/JvQSimLogic.pas trunk/jvcl/qrun/JvQSimPID.pas trunk/jvcl/qrun/JvQSimPIDLinker.pas trunk/jvcl/qrun/JvQSimScope.pas trunk/jvcl/qrun/JvQSimpleXml.pas trunk/jvcl/qrun/JvQSlider.pas trunk/jvcl/qrun/JvQSoundControl.pas trunk/jvcl/qrun/JvQSpacer.pas trunk/jvcl/qrun/JvQSpecialImage.pas trunk/jvcl/qrun/JvQSpecialProgress.pas trunk/jvcl/qrun/JvQSpeedButton.pas trunk/jvcl/qrun/JvQSpeedbar.pas trunk/jvcl/qrun/JvQSpeedbarSetupForm.pas trunk/jvcl/qrun/JvQSpellerForm.pas trunk/jvcl/qrun/JvQSpin.pas trunk/jvcl/qrun/JvQSplashWindow.pas trunk/jvcl/qrun/JvQSplit.pas trunk/jvcl/qrun/JvQSplitter.pas trunk/jvcl/qrun/JvQStarfield.pas trunk/jvcl/qrun/JvQStaticText.pas trunk/jvcl/qrun/JvQStatusBar.pas trunk/jvcl/qrun/JvQStrToHtml.pas trunk/jvcl/qrun/JvQStringGrid.pas trunk/jvcl/qrun/JvQStringHolder.pas trunk/jvcl/qrun/JvQStringListToHtml.pas trunk/jvcl/qrun/JvQStrings.pas trunk/jvcl/qrun/JvQSwitch.pas trunk/jvcl/qrun/JvQSyncSplitter.pas trunk/jvcl/qrun/JvQTMTimeLine.pas trunk/jvcl/qrun/JvQTabBar.pas trunk/jvcl/qrun/JvQThemes.pas trunk/jvcl/qrun/JvQThread.pas trunk/jvcl/qrun/JvQThreadDialog.pas trunk/jvcl/qrun/JvQThreadTimer.pas trunk/jvcl/qrun/JvQTimeLimit.pas trunk/jvcl/qrun/JvQTimeLine.pas trunk/jvcl/qrun/JvQTimer.pas trunk/jvcl/qrun/JvQTimerList.pas trunk/jvcl/qrun/JvQTipOfDay.pas trunk/jvcl/qrun/JvQToolEdit.pas trunk/jvcl/qrun/JvQTracker.pas trunk/jvcl/qrun/JvQTranslator.pas trunk/jvcl/qrun/JvQTransparentButton.pas trunk/jvcl/qrun/JvQTurtle.pas trunk/jvcl/qrun/JvQTypes.pas trunk/jvcl/qrun/JvQUIB.pas trunk/jvcl/qrun/JvQUIBConst.pas trunk/jvcl/qrun/JvQUIBDataSet.pas trunk/jvcl/qrun/JvQUIBError.pas trunk/jvcl/qrun/JvQUIBLib.pas trunk/jvcl/qrun/JvQUIBMetaData.pas trunk/jvcl/qrun/JvQUIBSQLParser.pas trunk/jvcl/qrun/JvQUIBase.pas trunk/jvcl/qrun/JvQUnicodeCanvas.pas trunk/jvcl/qrun/JvQUninstallControls.pas trunk/jvcl/qrun/JvQUrlGrabbers.pas trunk/jvcl/qrun/JvQUrlListGrabber.pas trunk/jvcl/qrun/JvQValidateEdit.pas trunk/jvcl/qrun/JvQValidators.pas trunk/jvcl/qrun/JvQWaitingGradient.pas trunk/jvcl/qrun/JvQWaitingProgress.pas trunk/jvcl/qrun/JvQWavePlayer.pas trunk/jvcl/qrun/JvQWinDialogs.pas trunk/jvcl/qrun/JvQWinHelp.pas trunk/jvcl/qrun/JvQWinampLabel.pas trunk/jvcl/qrun/JvQWizard.pas trunk/jvcl/qrun/JvQWizardCommon.pas trunk/jvcl/qrun/JvQWizardRouteMapList.pas trunk/jvcl/qrun/JvQWizardRouteMapNodes.pas trunk/jvcl/qrun/JvQWizardRouteMapSteps.pas trunk/jvcl/qrun/JvQXPBar.pas trunk/jvcl/qrun/JvQXPButtons.pas trunk/jvcl/qrun/JvQXPCheckCtrls.pas trunk/jvcl/qrun/JvQXPContainer.pas trunk/jvcl/qrun/JvQXPCore.pas trunk/jvcl/qrun/JvQXPCoreUtils.pas trunk/jvcl/qrun/JvQXPProgressBar.pas trunk/jvcl/qrun/JvQXmlDatabase.pas trunk/jvcl/qrun/JvQXmlTree.pas trunk/jvcl/qrun/JvQYearGrid.pas trunk/jvcl/qrun/JvQYearGridEditForm.pas trunk/jvcl/qrun/JvQZlibMultiple.pas trunk/jvcl/qrun/JvQZoom.pas trunk/jvcl/qrun/JvQaScrollText.pas trunk/jvcl/run/JvWinHelp.pas trunk/jvcl/run/JvWizard.pas trunk/jvcl/run/JvWizardCommon.pas trunk/jvcl/run/JvWizardRouteMapList.pas trunk/jvcl/run/JvWizardRouteMapNodes.pas trunk/jvcl/run/JvWizardRouteMapSteps.pas trunk/jvcl/run/JvWndProcHook.pas trunk/jvcl/run/JvXPBar.pas trunk/jvcl/run/JvXPButtons.pas trunk/jvcl/run/JvXPCheckCtrls.pas trunk/jvcl/run/JvXPContainer.pas trunk/jvcl/run/JvXPCore.pas trunk/jvcl/run/JvXPCoreUtils.pas trunk/jvcl/run/JvXPProgressBar.pas trunk/jvcl/run/JvXmlDatabase.pas trunk/jvcl/run/JvXmlTree.pas trunk/jvcl/run/JvYearGrid.pas trunk/jvcl/run/JvYearGridEditForm.pas trunk/jvcl/run/JvZlibMultiple.pas trunk/jvcl/run/JvZoom.pas trunk/jvcl/run/JvxCheckListBox.pas trunk/jvcl/run/JvxSlider.pas Modified: trunk/jvcl/common/JvConsts.pas =================================================================== --- trunk/jvcl/common/JvConsts.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/common/JvConsts.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -253,7 +253,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\common' Modified: trunk/jvcl/common/JvWin32.pas =================================================================== --- trunk/jvcl/common/JvWin32.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/common/JvWin32.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -287,7 +287,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\common' Modified: trunk/jvcl/design/JvgAlignForm.pas =================================================================== --- trunk/jvcl/design/JvgAlignForm.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/design/JvgAlignForm.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -68,7 +68,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\design' Modified: trunk/jvcl/devtools/JvExVCL/src/JvExButtons.pas =================================================================== --- trunk/jvcl/devtools/JvExVCL/src/JvExButtons.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/devtools/JvExVCL/src/JvExButtons.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -51,7 +51,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/devtools/JvExVCL/src/JvExCheckLst.pas =================================================================== --- trunk/jvcl/devtools/JvExVCL/src/JvExCheckLst.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/devtools/JvExVCL/src/JvExCheckLst.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -49,7 +49,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/devtools/JvExVCL/src/JvExComCtrls.pas =================================================================== --- trunk/jvcl/devtools/JvExVCL/src/JvExComCtrls.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/devtools/JvExVCL/src/JvExComCtrls.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -109,7 +109,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/devtools/JvExVCL/src/JvExControls.pas =================================================================== --- trunk/jvcl/devtools/JvExVCL/src/JvExControls.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/devtools/JvExVCL/src/JvExControls.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -176,7 +176,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/devtools/JvExVCL/src/JvExDBCtrls.pas =================================================================== --- trunk/jvcl/devtools/JvExVCL/src/JvExDBCtrls.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/devtools/JvExVCL/src/JvExDBCtrls.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -77,7 +77,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/devtools/JvExVCL/src/JvExDBGrids.pas =================================================================== --- trunk/jvcl/devtools/JvExVCL/src/JvExDBGrids.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/devtools/JvExVCL/src/JvExDBGrids.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -51,7 +51,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/devtools/JvExVCL/src/JvExExtCtrls.pas =================================================================== --- trunk/jvcl/devtools/JvExVCL/src/JvExExtCtrls.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/devtools/JvExVCL/src/JvExExtCtrls.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -102,7 +102,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/devtools/JvExVCL/src/JvExForms.pas =================================================================== --- trunk/jvcl/devtools/JvExVCL/src/JvExForms.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/devtools/JvExVCL/src/JvExForms.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -87,7 +87,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/devtools/JvExVCL/src/JvExGrids.pas =================================================================== --- trunk/jvcl/devtools/JvExVCL/src/JvExGrids.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/devtools/JvExVCL/src/JvExGrids.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -83,7 +83,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/devtools/JvExVCL/src/JvExMask.pas =================================================================== --- trunk/jvcl/devtools/JvExVCL/src/JvExMask.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/devtools/JvExVCL/src/JvExMask.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -67,7 +67,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/devtools/JvExVCL/src/JvExStdCtrls.pas =================================================================== --- trunk/jvcl/devtools/JvExVCL/src/JvExStdCtrls.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/devtools/JvExVCL/src/JvExStdCtrls.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -87,7 +87,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.pas =================================================================== --- trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -181,7 +181,7 @@ const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\examples\JvParameterList' Modified: trunk/jvcl/qcommon/JvQConsts.pas =================================================================== --- trunk/jvcl/qcommon/JvQConsts.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qcommon/JvQConsts.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -203,7 +203,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\common' Modified: trunk/jvcl/qcommon/QWindows.pas =================================================================== --- trunk/jvcl/qcommon/QWindows.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qcommon/QWindows.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -1669,7 +1669,7 @@ {$ENDIF LINUX} const - VersionInfo = '$RCSfile$' + #13 + '$Revision$' + #13 + '$Date$' + #13; + VersionInfo = '$URL$' + #13 + '$Revision$' + #13 + '$Date$' + #13; type THackCanvas = class(TCanvas); Modified: trunk/jvcl/qrun/JvQActions.pas =================================================================== --- trunk/jvcl/qrun/JvQActions.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQActions.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -116,7 +116,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAddPrinter.pas =================================================================== --- trunk/jvcl/qrun/JvQAddPrinter.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAddPrinter.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -179,7 +179,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAirBrush.pas =================================================================== --- trunk/jvcl/qrun/JvQAirBrush.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAirBrush.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -79,7 +79,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAlarms.pas =================================================================== --- trunk/jvcl/qrun/JvQAlarms.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAlarms.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -103,7 +103,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAni.pas =================================================================== --- trunk/jvcl/qrun/JvQAni.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAni.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -140,7 +140,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAnimTitle.pas =================================================================== --- trunk/jvcl/qrun/JvQAnimTitle.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAnimTitle.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -71,7 +71,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAnimate.pas =================================================================== --- trunk/jvcl/qrun/JvQAnimate.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAnimate.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -71,7 +71,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAnimatedImage.pas =================================================================== --- trunk/jvcl/qrun/JvQAnimatedImage.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAnimatedImage.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -174,7 +174,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAppAnimatedIcon.pas =================================================================== --- trunk/jvcl/qrun/JvQAppAnimatedIcon.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAppAnimatedIcon.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -65,7 +65,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAppDBStorage.pas =================================================================== --- trunk/jvcl/qrun/JvQAppDBStorage.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAppDBStorage.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -459,7 +459,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAppEvent.pas =================================================================== --- trunk/jvcl/qrun/JvQAppEvent.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAppEvent.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -176,7 +176,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAppIniStorage.pas =================================================================== --- trunk/jvcl/qrun/JvQAppIniStorage.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAppIniStorage.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -145,7 +145,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAppInst.pas =================================================================== --- trunk/jvcl/qrun/JvQAppInst.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAppInst.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -360,7 +360,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAppRegistryStorage.pas =================================================================== --- trunk/jvcl/qrun/JvQAppRegistryStorage.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAppRegistryStorage.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -126,7 +126,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAppStorage.pas =================================================================== --- trunk/jvcl/qrun/JvQAppStorage.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAppStorage.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -812,7 +812,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAppStorageSelectList.pas =================================================================== --- trunk/jvcl/qrun/JvQAppStorageSelectList.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAppStorageSelectList.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -98,7 +98,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAppXMLStorage.pas =================================================================== --- trunk/jvcl/qrun/JvQAppXMLStorage.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAppXMLStorage.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -173,7 +173,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQArrayButton.pas =================================================================== --- trunk/jvcl/qrun/JvQArrayButton.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQArrayButton.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -117,7 +117,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQArrowButton.pas =================================================================== --- trunk/jvcl/qrun/JvQArrowButton.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQArrowButton.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -137,7 +137,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQAutoComplete.pas =================================================================== --- trunk/jvcl/qrun/JvQAutoComplete.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQAutoComplete.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -236,7 +236,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQBaseDlg.pas =================================================================== --- trunk/jvcl/qrun/JvQBaseDlg.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQBaseDlg.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -67,7 +67,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQBaseEdits.pas =================================================================== --- trunk/jvcl/qrun/JvQBaseEdits.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQBaseEdits.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -289,7 +289,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQBehaviorLabel.pas =================================================================== --- trunk/jvcl/qrun/JvQBehaviorLabel.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQBehaviorLabel.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -396,7 +396,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQBevel.pas =================================================================== --- trunk/jvcl/qrun/JvQBevel.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQBevel.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -65,7 +65,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQBitBtn.pas =================================================================== --- trunk/jvcl/qrun/JvQBitBtn.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQBitBtn.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -80,7 +80,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQBitmapButton.pas =================================================================== --- trunk/jvcl/qrun/JvQBitmapButton.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQBitmapButton.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -116,7 +116,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQBmpAnimator.pas =================================================================== --- trunk/jvcl/qrun/JvQBmpAnimator.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQBmpAnimator.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -134,7 +134,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQBoxProcs.pas =================================================================== --- trunk/jvcl/qrun/JvQBoxProcs.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQBoxProcs.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -54,7 +54,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQBrowseFolder.pas =================================================================== --- trunk/jvcl/qrun/JvQBrowseFolder.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQBrowseFolder.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -1430,7 +1430,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQButton.pas =================================================================== --- trunk/jvcl/qrun/JvQButton.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQButton.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -183,7 +183,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQButtonPersistent.pas =================================================================== --- trunk/jvcl/qrun/JvQButtonPersistent.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQButtonPersistent.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -85,7 +85,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQButtons.pas =================================================================== --- trunk/jvcl/qrun/JvQButtons.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQButtons.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -185,7 +185,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCSVBaseControls.pas =================================================================== --- trunk/jvcl/qrun/JvQCSVBaseControls.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCSVBaseControls.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -163,7 +163,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCabFile.pas =================================================================== --- trunk/jvcl/qrun/JvQCabFile.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCabFile.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -287,7 +287,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCalc.pas =================================================================== --- trunk/jvcl/qrun/JvQCalc.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCalc.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -116,7 +116,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCaptionPanel.pas =================================================================== --- trunk/jvcl/qrun/JvQCaptionPanel.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCaptionPanel.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -188,7 +188,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCaret.pas =================================================================== --- trunk/jvcl/qrun/JvQCaret.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCaret.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -268,7 +268,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQChangeNotify.pas =================================================================== --- trunk/jvcl/qrun/JvQChangeNotify.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQChangeNotify.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -153,7 +153,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCharMap.pas =================================================================== --- trunk/jvcl/qrun/JvQCharMap.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCharMap.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -1432,7 +1432,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQChart.pas =================================================================== --- trunk/jvcl/qrun/JvQChart.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQChart.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -786,7 +786,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCheckBox.pas =================================================================== --- trunk/jvcl/qrun/JvQCheckBox.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCheckBox.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -115,7 +115,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCheckListBox.pas =================================================================== --- trunk/jvcl/qrun/JvQCheckListBox.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCheckListBox.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -79,7 +79,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCheckedMaskEdit.pas =================================================================== --- trunk/jvcl/qrun/JvQCheckedMaskEdit.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCheckedMaskEdit.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -323,7 +323,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCipher.pas =================================================================== --- trunk/jvcl/qrun/JvQCipher.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCipher.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -96,7 +96,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQClock.pas =================================================================== --- trunk/jvcl/qrun/JvQClock.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQClock.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -156,7 +156,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQColorBox.pas =================================================================== --- trunk/jvcl/qrun/JvQColorBox.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQColorBox.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -469,7 +469,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQColorButton.pas =================================================================== --- trunk/jvcl/qrun/JvQColorButton.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQColorButton.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -100,7 +100,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQColorCombo.pas =================================================================== --- trunk/jvcl/qrun/JvQColorCombo.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQColorCombo.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -1385,7 +1385,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\qrun' Modified: trunk/jvcl/qrun/JvQColorForm.pas =================================================================== --- trunk/jvcl/qrun/JvQColorForm.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQColorForm.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -93,7 +93,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQColorProvider.pas =================================================================== --- trunk/jvcl/qrun/JvQColorProvider.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQColorProvider.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -502,7 +502,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQColorTrackbar.pas =================================================================== --- trunk/jvcl/qrun/JvQColorTrackbar.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQColorTrackbar.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -135,7 +135,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQComCtrls.pas =================================================================== --- trunk/jvcl/qrun/JvQComCtrls.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQComCtrls.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -276,7 +276,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQComboListBox.pas =================================================================== --- trunk/jvcl/qrun/JvQComboListBox.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQComboListBox.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -163,7 +163,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCommStatus.pas =================================================================== --- trunk/jvcl/qrun/JvQCommStatus.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCommStatus.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -210,7 +210,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCommonDialogD.pas =================================================================== --- trunk/jvcl/qrun/JvQCommonDialogD.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCommonDialogD.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -124,7 +124,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCommonExecDlg.pas =================================================================== --- trunk/jvcl/qrun/JvQCommonExecDlg.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCommonExecDlg.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -53,7 +53,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQComponent.pas =================================================================== --- trunk/jvcl/qrun/JvQComponent.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQComponent.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -112,7 +112,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQComponentPanel.pas =================================================================== --- trunk/jvcl/qrun/JvQComponentPanel.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQComponentPanel.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -100,7 +100,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQConnectNetwork.pas =================================================================== --- trunk/jvcl/qrun/JvQConnectNetwork.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQConnectNetwork.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -86,7 +86,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQContentScroller.pas =================================================================== --- trunk/jvcl/qrun/JvQContentScroller.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQContentScroller.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -141,7 +141,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQContextProvider.pas =================================================================== --- trunk/jvcl/qrun/JvQContextProvider.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQContextProvider.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -94,7 +94,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQControlBar.pas =================================================================== --- trunk/jvcl/qrun/JvQControlBar.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQControlBar.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -75,7 +75,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQControlComponent.pas =================================================================== --- trunk/jvcl/qrun/JvQControlComponent.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQControlComponent.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -67,7 +67,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQConverter.pas =================================================================== --- trunk/jvcl/qrun/JvQConverter.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQConverter.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -152,7 +152,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCopyError.pas =================================================================== --- trunk/jvcl/qrun/JvQCopyError.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCopyError.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -107,7 +107,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCreateProcess.pas =================================================================== --- trunk/jvcl/qrun/JvQCreateProcess.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCreateProcess.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -232,7 +232,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCsvData.pas =================================================================== --- trunk/jvcl/qrun/JvQCsvData.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCsvData.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -4348,7 +4348,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQCtrls.pas =================================================================== --- trunk/jvcl/qrun/JvQCtrls.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQCtrls.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -895,7 +895,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQDBFindEdit.pas =================================================================== --- trunk/jvcl/qrun/JvQDBFindEdit.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQDBFindEdit.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -401,7 +401,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQDBHTLabel.pas =================================================================== --- trunk/jvcl/qrun/JvQDBHTLabel.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQDBHTLabel.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -202,7 +202,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQDBProgressBar.pas =================================================================== --- trunk/jvcl/qrun/JvQDBProgressBar.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQDBProgressBar.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -118,7 +118,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQDBQueryParamsForm.pas =================================================================== --- trunk/jvcl/qrun/JvQDBQueryParamsForm.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQDBQueryParamsForm.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -311,7 +311,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQDBRemoteLogin.pas =================================================================== --- trunk/jvcl/qrun/JvQDBRemoteLogin.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQDBRemoteLogin.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -319,7 +319,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQDBUtils.pas =================================================================== --- trunk/jvcl/qrun/JvQDBUtils.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQDBUtils.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -923,7 +923,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQDSADialogs.pas =================================================================== --- trunk/jvcl/qrun/JvQDSADialogs.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQDSADialogs.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -2534,7 +2534,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQDataEmbedded.pas =================================================================== --- trunk/jvcl/qrun/JvQDataEmbedded.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQDataEmbedded.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -136,7 +136,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQDataProvider.pas =================================================================== --- trunk/jvcl/qrun/JvQDataProvider.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQDataProvider.pas 2006-05-19 19:21:43 UTC (rev 10613) @@ -1180,7 +1180,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/qrun/JvQDataProviderIntf.pas =================================================================== --- trunk/jvcl/qrun/JvQDataProviderIntf.pas 2006-05-19 19:04:09 UTC (rev 10612) +++ trunk/jvcl/qrun/JvQDataProviderIntf.pas 2006-05-19 19:21:43 UTC (rev 10613) @@... [truncated message content] |
From: <jfu...@us...> - 2006-05-24 21:48:09
|
Revision: 10620 Author: jfudickar Date: 2006-05-24 14:47:41 -0700 (Wed, 24 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10620&view=rev Log Message: ----------- Enhanced Interfaces Modified Paths: -------------- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas trunk/jvcl/run/JvDynControlEngineIntf.pas Modified: trunk/jvcl/run/JvDynControlEngineDevExpCx.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2006-05-23 13:05:23 UTC (rev 10619) +++ trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2006-05-24 21:47:41 UTC (rev 10620) @@ -331,7 +331,8 @@ end; TJvDynControlCxCheckBox = class(TcxCheckBox, IUnknown, IJvDynControl, - IJvDynControlData, IJvDynControlDevExpCx, IJvDynControlReadOnly) + IJvDynControlData, IJvDynControlDevExpCx, IJvDynControlReadOnly, + IJvDynControlCheckBox) public procedure ControlSetDefaultProperties; procedure ControlSetReadOnly(Value: Boolean); @@ -348,6 +349,11 @@ function ControlGetValue: Variant; procedure ControlSetAnchors(Value : TAnchors); + //IJvDynControlCheckBox + procedure ControlSetAllowGrayed(Value: boolean); + procedure ControlSetState(Value: TCheckBoxState); + function ControlGetState: TCheckBoxState; + procedure ControlSetCxProperties(Value: TCxDynControlWrapper); end; @@ -1874,6 +1880,31 @@ Anchors := Value; end; +procedure TJvDynControlCxCheckBox.ControlSetAllowGrayed(Value: boolean); +begin + Properties.AllowGrayed := Value; +end; + +procedure TJvDynControlCxCheckBox.ControlSetState(Value: TCheckBoxState); +begin + Case Value of + cbUnchecked : State := cbsUnchecked; + cbChecked : State := cbsChecked; + cbGrayed : State := cbsGrayed; + end; + +end; + +function TJvDynControlCxCheckBox.ControlGetState: TCheckBoxState; +begin + Case State of + cbsUnchecked : Result := cbUnchecked; + cbsChecked : Result := cbChecked; + cbsGrayed : Result := cbGrayed; + end; +end; + + procedure TJvDynControlCxCheckBox.ControlSetCxProperties(Value: TCxDynControlWrapper); begin Style.LookAndFeel.Assign(Value.LookAndFeel); Modified: trunk/jvcl/run/JvDynControlEngineIntf.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineIntf.pas 2006-05-23 13:05:23 UTC (rev 10619) +++ trunk/jvcl/run/JvDynControlEngineIntf.pas 2006-05-24 21:47:41 UTC (rev 10620) @@ -305,7 +305,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$URL:$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2006-05-27 08:53:39
|
Revision: 10621 Author: ahuser Date: 2006-05-27 01:53:30 -0700 (Sat, 27 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10621&view=rev Log Message: ----------- Bugfix: RichTextToHtml Modified Paths: -------------- trunk/jvcl/run/JvRgbToHtml.pas trunk/jvcl/run/JvRichEditToHtml.pas Modified: trunk/jvcl/run/JvRgbToHtml.pas =================================================================== --- trunk/jvcl/run/JvRgbToHtml.pas 2006-05-24 21:47:41 UTC (rev 10620) +++ trunk/jvcl/run/JvRgbToHtml.pas 2006-05-27 08:53:30 UTC (rev 10621) @@ -51,11 +51,12 @@ end; function RgbToHtml(Value: TColor): string; +function HtmlToRgb(const Value: string): TColor; {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$URL$'; + RCSfile: '$RCSfile$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' @@ -76,6 +77,17 @@ end; end; +function HtmlToRgb(const Value: string): TColor; +begin + with TJvRGBToHTML.Create(nil) do + try + HTMLColor := Value; + Result := RGBColor; + finally + Free; + end; +end; + constructor TJvRGBToHTML.Create(AOwner: TComponent); begin inherited Create(AOwner); Modified: trunk/jvcl/run/JvRichEditToHtml.pas =================================================================== --- trunk/jvcl/run/JvRichEditToHtml.pas 2006-05-24 21:47:41 UTC (rev 10620) +++ trunk/jvcl/run/JvRichEditToHtml.pas 2006-05-27 08:53:30 UTC (rev 10621) @@ -89,7 +89,9 @@ implementation +uses StdCtrls; + const // (rom) needs renaming? // cHTMLHeadBegin = '<HTML>'; @@ -102,7 +104,7 @@ // cHTMLFontColorBegin = '<FONT COLOR=#'; // cHTMLSize = ' SIZE='; // cHTMLFace = ' FACE="'; - cHTMLFontEnd = '</FONT>'; + cHTMLFontEnd = '</SPAN>'; cHTMLBoldBegin = '<B>'; cHTMLBoldEnd = '</B>'; @@ -164,13 +166,17 @@ end; function TJvRichEditToHtml.AttToHtml(Value: TFont): string; +var + Size: Integer; begin FEndSection := cHTMLFontEnd; FCToH.RgbColor := Value.Color; - // Mantis 2817: The font size was not correctly computed - Result := Format('<FONT COLOR="#%s" SIZE="%d" FACE="%s">', - [FCToH.HtmlColor,(Value.Size div 8),Value.Name]); + Size := Value.Size; + if Size = 0 then + Size := 8; + Result := Format('<SPAN style="color: #%s; font-size: %dpt; font-family: %s;">', + [FCToH.HtmlColor, Size, Value.Name]); if fsBold in Value.Style then begin FEndSection := cHTMLBoldEnd + FEndSection; @@ -193,24 +199,6 @@ end; end; -function TJvRichEditToHtml.ParaToHtml(Value: TJvParaAttributesRec): string; -begin - FEndPara := cHTMLParaEnd; - case Value.Alignment of - Classes.taLeftJustify: - Result := cHTMLParaLeft; - Classes.taRightJustify: - Result := cHTMLParaRight; - Classes.taCenter: - Result := cHTMLParaCenter; - end; - if Value.Numbering = ComCtrls.nsBullet then - begin - Result := cHTMLListBegin + Result; - FEndPara := FEndPara + cHTMLListEnd; - end; -end; - function Diff(One, Two: TFont): Boolean; begin Result := (One.Color <> Two.Color) or (One.Style <> Two.Style) or @@ -227,6 +215,20 @@ Result := (One.Alignment <> Two.Alignment) or (One.Numbering <> Two.Numbering); end; +procedure TJvRichEditToHtml.ConvertToHtml(Value: TJvRichEdit; + const FileName: string); +var + S: TStringList; +begin + S := TStringList.Create; + try + ConvertToHtmlStrings(Value, S); + S.SaveToFile(FileName); + finally + S.Free; + end; +end; + procedure TJvRichEditToHtml.ConvertToHtmlStrings(Value: TRichEdit; Strings: TStrings); var I, J: Integer; @@ -234,15 +236,24 @@ DPara, Para, CurrPara: TJvParaAttributesRec; St: string; FEnd: string; + LOnChange: TNotifyEvent; + LOnSelectionChange: TNotifyEvent; + Text: string; begin + LOnChange := Value.OnChange; + LOnSelectionChange := Value.OnSelectionChange; Strings.BeginUpdate; Value.Lines.BeginUpdate; try + Value.OnChange := nil; + Value.OnSelectionChange := nil; + Strings.Clear; - Strings.Add(StringReplace(Header.Text, '<#TITLE>',Title,[rfReplaceAll])); // Strings.Add(cHTMLHeadBegin); // Strings.Add(Format(cHTMLTitleFmt, [Title])); // Strings.Add(cHTMLBodyBegin); + if Header.Count > 0 then + Strings.Add(StringReplace(Header.Text, '<#TITLE>',Title,[rfReplaceAll])); Datt := TFont.Create; Att := TFont.Create; CurrAt := TFont.Create; @@ -251,47 +262,51 @@ DPara.Numbering := ComCtrls.nsNone; CurrPara.Alignment := DPara.Alignment; CurrPara.Numbering := DPara.Numbering; - FEndPara := ''; + Strings.Add(ParaToHtml(Para)); Datt.Assign(Value.DefAttributes); Strings.Add(AttToHtml(Datt)); - FEnd := FEndSection; CurrAt.Assign(Datt); - FEndSection := ''; Value.SelStart := 0; + Text := Value.Text; + for I := 0 to Value.Lines.Count - 1 do begin + Text := Value.Lines[I]; + Value.SelLength := 1; + Att.Assign(Value.SelAttributes); + Para.Alignment := Value.Paragraph.Alignment; + Para.Numbering := Value.Paragraph.Numbering; + St := ''; - CurrPara.Numbering := ComCtrls.nsNone; - if Length(Value.Lines[I]) > 0 then + if DiffPara(Para, CurrPara) or (Para.Numbering = ComCtrls.nsBullet) then begin - for J := 1 to Length(Value.Lines[I]) do + St := St + FEndSection + FEndPara; + CurrPara.Alignment := Para.Alignment; + CurrPara.Numbering := Para.Numbering; + CurrAt.Assign(Att); + + St := St + ParaToHtml(Para) + AttToHtml(Att); + end; + + for J := 1 to Length(Text) do + begin + Att.Assign(Value.SelAttributes); + if Diff(Att, CurrAt) then begin - Value.SelLength := 1; - Att.Assign(Value.SelAttributes); - Para.Alignment := Value.Paragraph.Alignment; - Para.Numbering := Value.Paragraph.Numbering; - if Diff(Att, CurrAt) then - begin - St := St + FEndSection; - CurrAt.Assign(Att); - St := St + AttToHtml(Att); - end; - if DiffPara(Para, CurrPara) then - begin - St := St + FEndPara; - CurrPara.Alignment := Para.Alignment; - CurrPara.Numbering := Para.Numbering; - St := St + ParaToHtml(Para); - end; - St := St + CharToHtml(Value.Lines[I][J]); - Value.SelStart := Value.SelStart + 1; + CurrAt.Assign(Att); + St := St + FEndSection + AttToHtml(Att); end; + St := St + CharToHtml(Text[J]); + Value.SelStart := Value.SelStart + 1; end; - Value.SelStart := Value.SelStart + 2; // Mantis 2817: Skip carriage return - Strings.Add(cHTMLBR + St); - Application.ProcessMessages; + if I = 0 then + Strings.Add(St) + else + Strings.Add(cHTMLBR + St); + + Value.SelStart := Value.SelStart + 1; // #10 end; Strings.Add(FEndSection); Strings.Add(FEndPara); @@ -301,46 +316,42 @@ CurrAt.Free; Strings.Add(FEnd); - Strings.AddStrings(FFooter); + Strings.AddStrings(Footer); // Strings.Add(cHTMLBodyEnd); // Strings.Add(cHTMLEnd); finally + Value.OnChange := LOnChange; + Value.OnSelectionChange := LOnSelectionChange; Strings.EndUpdate; Value.Lines.EndUpdate; end; end; -procedure TJvRichEditToHtml.ConvertToHtml(Value: TJvRichEdit; - const FileName: string); +procedure TJvRichEditToHtml.ConvertToHtmlStrings(Value: TJvRichEdit; Strings: TStrings); var - S: TStringList; -begin - S := TStringList.Create; - try - ConvertToHtmlStrings(Value, S); - S.SaveToFile(FileName); - finally - S.Free; - end; -end; - -procedure TJvRichEditToHtml.ConvertToHtmlStrings(Value: TJvRichEdit; - Strings: TStrings); -var I, J: Integer; Datt, Att, CurrAt: TFont; DPara, Para, CurrPara: TJvRichEditParaAttributesRec; St: string; FEnd: string; + LOnChange: TNotifyEvent; + LOnSelectionChange: TNotifyEvent; + Text: string; begin + LOnChange := Value.OnChange; + LOnSelectionChange := Value.OnSelectionChange; Strings.BeginUpdate; Value.Lines.BeginUpdate; try + Value.OnChange := nil; + Value.OnSelectionChange := nil; + Strings.Clear; // Strings.Add(cHTMLHeadBegin); // Strings.Add(Format(cHTMLTitleFmt, [Title])); // Strings.Add(cHTMLBodyBegin); - Strings.Add(StringReplace(Header.Text, '<#TITLE>',Title,[rfReplaceAll])); + if Header.Count > 0 then + Strings.Add(StringReplace(Header.Text, '<#TITLE>',Title,[rfReplaceAll])); Datt := TFont.Create; Att := TFont.Create; CurrAt := TFont.Create; @@ -349,47 +360,51 @@ DPara.Numbering := nsNone; CurrPara.Alignment := DPara.Alignment; CurrPara.Numbering := DPara.Numbering; - FEndPara := ''; + Strings.Add(ParaToHtml(Para)); Datt.Assign(Value.DefAttributes); Strings.Add(AttToHtml(Datt)); - FEnd := FEndSection; CurrAt.Assign(Datt); - FEndSection := ''; Value.SelStart := 0; + Text := Value.Text; + for I := 0 to Value.Lines.Count - 1 do begin + Text := Value.Lines[I]; + Value.SelLength := 1; + Att.Assign(Value.SelAttributes); + Para.Alignment := Value.Paragraph.Alignment; + Para.Numbering := Value.Paragraph.Numbering; + St := ''; - CurrPara.Numbering := nsNone; - if Length(Value.Lines[I]) > 0 then + if DiffPara(Para, CurrPara) or (Para.Numbering = nsBullet) then begin - for J := 1 to Length(Value.Lines[I]) do + St := St + FEndSection + FEndPara; + CurrPara.Alignment := Para.Alignment; + CurrPara.Numbering := Para.Numbering; + CurrAt.Assign(Att); + + St := St + ParaToHtml(Para) + AttToHtml(Att); + end; + + for J := 1 to Length(Text) do + begin + Att.Assign(Value.SelAttributes); + if Diff(Att, CurrAt) then begin - Value.SelLength := 1; - Att.Assign(Value.SelAttributes); - Para.Alignment := Value.Paragraph.Alignment; - Para.Numbering := Value.Paragraph.Numbering; - if Diff(Att, CurrAt) then - begin - St := St + FEndSection; - CurrAt.Assign(Att); - St := St + AttToHtml(Att); - end; - if DiffPara(Para, CurrPara) then - begin - St := St + FEndPara; - CurrPara.Alignment := Para.Alignment; - CurrPara.Numbering := Para.Numbering; - St := St + ParaToHtml(Para); - end; - St := St + CharToHtml(Value.Lines[I][J]); - Value.SelStart := Value.SelStart + 1; + CurrAt.Assign(Att); + St := St + FEndSection + AttToHtml(Att); end; + St := St + CharToHtml(Text[J]); + Value.SelStart := Value.SelStart + 1; end; - Value.SelStart := Value.SelStart + 2; // Mantis 2817: Skip carriage return - Strings.Add(cHTMLBR + St); - Application.ProcessMessages; + if I = 0 then + Strings.Add(St) + else + Strings.Add(cHTMLBR + St); + + Value.SelStart := Value.SelStart + 1; // #10 end; Strings.Add(FEndSection); Strings.Add(FEndPara); @@ -403,6 +418,8 @@ // Strings.Add(cHTMLBodyEnd); // Strings.Add(cHTMLEnd); finally + Value.OnChange := LOnChange; + Value.OnSelectionChange := LOnSelectionChange; Strings.EndUpdate; Value.Lines.EndUpdate; end; @@ -410,20 +427,46 @@ function TJvRichEditToHtml.ParaToHtml(Value: TJvRichEditParaAttributesRec): string; begin - FEndPara := cHTMLParaEnd; case Value.Alignment of paLeftJustify: - Result := cHTMLParaLeft; + Result := 'ALIGN="LEFT"'; paRightJustify: - Result := cHTMLParaRight; + Result := 'ALIGN="RIGHT"'; paCenter: - Result := cHTMLParaCenter; + Result := 'ALIGN="CENTER"'; end; if Value.Numbering = nsBullet then begin - Result := cHTMLListBegin + Result; - FEndPara := FEndPara + cHTMLListEnd; + Result := '<LI ' + Result + '>'; + FEndPara := '</LI>'; + end + else + begin + Result := '<P ' + Result + '>'; + FEndPara := '</P>'; + end +end; + +function TJvRichEditToHtml.ParaToHtml(Value: TJvParaAttributesRec): string; +begin + case Value.Alignment of + Classes.taLeftJustify: + Result := 'ALIGN="LEFT"'; + Classes.taRightJustify: + Result := 'ALIGN="RIGHT"'; + Classes.taCenter: + Result := 'ALIGN="CENTER"'; end; + if Value.Numbering = ComCtrls.nsBullet then + begin + Result := '<LI ' + Result + '>'; + FEndPara := '</LI>'; + end + else + begin + Result := '<P ' + Result + '>'; + FEndPara := '</P>'; + end end; function TJvRichEditToHtml.GetFooter: TStrings; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2006-05-28 12:34:17
|
Revision: 10622 Author: jfudickar Date: 2006-05-28 05:33:53 -0700 (Sun, 28 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10622&view=rev Log Message: ----------- Replaced more $RCSFile$ with $URL$ Modified Paths: -------------- trunk/jvcl/run/JvBaseDlg.pas trunk/jvcl/run/JvDesktopAlert.pas trunk/jvcl/run/JvDialogActns.pas trunk/jvcl/run/JvImageDlg.pas trunk/jvcl/run/JvJVCLAboutForm.pas trunk/jvcl/run/JvPanel.pas trunk/jvcl/run/JvProgressDialog.pas trunk/jvcl/run/JvRgbToHtml.pas trunk/jvcl/run/JvTipOfDay.pas trunk/jvcl/run/JvWinDialogs.pas Modified: trunk/jvcl/run/JvBaseDlg.pas =================================================================== --- trunk/jvcl/run/JvBaseDlg.pas 2006-05-27 08:53:30 UTC (rev 10621) +++ trunk/jvcl/run/JvBaseDlg.pas 2006-05-28 12:33:53 UTC (rev 10622) @@ -70,7 +70,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile: JvBaseDlg.pas,v $'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvDesktopAlert.pas =================================================================== --- trunk/jvcl/run/JvDesktopAlert.pas 2006-05-27 08:53:30 UTC (rev 10621) +++ trunk/jvcl/run/JvDesktopAlert.pas 2006-05-28 12:33:53 UTC (rev 10622) @@ -440,7 +440,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile: JvDesktopAlert.pas,v $'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvDialogActns.pas =================================================================== --- trunk/jvcl/run/JvDialogActns.pas 2006-05-27 08:53:30 UTC (rev 10621) +++ trunk/jvcl/run/JvDialogActns.pas 2006-05-28 12:33:53 UTC (rev 10622) @@ -317,7 +317,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile: JvDialogActns.pas,v $'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvImageDlg.pas =================================================================== --- trunk/jvcl/run/JvImageDlg.pas 2006-05-27 08:53:30 UTC (rev 10621) +++ trunk/jvcl/run/JvImageDlg.pas 2006-05-28 12:33:53 UTC (rev 10622) @@ -59,7 +59,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile: JvImageDlg.pas,v $'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvJVCLAboutForm.pas =================================================================== --- trunk/jvcl/run/JvJVCLAboutForm.pas 2006-05-27 08:53:30 UTC (rev 10621) +++ trunk/jvcl/run/JvJVCLAboutForm.pas 2006-05-28 12:33:53 UTC (rev 10622) @@ -102,7 +102,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile: JvJVCLAboutForm.pas,v $'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvPanel.pas =================================================================== --- trunk/jvcl/run/JvPanel.pas 2006-05-27 08:53:30 UTC (rev 10621) +++ trunk/jvcl/run/JvPanel.pas 2006-05-28 12:33:53 UTC (rev 10622) @@ -320,7 +320,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile: JvPanel.pas,v $'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvProgressDialog.pas =================================================================== --- trunk/jvcl/run/JvProgressDialog.pas 2006-05-27 08:53:30 UTC (rev 10621) +++ trunk/jvcl/run/JvProgressDialog.pas 2006-05-28 12:33:53 UTC (rev 10622) @@ -175,7 +175,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile: JvProgressDialog.pas,v $'; + RCSfile: '$URL'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvRgbToHtml.pas =================================================================== --- trunk/jvcl/run/JvRgbToHtml.pas 2006-05-27 08:53:30 UTC (rev 10621) +++ trunk/jvcl/run/JvRgbToHtml.pas 2006-05-28 12:33:53 UTC (rev 10622) @@ -56,7 +56,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile$'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvTipOfDay.pas =================================================================== --- trunk/jvcl/run/JvTipOfDay.pas 2006-05-27 08:53:30 UTC (rev 10621) +++ trunk/jvcl/run/JvTipOfDay.pas 2006-05-28 12:33:53 UTC (rev 10622) @@ -163,7 +163,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile: JvTipOfDay.pas,v $'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' Modified: trunk/jvcl/run/JvWinDialogs.pas =================================================================== --- trunk/jvcl/run/JvWinDialogs.pas 2006-05-27 08:53:30 UTC (rev 10621) +++ trunk/jvcl/run/JvWinDialogs.pas 2006-05-28 12:33:53 UTC (rev 10622) @@ -599,7 +599,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$RCSfile: JvWinDialogs.pas,v $'; + RCSfile: '$URL$'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2006-06-06 01:51:29
|
Revision: 10639 Author: jfudickar Date: 2006-06-04 12:17:13 -0700 (Sun, 04 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10639&view=rev Log Message: ----------- Enhanced JvDBActions.pas Modified Paths: -------------- trunk/jvcl/run/JvDBActions.pas trunk/jvcl/run/JvResources.pas Modified: trunk/jvcl/run/JvDBActions.pas =================================================================== --- trunk/jvcl/run/JvDBActions.pas 2006-06-04 18:41:47 UTC (rev 10638) +++ trunk/jvcl/run/JvDBActions.pas 2006-06-04 19:17:13 UTC (rev 10639) @@ -412,10 +412,17 @@ end; TJvDatabaseShowSQLStatementAction = class(TJvDatabaseBaseActiveAction) + private + FWordWrap: Boolean; + protected public + constructor Create(AOwner: TComponent); override; procedure ExecuteTarget(Target: TObject); override; procedure ShowSQLStatement; procedure UpdateTarget(Target: TObject); override; + published + //1 Defines if the memo for the sql-statement is word-wrapped + property WordWrap: Boolean read FWordWrap write FWordWrap default True; end; {$IFDEF UNITVERSIONING} @@ -1579,6 +1586,12 @@ (not EnabledOnlyIfSelectedRows or (EngineSelectedRowsCount > 1))); end; +constructor TJvDatabaseShowSQLStatementAction.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FWordWrap := True; +end; + procedure TJvDatabaseShowSQLStatementAction.ExecuteTarget(Target: TObject); begin ShowSQLStatement; @@ -1597,7 +1610,7 @@ begin SearchName := 'SQLStatement'; ScrollBars := ssBoth; - WordWrap := False; + TJvMemoParameter(Parameter).WordWrap := Self.WordWrap; ReadOnly := True; //Caption := '&SQL Statement'; AsString := DatasetEngine.SQL; Modified: trunk/jvcl/run/JvResources.pas =================================================================== --- trunk/jvcl/run/JvResources.pas 2006-06-04 18:41:47 UTC (rev 10638) +++ trunk/jvcl/run/JvResources.pas 2006-06-04 19:17:13 UTC (rev 10639) @@ -524,7 +524,7 @@ SModifyAllChangeTo = 'Change To'; SModifyAllClearFieldValues = 'Clear Field Values'; SShowSQLStatementCaption = 'Show Current SQL Statement'; - SSQLStatementClipboardButton = 'Clipboard'; + SSQLStatementClipboardButton = '&Clipboard'; //=== JvDBControls.pas ======================================================= This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2006-06-06 02:33:44
|
Revision: 10638 Author: jfudickar Date: 2006-06-04 11:41:47 -0700 (Sun, 04 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10638&view=rev Log Message: ----------- JvDBActions.pas Redesign Modified Paths: -------------- trunk/jvcl/run/JvDBActions.pas trunk/jvcl/run/JvResources.pas Added Paths: ----------- trunk/jvcl/run/JvDBActionsEngine.pas trunk/jvcl/run/JvDBActionsEngineControlCxGrid.pas trunk/jvcl/run/JvDBActionsEngineDatasetAdo.pas trunk/jvcl/run/JvDBActionsEngineDatasetDBExpress.pas trunk/jvcl/run/JvDBActionsEngineDatasetDoa.pas trunk/jvcl/run/JvDBActionsEngineDatasetOdac.pas Modified: trunk/jvcl/run/JvDBActions.pas =================================================================== --- trunk/jvcl/run/JvDBActions.pas 2006-06-04 18:34:37 UTC (rev 10637) +++ trunk/jvcl/run/JvDBActions.pas 2006-06-04 18:41:47 UTC (rev 10638) @@ -49,53 +49,11 @@ {$IFDEF USE_3RDPARTY_SMIMPORT} SMIWiz, SMIBase, {$ENDIF USE_3RDPARTY_SMIMPORT} - DBGrids, JvPanel, JvDynControlEngineDB, JvDynControlEngineDBTools; + DBGrids, JvDBActionsEngine; type - TComponentClass = class of TComponent; - TJvChangeDataComponent = procedure(DataComponent: TComponent) of object; - TJvShowSingleRecordWindowOptions = class(TPersistent) - private - FDialogCaption: string; - FPostButtonCaption: string; - FCancelButtonCaption: string; - FCloseButtonCaption: string; - FBorderStyle: TFormBorderStyle; - FPosition: TPosition; - FTop: integer; - FLeft: integer; - FWidth: integer; - FHeight: integer; - FArrangeConstraints: TSizeConstraints; - FArrangeSettings: TJvArrangeSettings; - FFieldCreateOptions: TJvCreateDBFieldsOnControlOptions; - protected - procedure SetArrangeSettings(Value: TJvArrangeSettings); - procedure SetArrangeConstraints(Value: TSizeConstraints); - procedure SetFieldCreateOptions(Value: TJvCreateDBFieldsOnControlOptions); - public - constructor Create; - destructor Destroy; override; - procedure SetOptionsToDialog(ADialog: TJvDynControlDataSourceEditDialog); - published - property DialogCaption: string read FDialogCaption write FDialogCaption; - property PostButtonCaption: string read FPostButtonCaption write FPostButtonCaption; - property CancelButtonCaption: string read FCancelButtonCaption write FCancelButtonCaption; - property CloseButtonCaption: string read FCloseButtonCaption write FCloseButtonCaption; - property BorderStyle: TFormBorderStyle read FBorderStyle write FBorderStyle default bsDialog; - property Position: TPosition read FPosition write FPosition default poScreenCenter; - property Top: integer read FTop write FTop default 0; - property Left: integer read FLeft write FLeft default 0; - property Width: integer read FWidth write FWidth default 640; - property Height: integer read FHeight write FHeight default 480; - property ArrangeConstraints: TSizeConstraints read FArrangeConstraints write SetArrangeConstraints; - property ArrangeSettings: TJvArrangeSettings read FArrangeSettings write SetArrangeSettings; - property FieldCreateOptions: TJvCreateDBFieldsOnControlOptions read FFieldCreateOptions - write SetFieldCreateOptions; - end; - TJvDatabaseActionList = class(TActionList) private FDataComponent: TComponent; @@ -110,106 +68,9 @@ FOnChangeDataComponent write FOnChangeDataComponent; end; - TJvDatabaseActionBaseEngine = class(TComponent) - private - FDatacomponent: TComponent; - FDataset: TDataset; - FDataSource: TDataSource; - function GetSelectedField: TField; virtual; - procedure SetDatacomponent(const Value: TComponent); virtual; - protected - function GetDataSource(ADataComponent: TComponent): TDataSource; virtual; - function GetDataSet(ADataComponent: TComponent): TDataSet; virtual; - procedure Notification(AComponent: TComponent; Operation: TOperation); override; - public - constructor Create(AOwner: TComponent); override; - function Supports(ADataComponent: TComponent): boolean; virtual; - function IsActive: boolean; virtual; - function HasData: boolean; virtual; - function FieldCount: integer; virtual; - function RecordCount: integer; virtual; - function RecNo: integer; virtual; - function CanInsert: boolean; virtual; - function CanUpdate: boolean; virtual; - function CanDelete: boolean; virtual; - function EOF: boolean; virtual; - function Bof: boolean; virtual; - procedure DisableControls; virtual; - procedure EnableControls; virtual; - function ControlsDisabled: boolean; virtual; - function EditModeActive: boolean; virtual; - function FieldById(const FieldId: Integer): TField; virtual; - function FieldByName(const FieldName: string): TField; virtual; - procedure FillFieldList(var AFieldList: TStrings; const AOnlyVisible: Boolean); - virtual; - procedure First; virtual; - function GotoSelectedRow(const ASelectedRow: Integer): Boolean; virtual; - function IsFieldVisible(const AFieldName: string): Boolean; virtual; - function IsFieldReadOnly(const AFieldName: string): Boolean; virtual; - procedure Last; virtual; - procedure MoveBy(Distance: Integer); virtual; - function SelectedRowsCount: Integer; virtual; - procedure ShowSingleRecordWindow(AOptions: TJvShowSingleRecordWindowOptions); - virtual; - property Datacomponent: TComponent read FDatacomponent write SetDatacomponent; - property Dataset: TDataset read FDataset; - property DataSource: TDataSource read FDataSource; - property SelectedField: TField read GetSelectedField; - end; + TJvDatabaseActionBaseEngineClass = class of TJvDatabaseActionBaseControlEngine; - TJvDatabaseActionBaseEngineClass = class of TJvDatabaseActionBaseEngine; - - TJvDatabaseActionDBGridEngine = class(TJvDatabaseActionBaseEngine) - private - FCustomDBGrid: TCustomDBGrid; - protected - function GetCustomDBGrid(ADataComponent: TComponent): TCustomDBGrid; virtual; - function GetDataSource(ADataComponent: TComponent): TDataSource; override; - procedure OnCreateDataControls(ADynControlEngineDB: TJvDynControlEngineDB; - AParentControl: TWinControl; AFieldCreateOptions: TJvCreateDBFieldsOnControlOptions); - procedure SetDatacomponent(const Value: TComponent); override; - public - constructor Create(AOwner: TComponent); override; - function GotoSelectedRow(const ASelectedRow: Integer): Boolean; override; - function GetSelectedField: TField; override; - function SelectedRowsCount: Integer; override; - function Supports(ADataComponent: TComponent): boolean; override; - procedure ShowSingleRecordWindow(AOptions: TJvShowSingleRecordWindowOptions); - override; - property CustomDBGrid: TCustomDBGrid read FCustomDBGrid; - end; - -{$IFDEF USE_3RDPARTY_DEVEXPRESS_CXGRID} - TJvDatabaseActionDevExpCxGridEngine = class(TJvDatabaseActionBaseEngine) - private - FGridView: TcxCustomGridTableView; - function GetDBDataController: TcxDBDataController; - protected - function GetGridView(ADataComponent: TComponent): TcxCustomGridTableView; - function GetDataSource(ADataComponent: TComponent): TDataSource; override; - function IsGridMode: Boolean; - procedure SetDatacomponent(const Value: TComponent); override; - property DBDataController: TcxDBDataController read GetDBDataController; - public - constructor Create(AOwner: TComponent); override; - function Bof: boolean; override; - function RecNo: integer; override; - function RecordCount: integer; override; - function CanInsert: boolean; override; - function CanUpdate: boolean; override; - function CanDelete: boolean; override; - procedure First; override; - function GotoSelectedRow(const ASelectedRow: Integer): Boolean; override; - procedure Last; override; - procedure MoveBy(Distance: Integer); override; - function SelectedRowsCount: Integer; override; - function Supports(ADataComponent: TComponent): boolean; override; - property GridView: TcxCustomGridTableView read FGridView; - end; - -{$ENDIF USE_3RDPARTY_DEVEXPRESS_CXGRID} - - TJvDatabaseExecuteEvent = procedure(Sender: TObject; DataEngine: TJvDatabaseActionBaseEngine; + TJvDatabaseExecuteEvent = procedure(Sender: TObject; ControlEngine: TJvDatabaseActionBaseControlEngine; DataComponent: TComponent) of object; TJvDatabaseExecuteDataSourceEvent = procedure(Sender: TObject; DataSource: TDataSource) of object; @@ -217,7 +78,8 @@ private FOnExecute: TJvDatabaseExecuteEvent; FOnExecuteDataSource: TJvDatabaseExecuteDataSourceEvent; - FDataEngine: TJvDatabaseActionBaseEngine; + FControlEngine: TJvDatabaseActionBaseControlEngine; + FDatasetEngine: TJvDatabaseActionBaseDatasetEngine; FDataComponent: TComponent; FOnChangeDataComponent: TJvChangeDataComponent; protected @@ -238,7 +100,8 @@ function EngineControlsDisabled: boolean; function EngineEditModeActive: boolean; function EngineSelectedRowsCount: integer; - property DataEngine: TJvDatabaseActionBaseEngine read FDataEngine; + property ControlEngine: TJvDatabaseActionBaseControlEngine read FControlEngine; + property DatasetEngine: TJvDatabaseActionBaseDatasetEngine read FDatasetEngine; public constructor Create(AOwner: TComponent); override; procedure UpdateTarget(Target: TObject); override; @@ -535,14 +398,6 @@ {$ENDIF USE_3RDPARTY_SMIMPORT} - TJvDatabaseActionEngineList = class(TList) - public - destructor Destroy; override; - procedure RegisterEngine(AEngineClass: TJvDatabaseActionBaseEngineClass); - function GetEngine(AComponent: TComponent): TJvDatabaseActionBaseEngine; - function Supports(AComponent: TComponent): boolean; - end; - TJvDatabaseModifyAllAction = class(TJvDatabaseBaseEditAction) private FEnabledOnlyIfSelectedRows: Boolean; @@ -556,10 +411,13 @@ write FEnabledOnlyIfSelectedRows default True; end; -procedure RegisterActionEngine(AEngineClass: TJvDatabaseActionBaseEngineClass); + TJvDatabaseShowSQLStatementAction = class(TJvDatabaseBaseActiveAction) + public + procedure ExecuteTarget(Target: TObject); override; + procedure ShowSQLStatement; + procedure UpdateTarget(Target: TObject); override; + end; -function RegisteredDatabaseActionEngineList: TJvDatabaseActionEngineList; - {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( @@ -590,14 +448,12 @@ cxCustomData, {$ENDIF USE_3RDPARTY_DEVEXPRESS_CXGRID} JvResources, JvParameterList, JvParameterListParameter, TypInfo, - JvDSADialogs, + JvDSADialogs, {$IFDEF HAS_UNIT_VARIANTS} Variants, {$ENDIF HAS_UNIT_VARIANTS} - Dialogs; + Dialogs, StdCtrls, Clipbrd; -var - IntRegisteredActionEngineList: TJvDatabaseActionEngineList; //=== { TJvDatabaseActionList } ============================================== @@ -626,686 +482,6 @@ DataComponent := nil; end; -//=== { TJvShowSingleRecordWindowOptions } =================================== - -constructor TJvShowSingleRecordWindowOptions.Create; -begin - inherited Create; - FDialogCaption := ''; - FPostButtonCaption := RsSRWPostButtonCaption; - FCancelButtonCaption := RsSRWCancelButtonCaption; - FCloseButtonCaption := RsSRWCloseButtonCaption; - FBorderStyle := bsDialog; - FTop := 0; - FLeft := 0; - FWidth := 640; - FHeight := 480; - FPosition := poScreenCenter; - FArrangeSettings := TJvArrangeSettings.Create(); - with FArrangeSettings do - begin - AutoSize := asBoth; - DistanceHorizontal := 3; - DistanceVertical := 3; - BorderLeft := 3; - BorderTop := 3; - WrapControls := True; - end; - FArrangeConstraints := TSizeConstraints.Create(nil); - FArrangeConstraints.MaxHeight := 480; - FArrangeConstraints.MaxWidth := 640; - FFieldCreateOptions := TJvCreateDBFieldsOnControlOptions.Create; -end; - -destructor TJvShowSingleRecordWindowOptions.Destroy; -begin - FFieldCreateOptions.Free; - FArrangeConstraints.Free; - FArrangeSettings.Free; - inherited Destroy; -end; - -procedure TJvShowSingleRecordWindowOptions.SetArrangeSettings(Value: TJvArrangeSettings); -begin - FArrangeSettings.Assign(Value); -end; - -procedure TJvShowSingleRecordWindowOptions.SetArrangeConstraints(Value: TSizeConstraints); -begin - FArrangeConstraints.Assign(Value); -end; - -procedure TJvShowSingleRecordWindowOptions.SetFieldCreateOptions(Value: TJvCreateDBFieldsOnControlOptions); -begin - FFieldCreateOptions.Assign(Value); -end; - -procedure TJvShowSingleRecordWindowOptions.SetOptionsToDialog(ADialog: TJvDynControlDataSourceEditDialog); -begin - if Assigned(ADialog) then - begin - ADialog.DialogCaption := DialogCaption; - ADialog.PostButtonCaption := PostButtonCaption; - ADialog.CancelButtonCaption := CancelButtonCaption; - ADialog.CloseButtonCaption := CloseButtonCaption; - ADialog.Position := Position; - ADialog.BorderStyle := BorderStyle; - ADialog.Top := Top; - ADialog.Left := Left; - ADialog.Width := Width; - ADialog.Height := Height; - ADialog.ArrangeConstraints := ArrangeConstraints; - ADialog.ArrangeSettings := ArrangeSettings; - ADialog.FieldCreateOptions := FieldCreateOptions; - end; -end; - -constructor TJvDatabaseActionBaseEngine.Create(AOwner: TComponent); -begin - inherited Create(AOwner); - FDataset := nil; - FDataSource := nil; - FDatacomponent := nil; -end; - -//=== { TJvDatabaseActionBaseEngine } ======================================== - -function TJvDatabaseActionBaseEngine.GetDataSource(ADataComponent: TComponent): - TDataSource; -begin - if Assigned(ADataComponent) and (ADataComponent is TDataSource) then - Result := TDataSource(ADataComponent) - else - Result := nil; -end; - -function TJvDatabaseActionBaseEngine.GetDataSet(ADataComponent: TComponent): - TDataSet; -begin - if Assigned(GetDataSource(ADataComponent)) then - Result := GetDataSource(ADataComponent).DataSet - else - Result := nil; -end; - -function TJvDatabaseActionBaseEngine.Supports(ADataComponent: TComponent): boolean; -begin - Result := Assigned(ADataComponent) and (ADataComponent is TDataSource); -end; - -function TJvDatabaseActionBaseEngine.IsActive: boolean; -begin - if Assigned(DataSet) then - Result := DataSet.Active - else - Result := False; -end; - -function TJvDatabaseActionBaseEngine.HasData: boolean; -begin - if Assigned(DataSet) then - Result := DataSet.RecordCount > 0 - else - Result := False; -end; - -function TJvDatabaseActionBaseEngine.FieldCount: integer; -begin - if Assigned(DataSet) then - Result := DataSet.FieldCount - else - Result := -1; -end; - -function TJvDatabaseActionBaseEngine.RecordCount: integer; -begin - if Assigned(DataSet) then - Result := DataSet.RecordCount - else - Result := -1; -end; - -function TJvDatabaseActionBaseEngine.RecNo: integer; -begin - if Assigned(DataSet) then - Result := DataSet.RecNo - else - Result := -1; -end; - -function TJvDatabaseActionBaseEngine.CanInsert: boolean; -begin - if Assigned(DataSet) then - Result := DataSet.CanModify - else - Result := False; -end; - -function TJvDatabaseActionBaseEngine.CanUpdate: boolean; -begin - if Assigned(DataSet) then - Result := DataSet.CanModify - else - Result := False; -end; - -function TJvDatabaseActionBaseEngine.CanDelete: boolean; -begin - if Assigned(DataSet) then - Result := DataSet.CanModify - else - Result := False; -end; - -function TJvDatabaseActionBaseEngine.EOF: boolean; -begin - if Assigned(DataSet) then - Result := DataSet.EOF - else - Result := False; -end; - -function TJvDatabaseActionBaseEngine.Bof: boolean; -begin - if Assigned(DataSet) then - Result := DataSet.Bof - else - Result := False; -end; - -procedure TJvDatabaseActionBaseEngine.DisableControls; -begin - if Assigned(DataSet) then - DataSet.DisableControls; -end; - -procedure TJvDatabaseActionBaseEngine.EnableControls; -begin - if Assigned(DataSet) then - DataSet.EnableControls; -end; - -function TJvDatabaseActionBaseEngine.ControlsDisabled: boolean; -begin - if Assigned(DataSet) then - Result := DataSet.ControlsDisabled - else - Result := False; -end; - -function TJvDatabaseActionBaseEngine.EditModeActive: boolean; -begin - if Assigned(DataSet) then - Result := DataSet.State in [dsInsert, dsEdit] - else - Result := False; -end; - -function TJvDatabaseActionBaseEngine.FieldById(const FieldId: Integer): TField; -begin - if Assigned(Dataset) then - Result := Dataset.Fields[FieldId] - else - Result := nil; -end; - -function TJvDatabaseActionBaseEngine.FieldByName(const FieldName: string): - TField; -begin - if Assigned(Dataset) then - Result := Dataset.FieldByName(FieldName) - else - Result := nil; -end; - -procedure TJvDatabaseActionBaseEngine.FillFieldList(var AFieldList: TStrings; - const AOnlyVisible: Boolean); -var - i: Integer; -begin - AFieldList.Clear; - if Assigned(Dataset) then - begin - for i := 0 to DataSet.Fields.Count - 1 do - if not AOnlyVisible or IsFieldVisible(DataSet.Fields[i].FieldName) then - AFieldList.Add(DataSet.Fields[i].FieldName); - end; -end; - -procedure TJvDatabaseActionBaseEngine.First; -begin - if Assigned(DataSet) then - DataSet.First; -end; - -function TJvDatabaseActionBaseEngine.GotoSelectedRow(const ASelectedRow: - Integer): Boolean; -begin - Result := False; -end; - -function TJvDatabaseActionBaseEngine.IsFieldVisible(const AFieldName: string): - Boolean; -var - Field: TField; -begin - Field := FieldByName(AFieldName); - if Assigned(Field) then - Result := Field.Visible - else - Result := False; -end; - -function TJvDatabaseActionBaseEngine.IsFieldReadOnly(const AFieldName: - string): Boolean; -var - Field: TField; -begin - Field := FieldByName(AFieldName); - if Assigned(Field) then - Result := Field.ReadOnly - else - Result := False; -end; - -procedure TJvDatabaseActionBaseEngine.Last; -begin - if Assigned(DataSet) then - DataSet.Last; -end; - -procedure TJvDatabaseActionBaseEngine.MoveBy(Distance: Integer); -begin - if Assigned(DataSet) then - DataSet.MoveBy(Distance); -end; - -procedure TJvDatabaseActionBaseEngine.Notification(AComponent: TComponent; - Operation: TOperation); -begin - inherited Notification(AComponent, Operation); - if (Operation = opRemove) and (AComponent = FDataComponent) then - DataComponent := nil; -end; - -function TJvDatabaseActionBaseEngine.GetSelectedField: TField; -begin - Result := nil; -end; - -function TJvDatabaseActionBaseEngine.SelectedRowsCount: Integer; -begin - Result := 0; -end; - -procedure TJvDatabaseActionBaseEngine.SetDatacomponent(const Value: TComponent); -begin - FDatacomponent := Value; - FDatasource := GetDataSource(Value); - FDataset := GetDataSet(Value); - if FDataComponent <> nil then - FDataComponent.FreeNotification(Self); -end; - -procedure TJvDatabaseActionBaseEngine.ShowSingleRecordWindow(AOptions: - TJvShowSingleRecordWindowOptions); -var - Dialog: TJvDynControlDataSourceEditDialog; -begin - Dialog := TJvDynControlDataSourceEditDialog.Create; - try - AOptions.SetOptionsToDialog(Dialog); - if Dialog.DynControlEngineDB.SupportsDataComponent(DataComponent) then - Dialog.DataComponent := DataComponent - else - Dialog.DataComponent := DataSource; - Dialog.ShowDialog; - finally - Dialog.Free; - end; -end; - -//=== { TJvDatabaseActionDBGridEngine } ====================================== - -function TJvDatabaseActionDBGridEngine.GetDataSource(ADataComponent: - TComponent): TDataSource; -begin - if Assigned(ADataComponent) and (ADataComponent is TCustomDBGrid) then - Result := TCustomDBGrid(ADataComponent).DataSource - else - Result := nil; -end; - -type - TAccessCustomDBGrid = class(TCustomDBGrid); - TAccessCustomControl = class(TCustomControl); - -constructor TJvDatabaseActionDBGridEngine.Create(AOwner: TComponent); -begin - inherited Create(AOwner); - FCustomDBGrid := nil; -end; - -function TJvDatabaseActionDBGridEngine.GetCustomDBGrid(ADataComponent: - TComponent): TCustomDBGrid; -begin - if Assigned(ADataComponent) and (ADataComponent is TCustomDBGrid) then - Result := TCustomDBGrid(ADataComponent) - else - Result := nil; -end; - -function TJvDatabaseActionDBGridEngine.GotoSelectedRow(const ASelectedRow: - Integer): Boolean; -begin - if (ASelectedRow >= 0) and (ASelectedRow < SelectedRowsCount) and - Assigned(Dataset) and Dataset.Active then - begin - Dataset.GotoBookmark(Pointer(TAccessCustomDBGrid(CustomDBGrid).SelectedRows[ASelectedRow])); - Result := true; - end - else - Result := False; -end; - -procedure TJvDatabaseActionDBGridEngine.OnCreateDataControls(ADynControlEngineDB: TJvDynControlEngineDB; - AParentControl: TWinControl; AFieldCreateOptions: TJvCreateDBFieldsOnControlOptions); -var - I: integer; - ds: TDataSource; - Field: TField; - LabelControl: TControl; - Control: TWinControl; - Column: TColumn; -begin - if Assigned(CustomDBGrid) then - begin - ds := DataSource; - with AFieldCreateOptions do - for I := 0 to TAccessCustomDBGrid(CustomDBGrid).ColCount - 2 do - begin - Column := TAccessCustomDBGrid(CustomDBGrid).Columns[I]; - if Column.Visible or ShowInvisibleFields then - begin - Field := Column.Field; - Control := ADynControlEngineDB.CreateDBFieldControl(Field, AParentControl, AParentControl, '', ds); - Control.Enabled := not IsFieldReadOnly(Field.FieldName); - if FieldDefaultWidth > 0 then - Control.Width := FieldDefaultWidth - else - begin - if UseFieldSizeForWidth then - if Field.Size > 0 then - Control.Width := - TAccessCustomControl(AParentControl).Canvas.TextWidth('X') * Field.Size - else - else - if Field.DisplayWidth > 0 then - Control.Width := - TAccessCustomControl(AParentControl).Canvas.TextWidth('X') * Field.DisplayWidth; - if (FieldMaxWidth > 0) and (Control.Width > FieldMaxWidth) then - Control.Width := FieldMaxWidth - else - if (FieldMinWidth > 0) and (Control.Width < FieldMinWidth) then - Control.Width := FieldMinWidth; - end; - if UseParentColorForReadOnly then - if (Assigned(ds.DataSet) and not ds.DataSet.CanModify) or Field.ReadOnly then - if isPublishedProp(Control, 'ParentColor') then - SetOrdProp(Control, 'ParentColor', Ord(True)); - LabelControl := ADynControlEngineDB.DynControlEngine.CreateLabelControlPanel(AParentControl, AParentControl, - '', '&' + Column.Title.Caption, Control, True, 0); - if FieldWidthStep > 0 then - if (LabelControl.Width mod FieldWidthStep) <> 0 then - LabelControl.Width := ((LabelControl.Width div FieldWidthStep) + 1) * FieldWidthStep; - end; - end; - end; -end; - -function TJvDatabaseActionDBGridEngine.GetSelectedField: TField; -begin - if Assigned(CustomDBGrid) then - Result := CustomDBGrid.SelectedField - else - Result := nil; -end; - -function TJvDatabaseActionDBGridEngine.SelectedRowsCount: Integer; -begin - if Assigned(CustomDBGrid) then - Result := TAccessCustomDBGrid(CustomDBGrid).SelectedRows.Count - else - Result := 0; -end; - -procedure TJvDatabaseActionDBGridEngine.SetDatacomponent(const Value: - TComponent); -begin - inherited SetDatacomponent(Value); - FCustomDbGrid := GetCustomDBGrid(Value); -end; - -function TJvDatabaseActionDBGridEngine.Supports(ADataComponent: TComponent): boolean; -begin - Result := Assigned(ADataComponent) and (ADataComponent is TCustomDBGrid); -end; - -procedure TJvDatabaseActionDBGridEngine.ShowSingleRecordWindow(AOptions: - TJvShowSingleRecordWindowOptions); -var - Dialog: TJvDynControlDataSourceEditDialog; -begin - Dialog := TJvDynControlDataSourceEditDialog.Create; - try - AOptions.SetOptionsToDialog(Dialog); - if Dialog.DynControlEngineDB.SupportsDataComponent(DataComponent) then - Dialog.DataComponent := DataComponent - else - Dialog.DataComponent := DataSource; - Dialog.OnCreateDataControlsEvent := OnCreateDataControls; - Dialog.ShowDialog; - finally - Dialog.Free; - end; -end; - -//=== { TJvDatabaseActionDevExpCxGridEngine } ================================ - -{$IFDEF USE_3RDPARTY_DEVEXPRESS_CXGRID} - -constructor TJvDatabaseActionDevExpCxGridEngine.Create(AOwner: TComponent); -begin - inherited Create(AOwner); - FGridView := nil; -end; - -function TJvDatabaseActionDevExpCxGridEngine.GetGridView(ADataComponent: - TComponent): TcxCustomGridTableView; -begin - if Assigned(ADataComponent) then - if ADataComponent is TcxGrid then - if TcxGrid(ADataComponent).FocusedView is TcxCustomGridTableView then - Result := TcxCustomGridTableView(TcxGrid(ADataComponent).FocusedView) - else - Result := nil - else - if ADataComponent is TcxCustomGridTableView then - Result := TcxCustomGridTableView(ADataComponent) - else - Result := nil - else - Result := nil; -end; - -function TJvDatabaseActionDevExpCxGridEngine.GetDataSource(ADataComponent: - TComponent): TDataSource; -begin - if Assigned(ADataComponent) then - if ADataComponent is TcxGrid then - if (TcxGrid(ADataComponent).FocusedView is TcxCustomGridTableView) and - (TcxCustomGridTableView(TcxGrid(ADataComponent).FocusedView).DataController is TcxGridDBDataController) then - Result := TcxGridDBDataController(TcxCustomGridTableView( - TcxGrid(ADataComponent).FocusedView).DataController).DataSource - else - Result := nil - else - if ADataComponent is TcxCustomGridTableView then - if TcxCustomGridTableView(ADataComponent).DataController is TcxGridDBDataController then - Result := TcxGridDBDataController(TcxCustomGridTableView(ADataComponent).DataController).DataSource - else - Result := nil - else - Result := inherited GetDataSource(ADataComponent) - else - Result := nil; -end; - -function TJvDatabaseActionDevExpCxGridEngine.Supports(ADataComponent: TComponent): boolean; -begin - Result := Assigned(GetGridView(ADataComponent)); -end; - -function TJvDatabaseActionDevExpCxGridEngine.Bof: boolean; -begin - if Assigned(GridView) then - Result := GridView.DataController.FocusedRowIndex = 0 - else - Result := inherited Bof; -end; - -function TJvDatabaseActionDevExpCxGridEngine.RecNo: integer; -begin - if Assigned(GridView) then - Result := GridView.DataController.FocusedRowIndex + 1 - else - Result := inherited RecNo; -end; - -function TJvDatabaseActionDevExpCxGridEngine.RecordCount: integer; -begin - if Assigned(GridView) then - Result := GridView.DataController.RecordCount - else - Result := inherited RecordCount; -end; - -function TJvDatabaseActionDevExpCxGridEngine.CanInsert: boolean; -begin - if Assigned(GridView) then - Result := GridView.OptionsData.Inserting and inherited CanInsert - else - Result := inherited CanInsert; -end; - -function TJvDatabaseActionDevExpCxGridEngine.CanUpdate: boolean; -begin - if Assigned(GridView) then - Result := GridView.OptionsData.Editing and inherited CanUpdate - else - Result := inherited CanUpdate; -end; - -function TJvDatabaseActionDevExpCxGridEngine.CanDelete: boolean; -begin - if Assigned(GridView) then - Result := GridView.OptionsData.Deleting and inherited CanDelete - else - Result := inherited CanDelete; -end; - -procedure TJvDatabaseActionDevExpCxGridEngine.First; -begin - if Assigned(GridView) then - GridView.DataController.GotoFirst - else - inherited First; -end; - -function TJvDatabaseActionDevExpCxGridEngine.GetDBDataController: - TcxDBDataController; -begin - if Assigned(GridView) and (GridView.DataController is TcxDBDataController) then - Result := TcxDBDataController(GridView.DataController) - else - Result := nil; -end; - -function TJvDatabaseActionDevExpCxGridEngine.GotoSelectedRow(const - ASelectedRow: Integer): Boolean; -var - Bkm: TBookmarkStr; - RecIdx : Integer; - RecID : Variant; -begin - if Assigned(DBDataController) and Assigned(Dataset) then - try - if IsGridMode then - begin - Bkm := DBDataController.GetSelectedBookmark(ASelectedRow); - if DataSet.BookmarkValid(TBookmark(Bkm)) then - begin - Dataset.Bookmark := Bkm; - Result := true; - end - else - Result := False; - end - else - begin - RecIdx := GridView.Controller.SelectedRecords[ASelectedRow].RecordIndex; - RecID := GridView.DataController.GetRecordId(RecIdx); - Result := DataSet.Locate(DBDataController.KeyFieldNames, RecID, [loPartialKey]); - end; - except - on e:exception do - Result := false; - end - else - Result := False; -end; - -function TJvDatabaseActionDevExpCxGridEngine.IsGridMode: Boolean; -begin - if Assigned(DBDataController) then - Result := DBDataController.DataModeController.GridMode - else - Result := True; -end; - -procedure TJvDatabaseActionDevExpCxGridEngine.Last; -begin - if Assigned(GridView) then - GridView.DataController.GotoLast - else - inherited Last; -end; - -procedure TJvDatabaseActionDevExpCxGridEngine.MoveBy(Distance: Integer); -begin - if Assigned(GridView) then - GridView.DataController.MoveBy(Distance) - else - inherited MoveBy(Distance); -end; - -function TJvDatabaseActionDevExpCxGridEngine.SelectedRowsCount: Integer; -begin - if Assigned(GridView) then - Result := GridView.DataController.GetSelectedCount - else - Result := 0; -end; - -procedure TJvDatabaseActionDevExpCxGridEngine.SetDatacomponent(const Value: - TComponent); -begin - inherited SetDatacomponent(Value); - FGridView := GetGridView(Value); -end; - -{$ENDIF USE_3RDPARTY_DEVEXPRESS_CXGRID} - //=== { TJvDatabaseBaseAction } ============================================== constructor TJvDatabaseBaseAction.Create(AOwner: TComponent); @@ -1317,33 +493,48 @@ function TJvDatabaseBaseAction.GetDataSet: TDataSet; begin - if Assigned(DataEngine) then - Result := DataEngine.DataSet + if Assigned(ControlEngine) then + Result := ControlEngine.DataSet else Result := nil; end; function TJvDatabaseBaseAction.GetDataSource: TDataSource; begin - if Assigned(DataEngine) then - Result := DataEngine.DataSource + if Assigned(ControlEngine) then + Result := ControlEngine.DataSource else Result := nil; end; procedure TJvDatabaseBaseAction.SetDataComponent(Value: TComponent); +var EngineList : TJvDatabaseActionEngineList; begin FDataComponent := Value; if FDataComponent <> nil then FDataComponent.FreeNotification(Self); - if Assigned(IntRegisteredActionEngineList) then + EngineList := RegisteredDatabaseActionEngineList; + if Assigned(EngineList) then begin - FDataEngine := IntRegisteredActionEngineList.GetEngine(FDataComponent); - if Assigned(FDataEngine) then - FDataEngine.Datacomponent := FDatacomponent; + FControlEngine := EngineList.GetControlEngine(FDataComponent); + if Assigned(FControlEngine) then + begin + FControlEngine.Datacomponent := FDatacomponent; + if Assigned(Dataset) then + begin + FDatasetEngine := EngineList.GetDatasetEngine(Dataset); + if Assigned(FDatasetEngine) then + FDatasetEngine.Datacomponent := Dataset; + end; + end + else + FDatasetEngine := nil; end else - FDataEngine := nil; + begin + FControlEngine := nil; + FDatasetEngine := nil; + end; if Assigned(OnChangeDataComponent) then OnChangeDataComponent(Value); end; @@ -1356,104 +547,104 @@ function TJvDatabaseBaseAction.EngineIsActive: boolean; begin - if Assigned(DataEngine) then - Result := DataEngine.IsActive + if Assigned(ControlEngine) then + Result := ControlEngine.IsActive else Result := False; end; function TJvDatabaseBaseAction.EngineHasData: boolean; begin - if Assigned(DataEngine) then - Result := DataEngine.HasData + if Assigned(ControlEngine) then + Result := ControlEngine.HasData else Result := False; end; function TJvDatabaseBaseAction.EngineFieldCount: integer; begin - if Assigned(DataEngine) then - Result := DataEngine.FieldCount + if Assigned(ControlEngine) then + Result := ControlEngine.FieldCount else Result := -1; end; function TJvDatabaseBaseAction.EngineRecordCount: integer; begin - if Assigned(DataEngine) then - Result := DataEngine.RecordCount + if Assigned(ControlEngine) then + Result := ControlEngine.RecordCount else Result := -1; end; function TJvDatabaseBaseAction.EngineRecNo: integer; begin - if Assigned(DataEngine) then - Result := DataEngine.RecNo + if Assigned(ControlEngine) then + Result := ControlEngine.RecNo else Result := -1; end; function TJvDatabaseBaseAction.EngineCanInsert: boolean; begin - if Assigned(DataEngine) then - Result := DataEngine.CanInsert + if Assigned(ControlEngine) then + Result := ControlEngine.CanInsert else Result := False; end; function TJvDatabaseBaseAction.EngineCanUpdate: boolean; begin - if Assigned(DataEngine) then - Result := DataEngine.CanUpdate + if Assigned(ControlEngine) then + Result := ControlEngine.CanUpdate else Result := False; end; function TJvDatabaseBaseAction.EngineCanDelete: boolean; begin - if Assigned(DataEngine) then - Result := DataEngine.CanDelete + if Assigned(ControlEngine) then + Result := ControlEngine.CanDelete else Result := False; end; function TJvDatabaseBaseAction.EngineEof: boolean; begin - if Assigned(DataEngine) then - Result := DataEngine.EOF + if Assigned(ControlEngine) then + Result := ControlEngine.EOF else Result := False; end; function TJvDatabaseBaseAction.EngineBof: boolean; begin - if Assigned(DataEngine) then - Result := DataEngine.Bof + if Assigned(ControlEngine) then + Result := ControlEngine.Bof else Result := False; end; function TJvDatabaseBaseAction.EngineControlsDisabled: boolean; begin - if Assigned(DataEngine) then - Result := DataEngine.ControlsDisabled + if Assigned(ControlEngine) then + Result := ControlEngine.ControlsDisabled else Result := False; end; function TJvDatabaseBaseAction.EngineEditModeActive: boolean; begin - if Assigned(DataEngine) then - Result := DataEngine.EditModeActive + if Assigned(ControlEngine) then + Result := ControlEngine.EditModeActive else Result := False; end; function TJvDatabaseBaseAction.EngineSelectedRowsCount: integer; begin - if Assigned(DataEngine) then - Result := DataEngine.SelectedRowsCount + if Assigned(ControlEngine) then + Result := ControlEngine.SelectedRowsCount else Result := -1; end; @@ -1461,7 +652,7 @@ function TJvDatabaseBaseAction.HandlesTarget(Target: TObject): boolean; begin // Result := inherited HandlesTarget(Target); - Result := Assigned(DataEngine); + Result := Assigned(ControlEngine); end; procedure TJvDatabaseBaseAction.UpdateTarget(Target: TObject); @@ -1475,7 +666,7 @@ procedure TJvDatabaseBaseAction.ExecuteTarget(Target: TObject); begin if Assigned(FOnExecute) then - FOnExecute(Self, DataEngine, DataComponent) + FOnExecute(Self, ControlEngine, DataComponent) else if Assigned(FOnExecuteDataSource) then FOnExecuteDataSource(Self, DataSource) @@ -1554,52 +745,52 @@ procedure TJvDatabaseFirstAction.UpdateTarget(Target: TObject); begin - SetEnabled(Assigned(DataEngine) and not EngineControlsDisabled and EngineIsActive and not EngineBof); + SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineBof); end; procedure TJvDatabaseFirstAction.ExecuteTarget(Target: TObject); begin inherited; - DataEngine.First; + ControlEngine.First; end; //=== { TJvDatabaseLastAction } ============================================== procedure TJvDatabaseLastAction.UpdateTarget(Target: TObject); begin - SetEnabled(Assigned(DataEngine) and not EngineControlsDisabled and EngineIsActive and not EngineEof); + SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineEof); end; procedure TJvDatabaseLastAction.ExecuteTarget(Target: TObject); begin inherited; - DataEngine.Last; + ControlEngine.Last; end; //=== { TJvDatabasePriorAction } ============================================= procedure TJvDatabasePriorAction.UpdateTarget(Target: TObject); begin - SetEnabled(Assigned(DataEngine) and not EngineControlsDisabled and EngineIsActive and not EngineBof); + SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineBof); end; procedure TJvDatabasePriorAction.ExecuteTarget(Target: TObject); begin inherited; - DataEngine.MoveBy(-1); + ControlEngine.MoveBy(-1); end; //=== { TJvDatabaseNextAction } ============================================== procedure TJvDatabaseNextAction.UpdateTarget(Target: TObject); begin - SetEnabled(Assigned(DataEngine) and not EngineControlsDisabled and EngineIsActive and not EngineEof); + SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineEof); end; procedure TJvDatabaseNextAction.ExecuteTarget(Target: TObject); begin inherited; - DataEngine.MoveBy(1); + ControlEngine.MoveBy(1); end; //=== { TJvDatabasePriorBlockAction } ======================================== @@ -1612,13 +803,13 @@ procedure TJvDatabasePriorBlockAction.UpdateTarget(Target: TObject); begin - SetEnabled(Assigned(DataEngine) and not EngineControlsDisabled and EngineIsActive and not EngineBof); + SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineBof); end; procedure TJvDatabasePriorBlockAction.ExecuteTarget(Target: TObject); begin inherited; - with DataEngine do + with ControlEngine do try DisableControls; MoveBy(-BlockSize); @@ -1637,13 +828,13 @@ procedure TJvDatabaseNextBlockAction.UpdateTarget(Target: TObject); begin - SetEnabled(Assigned(DataEngine) and not EngineControlsDisabled and EngineIsActive and not EngineEof); + SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineEof); end; procedure TJvDatabaseNextBlockAction.ExecuteTarget(Target: TObject); begin inherited; - with DataEngine do + with ControlEngine do try DisableControls; MoveBy(BlockSize); @@ -1671,7 +862,7 @@ var MyBookmark: TBookmark; begin - with DataEngine.DataSet do + with ControlEngine.DataSet do begin MyBookmark := nil; if RefreshLastPosition then @@ -1978,7 +1169,7 @@ procedure TJvDatabaseSingleRecordWindowAction.ShowSingleRecordWindow; begin - DataEngine.ShowSingleRecordWindow(Options); + ControlEngine.ShowSingleRecordWindow(Options); end; //=== { TJvDatabaseOpenAction } ============================================== @@ -2260,78 +1451,6 @@ {$ENDIF USE_3RDPARTY_SMIMPORT} -//=== { TJvDatabaseActionEngineList } ======================================== - -destructor TJvDatabaseActionEngineList.Destroy; -var - I: integer; -begin - for I := Count - 1 downto 0 do - begin - TJvDatabaseActionBaseEngine(Items[I]).Free; - Items[I] := nil; - Delete(I); - end; - inherited Destroy; -end; - -procedure TJvDatabaseActionEngineList.RegisterEngine(AEngineClass: TJvDatabaseActionBaseEngineClass); -begin - Add(AEngineClass.Create(nil)); -end; - -function TJvDatabaseActionEngineList.GetEngine(AComponent: TComponent): TJvDatabaseActionBaseEngine; -var - Ind: integer; -begin - Result := nil; - for Ind := 0 to Count - 1 do - if TJvDatabaseActionBaseEngine(Items[Ind]).Supports(AComponent) then - begin - Result := TJvDatabaseActionBaseEngine(Items[Ind]); - Break; - end; -end; - -function TJvDatabaseActionEngineList.Supports(AComponent: TComponent): boolean; -begin - Result := Assigned(GetEngine(AComponent)); -end; - -//=== Global ================================================================= - -function RegisteredDatabaseActionEngineList: TJvDatabaseActionEngineList; -begin - Result := IntRegisteredActionEngineList; -end; - -procedure RegisterActionEngine(AEngineClass: TJvDatabaseActionBaseEngineClass); -begin - if Assigned(IntRegisteredActionEngineList) then - IntRegisteredActionEngineList.RegisterEngine(AEngineClass); -end; - -procedure CreateActionEngineList; -begin - IntRegisteredActionEngineList := TJvDatabaseActionEngineList.Create; -end; - -procedure DestroyActionEngineList; -begin - IntRegisteredActionEngineList.Free; - IntRegisteredActionEngineList := nil; -end; - -procedure ActionInit; -begin - CreateActionEngineList; - RegisterActionEngine(TJvDatabaseActionBaseEngine); - RegisterActionEngine(TJvDatabaseActionDBGridEngine); -{$IFDEF USE_3RDPARTY_DEVEXPRESS_CXGRID} - RegisterActionEngine(TJvDatabaseActionDevExpCxGridEngine); -{$ENDIF USE_3RDPARTY_DEVEXPRESS_CXGRID} -end; - //=== { TJvDatabaseModifyAllAction } ============================================ constructor TJvDatabaseModifyAllAction.Create(AOwner: TComponent); @@ -2356,28 +1475,28 @@ ClearField: Boolean; OnlyIfNull: Boolean; begin - if not Assigned(DataEngine) then + if not Assigned(ControlEngine) then Exit; JvParameterList := TJvParameterList.Create(self); try - JvParameterList.Messages.Caption := 'Modify All Records'; - JvParameterList.Messages.OkButton := 'Modify'; + JvParameterList.Messages.Caption := SModifyAllCaption; + JvParameterList.Messages.OkButton := SModifyAllOkButton; Parameter := TJvBaseParameter(TJvComboBoxParameter.Create(JvParameterList)); with TJvComboBoxParameter(Parameter) do begin LabelArrangeMode := lamAbove; SearchName := 'ModifyField'; - Caption := 'Modify Field'; + Caption := SModifyAllModifyField; Width := 330; for i := 0 to EngineFieldCount - 1 do begin - Field := DataEngine.FieldById(i); + Field := ControlEngine.FieldById(i); if Assigned(Field) then - if not DataEngine.IsFieldReadOnly(Field.FieldName) - and DataEngine.IsFieldVisible(Field.FieldName) then + if not ControlEngine.IsFieldReadOnly(Field.FieldName) + and ControlEngine.IsFieldVisible(Field.FieldName) then ItemList.Add(Field.FieldName); - if Assigned(DataEngine.SelectedField) then - ItemIndex := ItemList.IndexOf(DataEngine.SelectedField.FieldName); + if Assigned(ControlEngine.SelectedField) then + ItemIndex := ItemList.IndexOf(ControlEngine.SelectedField.FieldName); if (ItemIndex < 0) or (ItemIndex >= ItemList.Count) then ItemIndex := 0; end; @@ -2387,7 +1506,7 @@ with TJvCheckBoxParameter(Parameter) do begin SearchName := 'ClearFieldValues'; - Caption := 'Clear Field Values'; + Caption := SModifyAllClearFieldValues; Width := 150; end; JvParameterList.AddParameter(Parameter); @@ -2395,7 +1514,7 @@ with TJvEditParameter(Parameter) do begin SearchName := 'ChangeTo'; - Caption := 'Change To'; + Caption := SModifyAllChangeTo; Width := 330; LabelArrangeMode := lamAbove; DisableReasons.AddReason('ClearFieldValues', True); @@ -2405,7 +1524,7 @@ with TJvCheckBoxParameter(Parameter) do begin SearchName := 'OnlyIfNull'; - Caption := 'Only If Null'; + Caption := SModifyAllOnlyIfNull; Width := 150; DisableReasons.AddReason('ClearFieldValues', True); end; @@ -2417,35 +1536,35 @@ ClearField := JvParameterList.ParameterByName('ClearFieldValues').AsBoolean; OnlyIfNull := JvParameterList.ParameterByName('OnlyIfNull').AsBoolean; ChangeTo := JvParameterList.ParameterByName('ChangeTo').AsString; - Field := DataEngine.FieldByName(FieldName); + Field := ControlEngine.FieldByName(FieldName); if Assigned(Field) then try - DataEngine.DisableControls; - for I := 0 to Dataengine.SelectedRowsCount - 1 do - if DataEngine.GotoSelectedRow(i) then + ControlEngine.DisableControls; + for I := 0 to ControlEngine.SelectedRowsCount - 1 do + if ControlEngine.GotoSelectedRow(i) then begin try if (ClearField and not Field.IsNull) or not (OnlyIfNull and not Field.IsNull) then begin - DataEngine.Dataset.Edit; + ControlEngine.Dataset.Edit; if ClearField then Field.Clear else Field.AsString := ChangeTo; - if Assigned(DataEngine.Dataset) then - DataEngine.Dataset.Post; + if Assigned(ControlEngine.Dataset) then + ControlEngine.Dataset.Post; end; except on e: exception do begin - DataEngine.Dataset.Cancel; + ControlEngine.Dataset.Cancel; JvDSADialogs.MessageDlg(e.Message, mtError, [mbOK], 0); end; end; end; finally - DataEngine.EnableControls; + ControlEngine.EnableControls; end; end; finally @@ -2460,14 +1579,54 @@ (not EnabledOnlyIfSelectedRows or (EngineSelectedRowsCount > 1))); end; +procedure TJvDatabaseShowSQLStatementAction.ExecuteTarget(Target: TObject); +begin + ShowSQLStatement; +end; + +procedure TJvDatabaseShowSQLStatementAction.ShowSQLStatement; +var ParameterList : TJvParameterList; + Parameter : TJvBaseParameter; +begin + if not Assigned(DatasetEngine) then + Exit; + ParameterList := TJvParameterList.Create(self); + try + Parameter := TJvBaseParameter(TJvMemoParameter.Create(ParameterList)); + with TJvMemoParameter(Parameter) do + begin + SearchName := 'SQLStatement'; + ScrollBars := ssBoth; + WordWrap := False; + ReadOnly := True; + //Caption := '&SQL Statement'; + AsString := DatasetEngine.SQL; + Width := 500; + Height := 350; + end; + ParameterList.AddParameter(Parameter); + ParameterList.ArrangeSettings.WrapControls := True; + ParameterList.ArrangeSettings.MaxWidth := 650; + ParameterList.Messages.Caption := SShowSQLStatementCaption; + ParameterList.Messages.OkButton := SSQLStatementClipboardButton; + if ParameterList.ShowParameterDialog then + ClipBoard.AsText := DatasetEngine.SQL; + finally + FreeAndNil(ParameterList); + end; +end; + +procedure TJvDatabaseShowSQLStatementAction.UpdateTarget(Target: TObject); +begin + SetEnabled(Assigned(DataSet) and Assigned(DatasetEngine) and DatasetEngine.SupportsGetSQL); +end; + initialization {$IFDEF UNITVERSIONING} RegisterUnitVersion(HInstance, UnitVersioning); {$ENDIF UNITVERSIONING} - ActionInit; finalization - DestroyActionEngineList; {$IFDEF UNITVERSIONING} UnregisterUnitVersion(HInstance); {$ENDIF UNITVERSIONING} Added: trunk/jvcl/run/JvDBActionsEngine.pas =================================================================== --- trunk/jvcl/run/JvDBActionsEngine.pas (rev 0) +++ trunk/jvcl/run/JvDBActionsEngine.pas 2006-06-04 18:41:47 UTC (rev 10638) @@ -0,0 +1,870 @@ +{----------------------------------------------------------------------------- +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 Original Code is: JvDBActionsEngine.Pas, released on 2004-12-30. + +The Initial Developer of the Original Code is Jens Fudickar [jens dott fudicker att oratool dott de] +Portions created by Jens Fudickar are Copyright (C) 2002 Jens Fudickar. +All Rights Reserved. + +Contributor(s): - + +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 JvDBActionsEngine; + +{$I jvcl.inc} + +interface + +uses +{$IFDEF UNITVERSIONING} + JclUnitVersioning, +{$ENDIF UNITVERSIONING} +{$IFDEF MSWINDOWS} + Windows, ImgList, Graphics, +{$ENDIF MSWINDOWS} +{$IFDEF UNIX} + QWindows, QImgList, QGraphics, +{$ENDIF UNIX} + Forms, Controls, Classes, DB, +{$IFDEF USE_3RDPARTY_DEVEXPRESS_CXGRID} + cxGridCustomTableView, cxDBData, +{$ENDIF USE_3RDPARTY_DEVEXPRESS_CXGRID} + DBGrids, JvPanel, JvDynControlEngineDB, JvDynControlEngineDBTools; + +type + + TJvDatabaseActionBaseEngine = class(TComponent) + private + FDatacomponent: TComponent; + procedure SetDatacomponent(const Value: TComponent); virtual; + public + function Supports(ADataComponent: TComponent): boolean; virtual; + property Datacomponent: TComponent read FDatacomponent write SetDatacomponent; + end; + + TJvDatabaseActionBaseDatasetEngine = class(TJvDatabaseActionBaseEngine) + private + FDataset: TDataset; + procedure SetDatacomponent(const Value: TComponent); override; + public + function GetSQL: string; virtual; + procedure SetSQL(const Value: string); virtual; + function Supports(ADataComponent: TComponent): boolean; override; + function SupportsGetSQL: Boolean; virtual; + function SupportsSetSQL: Boolean; virtual; + property Dataset: TDataset read FDataset; + property SQL: string read GetSQL write SetSQL; + end; + + TJvShowSingleRecordWindowOptions = class(TPersistent) + private + FDialogCaption: string; + FPostButtonCaption: string; + FCancelButtonCaption: string; + FCloseButtonCaption: string; + FBorderStyle: TFormBorderStyle; + FPosition: TPosition; + FTop: integer; + FLeft: integer; + FWidth: integer; + FHeight: integer; + FArrangeConstraints: TSizeConstraints; + FArrangeSettings: TJvArrangeSettings; + FFieldCreateOptions: TJvCreateDBFieldsOnControlOptions; + protected + procedure SetArrangeSettings(Value: TJvArrangeSettings); + procedure SetArrangeConstraints(Value: TSizeConstraints); + procedure SetFieldCreateOptions(Value: TJvCreateDBFieldsOnControlOptions); + public + constructor Create; + destructor Destroy; override; + procedure SetOptionsToDialog(ADialog: TJvDynControlDataSourceEditDialog); + published + property DialogCaption: string read FDialogCaption write FDialogCaption; + property PostButtonCaption: string read FPostButtonCaption write FPostButtonCaption; + property CancelButtonCaption: string read FCancelButtonCaption write FCancelButtonCaption; + property CloseButtonCaption: string read FCloseButtonCaption write FCloseButtonCaption; + property BorderStyle: TFormBorderStyle read FBorderStyle write FBorderStyle default bsDialog; + property Position: TPosition read FPosition write FPosition default poScreenCenter; + property Top: integer read FTop write FTop default 0; + property Left: integer read FLeft write FLeft default 0; + property Width: integer read FWidth write FWidth default 640; + property Height: integer read FHeight write FHeight default 480; + property ArrangeConstraints: TSizeConstraints read FArrangeConstraints write SetArrangeConstraints; + property ArrangeSettings: TJvArrangeSettings read FArrangeSettings write SetArrangeSettings; + property FieldCreateOptions: TJvCreateDBFieldsOnControlOptions read FFieldCreateOptions + write SetFieldCreateOptions; + end; + + TJvDatabaseActionBaseControlEngine = class(TJvDatabaseActionBaseEngine) + private + FDataset: TDataset; + FDataSource: TDataSource; + function GetSelectedField: TField; virtual; + protected + function GetDataSource(ADataComponent: TComponent): TDataSource; virtual; + function GetDataSet(ADataComponent: TComponent): TDataSet; virtual; + procedure Notification(AComponent: TComponent; Operation: TOperation); override; + procedure SetDatacomponent(const Value: TComponent); override; + public + constructor Create(AOwner: TComponent); override; + function Supports(ADataComponent: TComponent): boolean; override; + function IsActive: boolean; virtual; + function HasData: boolean; virtual; + function FieldCount: integer; virtual; + function RecordCount: integer; virtual; + function RecNo: integer; virtual; + function CanInsert: boolean; virtual; + function CanUpdate: boolean; virtual; + function CanDelete: boolean; virtual; + function EOF: boolean; virtual; + function Bof: boolean; virtual; + procedure DisableControls; virtual; + procedure EnableControls; virtual; + function ControlsDisabled: boolean; virtual; + function EditModeActive: boolean; virtual; + function FieldById(const FieldId: Integer): TField; virtual; + function FieldByName(const FieldName: string): TField; virtual; + procedure FillFieldList(var AFieldList: TStrings; const AOnlyVisible: Boolean); + virtual; + procedure First; virtual; + function GotoSelectedRow(const ASelectedRow: Integer): Boolean; virtual; + function IsFieldVisible(const AFieldName: string): Boolean; virtual; + function IsFieldReadOnly(const AFieldName: string): Boolean; virtual; + procedure Last; virtual; + procedure MoveBy(Distance: Integer); virtual; + function SelectedRowsCount: Integer; virtual; + procedure ShowSingleRecordWindow(AOptions: TJvShowSingleRecordWindowOptions); + virtual; + property Dataset: TDataset read FDataset; + property DataSource: TDataSource read FDataSource; + property SelectedField: TField read GetSelectedField; + end; + + TJvDatabaseActionBaseEngineClass = class of TJvDatabaseActionBaseEngine; + + TJvDatabaseActionDBGridControlEngine = class(TJvDatabaseActionBaseControlEngine) + private + FCustomDBGrid: TCustomDBGrid; + protected + function GetCustomDBGrid(ADataComponent: TComponent): TCustomDBGrid; virtual; + function GetDataSource(ADataComponent: TComponent): TDataSource; override; + procedure OnCreateDataControls(ADynControlEngineDB: TJvDynControlEngineDB; + AParentControl: TWinControl; AFieldCreateOptions: TJvCreateDBFieldsOnControlOptions); + procedure SetDatacomponent(const Value: TComponent); override; + public + constructor Create(AOwner: TComponent); override; + function GotoSelectedRow(const ASelectedRow: Integer): Boolean; override; + function GetSelectedField: TField; override; + function SelectedRowsCount: Integer; override; + function Supports(ADataComponent: TComponent): boolean; override; + procedure ShowSingleRecordWindow(AOptions: TJvShowSingleRecordWindowOptions); + override; + property CustomDBGrid: TCustomDBGrid read FCustomDBGrid; + end; + + TJvDatabaseActionEngineList = class(TList) + public + destructor Destroy; override; + procedure RegisterEngine(AEngineClass: TJvDatabaseActionBaseEngineClass); + function GetControlEngine(AComponent: TComponent): TJvDatabaseActionBaseControlEngine; + function GetDatasetEngine(AComponent: TComponent): TJvDatabaseActionBaseDatasetEngine; + function Supports(AComponent: TComponent): boolean; + function SupportsDataset(AComponent: TComponent): boolean; + end; + +procedure RegisterActionEngine(AEngineClass: TJvDatabaseActionBaseEngineClass); + +function RegisteredDatabaseActionEngineList: TJvDatabaseActionEngineList; + +{$IFDEF UNITVERSIONING} +const + UnitVersioning: TUnitVersionInfo = ( + RCSfile: '$URL$'; + Revision: '$Revision$'; + Date: '$Date$'; + LogPath: 'JVCL\run' + ); +{$ENDIF UNITVERSIONING} + +implementation + +uses + SysUtils, Grids, +{$IFDEF HAS_UNIT_STRUTILS} + StrUtils, +{$ENDIF HAS_UNIT_STRUTILS} + JvResources, JvParameterList, JvParameterListParameter, TypInfo, + JvDSADialogs, +{$IFDEF HAS_UNIT_VARIANTS} + Variants, +{$ENDIF HAS_UNIT_VARIANTS} + Dialogs; + +var + IntRegisteredActionEngineList: TJvDatabaseActionEngineList; + +constructor TJvDatabaseActionBaseControlEngine.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FDataset := nil; + FDataSource := nil; + FDatacomponent := nil; +end; + +//=== { TJvDatabaseActionBaseEngine } ======================================== + +function TJvDatabaseActionBaseControlEngine.GetDataSource(ADataComponent: TComponent): + TDataSource; +begin + if Assigned(ADataComponent) and (ADataComponent is TDataSource) then + Result := TDataSource(ADataComponent) + else + Result := nil; +end; + +function TJvDatabaseActionBaseControlEngine.GetDataSet(ADataComponent: TComponent): + TDataSet; +begin + if Assigned(GetDataSource(ADataComponent)) then + Result := GetDataSource(ADataComponent).DataSet + else + Result := nil; +end; + +function TJvDatabaseActionBaseControlEngine.Supports(ADataComponent: TComponent): boolean; +begin + Result := Assigned(ADataComponent) and (ADataComponent is TDataSource); +end; + +function TJvDatabaseActionBaseControlEngine.IsActive: boolean; +begin + if Assigned(DataSet) then + Result := DataSet.Active + else + Result := False; +end; + +function TJvDatabaseActionBaseControlEngine.HasData: boolean; +begin + if Assigned(DataSet) then + Result := DataSet.RecordCount > 0 + else + Result := False; +end; + +function TJvDatabaseActionBaseControlEngine.FieldCount: integer; +begin + if Assigned(DataSet) then + Result := DataSet.FieldCount + else + Result := -1; +end; + +function TJvDatabaseActionBaseControlEngine.RecordCount: integer; +begin + if Assigned(DataSet) then + Result := DataSet.RecordCount + else + Result := -1; +end; + +function TJvDatabaseActionBaseControlEngine.RecNo: integer; +begin + if Assigned(DataSet) then + Result := DataSet.RecNo + else + Result := -1; +end; + +function TJvDatabaseActionBaseControlEngine.CanInsert: boolean; +begin + if Assigned(DataSet) then + Result := DataSet.CanModify + else + Result := False; +end; + +function TJvDatabaseActionBaseControlEngine.CanUpdate: boolean; +begin + if Assigned(DataSet) then + Result := DataSet.CanModify + else + Result := False; +end; + +function TJvDatabaseActionBaseControlEngine.CanDelete: boolean; +begin + if Assigned(DataSet) then + Result := DataSet.CanModify + else + Result := False; +end; + +function TJvDatabaseActionBaseControlEngine.EOF: boolean; +begin + if Assigned(DataSet) then + Result := DataSet.EOF + else + Result := False; +end; + +function TJvDatabaseActionBaseControlEngine.Bof: boolean; +begin + if Assigned(DataSet) then + Result := DataSet.Bof + else + Result := False; +end; + +procedure TJvDatabaseActionBaseControlEngine.DisableControls; +begin + if Assigned(DataSet) then + DataSet.DisableControls; +end; + +procedure TJvDatabaseActionBaseControlEngine.EnableControls; +begin + if Assigned(DataSet) then + DataSet.EnableControls; +end; + +function TJvDatabaseActionBaseControlEngine.ControlsDisabled: boolean; +begin + if Assigned(DataSet) then + Result := DataSet.ControlsDisabled + else + Result := False; +end; + +function TJvDatabaseActionBaseControlEngine.EditModeActive: boolean; +begin + if Assigned(DataSet) then + Result := DataSet.State in [dsInsert, dsEdit] + else + Result := False; +end; + +function TJvDatabaseActionBaseControlEngine.FieldById(const FieldId: Integer): TField; +begin + if Assigned(Dataset) then + Result := Dataset.Fields[FieldId] + else + Result := nil; +end; + +function TJvDatabaseActionBaseControlEngine.FieldByName(const FieldName: string): + TField; +begin + if Assigned(Dataset) then + Result := Dataset.FieldByName(FieldName) + else + Result := nil; +end; + +procedure TJvDatabaseActionBaseControlEngine.FillFieldList(var AFieldList: TStrings; + const AOnlyVisible: Boolean); +var + i: Integer; +begin + AFieldList.Clear; + if Assigned(Dataset) then + begin + for i := 0... [truncated message content] |
From: <ob...@us...> - 2006-06-07 09:46:26
|
Revision: 10653 Author: obones Date: 2006-06-07 02:46:16 -0700 (Wed, 07 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10653&view=rev Log Message: ----------- Mantis 2889: Now takes into account the fact that the SID may not be found Modified Paths: -------------- trunk/jvcl/run/JvNTEventLog.pas trunk/jvcl/run/JvResources.pas Modified: trunk/jvcl/run/JvNTEventLog.pas =================================================================== --- trunk/jvcl/run/JvNTEventLog.pas 2006-06-07 09:40:30 UTC (rev 10652) +++ trunk/jvcl/run/JvNTEventLog.pas 2006-06-07 09:46:16 UTC (rev 10653) @@ -504,14 +504,23 @@ DomainName: array [0..512] of Char; DomainNameLen: Cardinal; Use: SID_NAME_USE; + UserSID: PSID; begin Result := ''; - UserNameLen := SizeOf(UserName); - DomainNameLen := SizeOf(DomainName); - if LookupAccountSID(nil, SID, UserName, UserNameLen, DomainName, DomainNameLen, Use) then - Result := string(DomainName) + '\' + string(UserName); + UserSID := SID; + if Assigned(UserSID) then + begin + UserNameLen := SizeOf(UserName); + DomainNameLen := SizeOf(DomainName); + if LookupAccountSID(nil, UserSID, UserName, UserNameLen, DomainName, DomainNameLen, Use) then + Result := string(DomainName) + '\' + string(UserName); + end + else + begin + Result := RsLogUserSIDNotFound; + end; end; function TJvNTEventLogRecord.GetType: string; @@ -562,7 +571,9 @@ function TJvNTEventLogRecord.GetSID: PSID; begin - Result := PSID(PChar(FCurrentRecord) + PEventLogRecord(FCurrentRecord)^.UserSidOffset); + Result := nil; + if PEventLogRecord(FCurrentRecord)^.UserSidLength > 0 then + Result := PSID(PChar(FCurrentRecord) + PEventLogRecord(FCurrentRecord)^.UserSidOffset); end; function TJvNTEventLogRecord.GetString(Index: Cardinal): string; Modified: trunk/jvcl/run/JvResources.pas =================================================================== --- trunk/jvcl/run/JvResources.pas 2006-06-07 09:40:30 UTC (rev 10652) +++ trunk/jvcl/run/JvResources.pas 2006-06-07 09:46:16 UTC (rev 10653) @@ -1524,6 +1524,7 @@ RsLogInformation = 'Information'; RsLogSuccessAudit = 'Success Audit'; RsLogFailureAudit = 'Failure Audit'; + RsLogUserSIDNotFound = 'User SID not found'; //=== JvObjectPickerDialog.pas =============================================== resourcestring This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2006-06-07 12:11:43
|
Revision: 10655 Author: obones Date: 2006-06-07 05:10:50 -0700 (Wed, 07 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10655&view=rev Log Message: ----------- Mantis 3707: Published Flat and ParentFlat. Modified Paths: -------------- trunk/jvcl/run/JvListBox.pas trunk/jvcl/run/JvMemo.pas trunk/jvcl/run/JvRichEdit.pas Modified: trunk/jvcl/run/JvListBox.pas =================================================================== --- trunk/jvcl/run/JvListBox.pas 2006-06-07 09:51:14 UTC (rev 10654) +++ trunk/jvcl/run/JvListBox.pas 2006-06-07 12:10:50 UTC (rev 10655) @@ -168,6 +168,7 @@ {$ENDIF !CLR} FProviderIsActive: Boolean; FProviderToggle: Boolean; + FMoving: Boolean; procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL; procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL; @@ -195,6 +196,10 @@ procedure SetHotTrack(const Value: Boolean); procedure SetBackground(const Value: TJvListBoxBackground); function GetLimitToClientWidth: Boolean; + function GetFlat: Boolean; + procedure SetFlat(const Value: Boolean); + function GetParentFlat: Boolean; + procedure SetParentFlat(const Value: Boolean); protected procedure FontChanged; override; function GetItemsClass: TJvListBoxStringsClass; virtual; @@ -323,6 +328,8 @@ property DisabledTextColor: TColor read FDisabledTextColor write SetDisabledTextColor default clGrayText; property ShowFocusRect: Boolean read FShowFocusRect write SetShowFocusRect default True; property Background: TJvListBoxBackground read FBackground write SetBackground; + property Flat: Boolean read GetFlat write SetFlat default False; + property ParentFlat: Boolean read GetParentFlat write SetParentFlat default True; end; TJvListBox = class(TJvCustomListBox) @@ -356,6 +363,8 @@ property DisabledTextColor; property ShowFocusRect; property Background; + property Flat; + property ParentFlat; property MultiSelect; property ParentBiDiMode; @@ -1614,11 +1623,21 @@ Result := FDragImage; end; +function TJvCustomListBox.GetFlat: Boolean; +begin + Result := not Ctl3D; +end; + function TJvCustomListBox.GetLimitToClientWidth: Boolean; begin Result := FMultiline and (ScrollBars in [ssNone, ssVertical]); end; +function TJvCustomListBox.GetParentFlat: Boolean; +begin + Result := ParentCtl3D; +end; + procedure TJvCustomListBox.InvertSelection; var I: Integer; @@ -2026,6 +2045,11 @@ end; end; +procedure TJvCustomListBox.SetFlat(const Value: Boolean); +begin + Ctl3D := not Value; +end; + procedure TJvCustomListBox.SetHotTrack(const Value: Boolean); begin if FHotTrack <> Value then @@ -2066,6 +2090,11 @@ end; end; +procedure TJvCustomListBox.SetParentFlat(const Value: Boolean); +begin + ParentCtl3D := Value; +end; + procedure TJvCustomListBox.SetScrollBars(const Value: TScrollStyle); begin if FScrollBars <> Value then Modified: trunk/jvcl/run/JvMemo.pas =================================================================== --- trunk/jvcl/run/JvMemo.pas 2006-06-07 09:51:14 UTC (rev 10654) +++ trunk/jvcl/run/JvMemo.pas 2006-06-07 12:10:50 UTC (rev 10655) @@ -76,6 +76,10 @@ function GetLines: TStrings; procedure SetLines(const Value: TStrings); procedure SetHideCaret(const Value: Boolean); + function GetFlat: Boolean; + function GetParentFlat: Boolean; + procedure SetFlat(const Value: Boolean); + procedure SetParentFlat(const Value: Boolean); protected procedure SetClipboardCommands(const Value: TJvClipboardCommands); override; procedure WMCut(var Msg: TMessage); message WM_CUT; @@ -109,6 +113,8 @@ property HotTrack: Boolean read FHotTrack write SetHotTrack default False; property Lines: TStrings read GetLines write SetLines; property Transparent: Boolean read FTransparent write SetTransparent default False; + property Flat: Boolean read GetFlat write SetFlat default False; + property ParentFlat: Boolean read GetParentFlat write SetParentFlat default True; property OnVerticalScroll: TNotifyEvent read FOnVerticalScroll write FOnVerticalScroll; property OnHorizontalScroll: TNotifyEvent read FOnHorizontalScroll write FOnHorizontalScroll; end; @@ -140,6 +146,7 @@ property DragKind; property DragMode; property Enabled; + property Flat; property Font; property HideSelection; property ImeMode; @@ -149,6 +156,7 @@ property OEMConvert; property ParentBiDiMode; property ParentColor; + property ParentFlat; property ParentFont; property ParentShowHint; property PopupMenu; @@ -288,6 +296,11 @@ Result := Perform(EM_LINEFROMCHAR, -1, 0); end; +function TJvCustomMemo.GetFlat: Boolean; +begin + Result := not Ctl3D; +end; + procedure TJvCustomMemo.KeyPress(var Key: Char); begin { only process if maxlines is set } @@ -335,6 +348,11 @@ end; end; +procedure TJvCustomMemo.SetFlat(const Value: Boolean); +begin + Ctl3D := not Value; +end; + procedure TJvCustomMemo.SetTransparent(Value: Boolean); begin if Value <> FTransparent then @@ -378,11 +396,21 @@ end; end; +procedure TJvCustomMemo.SetParentFlat(const Value: Boolean); +begin + ParentCtl3D := Value; +end; + function TJvCustomMemo.GetLines: TStrings; begin Result := inherited Lines; end; +function TJvCustomMemo.GetParentFlat: Boolean; +begin + Result := ParentCtl3D; +end; + procedure TJvCustomMemo.SetLines(const Value: TStrings); begin inherited SetLines(Value); Modified: trunk/jvcl/run/JvRichEdit.pas =================================================================== --- trunk/jvcl/run/JvRichEdit.pas 2006-06-07 09:51:14 UTC (rev 10654) +++ trunk/jvcl/run/JvRichEdit.pas 2006-06-07 12:10:50 UTC (rev 10655) @@ -621,6 +621,10 @@ // From JvRichEdit.pas by S\xE9bastien Buysse procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL; procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL; + function GetFlat: Boolean; + procedure SetFlat(const Value: Boolean); + function GetParentFlat: Boolean; + procedure SetParentFlat(const Value: Boolean); protected procedure ColorChanged; override; procedure FontChanged; override; @@ -696,6 +700,8 @@ // from CCR property OnInPlaceActivate: TNotifyEvent read FOnInPlaceActivate write FOnInPlaceActivate; property OnInPlaceDeactivate: TNotifyEvent read FOnInPlaceDeactivate write FOnInPlaceDeactivate; + property Flat: Boolean read GetFlat write SetFlat default False; + property ParentFlat: Boolean read GetParentFlat write SetParentFlat default True; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -779,6 +785,7 @@ property DragCursor; property DragMode; property Enabled; + property Flat; property Font; property ForceUndo; property HideSelection; @@ -794,6 +801,7 @@ property MaxLength; property OLEDragDrop; property ParentColor; + property ParentFlat; property ParentFont; property ParentShowHint; property PlainText; @@ -2936,6 +2944,11 @@ Result.Init(GetParentWindow(Self)); end; +function TJvCustomRichEdit.GetFlat: Boolean; +begin + Result := not Ctl3D; +end; + function TJvCustomRichEdit.GetConverter(const AFileName: string; const Kind: TJvConversionKind): TJvConversion; begin @@ -2979,6 +2992,11 @@ Result := SendMessage(Handle, EM_LINELENGTH, CharIndex, 0); end; +function TJvCustomRichEdit.GetParentFlat: Boolean; +begin + Result := ParentCtl3D; +end; + function TJvCustomRichEdit.GetPopupMenu: TPopupMenu; var EnumOleVerb: IEnumOleVerb; @@ -3884,6 +3902,11 @@ FDefAttributes.Assign(Value); end; +procedure TJvCustomRichEdit.SetFlat(const Value: Boolean); +begin + Ctl3D := not Value; +end; + procedure TJvCustomRichEdit.SetHideScrollBars(Value: Boolean); begin if HideScrollBars <> Value then @@ -3927,6 +3950,11 @@ end; end; +procedure TJvCustomRichEdit.SetParentFlat(const Value: Boolean); +begin + ParentCtl3D := Value; +end; + procedure TJvCustomRichEdit.SetPlainText(Value: Boolean); var MemStream: TStream; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2006-06-08 02:43:47
|
Revision: 10656 Author: ahuser Date: 2006-06-07 09:47:08 -0700 (Wed, 07 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10656&view=rev Log Message: ----------- JvDatePickerEdit: Fixed bug with 01.01.1899 JvDBGrid: AlwaysShowEditor emulation Modified Paths: -------------- trunk/jvcl/run/JvDBGrid.pas trunk/jvcl/run/JvDatePickerEdit.pas Modified: trunk/jvcl/run/JvDBGrid.pas =================================================================== --- trunk/jvcl/run/JvDBGrid.pas 2006-06-07 12:10:50 UTC (rev 10655) +++ trunk/jvcl/run/JvDBGrid.pas 2006-06-07 16:47:08 UTC (rev 10656) @@ -42,9 +42,6 @@ KNOWN ISSUES: -- THE AlwaysShowEditor OPTION IS NOT COMPATIBLE WITH THE CUSTOM INPLACE EDIT CONTROLS - Custom inplace edit controls are deactivated when this option is set to True. - - THE ColLines OPTION DOES NOT WORK WELL WITH HIDDEN COLUMNS - BUG SOURCE: DBGRID.PAS If a column is followed by hidden columns and ColLines is set to False, the display size of the column is smaller than its width. This is easy to notice when you give the focus @@ -255,6 +252,7 @@ FChangeLinks: TObjectList; FShowMemos: Boolean; + FAlwaysShowEditor: Boolean; procedure SetAutoSizeRows(Value: Boolean); procedure SetRowResize(Value: Boolean); @@ -531,6 +529,8 @@ TGridPicture = (gpBlob, gpMemo, gpPicture, gpOle, gpObject, gpData, gpNotEmpty, gpMarkDown, gpMarkUp, gpChecked, gpUnChecked, gpPopup); + TOpenCustomEdit = class(TCustomEdit); + const GridBmpNames: array [TGridPicture] of PChar = ('JvDBGridBLOB', 'JvDBGridMEMO', 'JvDBGridPICT', 'JvDBGridOLE', 'JvDBGridOBJECT', @@ -875,11 +875,13 @@ begin inherited Create(AOwner); inherited DefaultDrawing := False; + FAlwaysShowEditor := dgAlwaysShowEditor in inherited Options; + inherited Options := inherited Options - [dgAlwaysShowEditor]; // (obones): issue 3026: need to create FChangeLinks at the beginning // so that any change can access the object. It seems that on some // foreign systems, the assignment to the Options property triggers - // NotifyLayoutChange, so it needs the FChangeLinks object + // NotifyLayoutChange, so it needs the FChangeLinks object FChangeLinks := TObjectList.Create(False); FAutoSort := True; @@ -912,7 +914,7 @@ FAutoSizeColumnIndex := JvGridResizeProportionally; FSelectColumnsDialogStrings := TJvSelectDialogColumnStrings.Create; // Note to users: the second line may not compile on non western european - // systems, in which case you should simply remove it and recompile. + // systems, in which case you should simply remove it and recompile. FCharList := ['A'..'Z', 'a'..'z', ' ', '-', '+', '0'..'9', '.', ',', Backspace, '\xE9', '\xE8', '\xEA', '\xEB', '\xF4', '\xFB', '\xF9', '\xE2', '\xE0', '\xEE', '\xEF', '\xE7']; @@ -941,7 +943,7 @@ FSelectColumnsDialogStrings.Free; FChangeLinks.Free; - + inherited Destroy; end; @@ -1499,13 +1501,22 @@ Result := Result + [dgMultiSelect] else Result := Result - [dgMultiSelect]; + + if FAlwaysShowEditor then + Result := Result + [dgAlwaysShowEditor] + else + Result := Result - [dgAlwaysShowEditor]; end; procedure TJvDBGrid.SetOptions(Value: TDBGridOptions); var NewOptions: TGridOptions; begin - inherited Options := Value - [dgMultiSelect]; + { The AlwaysShowEditor option is not compatible with the custom inplace edit + controls. But if the EditorMode is set to True in ColEnter() it emulates the + AlwaysShowEditor option. } + inherited Options := Value - [dgMultiSelect, dgAlwaysShowEditor]; + FAlwaysShowEditor := dgAlwaysShowEditor in Value; NewOptions := TDrawGrid(Self).Options; { if FTitleButtons then @@ -1576,7 +1587,8 @@ if FAcquireFocus and CanFocus and not (csDesigning in ComponentState) then begin SetFocus; - Result := Focused or (InplaceEditor <> nil) and InplaceEditor.Focused; + Result := Focused or ((InplaceEditor <> nil) and InplaceEditor.Focused) or + ((FCurrentControl <> nil) and FCurrentControl.Focused); end; end; @@ -1584,7 +1596,7 @@ function UseDefaultEditor: Boolean; const - ude_DEFAULT_EDITOR = 0; + ude_DEFAULT_EDITOR = 0; ude_BOOLEAN_EDITOR = 1; ude_CUSTOM_EDITOR = 2; var @@ -1603,7 +1615,7 @@ // Is there an editor for the selected field ? F := SelectedField; Control := FControls.ControlByField(F.FieldName); - if Assigned(Control) and not (dgAlwaysShowEditor in Options) then + if Assigned(Control) and not (dgAlwaysShowEditor in inherited Options) then Editor := ude_CUSTOM_EDITOR else if EditWithBoolBox(F) then @@ -1678,7 +1690,7 @@ end; begin - if (dgAlwaysShowEditor in Options) and not EditorMode then + if (dgAlwaysShowEditor in inherited Options) and not EditorMode then EditorMode := True; Result := False; if (inherited CanEditShow) and Assigned(SelectedField) @@ -1984,145 +1996,150 @@ DblClick; Exit; end; - if Sizing(X, Y) then - inherited MouseDown(Button, Shift, X, Y) - else - begin - Cell := MouseCoord(X, Y); - - if (Button = mbRight) and FTitleArrow and - (dgTitles in Options) and (dgIndicator in Options) and - (Cell.X = 0) and (Cell.Y = 0) then + FAcquireFocus := False; + try + if Sizing(X, Y) then + inherited MouseDown(Button, Shift, X, Y) + else begin - if Assigned(FOnTitleArrowMenuEvent) then - FOnTitleArrowMenuEvent(Self); + Cell := MouseCoord(X, Y); - // Display TitlePopup if it exists - if Assigned(FTitlePopup) then + if (Button = mbRight) and FTitleArrow and + (dgTitles in Options) and (dgIndicator in Options) and + (Cell.X = 0) and (Cell.Y = 0) then begin - GetCursorPos(CursorPos); - FTitlePopup.PopupComponent := Self; - FTitlePopup.Popup(CursorPos.X, CursorPos.Y); + if Assigned(FOnTitleArrowMenuEvent) then + FOnTitleArrowMenuEvent(Self); + + // Display TitlePopup if it exists + if Assigned(FTitlePopup) then + begin + GetCursorPos(CursorPos); + FTitlePopup.PopupComponent := Self; + FTitlePopup.Popup(CursorPos.X, CursorPos.Y); + end; + Exit; end; - Exit; - end; - if (DragKind = dkDock) and (Cell.X < IndicatorOffset) and - (Cell.Y < TitleOffset) and (not (csDesigning in ComponentState)) then - begin - BeginDrag(False); - Exit; - end; - if FTitleButtons and (DataLink <> nil) and DataLink.Active and - (Cell.Y < TitleOffset) and (Cell.X >= IndicatorOffset) and - not (csDesigning in ComponentState) then - begin - if ((dgColumnResize in Options) or (csDesigning in ComponentState)) and (Button = mbRight) then + if (DragKind = dkDock) and (Cell.X < IndicatorOffset) and + (Cell.Y < TitleOffset) and (not (csDesigning in ComponentState)) then begin - Button := mbLeft; - FSwapButtons := True; - MouseCapture := True; - end - else - if Button = mbLeft then + BeginDrag(False); + Exit; + end; + if FTitleButtons and (DataLink <> nil) and DataLink.Active and + (Cell.Y < TitleOffset) and (Cell.X >= IndicatorOffset) and + not (csDesigning in ComponentState) then begin - EnableClick := True; - CheckTitleButton(Cell.X - IndicatorOffset, Cell.Y, EnableClick); - if EnableClick then + if ((dgColumnResize in Options) or (csDesigning in ComponentState)) and (Button = mbRight) then begin + Button := mbLeft; + FSwapButtons := True; MouseCapture := True; - FTracking := True; - FPressedCol := GetMasterColumn(Cell.X, Cell.Y); - TrackButton(X, Y); end else - if FBeepOnError then - SysUtils.Beep; - Exit; + if Button = mbLeft then + begin + EnableClick := True; + CheckTitleButton(Cell.X - IndicatorOffset, Cell.Y, EnableClick); + if EnableClick then + begin + MouseCapture := True; + FTracking := True; + FPressedCol := GetMasterColumn(Cell.X, Cell.Y); + TrackButton(X, Y); + end + else + if FBeepOnError then + SysUtils.Beep; + Exit; + end; end; - end; - if (Cell.X < FixedCols + IndicatorOffset) and DataLink.Active then - begin - if dgIndicator in Options then - inherited MouseDown(Button, Shift, 1, Y) + if (Cell.X < FixedCols + IndicatorOffset) and DataLink.Active then + begin + if dgIndicator in Options then + inherited MouseDown(Button, Shift, 1, Y) + else + if Cell.Y >= TitleOffset then + if Cell.Y - Row <> 0 then + DataLink.DataSet.MoveBy(Cell.Y - Row); + end else - if Cell.Y >= TitleOffset then - if Cell.Y - Row <> 0 then - DataLink.DataSet.MoveBy(Cell.Y - Row); - end - else - begin - //------------------------------------------------------------------------------- - // Prevents the grid from going back to the first column when dgRowSelect is True - // Does not work if there's no indicator column - //------------------------------------------------------------------------------- - if (dgRowSelect in Options) and (Cell.Y >= TitleOffset) then - inherited MouseDown(Button, Shift, 1, Y) - else - inherited MouseDown(Button, Shift, X, Y); - end; - MouseDownEvent := OnMouseDown; - if Assigned(MouseDownEvent) then - MouseDownEvent(Self, Button, Shift, X, Y); - if not (((csDesigning in ComponentState) or (dgColumnResize in Options)) and - (Cell.Y < TitleOffset)) and (Button = mbLeft) then - begin - if MultiSelect and DataLink.Active then - with SelectedRows do - begin - FSelecting := False; - if Shift * KeyboardShiftStates = [ssCtrl] then - CurrentRowSelected := not CurrentRowSelected - else + begin + //------------------------------------------------------------------------------- + // Prevents the grid from going back to the first column when dgRowSelect is True + // Does not work if there's no indicator column + //------------------------------------------------------------------------------- + if (dgRowSelect in Options) and (Cell.Y >= TitleOffset) then + inherited MouseDown(Button, Shift, 1, Y) + else + inherited MouseDown(Button, Shift, X, Y); + end; + MouseDownEvent := OnMouseDown; + if Assigned(MouseDownEvent) then + MouseDownEvent(Self, Button, Shift, X, Y); + if not (((csDesigning in ComponentState) or (dgColumnResize in Options)) and + (Cell.Y < TitleOffset)) and (Button = mbLeft) then + begin + if MultiSelect and DataLink.Active then + with SelectedRows do begin - if (Shift * KeyboardShiftStates = [ssShift]) and (Count > 0) then + FSelecting := False; + if Shift * KeyboardShiftStates = [ssCtrl] then + CurrentRowSelected := not CurrentRowSelected + else begin - lLastSelected := Items[Count - 1]; - CurrentRowSelected := not CurrentRowSelected; - if CurrentRowSelected then + if (Shift * KeyboardShiftStates = [ssShift]) and (Count > 0) then begin - with DataLink.DataSet do + lLastSelected := Items[Count - 1]; + CurrentRowSelected := not CurrentRowSelected; + if CurrentRowSelected then begin - DisableControls; - try - lNewSelected := Bookmark; - lCompare := CompareBookmarks(Pointer(lNewSelected), Pointer(lLastSelected)); - if lCompare > 0 then - begin - GotoBookmark(Pointer(lLastSelected)); - Next; - while not (CurrentRowSelected and (Bookmark = lNewSelected)) do + with DataLink.DataSet do + begin + DisableControls; + try + lNewSelected := Bookmark; + lCompare := CompareBookmarks(Pointer(lNewSelected), Pointer(lLastSelected)); + if lCompare > 0 then begin - CurrentRowSelected := True; + GotoBookmark(Pointer(lLastSelected)); Next; - end; - end - else - if lCompare < 0 then - begin - GotoBookmark(Pointer(lLastSelected)); - Prior; - while not (CurrentRowSelected and (Bookmark = lNewSelected)) do + while not (CurrentRowSelected and (Bookmark = lNewSelected)) do + begin + CurrentRowSelected := True; + Next; + end; + end + else + if lCompare < 0 then begin - CurrentRowSelected := True; + GotoBookmark(Pointer(lLastSelected)); Prior; + while not (CurrentRowSelected and (Bookmark = lNewSelected)) do + begin + CurrentRowSelected := True; + Prior; + end; end; + finally + EnableControls; end; - finally - EnableControls; end; end; + end + else + begin + Clear; + if FClearSelection then + CurrentRowSelected := True; end; - end - else - begin - Clear; - if FClearSelection then - CurrentRowSelected := True; end; end; - end; + end; end; + finally + FAcquireFocus := True; end; end; @@ -3161,6 +3178,8 @@ procedure TJvDBGrid.ColEnter; begin FWord := ''; + if FAlwaysShowEditor and not EditorMode then + EditorMode := True; inherited ColEnter; end; @@ -3734,6 +3753,7 @@ if Control.Parent <> Self.Parent then Control.Parent := Self.Parent; + GridControl := nil; R := CellRect(ACol, ARow); if ((R.Right - R.Left) < 1) or ((R.Bottom - R.Top) < 1) then // Cell too small to be drawn -> the control is not drawn @@ -3744,6 +3764,16 @@ R.TopLeft := TControl(Control.Parent).ScreenToClient(R.TopLeft); R.BottomRight := ClientToScreen(R.BottomRight); R.BottomRight := TControl(Control.Parent).ScreenToClient(R.BottomRight); + if Control is TCustomEdit then + begin + { The edit control's text is not painted at good position when the control + has no border } + if TOpenCustomEdit(Control).BorderStyle = bsNone then + begin + Inc(R.Left, 2); + Inc(R.Top, 2); + end; + end; ClientTopLeft := TControl(Control.Parent).ScreenToClient(Self.ClientOrigin); GridControl := FControls.ControlByName(Control.Name); if GridControl.FitCell in [fcDesignSize, fcBiggest] then @@ -3789,6 +3819,10 @@ end; Control.BringToFront; Control.Show; + if Assigned(GridControl) and not (GridControl.FitCell in [fcDesignSize, fcBiggest]) then + { If the Control is shown for the first time, the bounds are not correct. + Esp. "Height" is too large } + Control.BoundsRect := R; if Self.Visible and Control.Visible and Self.Parent.Visible and GetParentForm(Self).Visible then begin Modified: trunk/jvcl/run/JvDatePickerEdit.pas =================================================================== --- trunk/jvcl/run/JvDatePickerEdit.pas 2006-06-07 12:10:50 UTC (rev 10655) +++ trunk/jvcl/run/JvDatePickerEdit.pas 2006-06-07 16:47:08 UTC (rev 10656) @@ -430,7 +430,12 @@ if (ARaise) then raise else - ADate := OldDate; + begin + if AText = '' then + ADate := Now + else + ADate := OldDate; + end; end; finally SysUtils.DateSeparator := OldSeparator; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2006-06-09 10:06:28
|
Revision: 10682 Author: obones Date: 2006-06-09 03:06:20 -0700 (Fri, 09 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10682&view=rev Log Message: ----------- Mantis 3720: Now takes Steps into account correctly Modified Paths: -------------- trunk/jvcl/run/JvProgressBar.pas trunk/jvcl/run/JvXPProgressBar.pas Modified: trunk/jvcl/run/JvProgressBar.pas =================================================================== --- trunk/jvcl/run/JvProgressBar.pas 2006-06-09 09:30:02 UTC (rev 10681) +++ trunk/jvcl/run/JvProgressBar.pas 2006-06-09 10:06:20 UTC (rev 10682) @@ -221,8 +221,6 @@ Exit; // calculate the size of the bar based on Min, Max, Position and Width or Height APos := Position; - if not Smooth then - APos := APos - APos mod Steps; ASize := MulDiv(GetMaxBarSize, (APos - Min), (Max - Min)); DrawBar(Canvas, ASize); end; Modified: trunk/jvcl/run/JvXPProgressBar.pas =================================================================== --- trunk/jvcl/run/JvXPProgressBar.pas 2006-06-09 09:30:02 UTC (rev 10681) +++ trunk/jvcl/run/JvXPProgressBar.pas 2006-06-09 10:06:20 UTC (rev 10682) @@ -173,6 +173,7 @@ R: TRect; Bmp: TBitmap; AColor: TColor; + LBlockSize: Integer; begin if Parent <> nil then AColor := TWinControlAccessProtected(Parent).Color @@ -246,20 +247,21 @@ DrawLine(Bmp.Canvas, 3, Y - 1, Width - 3, Y - 1, cColor3); // draw the blocks + LBlockSize := BlockSize - 3; if Orientation = pbHorizontal then begin if Smooth then begin R.Right := R.Left + BarSize; InflateRect(R, -1, -1); - if R.Right > Width - 2 then - R.Right := Width - 2; + if R.Right > Width - 3 then + R.Right := Width - 3; if R.Right > R.Left then DrawBlock(Bmp.Canvas, R); end else begin - R := Rect(2, 2, Steps + 1, Height - 4); + R := Rect(2, 2, LBlockSize + 1, Height - 4); OffsetRect(R, 2, 1); while BarSize > 2 do begin @@ -267,8 +269,8 @@ R.Right := Width - 3; if R.Right - R.Left > 0 then DrawBlock(Bmp.Canvas, R); - OffsetRect(R, Steps + 1, 0); - Dec(BarSize, Steps + 1); + OffsetRect(R, LBlockSize + 1, 0); + Dec(BarSize, LBlockSize + 1); end; end; end @@ -277,27 +279,27 @@ if Smooth then begin R.Top := R.Bottom - BarSize; - if R.Top < 2 then - R.Top := 2; + if R.Top < 3 then + R.Top := 3; InflateRect(R, -1, -1); DrawBlock(Bmp.Canvas, R); end else begin - R := Rect(2, 2, Width - 4, Steps + 1); + R := Rect(2, 2, Width - 4, LBlockSize + 1); OffsetRect(R, 1, 0); - OffsetRect(R, 0, Height - Steps - 4); + OffsetRect(R, 0, Height - LBlockSize - 4); while BarSize > 2 do begin if R.Top < 3 then R.Top := 3; if R.Bottom - R.Top > 0 then DrawBlock(Bmp.Canvas, R); - OffsetRect(R, 0, -Steps - 1); - Dec(BarSize, Steps + 1); + OffsetRect(R, 0, -LBlockSize - 1); + Dec(BarSize, LBlockSize + 1); end; - end; - end; + end; + end; ACanvas.Brush.Color := AColor; with ACanvas do BrushCopy({$IFDEF VisualCLX} ACanvas, {$ENDIF} ClientRect, Bmp, ClientRect, clFuchsia); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2006-06-09 13:55:40
|
Revision: 10690 Author: obones Date: 2006-06-09 06:55:24 -0700 (Fri, 09 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10690&view=rev Log Message: ----------- Mantis 3480: OnError added and called from within Flush. Modified Paths: -------------- trunk/jvcl/run/JvAppIniStorage.pas trunk/jvcl/run/JvAppStorage.pas trunk/jvcl/run/JvAppXMLStorage.pas Modified: trunk/jvcl/run/JvAppIniStorage.pas =================================================================== --- trunk/jvcl/run/JvAppIniStorage.pas 2006-06-09 13:38:54 UTC (rev 10689) +++ trunk/jvcl/run/JvAppIniStorage.pas 2006-06-09 13:55:24 UTC (rev 10690) @@ -731,11 +731,16 @@ begin if (FullFileName <> '') and not ReadOnly and not (csDesigning in ComponentState) then begin - Path := ExtractFilePath(IniFile.FileName); - if Path <> '' then - ForceDirectories(Path); - IniFile.Rename(FullFileName, False); - IniFile.UpdateFile; + try + Path := ExtractFilePath(IniFile.FileName); + if Path <> '' then + ForceDirectories(Path); + IniFile.Rename(FullFileName, False); + IniFile.UpdateFile; + except + on E: Exception do + DoError(E.Message); + end; end; end; Modified: trunk/jvcl/run/JvAppStorage.pas =================================================================== --- trunk/jvcl/run/JvAppStorage.pas 2006-06-09 13:38:54 UTC (rev 10689) +++ trunk/jvcl/run/JvAppStorage.pas 2006-06-09 13:55:24 UTC (rev 10690) @@ -141,6 +141,7 @@ var FileName: TFileName) of object; TJvAppStorageObjectListItemCreateEvent = function(Sender: TJvCustomAppStorage; const Path: string; Index: Integer): TPersistent of object; + TJvAppStorageErrorEvent = procedure(Sender: TObject; const Value: string) of object; TJvAppStorageOptionsClass = class of TJvCustomAppStorageOptions; @@ -177,6 +178,7 @@ FAutoReload: Boolean; FCurrentInstanceCreateEvent: TJvAppStorageObjectListItemCreateEvent; FReadOnly: Boolean; + FOnError: TJvAppStorageErrorEvent; function GetUpdating: Boolean; protected FFlushOnDestroy: Boolean; @@ -388,6 +390,7 @@ property SubStorages: TJvAppSubStorages read FSubStorages write SetSubStorages; procedure Loaded; override; + procedure DoError(const msg: string); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -607,6 +610,9 @@ write FOnEncryptPropertyValue; property OnDecryptPropertyValue: TJvAppStorageCryptEvent read FOnDecryptPropertyValue write FOnDecryptPropertyValue; + + // called when an error occured in one of the methods. + property OnError: TJvAppStorageErrorEvent read FOnError write FOnError; end; { Generic store that can only be used to combine various other storages (only storages in the @@ -1564,6 +1570,12 @@ DoWriteFloat(Path, Value); end; +procedure TJvCustomAppStorage.DoError(const msg: string); +begin + if Assigned(OnError) then + OnError(Self, msg); +end; + function TJvCustomAppStorage.DoReadBoolean(const Path: string; Default: Boolean): Boolean; begin Result := DoReadInteger(Path, Ord(Default)) <> Ord(False); Modified: trunk/jvcl/run/JvAppXMLStorage.pas =================================================================== --- trunk/jvcl/run/JvAppXMLStorage.pas 2006-06-09 13:38:54 UTC (rev 10689) +++ trunk/jvcl/run/JvAppXMLStorage.pas 2006-06-09 13:55:24 UTC (rev 10690) @@ -911,10 +911,15 @@ begin if (FullFileName <> '') and not ReadOnly and not (csDesigning in ComponentState) then begin - Path := ExtractFilePath(FullFileName); - if Path <> '' then - ForceDirectories(Path); - Xml.SaveToFile(FullFileName); + try + Path := ExtractFilePath(FullFileName); + if Path <> '' then + ForceDirectories(Path); + Xml.SaveToFile(FullFileName); + except + on E: Exception do + DoError(E.Message); + end; end; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2006-06-10 11:48:38
|
Revision: 10698 Author: obones Date: 2006-06-10 04:48:31 -0700 (Sat, 10 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10698&view=rev Log Message: ----------- Mantis 3750: Now has BeginUpdate and EndUpdate in IJvErrorIndicator to allow calling them in TJvValidators.Validate Modified Paths: -------------- trunk/jvcl/run/JvErrorIndicator.pas trunk/jvcl/run/JvValidators.pas Modified: trunk/jvcl/run/JvErrorIndicator.pas =================================================================== --- trunk/jvcl/run/JvErrorIndicator.pas 2006-06-10 11:44:11 UTC (rev 10697) +++ trunk/jvcl/run/JvErrorIndicator.pas 2006-06-10 11:48:31 UTC (rev 10698) @@ -53,6 +53,8 @@ // IJvErrorIndicator is implemented by the TJvErrorIndicator IJvErrorIndicator = interface ['{5BCB5404-9C17-4CC6-96EC-46567CA19A12}'] + procedure BeginUpdate; + procedure EndUpdate; procedure SetError(AControl: TControl; const AErrorMessage: WideString); procedure SetClientError(const AClient: IJvErrorIndicatorClient); end; Modified: trunk/jvcl/run/JvValidators.pas =================================================================== --- trunk/jvcl/run/JvValidators.pas 2006-06-10 11:44:11 UTC (rev 10697) +++ trunk/jvcl/run/JvValidators.pas 2006-06-10 11:48:31 UTC (rev 10698) @@ -691,6 +691,8 @@ FValidationSummary.BeginUpdate; try Controls := TList.Create; + if FErrorIndicator <> nil then + FErrorIndicator.BeginUpdate; try { Get all controls that should be validated } if FErrorIndicator <> nil then @@ -726,6 +728,7 @@ for I := 0 to Controls.Count - 1 do FErrorIndicator.SetError(Controls[I], ''); // clear error indicator finally + FErrorIndicator.EndUpdate; Controls.Free; end; finally This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2006-06-10 17:50:12
|
Revision: 10699 Author: obones Date: 2006-06-10 10:49:41 -0700 (Sat, 10 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10699&view=rev Log Message: ----------- Mantis 1869: Added missing BevelXXX/AutoSize/ButtonFlat properties. Modified Paths: -------------- trunk/jvcl/run/JvBaseEdits.pas trunk/jvcl/run/JvCheckedMaskEdit.pas trunk/jvcl/run/JvComCtrls.pas trunk/jvcl/run/JvDBCombobox.pas trunk/jvcl/run/JvDBControls.pas trunk/jvcl/run/JvDBFindEdit.pas trunk/jvcl/run/JvDBGrid.pas trunk/jvcl/run/JvDBImage.pas trunk/jvcl/run/JvDBLookup.pas trunk/jvcl/run/JvDBLookupComboEdit.pas trunk/jvcl/run/JvDBLookupTreeView.pas trunk/jvcl/run/JvDBRichEdit.pas trunk/jvcl/run/JvDBSearchComboBox.pas trunk/jvcl/run/JvDBTreeView.pas trunk/jvcl/run/JvDatePickerEdit.pas trunk/jvcl/run/JvDateTimePicker.pas trunk/jvcl/run/JvHotKey.pas trunk/jvcl/run/JvMaskEdit.pas trunk/jvcl/run/JvMemo.pas trunk/jvcl/run/JvRichEdit.pas trunk/jvcl/run/JvToolEdit.pas trunk/jvcl/run/JvValidateEdit.pas Modified: trunk/jvcl/run/JvBaseEdits.pas =================================================================== --- trunk/jvcl/run/JvBaseEdits.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvBaseEdits.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -225,6 +225,12 @@ TJvCalcEdit = class(TJvCustomCalcEdit) published {$IFDEF VCL} + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BiDiMode; property DragCursor; property DragKind; Modified: trunk/jvcl/run/JvCheckedMaskEdit.pas =================================================================== --- trunk/jvcl/run/JvCheckedMaskEdit.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvCheckedMaskEdit.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -94,6 +94,12 @@ property Anchors; property AutoSelect; property AutoSize; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BorderStyle; property ButtonFlat; property ButtonHint; Modified: trunk/jvcl/run/JvComCtrls.pas =================================================================== --- trunk/jvcl/run/JvComCtrls.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvComCtrls.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -205,9 +205,16 @@ property Address: LongWord read FAddress write SetAddress default 0; property AddressValues: TJvIPAddressValues read FAddressValues write SetAddressValues; property Anchors; + property AutoSize; property Color; property Constraints; {$IFDEF VCL} + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property DragCursor; property DragKind; property OnStartDock; Modified: trunk/jvcl/run/JvDBCombobox.pas =================================================================== --- trunk/jvcl/run/JvDBCombobox.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDBCombobox.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -124,9 +124,16 @@ destructor Destroy; override; published property Align; // Polaris + property AutoSize; property Style { must be published before Items } default csDropDownList; // Polaris property BeepOnError; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property Color; property DataField; property DataSource; Modified: trunk/jvcl/run/JvDBControls.pas =================================================================== --- trunk/jvcl/run/JvDBControls.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDBControls.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -233,8 +233,16 @@ property Align; property Action; property AutoSelect; + property AutoSize; property BeepOnError; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BorderStyle; + property ButtonFlat; property ButtonHint; property CharCase; property ClickKey; @@ -345,14 +353,13 @@ property Field: TField read GetField; property Canvas: TCanvas read GetCanvas; published - // Polaris property AlwaysShowPopup default False; property DateAutoBetween; property MinDate; property MaxDate; property Align; - // Polaris property Action; + property AutoSize; property BeepOnError; property DataField: string read GetDataField write SetDataField; property DataSource: TDataSource read GetDataSource write SetDataSource; @@ -371,6 +378,12 @@ property DirectInput; {$IFDEF VCL} property DragCursor; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BiDiMode; property DragKind; property Flat; @@ -495,6 +508,7 @@ property DecimalPlaceRound; property Action; + property AutoSize; property DataField: string read GetDataField write SetDataField; property DataSource: TDataSource read GetDataSource write SetDataSource; property DefaultParams: Boolean read FDefaultParams write SetDefaultParams default False; @@ -504,6 +518,7 @@ property BeepOnError; property BorderStyle; property ButtonHint; + property ButtonFlat; property CheckOnExit; property ClickKey; property Color; @@ -521,6 +536,12 @@ property ButtonWidth; property HideSelection; property Anchors; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BiDiMode; property Constraints; property DragKind; Modified: trunk/jvcl/run/JvDBFindEdit.pas =================================================================== --- trunk/jvcl/run/JvDBFindEdit.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDBFindEdit.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -35,7 +35,7 @@ {$IFDEF UNITVERSIONING} JclUnitVersioning, {$ENDIF UNITVERSIONING} - Windows, Classes, ExtCtrls, DB, DBCtrls, + Windows, Classes, Controls, ExtCtrls, DB, DBCtrls, JvMaskEdit; type @@ -90,6 +90,12 @@ property DragCursor; property Enabled; {$IFDEF VCL} + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property Flat; property ParentFlat; {$ENDIF VCL} Modified: trunk/jvcl/run/JvDBGrid.pas =================================================================== --- trunk/jvcl/run/JvDBGrid.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDBGrid.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -441,6 +441,10 @@ property OnGetBtnParams: TGetBtnParamsEvent read FOnGetBtnParams write FOnGetBtnParams; {$IFDEF COMPILER6_UP} property OnEditChange: TNotifyEvent read FOnEditChange write FOnEditChange; + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; {$ENDIF COMPILER6_UP} property OnShowEditor: TJvDBEditShowEvent read FOnShowEditor write FOnShowEditor; property OnTitleBtnClick: TTitleClickEvent read FOnTitleBtnClick write FOnTitleBtnClick; Modified: trunk/jvcl/run/JvDBImage.pas =================================================================== --- trunk/jvcl/run/JvDBImage.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDBImage.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -142,6 +142,12 @@ published property AutoSize; property AutoDisplay: Boolean read FAutoDisplay write SetAutoDisplay default True; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property Proportional: Boolean read FProportional write SetProportional default False; property Transparent: Boolean read FTransparent write SetTransparent default False; Modified: trunk/jvcl/run/JvDBLookup.pas =================================================================== --- trunk/jvcl/run/JvDBLookup.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDBLookup.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -272,6 +272,7 @@ published property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle; property Align; + property AutoSize; property Color; property DataField; property DataSource; @@ -286,6 +287,12 @@ property Font; property IgnoreCase; property Anchors; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BiDiMode; property Constraints; property DragKind; @@ -565,6 +572,7 @@ property PopupOnlyLocate: Boolean read FPopupOnlyLocate write FPopupOnlyLocate default True; property Alignment; property AutoSelect; + property AutoSize; property BorderStyle; property ButtonHint; property CharCase; @@ -577,6 +585,12 @@ property Enabled; property Font; {$IFDEF VCL} + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property Flat; property ParentFlat; {$ENDIF VCL} Modified: trunk/jvcl/run/JvDBLookupComboEdit.pas =================================================================== --- trunk/jvcl/run/JvDBLookupComboEdit.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDBLookupComboEdit.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -107,6 +107,12 @@ property AutoSelect; property AutoSize; property BeepOnError: Boolean read FBeepOnError write FBeepOnError default True; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BiDiMode; property BorderStyle; property CharCase; Modified: trunk/jvcl/run/JvDBLookupTreeView.pas =================================================================== --- trunk/jvcl/run/JvDBLookupTreeView.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDBLookupTreeView.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -220,6 +220,7 @@ property ListVisible: Boolean read FListVisible; property Text: string read FText; published + property AutoSize; property Color; property DataField; property DataSource; @@ -271,6 +272,12 @@ property ImeMode; property ImeName; property Anchors; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BiDiMode; property BorderWidth; property Constraints; @@ -367,6 +374,12 @@ destructor Destroy; override; published property Align; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle; property Color; property DataField; @@ -453,6 +466,9 @@ {$IFDEF COMPILER6_UP} VDBConsts, {$ENDIF COMPILER6_UP} + {$IFDEF COMPILER10_UP} + Types, // to allow inline expansion + {$ENDIF COMPILER10_UP} CommCtrl, Graphics, DBConsts, JvThemes; Modified: trunk/jvcl/run/JvDBRichEdit.pas =================================================================== --- trunk/jvcl/run/JvDBRichEdit.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDBRichEdit.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -97,6 +97,12 @@ property AutoAdvancedTypography; property AutoURLDetect; property AutoVerbMenu; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BorderStyle; property Color; property DragCursor; Modified: trunk/jvcl/run/JvDBSearchComboBox.pas =================================================================== --- trunk/jvcl/run/JvDBSearchComboBox.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDBSearchComboBox.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -96,6 +96,7 @@ property Align; property Anchors; property AutoComplete default True; + property AutoSize; {$IFDEF COMPILER6_UP} property AutoDropDown default False; property BevelEdges; Modified: trunk/jvcl/run/JvDBTreeView.pas =================================================================== --- trunk/jvcl/run/JvDBTreeView.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDBTreeView.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -192,6 +192,12 @@ TJvDBTreeView = class(TJvCustomDBTreeView) published + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property DataSource; property MasterField; property DetailField; Modified: trunk/jvcl/run/JvDatePickerEdit.pas =================================================================== --- trunk/jvcl/run/JvDatePickerEdit.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDatePickerEdit.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -245,6 +245,12 @@ {$IFDEF VCL} {property BiDiMode;} {property ParentBiDiMode;} + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property Flat; property ImeMode; property ImeName; Modified: trunk/jvcl/run/JvDateTimePicker.pas =================================================================== --- trunk/jvcl/run/JvDateTimePicker.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvDateTimePicker.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -79,6 +79,7 @@ public constructor Create(AOwner: TComponent); override; published + property AutoSize; {$IFDEF COMPILER5} property Format: string read FFormat write SetFormat; {$ENDIF COMPILER5} Modified: trunk/jvcl/run/JvHotKey.pas =================================================================== --- trunk/jvcl/run/JvHotKey.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvHotKey.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -31,6 +31,7 @@ interface uses + Controls, {$IFDEF UNITVERSIONING} JclUnitVersioning, {$ENDIF UNITVERSIONING} @@ -39,6 +40,12 @@ type TJvHotKey = class(TJvExHotKey) published + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property HintColor; property OnMouseEnter; property OnMouseLeave; Modified: trunk/jvcl/run/JvMaskEdit.pas =================================================================== --- trunk/jvcl/run/JvMaskEdit.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvMaskEdit.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -123,6 +123,12 @@ TJvMaskEdit = class(TJvCustomMaskEdit) published + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property Caret; property ClipboardCommands; property DisabledTextColor; Modified: trunk/jvcl/run/JvMemo.pas =================================================================== --- trunk/jvcl/run/JvMemo.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvMemo.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -128,6 +128,12 @@ property HideCaret; property HotTrack; property HintColor; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property OnMouseEnter; property OnMouseLeave; Modified: trunk/jvcl/run/JvRichEdit.pas =================================================================== --- trunk/jvcl/run/JvRichEdit.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvRichEdit.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -771,11 +771,18 @@ property Align; property Alignment; property AutoAdvancedTypography; + property AutoSize; property AutoURLDetect; property AutoVerbMenu; property AllowObjects; property AllowInPlace; property Anchors; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BiDiMode; property BorderWidth; property DragKind; Modified: trunk/jvcl/run/JvToolEdit.pas =================================================================== --- trunk/jvcl/run/JvToolEdit.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvToolEdit.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -469,6 +469,12 @@ {$IFDEF VCL} property AutoCompleteItems; property AutoCompleteOptions; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BiDiMode; property DragCursor; property DragKind; @@ -665,6 +671,12 @@ {$IFDEF VCL} property AutoCompleteOptions; property AutoCompleteFileOptions default [acfFileSystem]; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property Flat; property ParentFlat; { (rb) Obsolete; added 'stored False', eventually remove } @@ -772,6 +784,12 @@ {$IFDEF VCL} property AutoCompleteOptions; property AutoCompleteFileOptions default [acfFileSystem, acfFileSysDirs]; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property Flat; property ParentFlat; property DialogOptions: TSelectDirOpts read FOptions write FOptions default [sdAllowCreate]; @@ -1015,6 +1033,12 @@ property DirectInput; {$IFDEF VCL} property DragCursor; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} property BiDiMode; property DragKind; property Flat; Modified: trunk/jvcl/run/JvValidateEdit.pas =================================================================== --- trunk/jvcl/run/JvValidateEdit.pas 2006-06-10 11:48:31 UTC (rev 10698) +++ trunk/jvcl/run/JvValidateEdit.pas 2006-06-10 17:49:41 UTC (rev 10699) @@ -221,6 +221,12 @@ property ParentBiDiMode; property OnEndDock; property OnStartDock; + {$IFDEF COMPILER6_UP} + property BevelEdges; + property BevelInner; + property BevelKind default bkNone; + property BevelOuter; + {$ENDIF COMPILER6_UP} {$ENDIF VCL} property BorderStyle; property Caret; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2006-06-26 12:38:10
|
Revision: 10730 Author: obones Date: 2006-06-26 05:37:53 -0700 (Mon, 26 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10730&view=rev Log Message: ----------- Mantis 3778: ImageIndex default value is -1, not 0 Modified Paths: -------------- trunk/jvcl/run/JvDockSupportControl.pas trunk/jvcl/run/JvDockVIDStyle.pas Modified: trunk/jvcl/run/JvDockSupportControl.pas =================================================================== --- trunk/jvcl/run/JvDockSupportControl.pas 2006-06-26 10:22:40 UTC (rev 10729) +++ trunk/jvcl/run/JvDockSupportControl.pas 2006-06-26 12:37:53 UTC (rev 10730) @@ -305,7 +305,7 @@ property Caption; property Height stored False; property Highlighted: Boolean read FHighlighted write SetHighlighted default False; - property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default 0; + property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1; property Left stored False; property PageIndex: Integer read GetPageIndex write SetPageIndex stored False; property TabVisible: Boolean read FTabVisible write SetTabVisible default True; @@ -534,7 +534,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$URL$'; + RCSfile: '$RCSfile: JvDockSupportControl.pas,v $'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' @@ -3355,6 +3355,7 @@ Visible := False; FTabVisible := True; FHighlighted := False; + FImageIndex := -1; end; destructor TJvDockTabSheet.Destroy; Modified: trunk/jvcl/run/JvDockVIDStyle.pas =================================================================== --- trunk/jvcl/run/JvDockVIDStyle.pas 2006-06-26 10:22:40 UTC (rev 10729) +++ trunk/jvcl/run/JvDockVIDStyle.pas 2006-06-26 12:37:53 UTC (rev 10730) @@ -578,7 +578,7 @@ {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$URL$'; + RCSfile: '$RCSfile: JvDockVIDStyle.pas,v $'; Revision: '$Revision$'; Date: '$Date$'; LogPath: 'JVCL\run' @@ -3005,8 +3005,13 @@ CurrPage := GetPageFromDockClient(Client); if CurrPage <> nil then begin - if (FTabImageList <> nil) and ShowTabImages and - (FTabImageList.Count > CurrPage.ImageIndex) then + //if (FTabImageList <> nil) and ShowTabImages and + // (FTabImageList.Count > CurrPage.ImageIndex) then + //prevent AV + if Assigned(FTabImageList) then + if ShowTabImages and + (FTabImageList.Count > CurrPage.ImageIndex) and + (CurrPage.ImageIndex >= 0) then begin FTabImageList.Delete(CurrPage.ImageIndex); for I := 0 to Count - 1 do This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2006-06-28 08:12:37
|
Revision: 10753 Author: obones Date: 2006-06-28 01:12:28 -0700 (Wed, 28 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10753&view=rev Log Message: ----------- Mantis 2323: Added OnGetPassword event so that the password can be transparently encrypted/hashed whenever it is being used. Modified Paths: -------------- trunk/jvcl/run/JvBDELoginDialog.pas trunk/jvcl/run/JvBDESecurity.pas trunk/jvcl/run/JvLoginForm.pas Modified: trunk/jvcl/run/JvBDELoginDialog.pas =================================================================== --- trunk/jvcl/run/JvBDELoginDialog.pas 2006-06-28 07:02:47 UTC (rev 10752) +++ trunk/jvcl/run/JvBDELoginDialog.pas 2006-06-28 08:12:28 UTC (rev 10753) @@ -65,6 +65,7 @@ FAppStorage: TJvCustomAppStorage; FAppStoragePath: string; FOnLoginFailure: TJvDBLoginEvent; + FOnGetPassword: TJvOnGetPassword; procedure Login(Database: TDatabase; LoginParams: TStrings); function GetUserInfo: Boolean; function CheckUser(Table: TTable): Boolean; @@ -79,6 +80,7 @@ destructor Destroy; override; function Execute(LoginParams: TStrings): Boolean; function GetUserName: string; + function GetPassword: string; function CheckDatabaseChange: Boolean; procedure FillParams(LoginParams: TStrings); property Mode: TDialogMode read FMode; @@ -97,6 +99,7 @@ property LoginName: string read FLoginName write FLoginName; published property OnLoginFailure: TJvDBLoginEvent read FOnLoginFailure write FOnLoginFailure; + property OnGetPassword: TJvOnGetPassword read FOnGetPassword write FOnGetPassword; end; procedure OnLoginDialog(Database: TDatabase; LoginParams: TStrings; @@ -107,7 +110,7 @@ CheckUserEvent: TCheckUserNameEvent; IconDblClick: TNotifyEvent; var LoginName: string; AppStorage: TJvCustomAppStorage; AppStoragePath: string; SelectDatabase: Boolean; - LoginFailure: TJvDBLoginEvent): Boolean; + LoginFailure: TJvDBLoginEvent; OnGetPassword: TJvOnGetPassword): Boolean; function UnlockDialog(const UserName: string; OnUnlock: TCheckUnlockEvent; IconDblClick: TNotifyEvent): Boolean; @@ -366,7 +369,7 @@ LoginParams.BeginUpdate; try LoginParams.Values[szUSERNAME] := GetUserName; - LoginParams.Values[szPASSWORD] := FDialog.PasswordEdit.Text; + LoginParams.Values[szPASSWORD] := GetPassword; if CheckDatabaseChange then begin LoginParams.Values[szSERVERNAME] := Copy(FDialog.UserNameEdit.Text, @@ -382,6 +385,13 @@ FillParams(LoginParams); end; +function TJvDBLoginDialog.GetPassword: string; +begin + Result := FDialog.PasswordEdit.Text; + if Assigned(OnGetPassword) then + OnGetPassword(Self, GetUserName, Result); +end; + function TJvDBLoginDialog.GetUserInfo: Boolean; var Table: TTable; @@ -492,7 +502,7 @@ CheckUserEvent: TCheckUserNameEvent; IconDblClick: TNotifyEvent; var LoginName: string; AppStorage: TJvCustomAppStorage; AppStoragePath: string; SelectDatabase: Boolean; - LoginFailure: TJvDBLoginEvent): Boolean; + LoginFailure: TJvDBLoginEvent; OnGetPassword: TJvOnGetPassword): Boolean; var Dlg: TJvDBLoginDialog; begin @@ -509,6 +519,7 @@ Dlg.UserNameField := UserNameField; Dlg.AppStorage := AppStorage; Dlg.AppStoragePath := AppStoragePath; + Dlg.OnGetPassword := OnGetPassword; Result := Dlg.Execute(nil); if Result then LoginName := Dlg.LoginName; Modified: trunk/jvcl/run/JvBDESecurity.pas =================================================================== --- trunk/jvcl/run/JvBDESecurity.pas 2006-06-28 07:02:47 UTC (rev 10752) +++ trunk/jvcl/run/JvBDESecurity.pas 2006-06-28 08:12:28 UTC (rev 10753) @@ -187,7 +187,7 @@ IconClick := DoIconDblClick; Result := LoginDialog(Database, AttemptNumber, UsersTableName, LoginNameField, MaxPasswordLen, DoCheckUser, IconClick, UserName, - AppStorage, AppStoragePath, SelectAlias,FOnLoginFailure ); + AppStorage, AppStoragePath, SelectAlias, FOnLoginFailure, OnGetPassword); end; function TJvDBSecurity.ChangePassword: Boolean; Modified: trunk/jvcl/run/JvLoginForm.pas =================================================================== --- trunk/jvcl/run/JvLoginForm.pas 2006-06-28 07:02:47 UTC (rev 10752) +++ trunk/jvcl/run/JvLoginForm.pas 2006-06-28 08:12:28 UTC (rev 10753) @@ -60,6 +60,7 @@ TCheckUnlockEvent = function(const Password: string): Boolean of object; TUnlockAppEvent = procedure(Sender: TObject; const UserName, Password: string; var AllowUnlock: Boolean) of object; + TJvOnGetPassword = procedure(Sender: TObject; const UserName: string; var Password: string) of object; TJvLoginForm = class; @@ -81,6 +82,7 @@ FOnUnlock: TCheckUnlockEvent; FOnUnlockApp: TUnlockAppEvent; FOnIconDblClick: TNotifyEvent; + FOnGetPassword: TJvOnGetPassword; {$IFDEF VCL} FUnlockDlgShowing: Boolean; FPasswordChar: Char; @@ -114,6 +116,7 @@ property OnIconDblClick: TNotifyEvent read FOnIconDblClick write FOnIconDblClick; property AppStorage: TJvCustomAppStorage read FAppStorage write SetAppStorage; property AppStoragePath: string read FAppStoragePath write FAppStoragePath; + property OnGetPassword: TJvOnGetPassword read FOnGetPassword write FOnGetPassword; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -135,6 +138,7 @@ protected function DoCheckUser(const UserName, Password: string): Boolean; dynamic; function DoLogin(var UserName: string): Boolean; override; + function DoGetPassword(const UserName, Password: string): string; procedure Loaded; override; published property Active; @@ -148,6 +152,7 @@ property PasswordChar; {$ENDIF VCL} property OnCheckUser: TJvLoginEvent read FOnCheckUser write FOnCheckUser; + property OnGetPassword; property AfterLogin; property BeforeLogin; property OnUnlockApp; @@ -176,12 +181,14 @@ FAttempt: Integer; FOnFormShow: TNotifyEvent; FOnOkClick: TNotifyEvent; + FOnGetPassword: TJvOnGetPassword; public AttemptNumber: Integer; property Attempt: Integer read FAttempt; property SelectDatabase: Boolean read FSelectDatabase write FSelectDatabase; property OnFormShow: TNotifyEvent read FOnFormShow write FOnFormShow; property OnOkClick: TNotifyEvent read FOnOkClick write FOnOkClick; + property OnGetPassword: TJvOnGetPassword read FOnGetPassword write FOnGetPassword; end; function CreateLoginDialog(UnlockMode, ASelectDatabase: Boolean; @@ -504,7 +511,7 @@ if SetCursor then Screen.Cursor := crHourGlass; try - if DoCheckUser(UserNameEdit.Text, PasswordEdit.Text) then + if DoCheckUser(UserNameEdit.Text, DoGetPassword(UserNameEdit.Text, PasswordEdit.Text)) then ModalResult := mrOk else ModalResult := mrNone; @@ -539,6 +546,13 @@ Result := UserName; end; +function TJvLoginDialog.DoGetPassword(const UserName, Password: string): string; +begin + Result := Password; + if Assigned(OnGetPassword) then + OnGetPassword(Self, UserName, Result); +end; + function TJvLoginDialog.DoLogin(var UserName: string): Boolean; begin try This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2006-06-28 20:53:37
|
Revision: 10758 Author: jfudickar Date: 2006-06-28 13:53:29 -0700 (Wed, 28 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10758&view=rev Log Message: ----------- Enhanced cxGrid Engine for supporting DBChartViews Modified Paths: -------------- trunk/jvcl/run/JvDBActions.pas trunk/jvcl/run/JvDBActionsEngine.pas trunk/jvcl/run/JvDBActionsEngineControlCxGrid.pas Modified: trunk/jvcl/run/JvDBActions.pas =================================================================== --- trunk/jvcl/run/JvDBActions.pas 2006-06-28 19:29:08 UTC (rev 10757) +++ trunk/jvcl/run/JvDBActions.pas 2006-06-28 20:53:29 UTC (rev 10758) @@ -97,6 +97,8 @@ function EngineCanDelete: boolean; function EngineEof: boolean; function EngineBof: boolean; + function EngineCanNavigate: boolean; + function EngineCanRefresh: boolean; function EngineControlsDisabled: boolean; function EngineEditModeActive: boolean; function EngineSelectedRowsCount: integer; @@ -220,6 +222,7 @@ public constructor Create(AOwner: TComponent); override; procedure ExecuteTarget(Target: TObject); override; + procedure UpdateTarget(Target: TObject); override; published property RefreshLastPosition: boolean read FRefreshLastPosition write FRefreshLastPosition default True; property RefreshAsOpenClose: boolean read FRefreshAsOpenClose write FRefreshAsOpenClose default False; @@ -632,6 +635,22 @@ Result := False; end; +function TJvDatabaseBaseAction.EngineCanNavigate: boolean; +begin + if Assigned(ControlEngine) then + Result := ControlEngine.CanNavigate + else + Result := False; +end; + +function TJvDatabaseBaseAction.EngineCanRefresh: boolean; +begin + if Assigned(ControlEngine) then + Result := ControlEngine.CanRefresh + else + Result := False; +end; + function TJvDatabaseBaseAction.EngineControlsDisabled: boolean; begin if Assigned(ControlEngine) then @@ -752,7 +771,7 @@ procedure TJvDatabaseFirstAction.UpdateTarget(Target: TObject); begin - SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineBof); + SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineBof and EngineCanNavigate); end; procedure TJvDatabaseFirstAction.ExecuteTarget(Target: TObject); @@ -765,7 +784,7 @@ procedure TJvDatabaseLastAction.UpdateTarget(Target: TObject); begin - SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineEof); + SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineEof and EngineCanNavigate); end; procedure TJvDatabaseLastAction.ExecuteTarget(Target: TObject); @@ -778,7 +797,7 @@ procedure TJvDatabasePriorAction.UpdateTarget(Target: TObject); begin - SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineBof); + SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineBof and EngineCanNavigate); end; procedure TJvDatabasePriorAction.ExecuteTarget(Target: TObject); @@ -791,7 +810,7 @@ procedure TJvDatabaseNextAction.UpdateTarget(Target: TObject); begin - SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineEof); + SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineEof and EngineCanNavigate); end; procedure TJvDatabaseNextAction.ExecuteTarget(Target: TObject); @@ -810,7 +829,7 @@ procedure TJvDatabasePriorBlockAction.UpdateTarget(Target: TObject); begin - SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineBof); + SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineBof and EngineCanNavigate); end; procedure TJvDatabasePriorBlockAction.ExecuteTarget(Target: TObject); @@ -835,7 +854,7 @@ procedure TJvDatabaseNextBlockAction.UpdateTarget(Target: TObject); begin - SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineEof); + SetEnabled(Assigned(ControlEngine) and not EngineControlsDisabled and EngineIsActive and not EngineEof and EngineCanNavigate); end; procedure TJvDatabaseNextBlockAction.ExecuteTarget(Target: TObject); @@ -899,6 +918,13 @@ end; end; +//=== { TJvDatabaseBaseActiveAction } ======================================== + +procedure TJvDatabaseRefreshAction.UpdateTarget(Target: TObject); +begin + SetEnabled(Assigned(DataSet) and not EngineControlsDisabled and EngineIsActive and EngineCanRefresh); +end; + constructor TJvDatabasePositionAction.Create(AOwner: TComponent); begin inherited Create(AOwner); @@ -913,7 +939,7 @@ cFormat = ' %3d / %3d '; cFormatSelected = ' %3d / %3d (%d)'; begin - SetEnabled(Assigned(DataSet) and not EngineControlsDisabled and EngineIsActive and EngineHasData); + SetEnabled(Assigned(DataSet) and not EngineControlsDisabled and EngineIsActive and EngineHasData and EngineCanNavigate); try if not EngineIsActive then SetCaption(Format(cFormat, [0, 0])) Modified: trunk/jvcl/run/JvDBActionsEngine.pas =================================================================== --- trunk/jvcl/run/JvDBActionsEngine.pas 2006-06-28 19:29:08 UTC (rev 10757) +++ trunk/jvcl/run/JvDBActionsEngine.pas 2006-06-28 20:53:29 UTC (rev 10758) @@ -133,6 +133,8 @@ function CanDelete: boolean; virtual; function EOF: boolean; virtual; function Bof: boolean; virtual; + function CanRefresh: boolean; virtual; + function CanNavigate: boolean; virtual; procedure DisableControls; virtual; procedure EnableControls; virtual; function ControlsDisabled: boolean; virtual; @@ -331,6 +333,16 @@ Result := False; end; +function TJvDatabaseActionBaseControlEngine.CanRefresh: boolean; +begin + Result := Assigned(DataSet); +end; + +function TJvDatabaseActionBaseControlEngine.CanNavigate: boolean; +begin + Result := Assigned(DataSet); +end; + procedure TJvDatabaseActionBaseControlEngine.DisableControls; begin if Assigned(DataSet) then Modified: trunk/jvcl/run/JvDBActionsEngineControlCxGrid.pas =================================================================== --- trunk/jvcl/run/JvDBActionsEngineControlCxGrid.pas 2006-06-28 19:29:08 UTC (rev 10757) +++ trunk/jvcl/run/JvDBActionsEngineControlCxGrid.pas 2006-06-28 20:53:29 UTC (rev 10758) @@ -35,7 +35,7 @@ {$ENDIF UNITVERSIONING} Forms, Controls, Classes, DB, {$IFDEF USE_3RDPARTY_DEVEXPRESS_CXGRID} - cxGridCustomTableView, cxDBData, + cxGridCustomTableView, cxDBData, cxGridCustomView, {$ENDIF USE_3RDPARTY_DEVEXPRESS_CXGRID} JvDBActionsEngine; @@ -45,10 +45,12 @@ TJvDatabaseActionDevExpCxGridControlEngine = class( TJvDatabaseActionBaseControlEngine) private - FGridView: TcxCustomGridTableView; + FGridView: TcxCustomGridView; + FGridTableView: TcxCustomGridTableView; function GetDBDataController: TcxDBDataController; protected - function GetGridView(ADataComponent: TComponent): TcxCustomGridTableView; + function GetGridView(ADataComponent: TComponent): TcxCustomGridView; + function GetGridTableView(ADataComponent: TComponent): TcxCustomGridTableView; function GetDataSource(ADataComponent: TComponent): TDataSource; override; function IsGridMode: Boolean; procedure SetDatacomponent(const Value: TComponent); override; @@ -61,13 +63,15 @@ function CanInsert: boolean; override; function CanUpdate: boolean; override; function CanDelete: boolean; override; + function CanNavigate: boolean; override; procedure First; override; function GotoSelectedRow(const ASelectedRow: Integer): Boolean; override; procedure Last; override; procedure MoveBy(Distance: Integer); override; function SelectedRowsCount: Integer; override; function Supports(ADataComponent: TComponent): boolean; override; - property GridView: TcxCustomGridTableView read FGridView; + property GridView: TcxCustomGridView read FGridView; + property GridTableView: TcxCustomGridTableView read FGridTableView; end; {$ENDIF USE_3RDPARTY_DEVEXPRESS_CXGRID} @@ -87,7 +91,7 @@ uses {$IFDEF USE_3RDPARTY_DEVEXPRESS_CXGRID} - cxGrid, cxGridDBDataDefinitions, + cxGrid, cxGridDBDataDefinitions, cxGridDBChartView, cxCustomData, {$ENDIF USE_3RDPARTY_DEVEXPRESS_CXGRID} {$IFDEF HAS_UNIT_VARIANTS} @@ -108,6 +112,24 @@ end; function TJvDatabaseActionDevExpCxGridControlEngine.GetGridView(ADataComponent: + TComponent): TcxCustomGridView; +begin + if Assigned(ADataComponent) then + if ADataComponent is TcxGrid then + if TcxGrid(ADataComponent).FocusedView is TcxCustomGridView then + Result := TcxCustomGridView(TcxGrid(ADataComponent).FocusedView) + else + Result := nil + else + if ADataComponent is TcxCustomGridView then + Result := TcxCustomGridView(ADataComponent) + else + Result := nil + else + Result := nil; +end; + +function TJvDatabaseActionDevExpCxGridControlEngine.GetGridTableView(ADataComponent: TComponent): TcxCustomGridTableView; begin if Assigned(ADataComponent) then @@ -129,23 +151,17 @@ TComponent): TDataSource; begin if Assigned(ADataComponent) then - if ADataComponent is TcxGrid then - if (TcxGrid(ADataComponent).FocusedView is TcxCustomGridTableView) and - (TcxCustomGridTableView(TcxGrid(ADataComponent).FocusedView).DataController is TcxGridDBDataController) then - Result := TcxGridDBDataController(TcxCustomGridTableView( - TcxGrid(ADataComponent).FocusedView).DataController).DataSource + if Assigned(GridView) then + if GridView.DataController is TcxGridDBDataController then + Result := TcxGridDBDataController(GridView.DataController).DataSource + else if GridView.DataController is TcxGridDBChartDataController then + Result := TcxGridDBChartDataController(GridView.DataController).DataSource else Result := nil else - if ADataComponent is TcxCustomGridTableView then - if TcxCustomGridTableView(ADataComponent).DataController is TcxGridDBDataController then - Result := TcxGridDBDataController(TcxCustomGridTableView(ADataComponent).DataController).DataSource - else - Result := nil - else - Result := inherited GetDataSource(ADataComponent) - else - Result := nil; + Result := inherited GetDataSource(ADataComponent) + else + Result := nil; end; function TJvDatabaseActionDevExpCxGridControlEngine.Supports(ADataComponent: TComponent): boolean; @@ -179,32 +195,37 @@ function TJvDatabaseActionDevExpCxGridControlEngine.CanInsert: boolean; begin - if Assigned(GridView) then - Result := GridView.OptionsData.Inserting and inherited CanInsert + if Assigned(GridTableView) then + Result := GridTableView.OptionsData.Inserting and inherited CanInsert else Result := inherited CanInsert; end; function TJvDatabaseActionDevExpCxGridControlEngine.CanUpdate: boolean; begin - if Assigned(GridView) then - Result := GridView.OptionsData.Editing and inherited CanUpdate + if Assigned(GridTableView) then + Result := GridTableView.OptionsData.Editing and inherited CanUpdate else Result := inherited CanUpdate; end; function TJvDatabaseActionDevExpCxGridControlEngine.CanDelete: boolean; begin - if Assigned(GridView) then - Result := GridView.OptionsData.Deleting and inherited CanDelete + if Assigned(GridTableView) then + Result := GridTableView.OptionsData.Deleting and inherited CanDelete else Result := inherited CanDelete; end; +function TJvDatabaseActionDevExpCxGridControlEngine.CanNavigate: boolean; +begin + Result := Assigned(GridTableView); +end; + procedure TJvDatabaseActionDevExpCxGridControlEngine.First; begin - if Assigned(GridView) then - GridView.DataController.GotoFirst + if Assigned(GridTableView) then + GridTableView.DataController.GotoFirst else inherited First; end; @@ -225,7 +246,7 @@ RecIdx : Integer; RecID : Variant; begin - if Assigned(DBDataController) and Assigned(Dataset) then + if Assigned(DBDataController) and Assigned(Dataset) and Assigned(GridTableView) then try if IsGridMode then begin @@ -240,8 +261,8 @@ end else begin - RecIdx := GridView.Controller.SelectedRecords[ASelectedRow].RecordIndex; - RecID := GridView.DataController.GetRecordId(RecIdx); + RecIdx := GridTableView.Controller.SelectedRecords[ASelectedRow].RecordIndex; + RecID := GridTableView.DataController.GetRecordId(RecIdx); Result := DataSet.Locate(DBDataController.KeyFieldNames, RecID, [loPartialKey]); end; except @@ -287,8 +308,9 @@ procedure TJvDatabaseActionDevExpCxGridControlEngine.SetDatacomponent(const Value: TComponent); begin + FGridView := GetGridView(Value); + FGridTableView := GetGridTableView(Value); inherited SetDatacomponent(Value); - FGridView := GetGridView(Value); end; {$ENDIF USE_3RDPARTY_DEVEXPRESS_CXGRID} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |