Menu
▾
▴
[JVCL-Checkins] CVS: dev/JVCL3/design JvColorEditor.pas,NONE,1.1 JvScheduleEditors.pas,NONE,1.1 JvAlarmsEditor.pas,1.1,1.2 JvAnimatedEditor.pas,1.1,1.2 JvCheckedItemsForm.pas,1.2,1.3 JvCmpReg.pas,1.3,1.4 JvCoreReg.pas,1.6,1.7 JvCtrlsReg.pas,1.3,1.4 JvCustomReg.pas,1.2,1.3 JvDataEmbeddedEditor.pas,1.1,1.2 JvDirectoryListForm.pas,1.2,1.3 JvDlgsReg.pas,1.4,1.5 JvHLEditEditor.pas,1.1,1.2 JvImagePreviewForm.pas,1.2,1.3 JvInterpreterReg.pas,1.2,1.3 JvMMReg.pas,1.2,1.3 JvOutlookBarEditors.pas,1.1,1.2 JvPatcherEditor.pas,1.1,1.2 JvPictureEditForm.pas,1.2,1.3 JvPluginWizard.pas,1.2,1.3 JvProgressEditor.pas,1.1,1.2 JvRegAutoEditor.dfm,1.1,1.2 JvRegAutoEditor.pas,1.1,1.2 JvStdCtrlsReg.pas,1.3,1.4 JvTimeLineEditor.pas,1.2,1.3 JvColors.pas,1.1,NONE JvScheduleEditor.dfm,1.1,NONE JvScheduleEditor.pas,1.1,NONE
Update of /cvsroot/jvcl/dev/JVCL3/design
In directory sc8-pr-cvs1:/tmp/cvs-serv14693/JVCL3/design
Modified Files:
JvAlarmsEditor.pas JvAnimatedEditor.pas JvCheckedItemsForm.pas
JvCmpReg.pas JvCoreReg.pas JvCtrlsReg.pas JvCustomReg.pas
JvDataEmbeddedEditor.pas JvDirectoryListForm.pas JvDlgsReg.pas
JvHLEditEditor.pas JvImagePreviewForm.pas JvInterpreterReg.pas
JvMMReg.pas JvOutlookBarEditors.pas JvPatcherEditor.pas
JvPictureEditForm.pas JvPluginWizard.pas JvProgressEditor.pas
JvRegAutoEditor.dfm JvRegAutoEditor.pas JvStdCtrlsReg.pas
JvTimeLineEditor.pas
Added Files:
JvColorEditor.pas JvScheduleEditors.pas
Removed Files:
JvColors.pas JvScheduleEditor.dfm JvScheduleEditor.pas
Log Message:
--- NEW FILE: JvColorEditor.pas ---
{-----------------------------------------------------------------------------
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: JvColors.PAS, released on 2002-07-04.
The Initial Developers of the Original Code are: Fedor Koshevnikov, Igor Pavluk and Serge Korolev
Copyright (c) 1997, 1998 Fedor Koshevnikov, Igor Pavluk and Serge Korolev
Copyright (c) 2001,2002 SGB Software
All Rights Reserved.
Last Modified: 2002-07-04
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:
-----------------------------------------------------------------------------}
{$I JVCL.INC}
unit JvColorEditor;
{$C PRELOAD}
interface
uses
Windows, SysUtils, Classes, Graphics,
{$IFDEF COMPILER6_UP}
RTLConsts, DesignIntf, VCLEditors, DesignEditors,
{$ELSE}
DsgnIntf,
{$ENDIF}
JvJVCLUtils;
// === TJvColorProperty ======================================================
type
TJvColorProperty = class(TColorProperty)
public
function GetValue: string; override;
procedure GetValues(Proc: TGetStrProc); override;
procedure SetValue(const Value: string); override;
procedure ListDrawValue(const Value: string; ACanvas: TCanvas; const ARect: TRect; ASelected: Boolean);
{$IFDEF COMPILER5} override {$ELSE} virtual {$ENDIF};
end;
function JvIdentToColor(const Ident: string; var Color: Longint): Boolean;
function JvColorToString(Color: TColor): string;
function JvStringToColor(S: string): TColor;
procedure JvGetColorValues(Proc: TGetStrProc);
implementation
type
TColorEntry = record
Value: TColor;
Name: PChar;
end;
const
clInfoBk16 = TColor($02E1FFFF);
clNone16 = TColor($02FFFFFF);
ColorCount = 3;
Colors: array [0..ColorCount - 1] of TColorEntry = (
(Value: clCream; Name: 'clCream'),
(Value: clMoneyGreen; Name: 'clMoneyGreen'),
(Value: clSkyBlue; Name: 'clSkyBlue'));
function JvColorToString(Color: TColor): string;
var
I: Integer;
begin
if not ColorToIdent(Color, Result) then
begin
for I := Low(Colors) to High(Colors) do
if Colors[I].Value = Color then
begin
Result := Colors[I].Name;
Exit;
end;
FmtStr(Result, '$%.8x', [Color]);
end;
end;
function JvIdentToColor(const Ident: string; var Color: Longint): Boolean;
var
I: Integer;
Text: array [0..63] of Char;
begin
StrPLCopy(Text, Ident, SizeOf(Text) - 1);
for I := Low(Colors) to High(Colors) do
if StrIComp(Colors[I].Name, Text) = 0 then
begin
Color := Colors[I].Value;
Result := True;
Exit;
end;
Result := IdentToColor(Ident, Color);
end;
function JvStringToColor(S: string): TColor;
begin
if not JvIdentToColor(S, Longint(Result)) then
Result := StringToColor(S);
end;
procedure JvGetColorValues(Proc: TGetStrProc);
var
I: Integer;
begin
GetColorValues(Proc);
for I := Low(Colors) to High(Colors) do
Proc(StrPas(Colors[I].Name));
end;
function TJvColorProperty.GetValue: string;
var
Color: TColor;
begin
Color := TColor(GetOrdValue);
if Color = clNone16 then
Color := clNone
else
if Color = clInfoBk16 then
Color := clInfoBk;
Result := JvColorToString(Color);
end;
procedure TJvColorProperty.GetValues(Proc: TGetStrProc);
begin
JvGetColorValues(Proc);
end;
procedure TJvColorProperty.SetValue(const Value: string);
begin
SetOrdValue(JvStringToColor(Value));
end;
procedure TJvColorProperty.ListDrawValue(const Value: string; ACanvas: TCanvas;
const ARect: TRect; ASelected: Boolean);
var
Rght: Integer;
OldPenColor, OldBrushColor: TColor;
function ColorToBorderColor(AColor: TColor): TColor;
type
TColorQuad = record
Red, Green, Blue, Alpha: Byte;
end;
begin
if (TColorQuad(AColor).Red > 192) or (TColorQuad(AColor).Green > 192) or
(TColorQuad(AColor).Blue > 192) then
Result := clBlack
else
if ASelected then
Result := clWhite
else
Result := AColor;
end;
begin
Rght := (ARect.Bottom - ARect.Top) + ARect.Left;
with ACanvas do
try
OldPenColor := Pen.Color;
OldBrushColor := Brush.Color;
Pen.Color := Brush.Color;
Rectangle(ARect.Left, ARect.Top, Rght, ARect.Bottom);
Brush.Color := JvStringToColor(Value);
Pen.Color := ColorToBorderColor(ColorToRGB(Brush.Color));
Rectangle(ARect.Left + 1, ARect.Top + 1, Rght - 1, ARect.Bottom - 1);
Brush.Color := OldBrushColor;
Pen.Color := OldPenColor;
finally
ACanvas.TextRect(Rect(Rght, ARect.Top, ARect.Right, ARect.Bottom),
Rght + 1, ARect.Top + 1, Value);
end;
end;
end.
--- NEW FILE: JvScheduleEditors.pas ---
{-----------------------------------------------------------------------------
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: JvSchedEvntReg.PAS, released on 2002-07-04.
The Initial Developers of the Original Code are:
Last Modified:
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:
-----------------------------------------------------------------------------}
{$I JVCL.INC}
unit JvScheduleEditors;
interface
uses
SysUtils, Classes,
{$IFDEF COMPILER6_UP}
DesignIntf, DesignEditors
{$ELSE}
DsgnIntf
{$ENDIF},
JvScheduleEditorForm, JvScheduledEvents;
type
TJvSchedulePropertyEditor = class(TPropertyEditor)
public
procedure Edit; override;
function GetAttributes: TPropertyAttributes; override;
function GetValue: string; override;
end;
TJvSchedEventComponentEditor = class(TComponentEditor)
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
end;
implementation
uses
ColnEdit, Controls,
JclSchedule, JvConsts;
//=== TJvSchedulePropertyEditor ================================================
procedure TJvSchedulePropertyEditor.Edit;
begin
with TfrmScheduleEditor.Create(nil) do
try
Schedule := IJclSchedule({TEventSchedule(}GetOrdValue){.Schedule};
if ShowModal = mrOk then
Self.Modified;
finally
Free;
end;
end;
function TJvSchedulePropertyEditor.GetAttributes: TPropertyAttributes;
begin
Result := [paDialog, paReadOnly];
end;
function TJvSchedulePropertyEditor.GetValue: string;
begin
Result := '(IJclSchedule)';
end;
//=== TJvSchedEventComponentEditor =============================================
procedure TJvSchedEventComponentEditor.ExecuteVerb(Index: Integer);
begin
ShowCollectionEditorClass(Designer, TCollectionEditor, Component,
TJvCustomScheduledEvents(Component).Events, 'Events');
end;
function TJvSchedEventComponentEditor.GetVerb(Index: Integer): string;
begin
Result := 'Event editor...';
end;
function TJvSchedEventComponentEditor.GetVerbCount: Integer;
begin
Result := 1;
end;
end.
Index: JvAlarmsEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvAlarmsEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvAlarmsEditor.pas 17 Jun 2003 11:11:17 -0000 1.1
--- JvAlarmsEditor.pas 21 Jun 2003 23:26:43 -0000 1.2
***************
*** 54,58 ****
uses
! JvxDConst;
function TJvAlarmsEditor.GetAttributes: TPropertyAttributes;
--- 54,58 ----
uses
! JvConsts;
function TJvAlarmsEditor.GetAttributes: TPropertyAttributes;
Index: JvAnimatedEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvAnimatedEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvAnimatedEditor.pas 17 Jun 2003 11:11:17 -0000 1.1
--- JvAnimatedEditor.pas 21 Jun 2003 23:26:43 -0000 1.2
***************
*** 5,9 ****
interface
uses
! Windows, Forms, Graphics, ImgList, JvxAnimate, JvAniFile,
{$IFDEF COMPILER6_UP}
DesignIntf, DesignEditors, DesignMenus, VCLEditors,
--- 5,9 ----
interface
uses
! Windows, Forms, Graphics, ImgList, JvAnimatedImage, JvAniFile,
{$IFDEF COMPILER6_UP}
DesignIntf, DesignEditors, DesignMenus, VCLEditors,
***************
*** 32,36 ****
implementation
uses
! JvxDConst, TypInfo;
//=== TJvAnimatedEditor ======================================================
--- 32,36 ----
implementation
uses
! JvConsts, TypInfo;
//=== TJvAnimatedEditor ======================================================
Index: JvCheckedItemsForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvCheckedItemsForm.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvCheckedItemsForm.pas 19 Jun 2003 02:42:15 -0000 1.2
--- JvCheckedItemsForm.pas 21 Jun 2003 23:26:43 -0000 1.3
***************
*** 31,39 ****
uses
- {$IFDEF WIN32}
Windows,
- {$ELSE}
- WinTypes, WinProcs,
- {$ENDIF}
SysUtils, Classes, Controls, Forms, Menus, Graphics,
StdCtrls,
--- 31,35 ----
***************
*** 43,47 ****
DsgnIntf,
{$ENDIF}
! JvPlacemnt, JvxCtrls, JvComponent;
type
--- 39,43 ----
DsgnIntf,
{$ENDIF}
! JvFormPlacement, JvxCtrls, JvComponent;
type
***************
*** 114,123 ****
uses
Consts,
! {$IFDEF COMPILER3_UP}
! JvStrLEdit,
! {$ELSE}
! StrEdit,
! {$ENDIF}
! JvConst, JvVCLUtils, JvBoxProcs;
//=== TJvCheckItemsProperty ==================================================
--- 110,115 ----
uses
Consts,
! JvStringsForm,
! JvConsts, JvJVCLUtils, JvBoxProcs;
//=== TJvCheckItemsProperty ==================================================
Index: JvCmpReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvCmpReg.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** JvCmpReg.pas 21 Jun 2003 14:35:11 -0000 1.3
--- JvCmpReg.pas 21 Jun 2003 23:26:43 -0000 1.4
***************
*** 9,16 ****
implementation
uses
! Classes,
! JvAlarms, JvAni, JvAnimate, JvBmpAnimator, JvConverter, JvDataEmbedded,
! JvEnterTab, JvMergeManager, JvPageManager, JvPatchFile, JvPicClip,
! JvStringHolder, JvTimeLimit, JvWinHelp, JvTranslator, JvPrint;
{.$R ..\resources\JvCmpReg.dcr}
--- 9,18 ----
implementation
uses
! Classes, DesignIntf,
! JvAlarms, JvConverter, JvDataEmbedded, JvCreateProcess,
! JvEnterTab, JvMergeManager, JvPageManager, JvPatchFile,
! JvStringHolder, JvTimeLimit, JvWinHelp, JvTranslator, JvPrint, JvEasterEgg,
! JvDataEmbeddedEditor, JvPatcherEditor, JvAlarmsEditor,
! JvDsgnEditors;
{.$R ..\resources\JvCmpReg.dcr}
***************
*** 19,27 ****
begin
RegisterComponents('Jv Components',[
! TJvAlarms, TJvAnimate, TJvBmpAnimator, TJvConverter, TJvDataEmbedded,
! TJvEnterAsTab, TJvMergeManager, TJvPageManager, TJvPatchFile, TJvPicClip,
! TJvStrHolder, TJvTimeLimit, TJvWinHelp, TJvTranslator, TJvPrint
!
]);
end;
--- 21,34 ----
begin
RegisterComponents('Jv Components',[
! TJvAlarms, TJvConverter, TJvDataEmbedded, TJvCreateProcess,
! TJvEnterAsTab, TJvMergeManager, TJvPageManager, TJvPatchFile,
! TJvStrHolder, TJvTimeLimit, TJvWinHelp, TJvTranslator, TJvPrint, TJvEasterEgg
]);
+
+ RegisterPropertyEditor(TypeInfo(string), TJvCreateProcess, '', TJvExeNameProperty);
+ RegisterPropertyEditor(TypeInfo(string), TJvCreateProcess, 'CurrentDirectory', TJvDirectoryProperty);
+ RegisterPropertyEditor(TypeInfo(TStream), TJvDataEmbedded, 'Data', TJvDataEmbeddedEditor);
+ RegisterPropertyEditor(TypeInfo(TStrings), TJvPatchFile, 'Differences', TJvPatcherEditor);
+ RegisterPropertyEditor(TypeInfo(TStrings), TJvAlarms, 'Alarms', TJvAlarmsEditor);
end;
Index: JvCoreReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvCoreReg.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** JvCoreReg.pas 19 Jun 2003 08:58:14 -0000 1.6
--- JvCoreReg.pas 21 Jun 2003 23:26:43 -0000 1.7
***************
*** 9,35 ****
implementation
uses
! // About JVCL
! Classes, Controls, ActnList, DesignIntf,
! JVCLVer, JvCOmponent, JvActions, JvActnRes, JvJVCLAbout,
! JvJVCLAboutEditor, JvDsgnEditors;
{.$R ..\resources\JvCoreReg.dcr}
procedure Register;
begin
RegisterComponents('Jv Standard',[TJvJVCLAboutComponent]);
RegisterPropertyEditor(TypeInfo(TJVCLAboutInfo), nil, 'AboutJVCL', TJVCLAboutDialogProperty);
{$IFDEF JVCL_REGISTER_GLOBAL_DESIGNEDITORS}
! RegisterPropertyEditor(TypeInfo(TDate), nil, '', TJvDateExProperty);
! RegisterPropertyEditor(TypeInfo(TTime), nil, '', TJvTimeExProperty);
! RegisterPropertyEditor(TypeInfo(TDateTime), nil, '', TJvDateTimeExProperty);
! RegisterComponentEditor(TCommonDialog, TJvBaseDlgEditor);
{$ENDIF}
RegisterPropertyEditor(TypeInfo(TShortCut), TJvComponent, '', TJvShortCutProperty);
RegisterActions('JVCL', [TJvSendMail, TJvWebAction], TJvStandardActions);
end;
--- 9,69 ----
implementation
uses
! Classes, Controls, StdCtrls, ExtCtrls, Graphics, ActnList, ImgList, Dialogs,
! DesignIntf,
! JvJCLUtils, JVCLVer, JvComponent, JvActions, JvActnRes, JvJVCLAbout, JvDsgnEditors, JvIDEZoom,
! JvJVCLAboutEditor, JvBaseDlgEditor, JvColorEditor, JvPaintBoxEditor;
{.$R ..\resources\JvCoreReg.dcr}
procedure Register;
+ const
+ BaseClass:TClass = TComponent;
+
begin
RegisterComponents('Jv Standard',[TJvJVCLAboutComponent]);
RegisterPropertyEditor(TypeInfo(TJVCLAboutInfo), nil, 'AboutJVCL', TJVCLAboutDialogProperty);
+ {.$DEFINE JVCL_REGISTER_GLOBAL_DESIGNEDITORS} // - just for testing
{$IFDEF JVCL_REGISTER_GLOBAL_DESIGNEDITORS}
! RegisterPropertyEditor(TypeInfo(TDate), nil, '', TJvDateExProperty);
! RegisterPropertyEditor(TypeInfo(TTime), nil, '', TJvTimeExProperty);
! RegisterPropertyEditor(TypeInfo(TDateTime), nil, '', TJvDateTimeExProperty);
! RegisterPropertyEditor(TypeInfo(TColor), TPersistent, '', TJvColorProperty);
! RegisterPropertyEditor(TypeInfo(string), BaseClass, 'FolderName', TJvDirectoryProperty);
! RegisterPropertyEditor(TypeInfo(string), BaseClass, 'DirectoryName', TJvDirectoryProperty);
! RegisterPropertyEditor(TypeInfo(string), BaseClass, 'Hint', TJvHintProperty);
! RegisterPropertyEditor(TypeInfo(TCaption), BaseClass, '', TJvHintProperty);
!
! RegisterPropertyEditor(TypeInfo(Integer), BaseClass, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(ShortInt), BaseClass, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(SmallInt), BaseClass, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Longint), BaseClass, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Word), BaseClass, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Byte), BaseClass, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Cardinal), BaseClass, '', TJvIntegerProperty);
!
! RegisterPropertyEditor(TypeInfo(Single), BaseClass, '', TJvFloatProperty);
! RegisterPropertyEditor(TypeInfo(Double), BaseClass, '', TJvFloatProperty);
! RegisterPropertyEditor(TypeInfo(Extended), BaseClass, '', TJvFloatProperty);
! RegisterPropertyEditor(TypeInfo(Currency), BaseClass, '', TJvFloatProperty);
! RegisterPropertyEditor(TypeInfo(TPicture), nil, '', TJvPictProperty);
! RegisterPropertyEditor(TypeInfo(TGraphic), nil, '', TJvGraphicPropertyEditor);
!
! {$IFNDEF DelphiPersonalEdition}
! RegisterComponentEditor(TPaintBox, TJvPaintBoxEditor);
! RegisterComponentEditor(TCustomImageList, TJvImageListEditor);
! RegisterComponentEditor(TImageList, TJvImageListEditor);
! {$ENDIF}
! RegisterComponentEditor(TImage, TJvGraphicsEditor);
! RegisterComponentEditor(TCommonDialog, TJvBaseDlgEditor);
{$ENDIF}
RegisterPropertyEditor(TypeInfo(TShortCut), TJvComponent, '', TJvShortCutProperty);
+ RegisterPropertyEditor(TypeInfo(TDayOfWeekName), nil, '', TJvWeekDayProperty);
RegisterActions('JVCL', [TJvSendMail, TJvWebAction], TJvStandardActions);
+ RegisterZoom;
+
end;
Index: JvCtrlsReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvCtrlsReg.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** JvCtrlsReg.pas 21 Jun 2003 14:35:11 -0000 1.3
--- JvCtrlsReg.pas 21 Jun 2003 23:26:43 -0000 1.4
***************
*** 9,22 ****
implementation
uses
! Classes, DesignIntf,
JvZoom, JvAnalogClock, JvBehaviorLabel, JvArrowButton, JvaScrollText, JvCaptionButton,
JvClock, JvContentScroller, JvColorBox, JvColorButton, JvDice,
! JvDriveCtrls, JvFooter, JvHtControls, JvInstallLabel, JvItemsPanel,
JvListComb, JvPageScroller, JvRegistryTreeView, JvRollOut, JvScrollPanel,
JvScrollText, JvSpacer, JvSpeedBar, JvSplit, JvSplitter, JvSwitch, JvSyncSplitter,
JvTransparentButton, JvTransLED, JvxClock, JvSpeedbarSetupForm,
JvColorForm, JvDsgnIntf, JvImageDrawThread, JvRegAuto, JvWinampLabel,
! JvButtons, JvCaptionPanel,
! JvBehaviorLabelEditor;
{.$R ..\resources\JvCtrlsReg.dcr}
--- 9,23 ----
implementation
uses
! Classes, Controls, DesignIntf,
JvZoom, JvAnalogClock, JvBehaviorLabel, JvArrowButton, JvaScrollText, JvCaptionButton,
JvClock, JvContentScroller, JvColorBox, JvColorButton, JvDice,
! JvDriveCtrls, JvFooter, JvGroupHeader, JvHtControls, JvInstallLabel, JvItemsPanel,
JvListComb, JvPageScroller, JvRegistryTreeView, JvRollOut, JvScrollPanel,
JvScrollText, JvSpacer, JvSpeedBar, JvSplit, JvSplitter, JvSwitch, JvSyncSplitter,
JvTransparentButton, JvTransLED, JvxClock, JvSpeedbarSetupForm,
JvColorForm, JvDsgnIntf, JvImageDrawThread, JvRegAuto, JvWinampLabel,
! JvButtons, JvCaptionPanel, JvScrollMax,
! JvRegAutoEditor, JvScrollMaxEditor, JvBehaviorLabelEditor, JvGroupHeaderEditor, JvFooterEditor,
! JvDsgnEditors;
{.$R ..\resources\JvCtrlsReg.dcr}
***************
*** 28,32 ****
TJvCaptionButton, TJvClock, TJvContentScroller, TJvColorButton, TJvDice,
TJvDriveCombo, TJvDriveList, TJvFileListBox, TJvDirectoryListBox,
! TJvFooter, TJvInstallLabel, TJvItemsPanel,
TJvHtListBox, TJvHTComboBox, TJvHTLabel,
TJvImageComboBox, TJvImageListBox, TJvPageScroller, TJvRegistryTreeView,
--- 29,33 ----
TJvCaptionButton, TJvClock, TJvContentScroller, TJvColorButton, TJvDice,
TJvDriveCombo, TJvDriveList, TJvFileListBox, TJvDirectoryListBox,
! TJvFooter, TJvGroupHeader, TJvInstallLabel, TJvItemsPanel,
TJvHtListBox, TJvHTComboBox, TJvHTLabel,
TJvImageComboBox, TJvImageListBox, TJvPageScroller, TJvRegistryTreeView,
***************
*** 34,40 ****
TJvSplitter, TJvxSplitter, TJvSwitch, TJvSyncSplitter, TJvTransparentButton,
TJvTransparentButton2, TJvTransLED, TJvxClock, TJvRegAuto, TJvWinampLabel,
! TJvHTButton, TJvCaptionPanel, TJvBehaviorLabel
]);
RegisterPropertyEditor(typeinfo(TJvLabelBehaviorName),TJvBehaviorLabel,'Behavior',TJvLabelBehaviorProperty);
end;
--- 35,54 ----
TJvSplitter, TJvxSplitter, TJvSwitch, TJvSyncSplitter, TJvTransparentButton,
TJvTransparentButton2, TJvTransLED, TJvxClock, TJvRegAuto, TJvWinampLabel,
! TJvHTButton, TJvCaptionPanel, TJvScrollMax, TJvBehaviorLabel
]);
+
+ RegisterPropertyEditor(typeinfo(TCaption), TJvHTLabel, 'Caption', TJvHintProperty);
RegisterPropertyEditor(typeinfo(TJvLabelBehaviorName),TJvBehaviorLabel,'Behavior',TJvLabelBehaviorProperty);
+ RegisterPropertyEditor(TypeInfo(TCursor), TJvxSplitter, 'Cursor', nil);
+ RegisterPropertyEditor(TypeInfo(TDateTime),TJvAlarmInfo,'Date',TJvDateTimeExProperty);
+
+ RegisterComponentEditor(TJvScrollMax, TJvScrollMaxEditor);
+ RegisterComponentEditor(TJvGroupHeader, TJvGroupHeaderEditor);
+ RegisterComponentEditor(TJvFooter, TJvFooterEditor);
+
+ RegisterComponentEditor(TJvRegAuto, TJvRegAutoEditor);
+
+ RegisterClass(TJvScrollMaxBand);
+
end;
Index: JvCustomReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvCustomReg.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvCustomReg.pas 19 Jun 2003 08:58:14 -0000 1.2
--- JvCustomReg.pas 21 Jun 2003 23:26:43 -0000 1.3
***************
*** 9,13 ****
implementation
uses
! Classes;
{.$R ..\resources\JvCustomReg.dcr}
--- 9,29 ----
implementation
uses
! Classes,
! {$IFDEF COMPILER6_UP}
! DesignEditors, DesignIntf,
! {$ELSE}
! DsgnIntf,
! {$ENDIF COMPILER6_UP}
! ExptIntf, ToolsApi,
! JclSchedule,
!
! JvTrayIcon, JvGammaPanel, JvInspector, JvLinkLabel,
! JvBandForms, JvBandObjectDLLWizard, JvBandObjectDLLWizardForm,
! JvLookOut, JvOutlookBar, JvRadioControl, JvScheduledEvents, JvThumbImage,
! JvThumbnails, JvThumbviews, JvTimeLine, JvTMTimeLine, JvBalloonHint,
! JvPluginManager, JvPLuginWizard,
! JvValidateEdit, JvEditor, JvHLEditor, JvHLEditorPropertyForm, JvHLParser,
! JvTimeLineEditor, JvHLEditEditor, JvScheduleEditors, JvOutlookBarEditors;
!
{.$R ..\resources\JvCustomReg.dcr}
***************
*** 15,19 ****
procedure Register;
begin
! // RegisterComponents('',[]);
end;
--- 31,65 ----
procedure Register;
begin
! RegisterComponents('Jv Custom',[
! TJvTrayIcon, TJvGammaPanel, TJvLinkLabel,
! TJvInspector, TJvInspectorBorlandPainter, TJvInspectorDotNETPainter,
! TJvLookout, TJvLookOutPage, TJvLookOutButton,
! TJvExpress, TJvExpressButton,
! TJvOutlookBar, TJvRadioControl, TJvScheduledEvents,
! TJvThumbImage, TJvTimeLine, TJvTMTimeLine, TJvBalloonHint,
! TJvPluginManager, TJvValidateEdit,
! TJvEditor, TJvHLEditor, TJvHLEdPropDlg
! ]);
! RegisterCustomModule(TJvBandForm, TCustomModule);
! RegisterPackageWizard(TJvBandObjectDLLWizard.Create);
!
! RegisterComponentEditor(TJvHLEdPropDlg, TJvHLEdPropDlgEditor);
! RegisterComponentEditor(TJvCustomOutlookBar, TJvOutlookBarComponentEditor);
! RegisterComponentEditor(TJvCustomTimeLine, TJvTimeLineEditor);
!
! RegisterPropertyEditor(TypeInfo(Integer),
! TJvCustomOutlookBar, 'ActivePageIndex', TJvOutlookBarActivePageEditor);
! RegisterPropertyEditor(TypeInfo(TJvOutlookBarPages),
! TJvCustomOutlookBar, '', TJvOutlookBarPagesPropertyEditor);
! RegisterPropertyEditor(TypeInfo(TJvOutlookBarButtons),
! TJvOutlookBarPage, '', TJvOutlookBarPagesPropertyEditor);
! RegisterPropertyEditor(TypeInfo(Integer),
! TJvOutlookBarButton, 'ImageIndex', TJvOutlookBarButtonImageIndexProperty);
! RegisterPropertyEditor(TypeInfo(TJvColors),
! TJvHLEditor, 'Colors', TJvHLEditorColorProperty);
! RegisterPropertyEditor(TypeInfo(IJclSchedule), TJvEventCollectionItem, 'Schedule', TJvSchedulePropertyEditor);
!
! RegisterComponentEditor(TJvCustomScheduledEvents, TJvSchedEventComponentEditor);
! RegisterLibraryExpert(TJvPluginWizard.Create)
end;
Index: JvDataEmbeddedEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvDataEmbeddedEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvDataEmbeddedEditor.pas 17 Jun 2003 11:11:17 -0000 1.1
--- JvDataEmbeddedEditor.pas 21 Jun 2003 23:26:43 -0000 1.2
***************
*** 54,58 ****
uses
! JvxDConst;
procedure TJvDataEmbeddedEditor.Edit;
--- 54,58 ----
uses
! JvConsts;
procedure TJvDataEmbeddedEditor.Edit;
Index: JvDirectoryListForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvDirectoryListForm.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvDirectoryListForm.pas 19 Jun 2003 02:42:15 -0000 1.2
--- JvDirectoryListForm.pas 21 Jun 2003 23:26:43 -0000 1.3
***************
*** 61,65 ****
uses
! JvFileUtil, JvBoxProcs, JvConst;
{$R *.DFM}
--- 61,65 ----
uses
! JvJVCLUtils, JvJCLUtils, JvBrowseFolder, JvBoxProcs, JvConsts;
{$R *.DFM}
Index: JvDlgsReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvDlgsReg.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** JvDlgsReg.pas 21 Jun 2003 14:35:11 -0000 1.4
--- JvDlgsReg.pas 21 Jun 2003 23:26:43 -0000 1.5
***************
*** 9,16 ****
implementation
uses
! Classes, DesignIntf, ActnList,
! JvDSADialogs, JvBaseDlg, JvTipOfDay, JvWinDialogs, JvAddPrinter, JvCommonDialogD, JvCommonExecDlg,
! JvDialogActns, JvActnRes, JvDialogs, JvProgressForm, JvPageSetupTitled, JvPageSetup, JvConnectNetwork,
! JvSelectDirectory, JvCopyError, JvDeleteError, JvRenameError, JvDiskPrompt, JvFindFiles,
JvObjectPickerDialog, JvBaseDlgEditor, JvCommonDialogDEditor, JvTipOfDayEditor;
--- 9,16 ----
implementation
uses
! Classes, DesignIntf, ActnList, JvBaseDlg,
! JvDSADialogs, JvTipOfDay, JvWinDialogs, JvAddPrinter, JvCommonDialogD, JvCommonExecDlg,
! JvDialogActns, JvActnRes, JvDialogs, JvProgressForm, JvPageSetupTitled, JvPageSetup, JvConnectNetwork,
! JvSelectDirectory, JvCopyError, JvDeleteError, JvRenameError, JvDiskPrompt, JvFindFiles,
JvObjectPickerDialog, JvBaseDlgEditor, JvCommonDialogDEditor, JvTipOfDayEditor;
***************
*** 19,23 ****
procedure Register;
begin
! // RegisterComponents('',[]);
{$IFDEF JVCL_REGISTER_GLOBAL_DESIGNEDITORS}
RegisterComponentEditor(TCommonDialog, TJvBaseDlgEditor);
--- 19,30 ----
procedure Register;
begin
! RegisterComponents('Jv Dialogs',[
! TJvDSADialog, TJvTipOfDay,
! TJvFormatDriveDialog, TJvOrganizeFavoritesDialog, TJvAppletDialog,
!
! TJvProgressForm
!
! ]);
!
{$IFDEF JVCL_REGISTER_GLOBAL_DESIGNEDITORS}
RegisterComponentEditor(TCommonDialog, TJvBaseDlgEditor);
Index: JvHLEditEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvHLEditEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvHLEditEditor.pas 17 Jun 2003 11:11:17 -0000 1.1
--- JvHLEditEditor.pas 21 Jun 2003 23:26:43 -0000 1.2
***************
*** 6,10 ****
Windows,
SysUtils, Controls,
! JvEditor, JvHLEditor, JvHLEdPropDlg,
{$IFDEF COMPILER6_UP}
DesignIntf, DesignEditors, PropertyCategories,
--- 6,10 ----
Windows,
SysUtils, Controls,
! JvEditor, JvHLEditor, JvHLEditorPropertyForm,
{$IFDEF COMPILER6_UP}
DesignIntf, DesignEditors, PropertyCategories,
***************
*** 15,19 ****
DsgnIntf,
{$ENDIF COMPILER6_UP}
! JvRegAuto, JvxDConst, Classes;
resourcestring
--- 15,19 ----
DsgnIntf,
{$ENDIF COMPILER6_UP}
! JvRegAuto, JvConsts, Classes;
resourcestring
Index: JvImagePreviewForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvImagePreviewForm.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvImagePreviewForm.pas 19 Jun 2003 02:42:15 -0000 1.2
--- JvImagePreviewForm.pas 21 Jun 2003 23:26:43 -0000 1.3
***************
*** 38,42 ****
{$ENDIF}
SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, ExtCtrls, FileCtrl,
! JvxCtrls, JvPicClip, JvPlacemnt, JvComponent;
type
--- 38,42 ----
{$ENDIF}
SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, ExtCtrls, FileCtrl,
! JvxCtrls, JvPicClip, JvFormPlacement, JvComponent;
type
***************
*** 86,90 ****
uses
Math,
! JvConst, JvVCLUtils, JvGraph;
{$R *.DFM}
--- 86,90 ----
uses
Math,
! JvConsts, JvJVCLUtils;
{$R *.DFM}
***************
*** 153,157 ****
if ValidPicture(Image.Picture) then
begin
! with JvGraph.ZoomImage(Image.Picture.Width, Image.Picture.Height,
ImagePanel.ClientWidth - 4, ImagePanel.ClientHeight - 4,
StretchCheck.Checked) do
--- 153,157 ----
if ValidPicture(Image.Picture) then
begin
! with JvJVCLUtils.ZoomImage(Image.Picture.Width, Image.Picture.Height,
ImagePanel.ClientWidth - 4, ImagePanel.ClientHeight - 4,
StretchCheck.Checked) do
Index: JvInterpreterReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvInterpreterReg.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvInterpreterReg.pas 19 Jun 2003 08:58:14 -0000 1.2
--- JvInterpreterReg.pas 21 Jun 2003 23:26:43 -0000 1.3
***************
*** 9,13 ****
implementation
uses
! Classes;
{.$R ..\resources\JvInterpreterReg.dcr}
--- 9,19 ----
implementation
uses
! Classes, DesignIntf,
! JvInterpreterParser, JvInterpreter, JvInterpreter_all, JvInterpreter_Classes, JvInterpreter_ComCtrls, JvInterpreter_Contnrs,
! JvInterpreter_Controls, JvInterpreter_Db, JvInterpreter_DbCtrls, JvInterpreter_DbGrids, JvInterpreter_DBTables,
! JvInterpreter_Dialogs, JvInterpreter_ExtCtrls, JvInterpreter_Forms, JvInterpreter_Graphics, JvInterpreter_Grids,
! JvInterpreter_httpapp, JvInterpreter_JvEditor, JvInterpreter_JvInterpreter, JvInterpreter_JvRegAuto, JvInterpreter_JvUtils,
! JvInterpreter_Menus, JvInterpreter_Quickrpt, JvInterpreter_StdCtrls, JvInterpreter_System, JvInterpreter_SysUtils,
! JvInterpreter_Types, JvInterpreter_Windows, JvInterpreterConst, JvInterpreterFm, JvDsgnEditors;
{.$R ..\resources\JvInterpreterReg.dcr}
***************
*** 15,19 ****
procedure Register;
begin
! // RegisterComponents('',[]);
end;
--- 21,38 ----
procedure Register;
begin
! RegisterComponents('Jv Interpreter',[TJvInterpreterProgram,TJvInterpreterFm]);
! {.$DEFINE JVCL_REGISTER_GLOBAL_DESIGNEDITORS}
! {.$DEFINE JvInterpreter_INTEGERPROPERTY}
! {$IFDEF JVCL_REGISTER_GLOBAL_DESIGNEDITORS}
! {$IFDEF JvInterpreter_INTEGERPROPERTY}
! RegisterPropertyEditor(TypeInfo(Integer), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Cardinal), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Longint), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Smallint), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Shortint), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Word), TObject, '', TJvIntegerProperty);
! RegisterPropertyEditor(TypeInfo(Byte), TObject, '', TJvIntegerProperty);
! {$ENDIF JvInterpreter_INTEGERPROPERTY}
! {$ENDIF}
end;
Index: JvMMReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvMMReg.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvMMReg.pas 19 Jun 2003 08:58:14 -0000 1.2
--- JvMMReg.pas 21 Jun 2003 23:26:43 -0000 1.3
***************
*** 9,13 ****
implementation
uses
! Classes;
{.$R ..\resources\JvMMReg.dcr}
--- 9,21 ----
implementation
uses
! Classes, DesignIntf,
! JvAni, JvAnimate, JvBmpAnimator, JvPicClip,
! JvVisualId3v1, JvVisualId3v2, JvEasterEgg, JvGradient, JvGradientCaption, JvId3v1, JvId3v2,
! JvImageRotate, JvImageTransform, JvImageWindow, JvPcx,
! JvStarfield, JvWaitingGradient, JvWaitingProgress, JvWavePlayer,
! JvSpecialProgress, JvSlider, JvGIF, JvGIFCtrl, JvID3v2Base, JvAnimatedImage,
! JvSpecialImage,
!
! JvAnimatedEditor, JvPictureEditForm;
{.$R ..\resources\JvMMReg.dcr}
***************
*** 15,19 ****
procedure Register;
begin
! // RegisterComponents('',[]);
end;
--- 23,37 ----
procedure Register;
begin
! RegisterComponents('Jv Multimedia',[
! TJvAnimate, TJvBmpAnimator, TJvPicClip,
! TJvGradient, TJvGradientCaption,
! TJvId3v1, TJvId3v2, TJvVisualId3v1, TJvVisualId3v2, TJvID3Controller,
! TJvImageRotate, TJvImageTransform, TJvImageWindow,
! TJvStarfield, TJvWaitingGradient, TJvWaitingProgress, TJvWavePlayer,
! TJvSpecialProgress, TJvSlider, TJvGIFAnimator, TJvAnimatedImage,
! TJvSpecialImage
! ]);
! RegisterComponentEditor(TJvAnimatedImage, TJvAnimatedEditor);
! RegisterComponentEditor(TJvPicClip, TJvGraphicsEditor);
end;
Index: JvOutlookBarEditors.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvOutlookBarEditors.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvOutlookBarEditors.pas 21 Jun 2003 14:35:11 -0000 1.1
--- JvOutlookBarEditors.pas 21 Jun 2003 23:26:43 -0000 1.2
***************
*** 51,60 ****
end;
! procedure Register;
!
implementation
uses
JvOutlookBarForm;
!
type
THackOutlookBar = class(TJvCustomOutlookBar);
--- 51,59 ----
end;
!
implementation
uses
JvOutlookBarForm;
!
type
THackOutlookBar = class(TJvCustomOutlookBar);
***************
*** 62,78 ****
resourcestring
SOLEditor = 'OutlookBar Editor...';
!
! procedure Register;
! begin
! RegisterComponentEditor(TJvCustomOutlookBar, TJvOutlookBarComponentEditor);
! RegisterPropertyEditor(TypeInfo(Integer),
! TJvCustomOutlookBar, 'ActivePageIndex', TJvOutlookBarActivePageEditor);
! RegisterPropertyEditor(TypeInfo(TJvOutlookBarPages),
! TJvCustomOutlookBar, '', TJvOutlookBarPagesPropertyEditor);
! RegisterPropertyEditor(TypeInfo(TJvOutlookBarButtons),
! TJvOutlookBarPage, '', TJvOutlookBarPagesPropertyEditor);
! RegisterPropertyEditor(TypeInfo(Integer),
! TJvOutlookBarButton, 'ImageIndex', TJvOutlookBarButtonImageIndexProperty);
! end;
--- 61,65 ----
resourcestring
SOLEditor = 'OutlookBar Editor...';
!
Index: JvPatcherEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvPatcherEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvPatcherEditor.pas 17 Jun 2003 11:11:17 -0000 1.1
--- JvPatcherEditor.pas 21 Jun 2003 23:26:43 -0000 1.2
***************
*** 54,58 ****
uses
! JvxDConst;
function TJvPatcherEditor.GetAttributes: TPropertyAttributes;
--- 54,58 ----
uses
! JvConsts;
function TJvPatcherEditor.GetAttributes: TPropertyAttributes;
Index: JvPictureEditForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvPictureEditForm.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvPictureEditForm.pas 19 Jun 2003 02:42:15 -0000 1.2
--- JvPictureEditForm.pas 21 Jun 2003 23:26:43 -0000 1.3
***************
*** 31,39 ****
uses
- {$IFDEF WIN32}
Windows,
- {$ELSE}
- WinTypes, WinProcs,
- {$ENDIF}
Messages, Classes, Graphics, Forms, Controls, Dialogs, Menus,
{$IFDEF COMPILER6_UP}
--- 31,35 ----
***************
*** 46,52 ****
ExtDlgs, ComCtrls,
{$ELSE}
! JvImagPrvw,
{$ENDIF}
! JvMRUList, JvPlacemnt, JvxCtrls, JvClipMon, JvComponent;
type
--- 42,48 ----
ExtDlgs, ComCtrls,
{$ELSE}
! JvImagePreviewForm,
{$ENDIF}
! JvMRUManager, JvFormPlacement, JvxCtrls, JvClipboardMonitor, JvComponent;
type
***************
*** 174,178 ****
uses
TypInfo, SysUtils, Clipbrd, Consts, ShellApi, LibHelp,
! JvClipIcon, JvGraph, JvVCLUtils, JvAppUtils, JvConst, JvDirFrm, JvFileUtil, JvTypes;
{$B-}
--- 170,174 ----
uses
TypInfo, SysUtils, Clipbrd, Consts, ShellApi, LibHelp,
! JvJVCLUtils, JvJCLUtils, JvConsts, JvDirectoryListForm, JvTypes;
{$B-}
Index: JvPluginWizard.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvPluginWizard.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvPluginWizard.pas 18 Jun 2003 07:01:29 -0000 1.2
--- JvPluginWizard.pas 21 Jun 2003 23:26:43 -0000 1.3
***************
*** 128,132 ****
{$ENDIF COMPILER6_UP}
Controls, SysUtils,
! JvPlugin, JvPluginParams, JvTypes;
{$R ..\resources\JvPluginWiz.res}
--- 128,132 ----
{$ENDIF COMPILER6_UP}
Controls, SysUtils,
! JvPlugin, JvPluginParamsForm, JvTypes;
{$R ..\resources\JvPluginWiz.res}
Index: JvProgressEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvProgressEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvProgressEditor.pas 17 Jun 2003 11:11:17 -0000 1.1
--- JvProgressEditor.pas 21 Jun 2003 23:26:43 -0000 1.2
***************
*** 24,28 ****
uses
Consts, Dialogs,
! JvxDConst, JvPrgrss;
//=== TJvProgressControlProperty =============================================
--- 24,28 ----
uses
Consts, Dialogs,
! JvConsts, JvProgressUtils;
//=== TJvProgressControlProperty =============================================
Index: JvRegAutoEditor.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvRegAutoEditor.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvRegAutoEditor.dfm 17 Jun 2003 11:11:17 -0000 1.1
--- JvRegAutoEditor.dfm 21 Jun 2003 23:26:43 -0000 1.2
***************
*** 33,37 ****
object panelBottom: TPanel
Left = 0
! Top = 295
Width = 452
Height = 30
--- 33,37 ----
object panelBottom: TPanel
Left = 0
! Top = 302
Width = 452
Height = 30
***************
*** 47,50 ****
--- 47,53 ----
BevelOuter = bvNone
TabOrder = 0
+ DesignSize = (
+ 158
+ 30)
object btnOk: TButton
Left = 1
***************
*** 94,97 ****
--- 97,103 ----
BevelOuter = bvNone
TabOrder = 0
+ DesignSize = (
+ 28
+ 32)
object btnAddProp: TSpeedButton
Left = 2
***************
*** 172,176 ****
Top = 36
Width = 201
! Height = 259
Hint = 'Accessible properties'
Align = alLeft
--- 178,182 ----
Top = 36
Width = 201
! Height = 266
Hint = 'Accessible properties'
Align = alLeft
***************
*** 196,200 ****
Top = 36
Width = 251
! Height = 259
Hint = 'List of saved properties'
Align = alClient
--- 202,206 ----
Top = 36
Width = 251
! Height = 266
Hint = 'List of saved properties'
Align = alClient
Index: JvRegAutoEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvRegAutoEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvRegAutoEditor.pas 17 Jun 2003 11:11:17 -0000 1.1
--- JvRegAutoEditor.pas 21 Jun 2003 23:26:43 -0000 1.2
***************
*** 111,115 ****
uses
! JvCtlConst, TypInfo, ExptIntf, JvDsgnIntf;
{$R *.DFM}
--- 111,115 ----
uses
! JvConsts, TypInfo, ExptIntf, JvDsgnIntf;
{$R *.DFM}
Index: JvStdCtrlsReg.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvStdCtrlsReg.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** JvStdCtrlsReg.pas 21 Jun 2003 14:35:11 -0000 1.3
--- JvStdCtrlsReg.pas 21 Jun 2003 23:26:43 -0000 1.4
***************
*** 9,17 ****
implementation
uses
! Classes,
JvSpin, JvEdit, JvRichEdit, JvProgressBar, JvDateTimePicker, JvDatePickerEdit, JvCheckedMaskEdit,
JvMaskEdit, JvCalendar, JvBaseEdits, JvCalc, JvToolEdit, JvxCtrls,
JvxSlider, JvBevel, JvCheckBox, JvCheckListBox, JvCombobox,
! JvComCtrls, JvControlBar, JvCoolBar, JvCtrls, JvGroupBox, JvGroupHeader, JvHeaderControl,
JvHotKey, JvImage, JvLabel, JvListView, JvMemo, JvMenus, JvRadioButton, JvRadioGroup,
JvScrollBar, JvScrollBox, JvShape, JvStaticText, JvStatusBar, JvStringGrid,
--- 9,17 ----
implementation
uses
! Classes, Controls, DesignIntf, DesignEditors, FiltEdit,
JvSpin, JvEdit, JvRichEdit, JvProgressBar, JvDateTimePicker, JvDatePickerEdit, JvCheckedMaskEdit,
JvMaskEdit, JvCalendar, JvBaseEdits, JvCalc, JvToolEdit, JvxCtrls,
JvxSlider, JvBevel, JvCheckBox, JvCheckListBox, JvCombobox,
! JvComCtrls, JvControlBar, JvCoolBar, JvCtrls, JvGroupBox, JvHeaderControl,
JvHotKey, JvImage, JvLabel, JvListView, JvMemo, JvMenus, JvRadioButton, JvRadioGroup,
JvScrollBar, JvScrollBox, JvShape, JvStaticText, JvStatusBar, JvStringGrid,
***************
*** 19,23 ****
JvFindReplace, JvControlPanelButton, JvStartMenuButton, JvRecentMenuButton, JvFavoritesButton,
! JvBrowseFolder, JvTransparentPanel, JvColorCombo;
--- 19,26 ----
JvFindReplace, JvControlPanelButton, JvStartMenuButton, JvRecentMenuButton, JvFavoritesButton,
! JvBrowseFolder, JvTransparentPanel, JvCheckedItemsForm, JvColorCombo,
!
! JvProgressEditor,
! JvDsgnEditors;
***************
*** 25,28 ****
--- 28,33 ----
procedure Register;
+ const
+ BaseClass:TClass = TComponent;
begin
RegisterComponents('Jv Standard',[
***************
*** 41,46 ****
TJvControlPanelButton, TJvStartMenuButton, TJvRecentMenuButton, TJvFavoritesButton,
! TJvGroupBox, TJvGroupHeader, TJvHeaderControl, TJvImage, TJvLabel, TJvFindReplace
]);
end;
--- 46,63 ----
TJvControlPanelButton, TJvStartMenuButton, TJvRecentMenuButton, TJvFavoritesButton,
! TJvGroupBox, TJvHeaderControl, TJvImage, TJvLabel, TJvFindReplace
]);
+
+ RegisterPropertyEditor(TypeInfo(TControl), BaseClass, 'Gauge', TJvProgressControlProperty);
+ RegisterPropertyEditor(TypeInfo(TControl), BaseClass, 'ProgressBar', TJvProgressControlProperty);
+ RegisterPropertyEditor(TypeInfo(string), TJvCustomNumEdit, 'Text', nil);
+ RegisterPropertyEditor(TypeInfo(string), TJvFileDirEdit, 'Text', TStringProperty);
+ RegisterPropertyEditor(TypeInfo(string), TJvCustomDateEdit, 'Text', TStringProperty);
+ RegisterPropertyEditor(TypeInfo(string), TJvFilenameEdit, 'Filter', TFilterProperty);
+ RegisterPropertyEditor(TypeInfo(string), TJvFilenameEdit, 'FileName', TJvFilenameProperty);
+ RegisterPropertyEditor(TypeInfo(string), TJvDirectoryEdit, 'Text', TJvDirectoryProperty);
+ RegisterPropertyEditor(TypeInfo(string), TJvCustomComboEdit, 'ButtonHint', TJvHintProperty);
+ RegisterPropertyEditor(TypeInfo(TStrings), TJvxCheckListBox, 'Items', TJvCheckItemsProperty);
+
end;
Index: JvTimeLineEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/design/JvTimeLineEditor.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvTimeLineEditor.pas 19 Jun 2003 02:42:15 -0000 1.2
--- JvTimeLineEditor.pas 21 Jun 2003 23:26:43 -0000 1.3
***************
*** 54,59 ****
end;
- procedure Register;
-
implementation
--- 54,57 ----
***************
*** 110,118 ****
begin
Result := 1;
- end;
-
- procedure Register;
- begin
- RegisterComponentEditor(TJvCustomTimeLine, TJvTimeLineEditor);
end;
--- 108,111 ----
--- JvColors.pas DELETED ---
--- JvScheduleEditor.dfm DELETED ---
--- JvScheduleEditor.pas DELETED ---
|