Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17394/run Modified Files: JvCalc.pas JvColorForm.pas JvComponent.pas JvDBGridSelectColumnForm.pas JvDSADialogs.pas JvDynControlEngine.pas JvFullColorCircleForm.pas JvFullColorForm.pas JvInterpreterFm.pas JvLogForm.pas JvPickDate.pas JvProgressComponent.pas JvSLDMappingEditorDialog.pas JvSplashWindow.pas JvSticker.pas JvThread.pas JvTipOfDay.pas JvgReport.pas Log Message: TJvForm.CreateParams added All TForm changed to TJvForm Index: JvSplashWindow.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvSplashWindow.pas,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** JvSplashWindow.pas 17 Feb 2005 10:20:54 -0000 1.13 --- JvSplashWindow.pas 11 Dec 2005 16:14:17 -0000 1.14 *************** *** 37,44 **** Qt, {$ENDIF VisualCLX} ! JvAnimatedImage; type ! TJvSplashWindow = class(TForm) private FTextMessage: TLabel; --- 37,44 ---- Qt, {$ENDIF VisualCLX} ! JvAnimatedImage, JvComponent; type ! TJvSplashWindow = class(TJvForm) private FTextMessage: TLabel; Index: JvgReport.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvgReport.pas,v retrieving revision 1.37 retrieving revision 1.38 diff -C2 -d -r1.37 -r1.38 *** JvgReport.pas 15 Sep 2005 07:22:55 -0000 1.37 --- JvgReport.pas 11 Dec 2005 16:14:17 -0000 1.38 *************** *** 986,990 **** --- 986,994 ---- if Assigned(BeforePrint) then BeforePrint(Self); + {$IFDEF USEJVCL} + OwnerWnd := TForm(TJvForm).Create(nil); + {$ELSE} OwnerWnd := TForm.Create(nil); + {$ENDIF} TForm(OwnerWnd).WindowState := wsMaximized; ParentWnd := OwnerWnd; Index: JvPickDate.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvPickDate.pas,v retrieving revision 1.47 retrieving revision 1.48 diff -C2 -d -r1.47 -r1.48 *** JvPickDate.pas 5 May 2005 20:11:31 -0000 1.47 --- JvPickDate.pas 11 Dec 2005 16:14:17 -0000 1.48 *************** *** 174,178 **** uses Math, Consts, ! JvThemes, JvConsts, JvResources, JvJCLUtils, JvToolEdit, JvSpeedButton; procedure FontSetDefault(AFont: TFont); --- 174,178 ---- uses Math, Consts, ! JvThemes, JvConsts, JvResources, JvJCLUtils, JvToolEdit, JvSpeedButton, JvComponent; procedure FontSetDefault(AFont: TFont); *************** *** 1296,1300 **** type ! TJvSelectDateDlg = class(TForm) Calendar: TJvCalendar; TitleLabel: TLabel; --- 1296,1300 ---- type ! TJvSelectDateDlg = class(TJvForm) Calendar: TJvCalendar; TitleLabel: TLabel; Index: JvSLDMappingEditorDialog.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvSLDMappingEditorDialog.pas,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** JvSLDMappingEditorDialog.pas 17 Feb 2005 10:20:52 -0000 1.10 --- JvSLDMappingEditorDialog.pas 11 Dec 2005 16:14:17 -0000 1.11 *************** *** 42,46 **** type ! TfrmSLDMappingEditorDialog = class(TForm) EditorFrame: TfmeJvSegmentedLEDDisplayMapper; lblDigitClassCaption: TLabel; --- 42,46 ---- type ! TfrmSLDMappingEditorDialog = class(TJvForm) EditorFrame: TfmeJvSegmentedLEDDisplayMapper; lblDigitClassCaption: TLabel; Index: JvColorForm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvColorForm.pas,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** JvColorForm.pas 17 Feb 2005 10:20:02 -0000 1.28 --- JvColorForm.pas 11 Dec 2005 16:14:14 -0000 1.29 *************** *** 43,47 **** Classes, Graphics, Controls, Forms, Buttons, Dialogs, JvConsts, // missing color constants for D5 ! JvColorBox; const --- 43,47 ---- Classes, Graphics, Controls, Forms, Buttons, Dialogs, JvConsts, // missing color constants for D5 ! JvColorBox, JvComponent; const *************** *** 56,60 **** end; ! TJvColorForm = class(TForm) OtherBtn: TSpeedButton; procedure OtherBtnClick(Sender: TObject); --- 56,60 ---- end; ! TJvColorForm = class(TJvForm) OtherBtn: TSpeedButton; procedure OtherBtnClick(Sender: TObject); Index: JvInterpreterFm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvInterpreterFm.pas,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** JvInterpreterFm.pas 15 Sep 2005 10:19:42 -0000 1.28 --- JvInterpreterFm.pas 11 Dec 2005 16:14:15 -0000 1.29 *************** *** 61,65 **** {$ENDIF UNITVERSIONING} SysUtils, Classes, Controls, Forms, ! JvInterpreter, JvJVCLUtils; type --- 61,65 ---- {$ENDIF UNITVERSIONING} SysUtils, Classes, Controls, Forms, ! JvInterpreter, JvJVCLUtils, JvComponent; type *************** *** 72,76 **** TJvInterpreterFm = class; ! TJvInterpreterForm = class(TForm) private FJvInterpreterFm: TJvInterpreterFm; --- 72,76 ---- TJvInterpreterFm = class; ! TJvInterpreterForm = class(TJvForm) private FJvInterpreterFm: TJvInterpreterFm; Index: JvDSADialogs.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDSADialogs.pas,v retrieving revision 1.48 retrieving revision 1.49 diff -C2 -d -r1.48 -r1.49 *** JvDSADialogs.pas 31 Oct 2005 23:01:35 -0000 1.48 --- JvDSADialogs.pas 11 Dec 2005 16:14:14 -0000 1.49 *************** *** 42,46 **** {$ENDIF VisualCLX} SysUtils, Classes, Contnrs, Graphics, Controls, Forms, StdCtrls, Dialogs, ! ExtCtrls, JvComponentBase, JvDynControlEngine, JvTypes; --- 42,46 ---- {$ENDIF VisualCLX} SysUtils, Classes, Contnrs, Graphics, Controls, Forms, StdCtrls, Dialogs, ! ExtCtrls, JvComponent, JvComponentBase, JvDynControlEngine, JvTypes; *************** *** 48,52 **** TDlgCenterKind = (dckScreen, dckMainForm, dckActiveForm); ! TDSAMessageForm = class(TForm) private FTimeout: Integer; --- 48,52 ---- TDlgCenterKind = (dckScreen, dckMainForm, dckActiveForm); ! TDSAMessageForm = class(TJvForm) private FTimeout: Integer; Index: JvThread.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvThread.pas,v retrieving revision 1.43 retrieving revision 1.44 diff -C2 -d -r1.43 -r1.44 *** JvThread.pas 26 Nov 2005 17:02:37 -0000 1.43 --- JvThread.pas 11 Dec 2005 16:14:17 -0000 1.44 *************** *** 42,46 **** {$ENDIF UNIX} Forms, Dialogs, ! JvTypes, JvComponentBase; type --- 42,46 ---- {$ENDIF UNIX} Forms, Dialogs, ! JvTypes, JvComponentBase, JvComponent; type *************** *** 68,72 **** end; ! TJvCustomThreadDialogForm = class(TForm) private FConnectedDataComponent: TComponent; --- 68,72 ---- end; ! TJvCustomThreadDialogForm = class(TJvForm) private FConnectedDataComponent: TComponent; Index: JvFullColorForm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvFullColorForm.pas,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** JvFullColorForm.pas 28 Oct 2005 08:37:22 -0000 1.10 --- JvFullColorForm.pas 11 Dec 2005 16:14:15 -0000 1.11 *************** *** 37,44 **** Dialogs, StdCtrls, ExtCtrls, Mask, JvFullColorCtrls, JvFullColorSpaces, JvFullColorDialogs, JvExMask, ! JvSpin, JvExStdCtrls, JvCombobox, JvColorCombo; type ! TJvFullColorFrm = class(TForm) LabelColorSpace: TLabel; GroupBoxSettings: TGroupBox; --- 37,44 ---- Dialogs, StdCtrls, ExtCtrls, Mask, JvFullColorCtrls, JvFullColorSpaces, JvFullColorDialogs, JvExMask, ! JvSpin, JvExStdCtrls, JvCombobox, JvColorCombo, JvComponent; type ! TJvFullColorFrm = class(TJvForm) LabelColorSpace: TLabel; GroupBoxSettings: TGroupBox; Index: JvFullColorCircleForm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvFullColorCircleForm.pas,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** JvFullColorCircleForm.pas 28 Oct 2005 08:37:22 -0000 1.10 --- JvFullColorCircleForm.pas 11 Dec 2005 16:14:15 -0000 1.11 *************** *** 37,44 **** ExtCtrls, StdCtrls, Mask, JvFullColorDialogs, JvFullColorCtrls, JvFullColorSpaces, JvFullColorRotate, ! JvExMask, JvSpin; type ! TJvFullColorCircleFrm = class(TForm) JvColorCircle: TJvFullColorCircle; RadioButtonCommonSettings: TRadioButton; --- 37,44 ---- ExtCtrls, StdCtrls, Mask, JvFullColorDialogs, JvFullColorCtrls, JvFullColorSpaces, JvFullColorRotate, ! JvExMask, JvSpin, JvComponent; type ! TJvFullColorCircleFrm = class(TJvForm) JvColorCircle: TJvFullColorCircle; RadioButtonCommonSettings: TRadioButton; Index: JvDynControlEngine.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDynControlEngine.pas,v retrieving revision 1.35 retrieving revision 1.36 diff -C2 -d -r1.35 -r1.36 *** JvDynControlEngine.pas 28 Oct 2005 08:37:22 -0000 1.35 --- JvDynControlEngine.pas 11 Dec 2005 16:14:15 -0000 1.36 *************** *** 216,220 **** uses TypInfo, ! JvResources, JvTypes, JvVCL5Utils, JvDynControlEngineVCL; var --- 216,220 ---- uses TypInfo, ! JvResources, JvTypes, JvVCL5Utils, JvDynControlEngineVCL, JvComponent; var *************** *** 500,504 **** if AControlType = jctForm then begin ! Result := TControl(TForm.Create(AOwner)); if AControlName <> '' then Result.Name := AControlName; --- 500,504 ---- if AControlType = jctForm then begin ! Result := TControl(TJvForm.CreateNew(AOwner)); if AControlName <> '' then Result.Name := AControlName; Index: JvProgressComponent.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvProgressComponent.pas,v retrieving revision 1.25 retrieving revision 1.26 diff -C2 -d -r1.25 -r1.26 *** JvProgressComponent.pas 15 Sep 2005 10:19:43 -0000 1.25 --- JvProgressComponent.pas 11 Dec 2005 16:14:17 -0000 1.26 *************** *** 96,100 **** uses ! JvConsts, JvResources, JvJCLUtils; const --- 96,100 ---- uses ! JvConsts, JvResources, JvJCLUtils, JvComponent; const *************** *** 109,113 **** end; ! TJvProgressForm = class(TForm) private procedure CMShowEvent(var Msg: TCMShowEvent); message CM_SHOWEVENT; --- 109,113 ---- end; ! TJvProgressForm = class(TJvForm) private procedure CMShowEvent(var Msg: TCMShowEvent); message CM_SHOWEVENT; Index: JvDBGridSelectColumnForm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDBGridSelectColumnForm.pas,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** JvDBGridSelectColumnForm.pas 17 Feb 2005 10:20:21 -0000 1.18 --- JvDBGridSelectColumnForm.pas 11 Dec 2005 16:14:14 -0000 1.19 *************** *** 35,42 **** {$ENDIF UNITVERSIONING} Windows, Classes, Controls, Forms, StdCtrls, Dialogs, CheckLst, ExtCtrls, ! DB, DBGrids, JvDBGrid; type ! TfrmSelectColumn = class(TForm) Panel1: TPanel; clbList: TCheckListBox; --- 35,42 ---- {$ENDIF UNITVERSIONING} Windows, Classes, Controls, Forms, StdCtrls, Dialogs, CheckLst, ExtCtrls, ! DB, DBGrids, JvDBGrid, JvComponent; type ! TfrmSelectColumn = class(TJvForm) Panel1: TPanel; clbList: TCheckListBox; Index: JvSticker.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvSticker.pas,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** JvSticker.pas 29 Oct 2005 16:27:15 -0000 1.20 --- JvSticker.pas 11 Dec 2005 16:14:17 -0000 1.21 *************** *** 234,242 **** function TJvSticker.CaptionDialog(S: string): string; var ! Form: TForm; Memo: TMemo; begin Result := ''; ! Form := TForm.Create(Self); try Form.Width := 350; --- 234,242 ---- function TJvSticker.CaptionDialog(S: string): string; var ! Form: TJvForm; Memo: TMemo; begin Result := ''; ! Form := TJvForm.Create(Self); try Form.Width := 350; Index: JvLogForm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvLogForm.pas,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** JvLogForm.pas 17 Feb 2005 10:20:42 -0000 1.15 --- JvLogForm.pas 11 Dec 2005 16:14:16 -0000 1.16 *************** *** 35,42 **** {$ENDIF UNITVERSIONING} Controls, Forms, Dialogs, ComCtrls, ActnList, ImgList, ToolWin, ! SysUtils, Classes; type ! TFoLog = class(TForm) ToolBar1: TToolBar; ToolButton1: TToolButton; --- 35,42 ---- {$ENDIF UNITVERSIONING} Controls, Forms, Dialogs, ComCtrls, ActnList, ImgList, ToolWin, ! SysUtils, Classes, JvComponent; type ! TFoLog = class(TJvForm) ToolBar1: TToolBar; ToolButton1: TToolButton; Index: JvCalc.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvCalc.pas,v retrieving revision 1.50 retrieving revision 1.51 diff -C2 -d -r1.50 -r1.51 *** JvCalc.pas 28 Oct 2005 09:36:45 -0000 1.50 --- JvCalc.pas 11 Dec 2005 16:14:14 -0000 1.51 *************** *** 43,47 **** QImgList, {$ENDIF VisualCLX} ! JvBaseDlg; const --- 43,47 ---- QImgList, {$ENDIF VisualCLX} ! JvBaseDlg, JvComponent; const *************** *** 95,99 **** end; ! TJvCalculatorForm = class(TForm) private FMainPanel: TPanel; --- 95,99 ---- end; ! TJvCalculatorForm = class(TJvForm) private FMainPanel: TPanel; Index: JvComponent.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvComponent.pas,v retrieving revision 1.49 retrieving revision 1.50 diff -C2 -d -r1.49 -r1.50 *** JvComponent.pas 15 Sep 2005 07:22:54 -0000 1.49 --- JvComponent.pas 11 Dec 2005 16:14:14 -0000 1.50 *************** *** 74,77 **** --- 74,79 ---- TJvForm = class(TJvExForm) + protected + procedure CreateParams(var Params: TCreateParams); override; {$IFDEF USE_DXGETTEXT} public *************** *** 111,114 **** --- 113,118 ---- implementation + uses Forms; + {$IFDEF USE_DXGETTEXT} const *************** *** 147,150 **** --- 151,168 ---- {$ENDIF USE_DXGETTEXT} + procedure TJvForm.CreateParams(var Params: TCreateParams); //override; + begin + inherited CreateParams(Params); + + // Fixing the Window Ghosting "bug" + Params.Style := params.Style or WS_POPUP; + if Assigned(Screen.ActiveForm) then + Params.WndParent := Screen.ActiveForm.Handle + else if Assigned (Application.MainForm) then + Params.WndParent := Application.MainForm.Handle + else + Params.WndParent := Application.Handle; + end; + //=== { TJvPopupListBox } ==================================================== Index: JvTipOfDay.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTipOfDay.pas,v retrieving revision 1.35 retrieving revision 1.36 diff -C2 -d -r1.35 -r1.36 *** JvTipOfDay.pas 22 Aug 2005 20:10:10 -0000 1.35 --- JvTipOfDay.pas 11 Dec 2005 16:14:17 -0000 1.36 *************** *** 178,182 **** JvWndProcHook, {$ENDIF VCL} ! JvButton, JvResources; {$R JvTipOfDay.res} --- 178,182 ---- JvWndProcHook, {$ENDIF VCL} ! JvButton, JvResources, JvComponent; {$R JvTipOfDay.res} *************** *** 272,276 **** procedure TJvTipOfDay.Execute; var ! LForm: TForm; begin // Reentrance check --- 272,276 ---- procedure TJvTipOfDay.Execute; var ! LForm: TJvForm; begin // Reentrance check *************** *** 292,296 **** { toShowOnStartUp will be changed in ExecuteVS/ExecuteStandard if the user changes the checkbox } ! LForm := TForm.Create(Application); with LForm do try --- 292,296 ---- { toShowOnStartUp will be changed in ExecuteVS/ExecuteStandard if the user changes the checkbox } ! LForm := TJvForm.Create(Application); with LForm do try |