Menu
▾
▴
jvcl-checkins — Notice about new Check-In files to VCS
You can subscribe to this list here.
| 2002 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(109) |
Jun
(322) |
Jul
(693) |
Aug
(335) |
Sep
(147) |
Oct
(146) |
Nov
(279) |
Dec
(147) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
(362) |
Feb
(637) |
Mar
(407) |
Apr
(115) |
May
(134) |
Jun
(770) |
Jul
(330) |
Aug
(533) |
Sep
(585) |
Oct
(511) |
Nov
(692) |
Dec
(558) |
| 2004 |
Jan
(1696) |
Feb
(1207) |
Mar
(856) |
Apr
(788) |
May
(789) |
Jun
(416) |
Jul
(277) |
Aug
(353) |
Sep
(418) |
Oct
(176) |
Nov
(199) |
Dec
(528) |
| 2005 |
Jan
(322) |
Feb
(333) |
Mar
(276) |
Apr
(74) |
May
(272) |
Jun
(48) |
Jul
(64) |
Aug
(192) |
Sep
(174) |
Oct
(150) |
Nov
(95) |
Dec
(56) |
| 2006 |
Jan
(75) |
Feb
(165) |
Mar
(100) |
Apr
(182) |
May
(55) |
Jun
(135) |
Jul
(92) |
Aug
(67) |
Sep
(28) |
Oct
(46) |
Nov
(64) |
Dec
(49) |
| 2007 |
Jan
(67) |
Feb
(20) |
Mar
(53) |
Apr
(30) |
May
(28) |
Jun
(98) |
Jul
(27) |
Aug
(67) |
Sep
(29) |
Oct
(28) |
Nov
(42) |
Dec
(57) |
| 2008 |
Jan
(56) |
Feb
(37) |
Mar
(31) |
Apr
(21) |
May
(12) |
Jun
(12) |
Jul
(24) |
Aug
(32) |
Sep
(43) |
Oct
(79) |
Nov
(56) |
Dec
(53) |
| 2009 |
Jan
(84) |
Feb
(16) |
Mar
(43) |
Apr
(40) |
May
(22) |
Jun
(31) |
Jul
(61) |
Aug
(73) |
Sep
(39) |
Oct
(64) |
Nov
(19) |
Dec
(26) |
| 2010 |
Jan
(48) |
Feb
(16) |
Mar
(37) |
Apr
(20) |
May
(27) |
Jun
(33) |
Jul
(6) |
Aug
(6) |
Sep
(20) |
Oct
(37) |
Nov
(62) |
Dec
(11) |
| 2011 |
Jan
(12) |
Feb
(24) |
Mar
(15) |
Apr
(11) |
May
(14) |
Jun
(42) |
Jul
(14) |
Aug
(8) |
Sep
(27) |
Oct
(15) |
Nov
(47) |
Dec
(1) |
| 2012 |
Jan
(6) |
Feb
(70) |
Mar
(20) |
Apr
(4) |
May
(14) |
Jun
(73) |
Jul
(13) |
Aug
(19) |
Sep
(43) |
Oct
(17) |
Nov
(12) |
Dec
(3) |
| 2013 |
Jan
(16) |
Feb
(1) |
Mar
(3) |
Apr
(4) |
May
(23) |
Jun
(2) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2014 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
|
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(3) |
Nov
|
Dec
|
|
From: Michael B. <be...@us...> - 2002-05-28 00:35:29
|
Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv11729/source
Modified Files:
JvJVCLAbout.dfm JvJVCLAbout.pas
Log Message:
Added Help button to the form.
Index: JvJVCLAbout.dfm
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvJVCLAbout.dfm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvJVCLAbout.dfm 24 May 2002 20:02:07 -0000 1.2
--- JvJVCLAbout.dfm 28 May 2002 00:35:26 -0000 1.3
***************
*** 13,16 ****
--- 13,18 ----
Font.Style = []
OldCreateOrder = False
+ OnCreate = FormCreate
+ OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
***************
*** 211,214 ****
--- 213,306 ----
Url = 'http://jvcl.sourceforge.net '
end
+ object btnHelp: TSpeedButton
+ Left = 256
+ Top = 272
+ Width = 25
+ Height = 25
+ Hint = 'JVCL Help'
+ Glyph.Data = {
+ 36040000424D3604000000000000360000002800000010000000100000000100
+ 2000000000000004000000000000000000000000000000000000FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000000000000000
+ 0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00000000000000000084008400840084008484
+ 840000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF0000000000000000008400840084008400FFFFFF00FFFFFF00C6C6
+ C6008484840000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
+ 0000000000008400840084008400FFFFFF00FFFFFF000000000000000000C6C6
+ C600C6C6C6008484840000000000FF00FF00FF00FF00FF00FF00848484008400
+ 840084008400FFFFFF00FFFFFF00000000000000000084008400840084000000
+ 0000C6C6C600C6C6C6008484840000000000FF00FF00FF00FF00848484008400
+ 8400FFFFFF000000000000000000840084008400840084008400840084008400
+ 840000000000C6C6C600C6C6C6008484840000000000FF00FF00848484000000
+ 0000000000008400840084008400840084000084840000FFFF00840084008400
+ 84008400840000000000C6C6C600C6C6C6008484840000000000848484008400
+ 8400840084008400840084008400840084008400840000848400840084008400
+ 8400840084008400840000000000C6C6C60000000000FF00FF00FF00FF008400
+ 8400FFFFFF00840084008400840084008400840084008400840000FFFF0000FF
+ FF008400840084008400840084000000000000000000FF00FF00FF00FF00FF00
+ FF0084008400FFFFFF0084008400840084008400840084008400840084000084
+ 840000FFFF0000FFFF00840084008400840000000000FF00FF00FF00FF00FF00
+ FF00FF00FF0084008400FFFFFF00840084008400840084008400008484008400
+ 840000FFFF0000FFFF0084008400840084008400840000000000FF00FF00FF00
+ FF00FF00FF00FF00FF0084008400FFFFFF00840084008400840000FFFF0000FF
+ FF0000FFFF008400840084008400840084000000000000000000FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF0084008400FFFFFF0084008400840084008400
+ 840084008400840084000000000000000000FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00FF00FF0084008400FFFFFF00840084008400
+ 84000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0084008400840084000000
+ 0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
+ ParentShowHint = False
+ ShowHint = True
+ OnClick = btnHelpClick
+ end
+ object btnOptions: TSpeedButton
+ Left = 224
+ Top = 272
+ Width = 25
+ Height = 25
+ Hint = 'Set JVCL Help'
+ Glyph.Data = {
+ 36040000424D3604000000000000360000002800000010000000100000000100
+ 2000000000000004000000000000000000000000000000000000FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000000000000000000000000000FF00FF00FF00FF000000
+ 000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFF
+ FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FF00FF00FF00FF000000
+ 0000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000000000000000
+ 0000FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FF00FF00FF00FF000000
+ 000000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000000000FFFF000000
+ 000000000000FFFFFF0000FFFF00FFFFFF0000000000FF00FF00FF00FF000000
+ 0000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+ FF000000000000000000FFFFFF0000FFFF0000000000FF00FF00FF00FF000000
+ 000000FFFF00FFFFFF0000FFFF000000000000FFFF00FFFFFF0000FFFF00FFFF
+ FF0000FFFF000000000000000000FFFFFF0000000000FF00FF00FF00FF000000
+ 0000FFFFFF0000FFFF0000000000000000000000000000FFFF00FFFFFF0000FF
+ FF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FF00FF00FF00FF000000
+ 000000FFFF000000000000000000FFFFFF00000000000000000000FFFF00FFFF
+ FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FF00FF00FF00FF000000
+ 0000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000000000FF
+ FF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FF00FF00FF00FF000000
+ 000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000
+ 000000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FF00FF00FF00FF000000
+ 0000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
+ FF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FF00FF00FF00FF000000
+ 000000000000000000000000000000000000000000000000000000FFFF00FFFF
+ FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FF00FF00FF00FF000000
+ 0000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000
+ 00000000000000000000000000000000000000000000FF00FF00FF00FF00FF00
+ FF00000000000000000000000000000000000000000000000000FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
+ ParentShowHint = False
+ ShowHint = True
+ OnClick = btnOptionsClick
+ end
object pnlImage: TPanel
Left = 6
***************
*** 647,651 ****
object btnOK: TButton
Left = 290
! Top = 275
Width = 88
Height = 25
--- 739,743 ----
object btnOK: TButton
Left = 290
! Top = 272
Width = 88
Height = 25
***************
*** 654,658 ****
--- 746,760 ----
ModalResult = 2
TabOrder = 1
+ OnClick = btnOKClick
end
+ end
+ object JvExecute1: TJvExecute
+ Left = 144
+ Top = 272
+ end
+ object OpenDialog1: TOpenDialog
+ Filter = 'Help files|*.chm; *.hlp'
+ Left = 184
+ Top = 272
end
end
Index: JvJVCLAbout.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvJVCLAbout.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvJVCLAbout.pas 26 May 2002 13:54:51 -0000 1.2
--- JvJVCLAbout.pas 28 May 2002 00:35:26 -0000 1.3
***************
*** 1,16 ****
! unit JvJVCLAbout;
{$I JEDI.INC}
interface
uses
! Windows, Messages, SysUtils, {$IFDEF DELPHI6_UP} Variants,{$ENDIF}
Classes, Graphics, Controls, Forms,
Dialogs, JvHotLink, StdCtrls, ExtCtrls, jpeg, JvLabel,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6_UP} DesignEditors, DesignIntf, {$ENDIF}
! JVCLVer;
type
TJVCLAboutDialogProperty = class(TPropertyEditor)
public
procedure Edit; override;
--- 1,45 ----
! {-----------------------------------------------------------------------------
! 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: JvJVCLAbout.PAS, released on 2001-02-28.
!
! The Initial Developer of the Original Code is Michael Beck [mb...@bi...]
! Portions created by Michael Beck are Copyright (C) 2002 Michael Beck
! All Rights Reserved.
!
! Contributor(s):
!
! Last Modified: 2000-02-28
!
! You may retrieve the latest version of this file at the Project JEDI home page,
! located at http://www.delphi-jedi.org
!
! Known Issues:
! -----------------------------------------------------------------------------}
! {$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$I JEDI.INC}
+
+ unit JvJVCLAbout;
+
interface
uses
! Windows, Messages, SysUtils, {$IFDEF DELPHI6_UP}Variants, {$ENDIF}
Classes, Graphics, Controls, Forms,
Dialogs, JvHotLink, StdCtrls, ExtCtrls, jpeg, JvLabel,
! {$IFDEF DELPHI5}DsgnIntf, {$ENDIF}{$IFDEF DELPHI6_UP}DesignEditors, DesignIntf, {$ENDIF}
! JVCLVer, JvComponent, JvExecute, Buttons, JvBitBtn,IniFiles ;
type
TJVCLAboutDialogProperty = class(TPropertyEditor)
+ private
public
procedure Edit; override;
***************
*** 41,53 ****
lblBugs: TLabel;
lblBugsURL: TJvHotLink;
procedure btnOKClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
! protected
! procedure CreateParams(var Params: TCreateParams); override;
private
{ Private declarations }
public
{ Public declarations }
--- 70,94 ----
lblBugs: TLabel;
lblBugsURL: TJvHotLink;
+ JvExecute1: TJvExecute;
+ btnHelp: TSpeedButton;
+ btnOptions: TSpeedButton;
+ OpenDialog1: TOpenDialog;
procedure btnOKClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
! procedure btnHelpClick(Sender: TObject);
! procedure FormCreate(Sender: TObject);
! procedure btnOptionsClick(Sender: TObject);
! procedure FormDestroy(Sender: TObject);
! protected
! procedure CreateParams(var Params: TCreateParams); override;
private
{ Private declarations }
+ FHelpFile:String;
+ FHelpDirectory:String;
+ procedure LoadOptions;
+ procedure SaveOptions;
public
{ Public declarations }
***************
*** 83,104 ****
function TJVCLAboutDialogProperty.GetValue: string;
begin
! Result := 'Version '+ JVCL_VERSIONSTRING;
end;
{ TJvJVCLAboutForm }
procedure TJvJVCLAboutForm.btnOKClick(Sender: TObject);
begin
! Close;
end;
procedure TJvJVCLAboutForm.CreateParams(var Params: TCreateParams);
begin
! inherited CreateParams(Params);
with Params do
! begin
! Style := (Style or WS_POPUP) and (not WS_DLGFRAME);
! end;
!
end;
--- 124,145 ----
function TJVCLAboutDialogProperty.GetValue: string;
begin
! Result := 'Version ' + JVCL_VERSIONSTRING;
end;
+
{ TJvJVCLAboutForm }
procedure TJvJVCLAboutForm.btnOKClick(Sender: TObject);
begin
! Close;
end;
procedure TJvJVCLAboutForm.CreateParams(var Params: TCreateParams);
begin
! inherited CreateParams(Params);
with Params do
! begin
! Style := (Style or WS_POPUP) and (not WS_DLGFRAME);
! end;
end;
***************
*** 116,118 ****
--- 157,233 ----
end;
+ procedure TJvJVCLAboutForm.btnHelpClick(Sender: TObject);
+ begin
+ JvExecute1.Exec(FHelpFile, '', FHelpDirectory);
+ Close;
+ end;
+
+ procedure TJvJVCLAboutForm.FormCreate(Sender: TObject);
+ begin
+ LoadOptions;
+ if FHelpFile='' then btnHelp.Enabled:=False else btnHelp.Enabled := True;
+ end;
+
+ procedure TJvJVCLAboutForm.btnOptionsClick(Sender: TObject);
+ begin
+
+ if OpenDialog1.Execute then
+ begin
+ FHelpFile:= ExtractFileName(OpenDialog1.FileName);
+ FHelpDirectory:= ExtractFileDir(OpenDialog1.FileName);
+ SaveOptions;
+ if FHelpFile='' then btnHelp.Enabled:=False else btnHelp.Enabled := True;
+ end;
+ end;
+
+ procedure TJvJVCLAboutForm.LoadOptions;
+ var
+ l, t, w, h: integer;
+ begin
+ with TIniFile.create(ExtractFileDir(Application.exename)+'\JVCL.ini') do
+ try
+ l := ReadInteger('Options', 'Bounds.Left', 0);
+ t := ReadInteger('Options', 'Bounds.Top', 0);
+ w := ReadInteger('Options', 'Bounds.Width', -1);
+ h := ReadInteger('Options', 'Bounds.Height', -1);
+
+ FHelpFile := ReadString('Options', 'Help.File', '');
+ FHelpDirectory := ReadString('Options', 'Help.Directory', '');
+ finally
+ free;
+ end;
+
+ //make sure the form is positioned on screen ...
+ //(ie make sure nobody's fiddled with the INI file!)
+ if (w > 0) and (h > 0) and
+ (l < screen.Width) and (t < screen.Height) and
+ (l + w > 0) and (t + h > 0) then
+ setbounds(l, t, w, h);
+ end;
+
+ procedure TJvJVCLAboutForm.SaveOptions;
+ begin
+ with TIniFile.create(ExtractFileDir(Application.exename)+'\JVCL.ini') do
+ try
+ if windowState = wsNormal then
+ begin
+ WriteInteger('Options', 'Bounds.Left', self.Left);
+ WriteInteger('Options', 'Bounds.Top', self.Top);
+ WriteInteger('Options', 'Bounds.Width', self.Width);
+ WriteInteger('Options', 'Bounds.Height', self.Height);
+ end;
+
+ WriteString('Options', 'Help.File', FHelpFile);
+ WriteString('Options', 'Help.Directory', FHelpDirectory);
+ finally
+ free;
+ end;
+ end;
+
+ procedure TJvJVCLAboutForm.FormDestroy(Sender: TObject);
+ begin
+ SaveOptions;
+ end;
+
end.
+
|
|
From: Michael B. <be...@us...> - 2002-05-26 13:54:54
|
Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv11808/source
Modified Files:
JVCLMiscal.pas JVCLReg.pas JvAlarmsEditor.pas
JvBaseDlgEditor.pas JvBaseDlgEditorP.pas
JvCommonDialogDEditor.pas JvDataEmbeddedEditor.pas
JvDialogTestBrowser.pas JvFormWallpaperEditor.pas
JvHtmlParserEditor.pas JvJVCLAbout.pas JvListView.pas
JvPatcherEditor.pas JvPerfMon95.pas JvRegistry.pas
Log Message:
Index: JVCLMiscal.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JVCLMiscal.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JVCLMiscal.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JVCLMiscal.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 6,10 ****
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls, Dlgs, FileCtrl,
Dialogs, ExptIntf, ToolIntf, ExtDlgs, StdCtrls,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6} DesignEditors, DesignIntf, {$ENDIF}
JvMail, JvPerfMon95;
--- 6,10 ----
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls, Dlgs, FileCtrl,
Dialogs, ExptIntf, ToolIntf, ExtDlgs, StdCtrls,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6_UP} DesignEditors, DesignIntf, {$ENDIF}
JvMail, JvPerfMon95;
Index: JVCLReg.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JVCLReg.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JVCLReg.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JVCLReg.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 164,168 ****
Dialogs, ExptIntf, ToolIntf, ExtDlgs, StdCtrls, Buttons,
! {$IFDEF DELPHI5}DsgnIntf, {$ENDIF}{$IFDEF DELPHI6}DesignEditors, DesignIntf, {$ENDIF}
JvTypes;
--- 164,168 ----
Dialogs, ExptIntf, ToolIntf, ExtDlgs, StdCtrls, Buttons,
! {$IFDEF DELPHI5}DsgnIntf, {$ENDIF}{$IFDEF DELPHI6_UP}DesignEditors, DesignIntf, {$ENDIF}
JvTypes;
Index: JvAlarmsEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvAlarmsEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvAlarmsEditor.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JvAlarmsEditor.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 9,13 ****
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6} DesignEditors, DesignIntf, {$ENDIF}
JvFormAlarms;
--- 9,13 ----
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! {$IFDEF DELPHI5}DsgnIntf, {$ENDIF}{$IFDEF DELPHI6_UP}DesignEditors, DesignIntf, {$ENDIF}
JvFormAlarms;
Index: JvBaseDlgEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvBaseDlgEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvBaseDlgEditor.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JvBaseDlgEditor.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 34,38 ****
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
EditIntf, ToolIntf, TypInfo,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6} DesignEditors, DesignIntf, {$ENDIF}
ExptIntf,
JvBaseDlg;
--- 34,38 ----
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
EditIntf, ToolIntf, TypInfo,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6_UP} DesignEditors, DesignIntf, {$ENDIF}
ExptIntf,
JvBaseDlg;
Index: JvBaseDlgEditorP.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvBaseDlgEditorP.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvBaseDlgEditorP.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JvBaseDlgEditorP.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 34,38 ****
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
EditIntf, ToolIntf, TypInfo,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6} DesignEditors, DesignIntf, {$ENDIF}
ExptIntf,
JvBaseDlg;
--- 34,38 ----
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
EditIntf, ToolIntf, TypInfo,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6_UP} DesignEditors, DesignIntf, {$ENDIF}
ExptIntf,
JvBaseDlg;
Index: JvCommonDialogDEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvCommonDialogDEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvCommonDialogDEditor.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JvCommonDialogDEditor.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 34,38 ****
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExptIntf,
Dialogs, EditIntf, ToolIntf, TypInfo,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6} DesignEditors, DesignIntf, {$ENDIF}
JvCommonDialogD;
--- 34,38 ----
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExptIntf,
Dialogs, EditIntf, ToolIntf, TypInfo,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6_UP} DesignEditors, DesignIntf, {$ENDIF}
JvCommonDialogD;
Index: JvDataEmbeddedEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvDataEmbeddedEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvDataEmbeddedEditor.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JvDataEmbeddedEditor.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 33,37 ****
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6} DesignEditors, DesignIntf, {$ENDIF}
JvDataEmbedded;
--- 33,37 ----
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6_UP} DesignEditors, DesignIntf, {$ENDIF}
JvDataEmbedded;
Index: JvDialogTestBrowser.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvDialogTestBrowser.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvDialogTestBrowser.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JvDialogTestBrowser.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 35,39 ****
uses
! {$IFDEF DELPHI5} DsgnIntf {$ENDIF} {$IFDEF DELPHI6} DesignEditors, DesignIntf {$ENDIF};
type
--- 35,39 ----
uses
! {$IFDEF DELPHI5} DsgnIntf {$ENDIF} {$IFDEF DELPHI6_UP} DesignEditors, DesignIntf {$ENDIF};
type
Index: JvFormWallpaperEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvFormWallpaperEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvFormWallpaperEditor.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JvFormWallpaperEditor.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 33,37 ****
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6} DesignEditors, DesignIntf, {$ENDIF}
JvFormWallpaper;
--- 33,37 ----
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6_UP} DesignEditors, DesignIntf, {$ENDIF}
JvFormWallpaper;
Index: JvHtmlParserEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvHtmlParserEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvHtmlParserEditor.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JvHtmlParserEditor.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 33,37 ****
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6} DesignEditors, DesignIntf, {$ENDIF}
JvFormParser;
--- 33,37 ----
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6_UP} DesignEditors, DesignIntf, {$ENDIF}
JvFormParser;
Index: JvJVCLAbout.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvJVCLAbout.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvJVCLAbout.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JvJVCLAbout.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 4,11 ****
uses
! Windows, Messages, SysUtils, {$IFDEF DELPHI6} Variants,{$ENDIF}
Classes, Graphics, Controls, Forms,
Dialogs, JvHotLink, StdCtrls, ExtCtrls, jpeg, JvLabel,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6} DesignEditors, DesignIntf, {$ENDIF}
JVCLVer;
--- 4,11 ----
uses
! Windows, Messages, SysUtils, {$IFDEF DELPHI6_UP} Variants,{$ENDIF}
Classes, Graphics, Controls, Forms,
Dialogs, JvHotLink, StdCtrls, ExtCtrls, jpeg, JvLabel,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6_UP} DesignEditors, DesignIntf, {$ENDIF}
JVCLVer;
***************
*** 83,87 ****
function TJVCLAboutDialogProperty.GetValue: string;
begin
! Result := JVCL_VERSIONSTRING;
end;
--- 83,87 ----
function TJVCLAboutDialogProperty.GetValue: string;
begin
! Result := 'Version '+ JVCL_VERSIONSTRING;
end;
Index: JvListView.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvListView.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvListView.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JvListView.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 29,38 ****
unit JvListView;
! {$ObjExportAll On}
interface
uses
! Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ComCtrls, CommCtrl, Menus ,JVCLVer;
type
--- 29,38 ----
unit JvListView;
! {$OBJEXPORTALL On}
interface
uses
! Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ComCtrls, CommCtrl, Menus, JVCLVer;
type
***************
*** 83,87 ****
constructor Create(AOwner: TComponent); override;
published
! property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False;
property HintColor: TColor read FColor write FColor default clInfoBk;
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
--- 83,87 ----
constructor Create(AOwner: TComponent); override;
published
! property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False;
property HintColor: TColor read FColor write FColor default clInfoBk;
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
***************
*** 101,110 ****
property OnSaveProgress: TProgress read FOnSave write FOnSave;
property OnAutoSort: TOnSortMethod read FOnSort write FOnSort;
! {$IFNDEF DELPHI6}
procedure SelectAll;
{$ENDIF}
procedure UnselectAll;
procedure InvertSelection;
! {$IFNDEF DELPHI6}
procedure DeleteSelected;
{$ENDIF}
--- 101,110 ----
property OnSaveProgress: TProgress read FOnSave write FOnSave;
property OnAutoSort: TOnSortMethod read FOnSort write FOnSort;
! {$IFNDEF DELPHI6_UP}
procedure SelectAll;
{$ENDIF}
procedure UnselectAll;
procedure InvertSelection;
! {$IFNDEF DELPHI6_UP}
procedure DeleteSelected;
{$ENDIF}
***************
*** 281,286 ****
if Trim(First) = '' then
Result := False
! else
! if Trim(Second) = '' then
Result := True
else
--- 281,285 ----
if Trim(First) = '' then
Result := False
! else if Trim(Second) = '' then
Result := True
else
***************
*** 389,393 ****
case i of
! {sort by caption}
0:
begin
--- 388,392 ----
case i of
! {sort by caption}
0:
begin
***************
*** 397,407 ****
if IsBigger(s1, s2, sortype) then
Result := +1
! else
! if IsSmaller(s1, s2, sortype) then
Result := -1
else
Result := 0;
end;
! {sort by Column}
else
begin
--- 396,405 ----
if IsBigger(s1, s2, sortype) then
Result := +1
! else if IsSmaller(s1, s2, sortype) then
Result := -1
else
Result := 0;
end;
! {sort by Column}
else
begin
***************
*** 413,418 ****
Result := -1;
end
! else
! if i > i2.SubItems.Count then
Result := +1
else
--- 411,415 ----
Result := -1;
end
! else if i > i2.SubItems.Count then
Result := +1
else
***************
*** 422,427 ****
if IsBigger(s1, s2, sortype) then
Result := +1
! else
! if IsSmaller(s1, s2, sortype) then
Result := -1
else
--- 419,423 ----
if IsBigger(s1, s2, sortype) then
Result := +1
! else if IsSmaller(s1, s2, sortype) then
Result := -1
else
***************
*** 504,508 ****
procedure TJvListView.LoadFromStream(stream: TStream);
var
! buf: array [0..100] of Char;
start: Integer;
--- 500,504 ----
procedure TJvListView.LoadFromStream(stream: TStream);
var
! buf: array[0..100] of Char;
start: Integer;
***************
*** 510,514 ****
var
i, j, k: Integer;
! buf: array [0..100] of Byte;
st: string;
ch1, checks: Boolean;
--- 506,510 ----
var
i, j, k: Integer;
! buf: array[0..100] of Byte;
st: string;
ch1, checks: Boolean;
***************
*** 570,574 ****
st: string;
t: TListItem;
! buf: array [0..2048] of Char;
begin
try
--- 566,570 ----
st: string;
t: TListItem;
! buf: array[0..2048] of Char;
begin
try
***************
*** 580,600 ****
CheckBoxes := (options and LV_HASCHECKBOXES) = LV_HASCHECKBOXES;
! //Read all lines
while Stream.Position < Stream.Size do
begin
Stream.Read(count, SizeOf(count));
! //statistics
if Assigned(FOnLoad) then
FOnLoad(Self, Stream.Position, stream.Size - start);
! //Read all columns
t := Self.Items.Add;
for i := 1 to count do
begin
! //Read Size of the string
Stream.Read(j, SizeOf(i));
! //Read the string
ZeroMemory(@buf, SizeOf(buf));
Stream.Read(buf, j);
--- 576,596 ----
CheckBoxes := (options and LV_HASCHECKBOXES) = LV_HASCHECKBOXES;
! //Read all lines
while Stream.Position < Stream.Size do
begin
Stream.Read(count, SizeOf(count));
! //statistics
if Assigned(FOnLoad) then
FOnLoad(Self, Stream.Position, stream.Size - start);
! //Read all columns
t := Self.Items.Add;
for i := 1 to count do
begin
! //Read Size of the string
Stream.Read(j, SizeOf(i));
! //Read the string
ZeroMemory(@buf, SizeOf(buf));
Stream.Read(buf, j);
***************
*** 646,650 ****
b, c, d, e: Byte;
st: string;
! buf: array [0..1000] of Byte;
begin
b := 0;
--- 642,646 ----
b, c, d, e: Byte;
st: string;
! buf: array[0..1000] of Byte;
begin
b := 0;
***************
*** 662,666 ****
buf[k - 1] := Byte(st[k]);
k := Length(st);
! //write checked,not
if Self.Items[i].Checked then
Stream.write(d, 1)
--- 658,662 ----
buf[k - 1] := Byte(st[k]);
k := Length(st);
! //write checked,not
if Self.Items[i].Checked then
Stream.write(d, 1)
***************
*** 698,702 ****
LV_CHECKED = $8000;
var
! buf: array [0..100] of Char;
i, j: Word;
options: Byte;
--- 694,698 ----
LV_CHECKED = $8000;
var
! buf: array[0..100] of Char;
i, j: Word;
options: Byte;
***************
*** 705,709 ****
var
i: Word;
! buf: array [1..2056] of Char;
begin
i := Length(Txt);
--- 701,705 ----
var
i: Word;
! buf: array[1..2056] of Char;
begin
i := Length(Txt);
***************
*** 775,781 ****
if st[i] = '"' then
j := (j + 1) mod 2
! else
! if st[i] = Separator then
! if j = 0 then Inc(k);
if k <> 1 then
begin
--- 771,777 ----
if st[i] = '"' then
j := (j + 1) mod 2
! else if st[i] = Separator then
! if j = 0 then
! Inc(k);
if k <> 1 then
begin
***************
*** 884,888 ****
{**************************************************}
! {$IFNDEF DELPHI6}
procedure TJvListView.SelectAll;
var
--- 880,885 ----
{**************************************************}
! {$IFNDEF DELPHI6_UP}
!
procedure TJvListView.SelectAll;
var
***************
*** 910,914 ****
{**************************************************}
! {$IFNDEF DELPHI6}
procedure TJvListView.DeleteSelected;
var
--- 907,912 ----
{**************************************************}
! {$IFNDEF DELPHI6_UP}
!
procedure TJvListView.DeleteSelected;
var
Index: JvPatcherEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvPatcherEditor.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvPatcherEditor.pas 27 Mar 2002 09:39:38 -0000 1.1
--- JvPatcherEditor.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 33,37 ****
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6} DesignEditors, DesignIntf, {$ENDIF}
JvFormPatch;
--- 33,37 ----
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! {$IFDEF DELPHI5} DsgnIntf, {$ENDIF} {$IFDEF DELPHI6_UP} DesignEditors, DesignIntf, {$ENDIF}
JvFormPatch;
Index: JvPerfMon95.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvPerfMon95.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvPerfMon95.pas 27 Mar 2002 09:39:38 -0000 1.1
--- JvPerfMon95.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 35,39 ****
uses
Windows, Classes, SysUtils, {$IFDEF DELPHI5_UP}Contnrs, {$ENDIF}Registry,
! {$IFDEF DELPHI6}RTLConsts, {$ENDIF}
Dialogs, Forms, JclBase, JvComponent;
--- 35,39 ----
uses
Windows, Classes, SysUtils, {$IFDEF DELPHI5_UP}Contnrs, {$ENDIF}Registry,
! {$IFDEF DELPHI6_UP}RTLConsts, {$ENDIF}
Dialogs, Forms, JclBase, JvComponent;
Index: JvRegistry.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvRegistry.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvRegistry.pas 27 Mar 2002 09:39:38 -0000 1.1
--- JvRegistry.pas 26 May 2002 13:54:51 -0000 1.2
***************
*** 29,40 ****
unit JvRegistry;
! {$ObjExportAll On}
interface
uses
! {$IFDEF DELPHI6}
Variants,
! {$ENDIF}
Windows, Registry;
--- 29,40 ----
unit JvRegistry;
! {$OBJEXPORTALL On}
interface
uses
! {$IFDEF DELPHI6_UP}
Variants,
! {$ENDIF}
Windows, Registry;
***************
*** 75,79 ****
case varType(Result) of
varCurrency:
! Result := ReadCurrency(Field);
varBoolean:
Result := ReadBool(Field);
--- 75,79 ----
case varType(Result) of
varCurrency:
! Result := ReadCurrency(Field);
varBoolean:
Result := ReadBool(Field);
|
|
From: Michael B. <be...@us...> - 2002-05-26 13:52:18
|
Update of /cvsroot/jvcl/jvcl In directory usw-pr-cvs1:/tmp/cvs-serv11354 Added Files: Install.txt ReadMe.txt Log Message: --- NEW FILE: Install.txt --- Install notes for JEDI-VCL (JVCL) for Delphi 6 ====================================== 1) IMPORTANT - in order to use JVCL, you need to have JCL (JEDI Code Library) INSTALLED on your computer. JCL is available from http://sourceforge.net/projects/jcl/ 2) Unzip the JVCL files to a subdirectory of your choice 3) In Delphi open the appropriate design package that is in the "Packages" subdirectory. a) for Delphi 6 it's "JVCL100_D6.dpk" b) for Delphi 6 Personal it's "JVCL100_D60Personal.dpk" 4) Click on the "Install" button If you get compile error stating that zlib.pas, or some *.obj files are missing, please make sure that in your packages following paths: $(DELPHI)\source\extras\zlib\ $(DELPHI)\source\extras\zlib\obj are in your Search path ( click on package Options, and then on "Directories" tab) Of course, you need to install those files from Delphi first. If the EXTRAS subdirectory doesn't exist, please install the files from your Delphi CD. 5) The window showing all the components that have been installed will be very big, and most probably you won't see the "OK" button, so just close the window. You should have JVCL installed on your PC. If there are installation problems, please contact us via: http://groups.yahoo.com/group/JEDI-VCL/ or via newsgroups: news://forums.talkto.net/jedi.vcl May the Source be with you! Team JVCL (http://jvcl.sourceforge.net) --- NEW FILE: ReadMe.txt --- JEDI VCL for D6 (beta 1.20) (http://jvcl.sourceforge.net) The JEDI VCL (JVCL) for D6 consists of a set of visual components which can be instantly reused in your Delphi 6 projects. The library is built upon code donated from the JEDI community. Please note that this is a beta release, and as such, there is a lot of work to do. We are also aware that there is overlap between some components, and we should refactor/merge them. Your involvement and help in improving JVCL would be very much appreciated. JVCL is released to the public under the terms of the Mozilla Public License (MPL) and as such can be freely used in both freeware/shareware, opensource and commercial projects. The MPL does have a few restrictions and we urge you to read the MPL (at http://www.mozilla.org/MPL/MPL-1.1.html) and MPL FAQ documents available in the JCL-Help.chm file. - Contents of the JEDI Code Library \Source This directory contains all the source code units for the JEDI VCL. \ Packages Contains the packge files needed for JVCL installation \Help Contains the JVCL Helpfile. This helpfile is currently incomplete. \Examples Contains example projects demonstrating some of the components in the JVCL. INSTALLATION ============= Please see the file "Install.txt" CONTRIBUTORS: ============== We would like to thank following people, who made JEDI-VCL possible by helping to write JEDI-VCL Guidelines, and by contributing components (listed alphabetically): Michael Beck Peter Below Alec Bergamini Helen Borrie Marcel van Brakel Sebastien Buysse Chiang Seng Chang Pavel Císar Jim Cooper Gustavo Daud Rodney Delanty Alex Denissov Oliver George Yakup Gezdirici Ralf Grenzing Matt Hamilton Shiv Kumar Mike Lischke Allan G. Lloyd Robert Love Robert Marquardt Anders Melander Alan C. Moore Pete Morris Francois Piette Sergey Perevoznyk David Polberger Andrey Prygounkov Hagen Reddmann Uwe Rupprecht Michael Rynn Alexander Samusenko Andreas Schmidt Rob Schoenaker Phil Shrimpton Pasha Sivtsov Anthony Steele Eko Subagio Oleg Sych Matthias Thoma Peter Thörnqvist Danny Thorpe Petr Vones PARTICIPATION ============= If you would like to participate in JVCL development (donate new components, refactor existing ones, write help files and documentation, develop examples), please join us at: http://groups.yahoo.com/group/JVCL-Developers/ BUGS / WISHES ============= To report Bugs or Feature Requests, please follow the "Bugs/Wishes" link at: http://jvcl.sourceforge.net/ We hope that you'll find JVCL useful. May the Source be with you! Team JVCL (http://jvcl.sourceforge.net) |
|
From: Michael B. <be...@us...> - 2002-05-26 11:05:59
|
Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv11270/source
Modified Files:
JvWinampApi.pas
Log Message:
In 'SongLength' and 'SongPosition' changed the default value of 'tstamp.Date' to "1"
Index: JvWinampApi.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvWinampApi.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvWinampApi.pas 27 Mar 2002 09:39:38 -0000 1.1
--- JvWinampApi.pas 26 May 2002 11:05:55 -0000 1.2
***************
*** 29,33 ****
unit JvWinampApi;
! {$ObjExportAll On}
interface
--- 29,33 ----
unit JvWinampApi;
! {$OBJEXPORTALL On}
interface
***************
*** 36,40 ****
uses
! Windows, Messages, SysUtils, Classes, Graphics, Controls, JvHWinamp, JvTypes ,JvComponent;
type
--- 36,40 ----
uses
! Windows, Messages, SysUtils, Classes, Graphics, Controls, JvHWinamp, JvTypes, JvComponent;
type
***************
*** 42,46 ****
TWinampEqualizer = record
! Bands: array [0..9] of Integer;
Preamp: Integer;
Enabled, Autoload: Boolean;
--- 42,46 ----
TWinampEqualizer = record
! Bands: array[0..9] of Integer;
Preamp: Integer;
Enabled, Autoload: Boolean;
***************
*** 118,122 ****
RC_ErrorFinding = 'Could not find winamp window';
! {**************************************************}
procedure TJvWinampApi.ClearPlaylist;
--- 118,122 ----
RC_ErrorFinding = 'Could not find winamp window';
! {**************************************************}
procedure TJvWinampApi.ClearPlaylist;
***************
*** 167,171 ****
h := FindWindow(PChar(RC_WinampWindow), nil);
tstamp.Time := 0;
! tstamp.Date := 0;
if h <> 0 then
begin
--- 167,171 ----
h := FindWindow(PChar(RC_WinampWindow), nil);
tstamp.Time := 0;
! tstamp.Date := 1;
if h <> 0 then
begin
***************
*** 250,254 ****
h := FindWindow(PChar(RC_WinampWindow), nil);
tstamp.Time := 0;
! tstamp.Date := 0;
if h <> 0 then
begin
--- 250,254 ----
h := FindWindow(PChar(RC_WinampWindow), nil);
tstamp.Time := 0;
! tstamp.Date := 1;
if h <> 0 then
begin
***************
*** 453,457 ****
var
cds: TCopyDataStruct;
! dat: array [0..255] of Char;
h: THandle;
begin
--- 453,457 ----
var
cds: TCopyDataStruct;
! dat: array[0..255] of Char;
h: THandle;
begin
***************
*** 472,476 ****
var
cds: TCopyDataStruct;
! dat: array [0..255] of Char;
h: THandle;
begin
--- 472,476 ----
var
cds: TCopyDataStruct;
! dat: array[0..255] of Char;
h: THandle;
begin
|
|
From: Marcel B. <jed...@us...> - 2002-05-25 16:33:28
|
Update of /cvsroot/jvcl/dev/help/output/WinHELP In directory usw-pr-cvs1:/tmp/cvs-serv9841/dev/help/output/WinHELP Added Files: readme.txt.txt Log Message: * Added output paths * Update DOM project file, removed compiler paths * Created groups * Moved MPL license to include file * Added link to MPL license * Update some help topics * Changed line length to 100 chars --- NEW FILE: readme.txt.txt --- Doc-O-matic output folder for WinHELP filter |
|
From: Marcel B. <jed...@us...> - 2002-05-25 16:33:28
|
Update of /cvsroot/jvcl/dev/help
In directory usw-pr-cvs1:/tmp/cvs-serv9841/dev/help
Modified Files:
JVCL.dox JvAlarms.dtx JvAngleLabel.dtx JvMainGrps.dtx
Added Files:
grpAlarmsAndTimers.inc grpLabels.inc incConditions.inc
Log Message:
* Added output paths
* Update DOM project file, removed compiler paths
* Created groups
* Moved MPL license to include file
* Added link to MPL license
* Update some help topics
* Changed line length to 100 chars
--- NEW FILE: grpAlarmsAndTimers.inc ---
JEDI-VCL provides you with various components suitable for timing and scheduling tasks. The
following components are provided:
<TABLE>
Component Description
--------- -----------
TJvAlarms A programmable timer that can handle recurring tasks. Tasks can be
scheduled to recur using various intervals.
</TABLE>
--- NEW FILE: grpLabels.inc ---
JEDI-VCL provides a various controls that enhance the Borlands TLabel control in many ways, adding
functionality, effects and/or formatting.
Below is a list of label components provided by JEDI-VCL:
<TABLE>
Component Description
--------- -----------
TJvAngleLabel Allows text to be rendered in any direction.
</TABLE>
--- NEW FILE: incConditions.inc ---
Conditions:
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 <EXTLINK http://www.mozilla.org/MPL/MPL-1.1.html>here</EXTLINK>
(http://www.mozilla.org/MPL/MPL-1.1.html)
Index: JVCL.dox
===================================================================
RCS file: /cvsroot/jvcl/dev/help/JVCL.dox,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JVCL.dox 24 May 2002 20:16:42 -0000 1.2
--- JVCL.dox 25 May 2002 16:24:12 -0000 1.3
***************
*** 1,11 ****
[Project File Info]
! Version=201
[General]
! Title=Documentation Project 3
VersionMajor=1
! VersionMinor=0
! Copyright=Copyright (c) 2002. All rights reserved.
! Type=2
[...2936 lines suppressed...]
+ HeaderType=0
+ HeaderInfoTitle=%PROJECTTITLE%
+ HeaderInfoImage=dmlogo.png
+ HeaderInfoHTML=
+ HeaderLinks=1
+ FooterType=3
+ FooterInfoTitle=%PROJECTTITLE%
+ FooterInfoImage=dmlogo.png
+ FooterInfoHTML=
+ FooterLinks=1
+ TitleLinksSeparator= |
+ InlineLinksSeparator=,
+
+ [{D3A588E0-9472-11D3-BDD1-0080C8BA053D}\ImagePaths]
+ MakeRelative=1
+ CopyImagesToOutput=1
+
+ [{D3A588E0-9472-11D3-BDD1-0080C8BA053D}\LinkDatabase]
+ LinkDatabasePrefix=../created/
Index: JvAlarms.dtx
===================================================================
RCS file: /cvsroot/jvcl/dev/help/JvAlarms.dtx,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvAlarms.dtx 24 May 2002 18:43:07 -0000 1.2
--- JvAlarms.dtx 25 May 2002 16:24:12 -0000 1.3
***************
*** 1,16 ****
@@$TJvAlarms
! <GROUP JVCL.Comps>
<TITLE TJvAlarms>
! <TOPICORDER 100>
! The TJvAlarms component provides you with a programmable timer. You can add
! multiple alarms for different dates, times and trigger intervals.
! --------------------------------------------------------------------------------
@@TJvAlarm
! <GROUP JVCL.Comps.TJvAlarms>
Summary
A single alarm record.
Description
! TJvAlarm is a record that represents a single alarm, registered in the
! TJvAlarms component.
@@TJvAlarm.Name
Name of the alarm.
--- 1,24 ----
@@$TJvAlarms
! <GROUP JVCL.AlarmsAndTimers>
<TITLE TJvAlarms>
! The TJvAlarms component provides you with a programmable timer. You can add multiple alarms for
! different dates, times and trigger intervals.
! ----------------------------------------------------------------------------------------------------
! @@JvAlarms.pas
! <GROUP JVCL.FileRef, TJvAlarms>
! Summary
! Contains the TJvAlarms component.
! <INCLUDE incConditions.inc>
! Version:
! %PROJECTVERSION%
! Author:
! Sebastien Buysse
! ----------------------------------------------------------------------------------------------------
@@TJvAlarm
! <GROUP TJvAlarms>
Summary
A single alarm record.
Description
! TJvAlarm is a record that represents a single alarm, registered in the TJvAlarms component.
@@TJvAlarm.Name
Name of the alarm.
***************
*** 19,30 ****
@@TJvAlarm.Kind
The kind of alarm.
! --------------------------------------------------------------------------------
@@TJvTriggerKind
! <GROUP JVCL.Comps.TJvAlarms>
Summary
Alarm kind.
Description
! The TJvTriggerKind type are the kind of alarms that can be added to the
! TJvAlarms.
@@TJvTriggerKind.tkOneShot
The alarm is a one shot, ie. fires only once at the specified time.
--- 27,37 ----
@@TJvAlarm.Kind
The kind of alarm.
! ----------------------------------------------------------------------------------------------------
@@TJvTriggerKind
! <GROUP TJvAlarms>
Summary
Alarm kind.
Description
! The TJvTriggerKind type are the kind of alarms that can be added to the TJvAlarms.
@@TJvTriggerKind.tkOneShot
The alarm is a one shot, ie. fires only once at the specified time.
***************
*** 41,73 ****
@@TJvTriggerKind.tkEachYear
The alarm will fire at the specified time and each year after that.
! --------------------------------------------------------------------------------
@@TJvAlarms
! <GROUP JVCL.Comps.TJvAlarms>
! TJvAlarm is a non-visible component that provides you with a programmable
! timer. The component allows multiple alarms to be added, each of which can be
! set to repeat at a specified interval or not at all.
! --------------------------------------------------------------------------------
@@TJvAlarms.Alarms
Summary
Registered alarms.
Description
! Alarms is an array of registered alarms. The array is 0-based. Each item is
! a single alarm with a name, an initial fire date/time and the trigger kind
! (repeat interval).
Parameters
Idx - 0-based index of the alarm. Allowable values are 0 .. Count-1
See Also
Count
! --------------------------------------------------------------------------------
! @@TJvAlarms.Active
! Summary
! Indicates if alarms will trigger.
! Description
! Active indicates if alarms will fire. When Active is set to False, no alarm
! will fire at the set date/time. When set to True, Alarms will fire at the set
! date/time.
! See Also
! Running
! --------------------------------------------------------------------------------
@@TJvAlarms.Count
Summary
--- 48,93 ----
@@TJvTriggerKind.tkEachYear
The alarm will fire at the specified time and each year after that.
! ----------------------------------------------------------------------------------------------------
@@TJvAlarms
! <GROUP TJvAlarms>
! TJvAlarm is a non-visible component that provides you with a programmable timer. The component
! allows multiple alarms to be added, each of which can be set to repeat at a specified interval or
! not at all.
! ----------------------------------------------------------------------------------------------------
! @@TJvAlarms.Active
! Summary
! Indicates if alarms will trigger.
! Description
! Active indicates if alarms will fire. When Active is set to False, no alarm will fire at the set
! date/time. When set to True, Alarms will fire at the set date/time.
! See Also
! Running
! ----------------------------------------------------------------------------------------------------
! @@TJvAlarms.Add
! Summary
! Adds a new alarm.
! Description
! Add adds a new alarm to the component. To add an alarm you need to provide a name (the alarm's
! ID), a date/time when the alarm should fire and the kind of alarm (default's to one-shot).
! Parameters
! Name - Name of the alarm. The name is the only way you can identify an alarm during an OnAlarm
! event.
! Time - Date and time at which the alarm should go off.
! Kind - The kind of alarm to be added. Kind will default to tkOneShot, meaning that the alarm will
! fire only once and at the specified time.
! See Also
! Alarms, Count, Deleted, OnAlarm, TJvTriggerKind
! ----------------------------------------------------------------------------------------------------
@@TJvAlarms.Alarms
Summary
Registered alarms.
Description
! Alarms is an array of registered alarms. The array is 0-based. Each item is a single alarm with a
! name, an initial fire date/time and the trigger kind (repeat interval).
Parameters
Idx - 0-based index of the alarm. Allowable values are 0 .. Count-1
See Also
Count
! ----------------------------------------------------------------------------------------------------
@@TJvAlarms.Count
Summary
***************
*** 77,81 ****
See Also
Alarms
! --------------------------------------------------------------------------------
@@TJvAlarms.OnAlarm
<COMBINEWITH TJvOnAlarm>
--- 97,119 ----
See Also
Alarms
! ----------------------------------------------------------------------------------------------------
! @@TJvAlarms.Delete
! Summary
! Deletes an alarm.
! Description
! Delete removes the alarm at the specified index.
! Parameters
! Idx - Index of the alarm to delete.
! ----------------------------------------------------------------------------------------------------
! @@TJvAlarms.DoAlarm
! Summary
! Calls the OnAlarm event.
! Description
! DoAlarm is a protected method that will call the assigned OnAlarm event if present. It's intended
! for descendants to call the OnAlarm event from their own code.
! Parameters
! Alarm - Reference to the alarm that fired.
! TriggerTime - The time the alarm went off.
! ----------------------------------------------------------------------------------------------------
@@TJvAlarms.OnAlarm
<COMBINEWITH TJvOnAlarm>
***************
*** 88,135 ****
Alarm - Reference to the alarm that fired.
TriggerTime - The time the alarm went off.
! --------------------------------------------------------------------------------
@@TJvAlarms.Running
Summary
Flag that indicates if the alarm component is running.
Description
! Running indicates if the component is active and has alarms waiting to be
! fired. If the components Active property is set to False, Running will also be
! False. When Active is set to True, Running will be True as long as Count > 0.
See Also
Active, Count
! --------------------------------------------------------------------------------
! @@TJvAlarms.Add
! Summary
! Adds a new alarm.
! Description
! Add adds a new alarm to the component. To add an alarm you need to provide a
! name (the alarm's ID), a date/time when the alarm should fire and the kind of
! alarm (default's to one-shot).
! Parameters
! Name - Name of the alarm. The name is the only way you can identify an alarm
! during an OnAlarm event.
! Time - Date and time at which the alarm should go off.
! Kind - The kind of alarm to be added. Kind will default to tkOneShot, meaning
! that the alarm will fire only once and at the specified time.
! See Also
! Alarms, Count, Deleted, OnAlarm, TJvTriggerKind
! --------------------------------------------------------------------------------
! @@TJvAlarms.Delete
! Summary
! Deletes an alarm.
! Description
! Delete removes the alarm at the specified index.
! Parameters
! Idx - Index of the alarm to delete.
! --------------------------------------------------------------------------------
! @@TJvAlarms.DoAlarm
! Summary
! Calls the OnAlarm event.
! Description
! DoAlarm is a protected method that will call the assigned OnAlarm event if
! present. It's intended for descendants to call the OnAlarm event from their
! own code.
! Parameters
! Alarm - Reference to the alarm that fired.
! TriggerTime - The time the alarm went off.
!
--- 126,138 ----
Alarm - Reference to the alarm that fired.
TriggerTime - The time the alarm went off.
! ----------------------------------------------------------------------------------------------------
@@TJvAlarms.Running
Summary
Flag that indicates if the alarm component is running.
Description
! Running indicates if the component is active and has alarms waiting to be fired. If the components
! Active property is set to False, Running will also be False. When Active is set to True, Running
! will be True as long as Count > 0.
See Also
Active, Count
! ----------------------------------------------------------------------------------------------------
Index: JvAngleLabel.dtx
===================================================================
RCS file: /cvsroot/jvcl/dev/help/JvAngleLabel.dtx,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvAngleLabel.dtx 24 May 2002 06:41:19 -0000 1.1
--- JvAngleLabel.dtx 25 May 2002 16:24:12 -0000 1.2
***************
*** 1,41 ****
! ================================================================
@@JvAngleLabel.pas
! Note:
! <B>Delphi Versions:</B> <COLOR Brown>5, 6</COLOR> <B>
!
! C++ Builder Versions:</B> <COLOR Brown>none</COLOR>
!
! Conditions:
! 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
!
! Author:
! Sebastien Buysse
!
Version:
! 1.20 Beta
!
! ================================================================
@@TJvAngleLabel
! Description:
! The text on this label can be displayed in any direction. (from 0 to 360 degrees!)
!
! ================================================================
! @@TJvAngleLabel.FAngle
!
! ================================================================
! @@TJvAngleLabel.Create@TComponent
!
! ================================================================
! @@TJvAngleLabel.DrawText@Word
!
! ================================================================
@@TJvAngleLabel.Paint
! ================================================================
! @@TJvAngleLabel.SetAngle@TAngle
!
! ================================================================
@@TJvAngleLabel.Angle
! Description:
! This is the angle of the text. 0 is no angle.
!
--- 1,60 ----
! @@$TJvAngleLabel
! <GROUP JVCL.Labels>
! <TITLE TJvAngleLabel>
! ----------------------------------------------------------------------------------------------------
@@JvAngleLabel.pas
! <GROUP JVCL.FileRef, TJvAngleLabel>
! Summary
! Contains the TJvAngleLabel control.
! <INCLUDE incConditions.inc>
Version:
! %PROJECTVERSION%
! Author:
! Sebastien Buysse
! ----------------------------------------------------------------------------------------------------
@@TJvAngleLabel
! <GROUP TJvAngleLabel>
! Summary:
! Can draw it's caption in any direction.
! Description
! TJvAngleLabel is a replacement for Delphi's TLabel component that can rotate the text to any
! degree (from 0 to 360).
! ----------------------------------------------------------------------------------------------------
! @@TJvAngleLabel.Create
! ----------------------------------------------------------------------------------------------------
! @@TJvAngleLabel.DrawText
! Summary
! DrawText renders the labels caption at the specified angle.
! Description
! DrawText is called by Paint to render the label's Caption in the angle specified by the Angle
! property.
! See Also
! Angle, Paint
! ----------------------------------------------------------------------------------------------------
@@TJvAngleLabel.Paint
+ Summary
+ Called in response to a WM_PAINT message.
+ Description
+ Paint is the method called in response to a WM_PAINT message. TJvAngleLabel overrides the Paint
+ method to call the DrawText method to do the actual rendering.
+ See Also
+ DrawText
+ ----------------------------------------------------------------------------------------------------
+ @@TJvAngleLabel.SetAngle
+ Summary
+ Changes the rendering angle.
+ Description
+ SetAngle changes the angle at which the text is to be rendered and refreshes the controls image.
! SetAngle is the write method for the Angle property.
! See Also
! Angle
! ----------------------------------------------------------------------------------------------------
@@TJvAngleLabel.Angle
! Summary:
! The angle of the text.
! Description
! Angle holds the angle at which the text is to be rendered. If set to 0, the text is rendered in
! the usual way (ie. no rotation). Read Angle to determine the direction at which the text is
! rendered or set it to a new direction.
! ----------------------------------------------------------------------------------------------------
Index: JvMainGrps.dtx
===================================================================
RCS file: /cvsroot/jvcl/dev/help/JvMainGrps.dtx,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvMainGrps.dtx 24 May 2002 18:43:07 -0000 1.1
--- JvMainGrps.dtx 25 May 2002 16:24:12 -0000 1.2
***************
*** 1,26 ****
@@$JVCL
<TITLE JEDI-VCL>
! TODO: Generic text about the JEDI-VCL
! --------------------------------------------------------------------------------
! @@$JVCL.Comps
! <GROUP JVCL>
! <TOPICORDER 300>
! <TITLE Non-visual components>
! The JEDI-VCL provides you with a number of non-visual components that provide
! wrappers to common tasks and functions/procedures in the JEDI Code Library
! (JCL).
! --------------------------------------------------------------------------------
! @@$JVCL.EnhCtrls
<GROUP JVCL>
! <TOPICORDER 500>
! <TITLE Enhanced standard controls>
! The JEDI-VCL provides you with a number of controls that enhance various of
! the standard controls found in Delphi's VCL.
! --------------------------------------------------------------------------------
! @@$JVCL.OrgCtrls
<GROUP JVCL>
! <TOPICORDER 1500>
! <TITLE Original / new controls>
! The JEDI-VCL provides you with a number of new, original controls not found in
! the standard controls in Delphi's VCL.
!
--- 1,22 ----
@@$JVCL
<TITLE JEDI-VCL>
! TODO: Generic text about the JEDI-VCL. Possibly an include file
! ----------------------------------------------------------------------------------------------------
! @@$JVCL.FuncRef
! <TITLE Functional reference>
<GROUP JVCL>
! ----------------------------------------------------------------------------------------------------
! @@$JVCL.FileRef
! <TITLE File reference>
<GROUP JVCL>
! ----------------------------------------------------------------------------------------------------
! @@$JVCL.AlarmsAndTimers
! <TITLE Alarms and timers>
! <GROUP JVCL.FuncRef>
! <INCLUDE grpAlarmsAndTimers.inc>
! ----------------------------------------------------------------------------------------------------
! @@$JVCL.Labels
! <TITLE Labels>
! <GROUP JVCL.FuncRef>
! <INCLUDE grpLabels.inc>
! ----------------------------------------------------------------------------------------------------
|
|
From: Marcel B. <jed...@us...> - 2002-05-25 16:33:28
|
Update of /cvsroot/jvcl/dev/help/output/HTML In directory usw-pr-cvs1:/tmp/cvs-serv9841/dev/help/output/HTML Added Files: readme.txt.txt Log Message: * Added output paths * Update DOM project file, removed compiler paths * Created groups * Moved MPL license to include file * Added link to MPL license * Update some help topics * Changed line length to 100 chars --- NEW FILE: readme.txt.txt --- Doc-O-matic output folder for HTML filter |
|
From: Marcel B. <jed...@us...> - 2002-05-25 16:33:28
|
Update of /cvsroot/jvcl/dev/help/output In directory usw-pr-cvs1:/tmp/cvs-serv9841/dev/help/output Added Files: readme.txt.txt Log Message: * Added output paths * Update DOM project file, removed compiler paths * Created groups * Moved MPL license to include file * Added link to MPL license * Update some help topics * Changed line length to 100 chars --- NEW FILE: readme.txt.txt --- Doc-O-Matic output folder |
|
From: Marcel B. <jed...@us...> - 2002-05-25 16:15:32
|
Update of /cvsroot/jvcl/dev/help/output/WinHELP In directory usw-pr-cvs1:/tmp/cvs-serv6561/WinHELP Log Message: Directory /cvsroot/jvcl/dev/help/output/WinHELP added to the repository |
|
From: Marcel B. <jed...@us...> - 2002-05-25 16:15:32
|
Update of /cvsroot/jvcl/dev/help/output/HTML In directory usw-pr-cvs1:/tmp/cvs-serv6561/HTML Log Message: Directory /cvsroot/jvcl/dev/help/output/HTML added to the repository |
|
From: Marcel B. <jed...@us...> - 2002-05-25 16:15:28
|
Update of /cvsroot/jvcl/dev/help/output In directory usw-pr-cvs1:/tmp/cvs-serv6524a/output Log Message: Directory /cvsroot/jvcl/dev/help/output added to the repository |
|
From: Marcel B. <jed...@us...> - 2002-05-24 20:16:46
|
Update of /cvsroot/jvcl/dev/help In directory usw-pr-cvs1:/tmp/cvs-serv13447/dev/help Modified Files: JVCL.dox Log Message: Adapted paths to source files Index: JVCL.dox =================================================================== RCS file: /cvsroot/jvcl/dev/help/JVCL.dox,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** JVCL.dox 24 May 2002 18:43:07 -0000 1.1 --- JVCL.dox 24 May 2002 20:16:42 -0000 1.2 *************** *** 1,4 **** [Project File Info] ! Version=200 [General] --- 1,4 ---- [Project File Info] ! Version=201 [General] *************** *** 11,17 **** [Source Files] Count=3 ! File0=..\JvAlarms.pas ! File1=..\JvAngleLabel.pas ! File2=..\JvAnimate.pas [Source Include Directories] --- 11,17 ---- [Source Files] Count=3 ! File0=..\..\jvcl\source\JvAlarms.pas ! File1=..\..\jvcl\source\JvAngleLabel.pas ! File2=..\..\jvcl\source\JvAnimate.pas [Source Include Directories] *************** *** 552,556 **** [Image Paths] Count=1 ! Path0=E:\PROGRAM FILES\DOC-O-MATIC 2\graphics [Flags] --- 552,556 ---- [Image Paths] Count=1 ! Path0=..\..\..\..\..\PROGRAM FILES\DOC-O-MATIC 2\graphics [Flags] |
|
From: Michael B. <be...@us...> - 2002-05-24 20:03:17
|
Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv8912/source
Modified Files:
JvFormParser.pas
Log Message:
removed TParserInf definition because it's in JvTypes
Index: JvFormParser.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvFormParser.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvFormParser.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JvFormParser.pas 24 May 2002 20:00:47 -0000 1.2
***************
*** 33,37 ****
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
! JvButton;
type
--- 33,37 ----
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
! JvButton, JvTypes;
type
***************
*** 73,83 ****
{$R *.DFM}
- type
- TParserInf = class
- StartTag: string;
- EndTag: string;
- MustBe: Integer;
- Take: Integer;
- end;
{*********************************************************************}
--- 73,76 ----
***************
*** 99,103 ****
ob.EndTag := '';
ob.MustBe := -1;
! ob.Take := 0;
ListBox1.ItemIndex := ListBox1.Items.AddObject('New', TObject(ob));
ListBox1Click(Sender);
--- 92,96 ----
ob.EndTag := '';
ob.MustBe := -1;
! ob.TakeText := 0;
ListBox1.ItemIndex := ListBox1.Items.AddObject('New', TObject(ob));
ListBox1Click(Sender);
***************
*** 116,120 ****
Edit3.text := ob.EndTag;
Edit4.text := IntToStr(ob.MustBe);
! ComboBox1.ItemIndex := ob.Take;
end;
--- 109,113 ----
Edit3.text := ob.EndTag;
Edit4.text := IntToStr(ob.MustBe);
! ComboBox1.ItemIndex := ob.TakeText;
end;
***************
*** 177,181 ****
ob.MustBe := StrToInt(Value[i]);
Inc(i);
! ob.Take := StrToInt(Value[i]);
Inc(i);
finally
--- 170,174 ----
ob.MustBe := StrToInt(Value[i]);
Inc(i);
! ob.TakeText := StrToInt(Value[i]);
Inc(i);
finally
***************
*** 198,202 ****
Result.Add(TParserInf(ListBox1.Items.Objects[i]).EndTag);
Result.Add(IntToStr(TParserInf(ListBox1.Items.Objects[i]).MustBe));
! Result.Add(IntToStr(TParserInf(ListBox1.Items.Objects[i]).Take));
end;
end;
--- 191,195 ----
Result.Add(TParserInf(ListBox1.Items.Objects[i]).EndTag);
Result.Add(IntToStr(TParserInf(ListBox1.Items.Objects[i]).MustBe));
! Result.Add(IntToStr(TParserInf(ListBox1.Items.Objects[i]).TakeText));
end;
end;
***************
*** 207,211 ****
begin
if ListBox1.ItemIndex <> -1 then
! TParserInf(ListBox1.Items.Objects[ListBox1.ItemIndex]).Take := (Sender as TComboBox).ItemIndex;
end;
--- 200,204 ----
begin
if ListBox1.ItemIndex <> -1 then
! TParserInf(ListBox1.Items.Objects[ListBox1.ItemIndex]).TakeText := (Sender as TComboBox).ItemIndex;
end;
***************
*** 243,245 ****
end.
-
--- 236,237 ----
|
|
From: Michael B. <be...@us...> - 2002-05-24 20:03:17
|
Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv9185/source
Modified Files:
JvTypes.pas
Log Message:
Changed Take to TakeText in TParserInf
Index: JvTypes.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvTypes.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvTypes.pas 27 Mar 2002 09:39:38 -0000 1.1
--- JvTypes.pas 24 May 2002 20:01:36 -0000 1.2
***************
*** 29,33 ****
unit JvTypes;
! {$ObjExportAll On}
interface
--- 29,33 ----
unit JvTypes;
! {$OBJEXPORTALL On}
interface
***************
*** 62,73 ****
type
PRGBArray = ^TRGBArray;
! TRGBArray = array [0..MaxPixelCount - 1] of TRGBTriple;
TBalance = 0..100;
TVolumeRec = record
case Byte of
0:
! (LongVolume: Longint);
1:
! (LeftVolume,
RightVolume: Word);
end;
--- 62,73 ----
type
PRGBArray = ^TRGBArray;
! TRGBArray = array[0..MaxPixelCount - 1] of TRGBTriple;
TBalance = 0..100;
TVolumeRec = record
case Byte of
0:
! (LongVolume: Longint);
1:
! (LeftVolume,
RightVolume: Word);
end;
***************
*** 130,140 ****
EndTag: string;
MustBe: Integer;
! Take: Integer;
end;
! { (rom) unused and silly
! const
! cr = #13#10;
! }
type
--- 130,140 ----
EndTag: string;
MustBe: Integer;
! TakeText: Integer;
end;
! { (rom) unused and silly
! const
! cr = #13#10;
! }
type
|
|
From: Michael B. <be...@us...> - 2002-05-24 20:03:16
|
Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv9329/source
Modified Files:
JvJVCLAbout.dfm
Log Message:
Index: JvJVCLAbout.dfm
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvJVCLAbout.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvJVCLAbout.dfm 27 Mar 2002 09:39:37 -0000 1.1
--- JvJVCLAbout.dfm 24 May 2002 20:02:07 -0000 1.2
***************
*** 69,73 ****
Top = 169
Width = 188
! Height = 15
Caption = 'Support for JEDI-VCL in the newsgroup:'
end
--- 69,73 ----
Top = 169
Width = 188
! Height = 13
Caption = 'Support for JEDI-VCL in the newsgroup:'
end
***************
*** 82,89 ****
Left = 173
Top = 87
! Width = 129
! Height = 16
Cursor = crHandPoint
! Caption = 'http://jvcl/sourceforge.net '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
--- 82,89 ----
Left = 173
Top = 87
! Width = 127
! Height = 13
Cursor = crHandPoint
! Caption = 'http://jvcl.sourceforge.net '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
***************
*** 98,102 ****
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
! Url = 'http://delphi-jedi.org'
end
object JvHotLink4: TJvHotLink
--- 98,102 ----
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
! Url = 'http://jvcl.sourceforge.net '
end
object JvHotLink4: TJvHotLink
***************
*** 193,200 ****
Left = 177
Top = 228
! Width = 171
Height = 13
Cursor = crHandPoint
! Caption = 'http://jvcl/sourceforge.net/mantis'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
--- 193,200 ----
Left = 177
Top = 228
! Width = 127
Height = 13
Cursor = crHandPoint
! Caption = 'http://jvcl.sourceforge.net '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
***************
*** 209,213 ****
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
! Url = 'news://forums.talkto.net/jedi.vcl'
end
object pnlImage: TPanel
--- 209,213 ----
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
! Url = 'http://jvcl.sourceforge.net '
end
object pnlImage: TPanel
|
|
From: Michael B. <be...@us...> - 2002-05-24 19:59:14
|
Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv8374/source
Modified Files:
JvHtmlParser.pas
Log Message:
Changes by Alexander Samusenko
Index: JvHtmlParser.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvHtmlParser.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvHtmlParser.pas 27 Mar 2002 09:39:37 -0000 1.1
--- JvHtmlParser.pas 24 May 2002 19:59:11 -0000 1.2
***************
*** 16,21 ****
Contributor(s): Michael Beck [mb...@bi...].
! Last Modified: 2000-02-28
You may retrieve the latest version of this file at the Project JEDI home page,
--- 16,22 ----
Contributor(s): Michael Beck [mb...@bi...].
+ Alexander Samusenko[sa...@ch...].
! Last Modified: 2001-09-20
You may retrieve the latest version of this file at the Project JEDI home page,
***************
*** 29,40 ****
unit JvHtmlParser;
! {$ObjExportAll On}
interface
uses
! Windows, Messages, SysUtils, Classes, Graphics, Controls, JvTypes ,JvComponent;
type
TJvHtmlParser = class(TJvComponent)
private
--- 30,57 ----
unit JvHtmlParser;
! {$OBJEXPORTALL On}
interface
uses
! Windows, SysUtils, Classes, JvTypes, JclStrings, JvComponent;
type
+ PTagInfo = ^TTagInfo;
+
+ TTagInfo = record
+ BeginPos: integer;
+ EndPos: integer;
+ BeginContext: integer;
+ EndContext: integer;
+ Key: Integer;
+ end;
+
+ TTagInfoList = class(TList)
+ public
+ procedure AddValue(Value: TTagInfo);
+ procedure Clear; override;
+ end;
+
TJvHtmlParser = class(TJvComponent)
private
***************
*** 43,59 ****
FKeys: TStringList;
FFile: TFileName;
procedure SetInfos(Value: TParserInfos);
procedure SetFile(Value: TFileName);
! function FirstLine(var Value: string): string;
protected
public
! constructor Create(AOwner: TComponent); override;
! destructor Destroy; override;
! published
procedure AnalyseFile;
! procedure AddCondition(Keyword, StartTag, EndTag: string);
procedure RemoveCondition(index: Integer);
procedure ClearConditions;
! procedure GetCondition(Index: Integer; var Keyword: string; var StartTag: string; var EndTag: string);
property OnKeyFound: TOnKeyFound read FOnKeyFound write FOnKeyFound;
property FileName: TFileName read Ffile write SetFile;
--- 60,87 ----
FKeys: TStringList;
FFile: TFileName;
+ FTagList: TTagInfoList;
procedure SetInfos(Value: TParserInfos);
procedure SetFile(Value: TFileName);
! procedure SetTagList(const Value: TTagInfoList);
! function GetConditionsCount: integer;
protected
+ procedure Loaded; override;
+ property TagList: TTagInfoList read FTagList write SetTagList;
public
! procedure AnalyseString(Str: string);
procedure AnalyseFile;
! procedure AddCondition(Keyword, StartTag, EndTag: string; TextSelection:
! integer = 0);
procedure RemoveCondition(index: Integer);
+ constructor Create(AOwner: TComponent); override;
+ destructor Destroy; override;
+ property ConditionsCount: integer read GetConditionsCount;
procedure ClearConditions;
! procedure GetCondition(Index: Integer; var Keyword: string; var StartTag:
! string; var EndTag: string); overload;
! procedure GetCondition(Index: Integer; var Keyword: string; var StartTag:
! string; var EndTag: string; var TextSelection: integer); overload;
!
! published
property OnKeyFound: TOnKeyFound read FOnKeyFound write FOnKeyFound;
property FileName: TFileName read Ffile write SetFile;
***************
*** 61,65 ****
--- 89,102 ----
end;
+ {Comparison function. Used internally for observance of the sequences tags}
+ function CompareTags(Item1, Item2: Pointer): Integer;
+
implementation
+ {*************************************************}
+
+ function CompareTags(Item1, Item2: Pointer): Integer;
+ begin
+ Result := (PTagInfo(Item1).BeginPos - PTagInfo(Item2).BeginPos);
+ end;
{*************************************************}
***************
*** 70,74 ****
Finfos := TStringList.Create;
FKeys := TStringList.Create;
! SetInfos(Finfos);
end;
--- 107,111 ----
Finfos := TStringList.Create;
FKeys := TStringList.Create;
! FTagList := TTagInfoList.Create;
end;
***************
*** 79,82 ****
--- 116,120 ----
FInfos.Free;
FKeys.Free;
+ FTagList.Free;
inherited;
end;
***************
*** 86,108 ****
procedure TJvHtmlParser.SetFile(Value: TFileName);
begin
! FFile := Value;
! AnalyseFile;
! end;
!
! {*************************************************}
!
! function TJvHtmlParser.FirstLine(var Value: string): string;
! begin
! if Pos(#10, Value) = 0 then
! begin
! Result := Value;
! Value := '';
! end
! else
begin
! Result := Copy(Value, 1, Pos(#10, Value) - 1);
! Value := Copy(Value, Pos(#10, Value) + 1, Length(Value));
! if Pos(#13, Value) = 1 then
! Value := Copy(Value, 2, Length(Value));
end;
end;
--- 124,132 ----
procedure TJvHtmlParser.SetFile(Value: TFileName);
begin
! if FFile <> Value then
begin
! FFile := Value;
! if not (csDesigning in Self.ComponentState) then
! AnalyseFile;
end;
end;
***************
*** 131,135 ****
ob.MustBe := StrToInt(FInfos[i]);
Inc(i);
! ob.Take := StrToInt(FInfos[i]);
Inc(i);
finally
--- 155,159 ----
ob.MustBe := StrToInt(FInfos[i]);
Inc(i);
! ob.TakeText := StrToInt(FInfos[i]);
Inc(i);
finally
***************
*** 138,141 ****
--- 162,166 ----
end;
end;
+
{*************************************************}
***************
*** 143,148 ****
var
fich: TextFile;
! buf, st, st2: string;
! i, j: Integer;
begin
if (FKeys.Count = 0) and (FInfos.Count <> 0) then
--- 168,196 ----
var
fich: TextFile;
! buf, st: string;
! begin
! st := '';
! try
! AssignFile(fich, FileName);
! Reset(fich);
! buf := '';
! while not Eof(fich) do
! begin
! Readln(fich, buf);
! st := st + buf;
! end;
! finally
! CloseFile(Fich);
! end;
! AnalyseString(st);
! end;
!
! {*************************************************}
!
! procedure TJvHtmlParser.AnalyseString(Str: string);
! var
! st2: string;
! i, j, k, index: Integer;
! TagInfo: TTagInfo;
begin
if (FKeys.Count = 0) and (FInfos.Count <> 0) then
***************
*** 150,203 ****
if FKeys.Count > 0 then
begin
! try
! AssignFile(fich, FileName);
! Reset(fich);
! buf := '';
! while not Eof(fich) or (buf <> '') do
begin
! if buf = '' then
! begin
! Readln(fich, buf);
! st := FirstLine(buf);
! end
! else
! st := FirstLine(buf);
!
! for i := 0 to FKeys.Count - 1 do
begin
! j := Pos(TParserInf(FKeys.Objects[i]).StartTag, st);
! if (j = TParserInf(FKeys.Objects[i]).MustBe) or
! ((j <> 0) and (TParserInf(FKeys.Objects[i]).MustBe = -1)) then
! begin
! case TParserInf(FKeys.Objects[i]).Take of
! 0:
! begin
! st2 := Copy(st, j + Length(TParserInf(FKeys.Objects[i]).StartTag), Length(st));
! j := Pos(TParserInf(FKeys.Objects[i]).EndTag, st2);
! if j <> 0 then
! st2 := Copy(st2, 1, j - 1);
! end;
! 1: st2 := Copy(st, 1, j - 1);
! 2: st2 := Copy(st, j + Length(TParserInf(FKeys.Objects[i]).StartTag), Length(st));
! 3: st2 := st;
! end;
! //Between limits
! //All before start tag
! //All after start tag
! //The whole line if containing start tag
! if Assigned(FOnKeyFound) then
! FOnKeyFound(Self, FKeys[i], st2, st);
end;
end;
end;
! finally
! CloseFile(Fich);
end;
end;
end;
-
{*************************************************}
! procedure TJvHtmlParser.AddCondition(Keyword, StartTag, EndTag: string);
var
ob: TParserInf;
--- 198,261 ----
if FKeys.Count > 0 then
begin
! FTagList.Clear;
! for i := 0 to FKeys.Count - 1 do
! begin
! j := 1;
! while (j <> 0) do
begin
! j := StrSearch(TParserInf(FKeys.Objects[i]).StartTag, Str, j);
! if j > 0 then
begin
! k := StrSearch(TParserInf(FKeys.Objects[i]).EndTag, Str, j);
! TagInfo.BeginPos := j;
! TagInfo.EndPos := k + length(TParserInf(FKeys.Objects[i]).EndTag);
! TagInfo.Key := i;
! case TParserInf(FKeys.Objects[i]).TakeText of
! 0: //Between limits
! begin
! TagInfo.BeginContext := j +
! Length(TParserInf(FKeys.Objects[i]).StartTag);
! TagInfo.EndContext := k;
! end;
! 1: //All before start tag
! begin
! TagInfo.BeginContext := 1;
! TagInfo.EndContext := j;
! end;
! 2: //All after start tag
! begin
! TagInfo.BeginContext := j +
! Length(TParserInf(FKeys.Objects[i]).StartTag);
! TagInfo.EndContext := Length(Str);
! end;
! 3: //The whole line if containing start tag
! begin
! TagInfo.BeginContext := j;
! TagInfo.EndContext := StrSearch('#1310', Str, j);
! end;
end;
+ FTagList.AddValue(TagInfo);
+ j := j + Length(TParserInf(FKeys.Objects[i]).StartTag);
end;
end;
! end;
! end;
! FTagList.Sort(@CompareTags);
! with FTagList do
! begin
! for index := 0 to (Count - 1) do
! begin
! st2 := Copy(Str, PTagInfo(Items[index]).BeginContext,
! PTagInfo(Items[index]).EndContext -
! PTagInfo(Items[index]).BeginContext);
! if Assigned(FOnKeyFound) then
! FOnKeyFound(Self, FKeys[PTagInfo(Items[index]).Key], st2, Str);
end;
end;
end;
{*************************************************}
! procedure TJvHtmlParser.AddCondition(Keyword, StartTag, EndTag: string;
! TextSelection: integer = 0);
var
ob: TParserInf;
***************
*** 206,209 ****
--- 264,268 ----
ob.StartTag := StartTag;
ob.EndTag := EndTag;
+ ob.TakeText := TextSelection;
FKeys.AddObject(Keyword, TObject(ob));
end;
***************
*** 226,230 ****
{*************************************************}
! procedure TJvHtmlParser.GetCondition(Index: Integer; var Keyword: string; var StartTag: string; var EndTag: string);
begin
Keyword := FKeys[Index];
--- 285,290 ----
{*************************************************}
! procedure TJvHtmlParser.GetCondition(Index: Integer; var Keyword: string; var
! StartTag: string; var EndTag: string);
begin
Keyword := FKeys[Index];
***************
*** 232,235 ****
--- 292,357 ----
EndTag := TParserInf(FKeys.Objects[Index]).EndTag;
end;
+ {*************************************************}
+ procedure TJvHtmlParser.GetCondition(Index: Integer; var Keyword, StartTag,
+ EndTag: string; var TextSelection: integer);
+ begin
+ Self.GetCondition(Index, Keyword, StartTag, EndTag);
+ TextSelection := TParserInf(FKeys.Objects[Index]).TakeText;
+ end;
+ {*************************************************}
+
+ function TJvHtmlParser.GetConditionsCount: integer;
+ begin
+ Result := FKeys.Count;
+ end;
+ {*************************************************}
+
+ procedure TJvHtmlParser.SetTagList(const Value: TTagInfoList);
+ begin
+ FTagList := Value;
+ end;
+ {*************************************************}
+
+ procedure TJvHtmlParser.Loaded;
+ begin
+ inherited;
+ SetInfos(FInfos);
+ end;
+
+ { TTagInfoList }
+
+ {*************************************************}
+
+ procedure TTagInfoList.AddValue(Value: TTagInfo);
+ var
+ P: PTagInfo;
+ begin
+ GetMem(P, SizeOf(TTagInfo));
+ if P <> nil then
+ begin
+ with P^ do
+ begin
+ BeginPos := Value.BeginPos;
+ EndPos := Value.EndPos;
+ BeginContext := Value.BeginContext;
+ EndContext := Value.EndContext;
+ Key := Value.Key;
+ end;
+ Self.Add(P);
+ end;
+ end;
+ {*************************************************}
+
+ procedure TTagInfoList.Clear;
+ var
+ i: integer;
+ begin
+ for i := 0 to Self.Count - 1 do
+ begin
+ FreeMem(Self.Items[i], SizeOf(TTagInfo));
+ end;
+ inherited;
+ end;
end.
+
|
|
From: Michael B. <be...@us...> - 2002-05-24 19:58:09
|
Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv8095/source
Added Files:
JvDiagramShape.pas
Log Message:
Initial Upload
--- NEW FILE: JvDiagramShape.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: JvDiagramShape.PAS, released on 2002-03-22.
Original Developer: Jim Cooper <jc...@ta...>
Contributor(s): Michael Beck <mb...@co...>
Last Modified: 2002-03-25
You may retrieve the latest version of this file at the Project JEDI home page,
located at http://www.delphi-jedi.org
[...2264 lines suppressed...]
TJvSizeableShape,
TJvConnection,
TJvConnector,
TJvSingleHeadArrow,
TJvBluntSingleHeadArrow,
TJvDoubleHeadArrow,
TJvBitmapShape,
TJvTextShape,
TJvStandardShape,
TJvSingleHeadOpenDashArrow,
TJvBluntSingleHeadOpenDashArrow,
TJvSubCaseArrow]);
end; {RegisterStorageClasses}
initialization
RegisterStorageClasses;
FShapeCount := 1;
end.
|
|
From: Marcel B. <jed...@us...> - 2002-05-24 18:43:10
|
Update of /cvsroot/jvcl/dev/help
In directory usw-pr-cvs1:/tmp/cvs-serv19475/dev/help
Modified Files:
JvAlarms.dtx
Added Files:
JVCL.dox JvMainGrps.dtx
Log Message:
Added / merged from FreeVCS help
--- NEW FILE: JVCL.dox ---
[Project File Info]
Version=200
[General]
Title=Documentation Project 3
VersionMajor=1
VersionMinor=0
Copyright=Copyright (c) 2002. All rights reserved.
Type=2
[Source Files]
Count=3
File0=..\JvAlarms.pas
File1=..\JvAngleLabel.pas
File2=..\JvAnimate.pas
[Source Include Directories]
Count=0
[Description Files]
Count=4
File0=JvAlarms.dtx
File1=JvAngleLabel.dtx
File2=JvAnimate.dtx
File3=JvMainGrps.dtx
[Description Include Directories]
Count=0
[Macro Header Files]
Count=0
[Link Database]
LinkPrecedence=0
[Link Database Files]
Count=0
[Export Symbols]
AutoCreateMissingTopics=1
IgnoreEmptyTopics=0
AutoCombineOverloadedFunctions=1
UseInheritedTopics=1
Classes=1
Records=1
Functions=1
Types=1
Vars=1
Consts=1
Macros=0
Files=0
GenericTopics=1
UseTopicVersionInfo=0
Member-0-0=1
Member-0-1=0
Member-0-2=1
Member-0-3=1
Member-0-4=1
Member-1-0=1
Member-1-1=0
Member-1-2=1
Member-1-3=1
Member-1-4=1
Member-2-0=1
Member-2-1=0
Member-2-2=1
Member-2-3=1
Member-2-4=1
Member-3-0=1
Member-3-1=0
Member-3-2=1
Member-3-3=1
Member-3-4=1
Member-4-0=1
Member-4-1=0
Member-4-2=1
Member-4-3=1
Member-4-4=1
Member-5-0=1
Member-5-1=0
Member-5-2=1
Member-5-3=1
Member-5-4=1
Member-6-0=1
Member-6-1=0
Member-6-2=1
Member-6-3=1
Member-6-4=1
Member-7-0=1
Member-7-1=0
Member-7-2=1
Member-7-3=1
Member-7-4=1
NestedClasses-0=1
NestedClasses-1=0
NestedClasses-2=1
NestedClasses-3=1
NestedClasses-4=1
[Text Variables]
Count=0
[Enabled Topics]
Count=0
[Disabled Topics]
Count=15
ID0=TJvAngleLabel.Create@TComponent
ID1=TJvAnimate.Create@TComponent
ID2=TJvAnimate.OnClick
ID3=TJvAnimate.OnDblClick
ID4=TJvAnimate.OnDragDrop
ID5=TJvAnimate.OnDragOver
ID6=TJvAnimate.OnEndDrag
ID7=TJvAnimate.OnKeyDown
ID8=TJvAnimate.OnKeyPress
ID9=TJvAnimate.OnKeyUp
ID10=TJvAnimate.OnMouseDown
ID11=TJvAnimate.OnMouseMove
ID12=TJvAnimate.OnMouseUp
ID13=TJvAnimate.OnResize
ID14=TJvAnimate.OnStartDrag
[Manually created Topics]
Count=0
[Filters]
CurrentID={D3A588E0-9472-11D3-BDD1-0080C8BA053D}
[Disabled Filters]
Count=0
[Parsing]
ParseSystemIncludes=0
TreatInterfaceAsStruct=1
AssociateEarlyCommentsWithFiles=1
UseNamespaces=1
ParseImplementationSection=0
DSP_ValidExtentions=.cpp;.c;.cc;.cxx;.c++
UseParameterListInlineComments=1
InitSequence=@@
InitOptional=0
CommentDistance=5
AssignedCommentsToFollowingSymbols=1
TopicSeparator=@@
SkipSequence=!ignore me!
SupportJavaDoc=0
TrailerChars=-+~/#
ParameterDelimiterChars=:-
ParameterDescriptionMode=0
HeadlineDelimiterChars=*#-
ListBulletChars=*xo+-#
SectionDelimiterChars=:*-
TabExpandCount=4
ListAndTableMinIndent=0
HeaderUnderlineCharacters=-
WallCharacters="#$%&'*+-/=@[\]^_`{|}~
IgnoredLineStartersCount=1
IgnoredLineStarter_0=##
HTMLTopicIDInitializer=@@ SymbolID:
HTMLFileExtensions=.html;.htm
HTMLInterpretPreAsCode=1
RawTextOrder_Location_0=0
RawTextOrder_Used_0=1
RawTextOrder_Location_1=1
RawTextOrder_Used_1=1
RawTextOrder_Location_2=2
RawTextOrder_Used_2=1
RawTextOrder_Location_3=3
RawTextOrder_Used_3=1
[Body Source]
BodySourceFunctions=0
BodySourceFiles=0
BodySourceUseAutolinking=0
BodySourceUseSyntaxHighlight=0
[Parsing\ConditionalDefines]
HandleConditionalDefines=0
Count=0
[Autolinking]
AutolinkText=1
AutolinkSource=1
AutolinkDisableForPreview=1
AutolinkMinLength=0
BannedWordsCount=42
BannedWord_0=a
BannedWord_1=an
BannedWord_2=and
BannedWord_3=as
BannedWord_4=be
BannedWord_5=down
BannedWord_6=false
BannedWord_7=for
BannedWord_8=he
BannedWord_9=i
BannedWord_10=in
BannedWord_11=is
BannedWord_12=it
BannedWord_13=its
BannedWord_14=me
BannedWord_15=no
BannedWord_16=not
BannedWord_17=of
BannedWord_18=off
BannedWord_19=on
BannedWord_20=or
BannedWord_21=per
BannedWord_22=self
BannedWord_23=she
BannedWord_24=so
BannedWord_25=that
BannedWord_26=then
BannedWord_27=they
BannedWord_28=this
BannedWord_29=though
BannedWord_30=thus
BannedWord_31=true
BannedWord_32=up
BannedWord_33=use
BannedWord_34=void
BannedWord_35=we
BannedWord_36=when
BannedWord_37=whenever
BannedWord_38=where
BannedWord_39=while
BannedWord_40=wont
BannedWord_41=yes
[Sections]
SavedValues=1
Count=21
ID0=0
ID1=1
ID2=2
ID3=3
ID4=4
ID5=5
ID6=6
ID7=7
ID8=8
ID9=9
ID10=10
ID11=11
ID12=12
ID13=13
ID14=14
ID15=15
ID16=16
ID17=17
ID18=18
ID19=19
ID20=20
DefID=0
AutoCreateSummary=0
[Section\0]
Type=0
DisplayName=Description
EditorName=
Flags=47
Description=Contains the general description of an object. This text describes the purpose of the item.
Count=2
Value0=Description
Value1=Long
JavaDocTags=
[Section\1]
Type=4
DisplayName=Summary
EditorName=
Flags=46
Description=Contains a short summary of the purpose of an object. This text usually contains one or two sentenses.
Count=3
Value0=Summary
Value1=Brief
Value2=Short
JavaDocTags=
[Section\2]
Type=0
DisplayName=Notes
EditorName=
Flags=46
Description=Used for one or more short notes on an object.
Count=1
Value0=Note
JavaDocTags=
[Section\3]
Type=0
DisplayName=Remarks
EditorName=
Flags=46
Description=Used for special remarks on a topic. In contrary to notes, this text can be fairly long.
Count=1
Value0=Remarks
JavaDocTags=
[Section\4]
Type=1
DisplayName=Parameters
EditorName=
Flags=46
Description=Used for detailed descriptions of each parameter of a global or member function.
Count=4
Value0=Parameters
Value1=Arguments
Value2=Inputs
Value3=Input
JavaDocTags=
[Section\5]
Type=2
DisplayName=Return Value
EditorName=
Flags=46
Description=Used to describe the return value of a global or member function.
Count=4
Value0=Returns
Value1=Return Value
Value2=Result
Value3=Output
JavaDocTags=RETURN
[Section\6]
Type=3
DisplayName=Examples
EditorName=
Flags=47
Description=Used for one or more usage examples of the object being described.
Count=3
Value0=Example
Value1=Examples
Value2=Sample
JavaDocTags=
[Section\7]
Type=6
DisplayName=Ignore
EditorName=
Flags=33
Description=All text that appears in this section is ignored.
Count=8
Value0=Ignore Text
Value1=$Log
Value2=$Filename
Value3=$Revision
Value4=$Date
Value5=$Author
Value6=$History
Value7=$Id
JavaDocTags=BEANINFO,COMPONENT,DEPRECATED,EVENT,EXCLUDE,INDEX,OBSOLETE,SEEALSO,SERIAL,SERIALDATA,SERIALFIELD,TUTORIAL
[Section\8]
Type=5
DisplayName=See Also
EditorName=
Flags=46
Description=Contains a comma separated list of topic IDs which build the see also list of the topic.
Count=2
Value0=See Also
Value1=Seealso
JavaDocTags=
[Section\9]
Type=0
DisplayName=Bugs
EditorName=
Flags=46
Description=Contains text that describes bugs or problems related to the object.
Count=3
Value0=Bugs
Value1=Known Bugs
Value2=Current Bugs
JavaDocTags=BUG
[Section\10]
Type=0
DisplayName=Internal
EditorName=
Flags=46
Description=Contains documentation parts which should only be available to internal team members and not to the general public.
Count=2
Value0=Internal
Value1=Special Info
JavaDocTags=INTERNAL
[Section\11]
Type=0
DisplayName=Todo
EditorName=
Flags=46
Description=Contains text that describes which parts of the object are incomplete and need additional work.
Count=1
Value0=TODO
JavaDocTags=TODO
[Section\12]
Type=0
DisplayName=Exceptions
EditorName=
Flags=46
Description=Contains text that describes which exceptions can be raised by a function or method.
Count=3
Value0=Exceptions
Value1=Throws
Value2=Raises
JavaDocTags=EXCEPTION,EXCEPTIONS,THROWS,RAISES
[Section\13]
Type=0
DisplayName=Conditions
EditorName=
Flags=46
Description=Contains text that describes conditions (for example pre- and postconditions) for a function call.
Count=2
Value0=Conditions
Value1=Preconditions
JavaDocTags=
[Section\14]
Type=0
DisplayName=Author
EditorName=
Flags=46
Description=Contains information who the author(s) of a topic are
Count=2
Value0=Author
Value1=Authors
JavaDocTags=AUTHOR
[Section\15]
Type=0
DisplayName=History
EditorName=
Flags=46
Description=Contains text which describes the history of the object
Count=1
Value0=History
JavaDocTags=SINCE,HISTORY
[Section\16]
Type=0
DisplayName=Version
EditorName=
Flags=46
Description=Contains version information of the object.
Count=2
Value0=Version
Value1=Current Version
JavaDocTags=VERSION
[Section\17]
Type=7
DisplayName=Glossary
EditorName=
Flags=46
Description=Contains the text for the glossary entry of the topic.
Count=1
Value0=Glossary
JavaDocTags=
[Section\18]
Type=8
DisplayName=Source Replacement
EditorName=
Flags=34
Description=Contains a source code for the topic that is used instead of the automatic code.
Count=4
Value0=Source Code
Value1=Syntax
Value2=Declaration
Value3=Declaration Source
JavaDocTags=
[Section\19]
Type=9
DisplayName=Source Description
EditorName=
Flags=46
Description=Contains the text for the description of the implementation source of functions.
Count=3
Value0=Source Description
Value1=Implementation Notes
Value2=Implementation Description
JavaDocTags=
[Section\20]
Type=10
DisplayName=Link List
EditorName=
Flags=47
Description=Contains a comma separated list of topic IDs and a name as it's first item. This can be used as class member group list.
Count=4
Value0=Link List
Value1=Membergroups
Value2=Member Groups
Value3=Class Group
JavaDocTags=
[AutoTexts]
Saved=1
Text0=The text for this unknown has been generated automatically. This means that it is not documented.
Text1=The text for this class has been generated automatically. This means that it is not documented.
Text2=The text for this field has been generated automatically. This means that it is not documented.
Text3=The text for this property has been generated automatically. This means that it is not documented.
Text4=The text for this method has been generated automatically. This means that it is not documented.
Text5=The text for this function has been generated automatically. This means that it is not documented.
Text6=The text for this type has been generated automatically. This means that it is not documented.
Text7=The text for this variable has been generated automatically. This means that it is not documented.
Text8=The text for this constant has been generated automatically. This means that it is not documented.
Text9=The text for this macro has been generated automatically. This means that it is not documented.
Text10=The text for this file has been generated automatically. This means that it is not documented.
Text11=The text for this record has been generated automatically. This means that it is not documented.
Text12=The text for this friend has been generated automatically. This means that it is not documented.
Text13=The text for this nested type has been generated automatically. This means that it is not documented.
Empty=0
[QAChecks]
QACheckForAutomaticTopics=0
QACheckForEmptyParameterDescription=0
QACheckForParameterNames=0
QACheckForEmptyReturnDescription=0
[Output Options]
HidePropertyDetails=1
UseInheritedPropertyDetails=1
IndexTitlePrefixes=
[Parsing\Excluded Source Files]
Count=1
File_0=..\Jedi.inc
[Editor Options]
MaxLineLength=60
MinTableColWidth=10
UseTopicIDs=1
BeginCommentCharsOnSeparateLine=0
EndCommentCharsOnSeparateLine=0
CommentIndentSpaces=1
CommentCharPascal=2
CommentCharCPP=1
WallLeftRight=*
WallTopButtom=*
WallConfig=0
AlwaysInsertInitializer=0
BlankLinesBeforeSection=1
AlwaysInsertSectionDelimiter=0
[Image Paths]
Count=1
Path0=E:\PROGRAM FILES\DOC-O-MATIC 2\graphics
[Flags]
Use=1
WriteMissingFlagsAsText=1
Count=0
[Colors]
Count=9
Color_0=Black
CValue_0=0
Color_1=Blue
CValue_1=16711680
Color_2=Cool Blue
CValue_2=9723223
Color_3=Cool Orange
CValue_3=41727
Color_4=Gray
CValue_4=10526880
Color_5=Gray Light
CValue_5=13421772
Color_6=Green
CValue_6=65280
Color_7=Red
CValue_7=255
Color_8=White
CValue_8=16777215
[Dictionary]
Filename=
[Generic Sources]
Count=0
--- NEW FILE: JvMainGrps.dtx ---
@@$JVCL
<TITLE JEDI-VCL>
TODO: Generic text about the JEDI-VCL
--------------------------------------------------------------------------------
@@$JVCL.Comps
<GROUP JVCL>
<TOPICORDER 300>
<TITLE Non-visual components>
The JEDI-VCL provides you with a number of non-visual components that provide
wrappers to common tasks and functions/procedures in the JEDI Code Library
(JCL).
--------------------------------------------------------------------------------
@@$JVCL.EnhCtrls
<GROUP JVCL>
<TOPICORDER 500>
<TITLE Enhanced standard controls>
The JEDI-VCL provides you with a number of controls that enhance various of
the standard controls found in Delphi's VCL.
--------------------------------------------------------------------------------
@@$JVCL.OrgCtrls
<GROUP JVCL>
<TOPICORDER 1500>
<TITLE Original / new controls>
The JEDI-VCL provides you with a number of new, original controls not found in
the standard controls in Delphi's VCL.
Index: JvAlarms.dtx
===================================================================
RCS file: /cvsroot/jvcl/dev/help/JvAlarms.dtx,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JvAlarms.dtx 24 May 2002 06:41:19 -0000 1.1
--- JvAlarms.dtx 24 May 2002 18:43:07 -0000 1.2
***************
*** 1,121 ****
! ================================================================
! @@JvAlarms.pas
! Note:
! <B>Delphi Versions:</B> <COLOR Brown>5, 6</COLOR> <B>
!
! C++ Builder Versions:</B> <COLOR Brown>none</COLOR>
!
! Conditions:
! 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
!
! Author:
! Sebastien Buysse
!
! Version:
! 1.20 Beta
!
! ================================================================
@@TJvAlarm
!
! ================================================================
! @@TJvAlarm.Kind
!
! ================================================================
@@TJvAlarm.Name
!
! ================================================================
@@TJvAlarm.Time
!
! ================================================================
@@TJvAlarms
! Description:
! This component will remind you a certain time on a certain date.
!
! ================================================================
! @@TJvAlarms.FActive
!
! ================================================================
! @@TJvAlarms.FAlarms
!
! ================================================================
! @@TJvAlarms.FLast
!
! ================================================================
! @@TJvAlarms.FOnAlarm
!
! ================================================================
! @@TJvAlarms.FRunning
!
! ================================================================
! @@TJvAlarms.FTimer
!
! ================================================================
! @@TJvAlarms.Add@string@TDateTime@TJvTriggerKind
! Description:
! Call this procedure to add an alarm
!
! Parameters:
! Name:is the name of the alarm
! Time: is the moment of the alarm
! Kind: is kind of alarm
!
! ================================================================
! @@TJvAlarms.Create@TComponent
!
! ================================================================
! @@TJvAlarms.Delete@Cardinal
! Description:
! Call this procedure to delete the specified alarm
!
! ================================================================
! @@TJvAlarms.Destroy
!
! ================================================================
! @@TJvAlarms.DoAlarm@TJvAlarm@TDateTime
!
! ================================================================
! @@TJvAlarms.GetAlarm@Cardinal
! Description:
! Call this function to retrieve the data for a specified alarm.
!
! ================================================================
! @@TJvAlarms.GetAlarmCount
! Description:
! Call this function to retrieve the number of alarms
!
! ================================================================
! @@TJvAlarms.OnTimer@TObject
!
! ================================================================
! @@TJvAlarms.SetActive@Boolean
!
! ================================================================
! @@TJvAlarms.Active
! Description:
! This property enable/disable the spy of the time for the alarms.
!
! ================================================================
@@TJvAlarms.Alarms
! Description:
! Don't modify this property in your code !. Double click in the object inspector or call the Add and Delete methods
!
! ================================================================
@@TJvAlarms.Count
!
! ================================================================
@@TJvAlarms.OnAlarm
! Description:
! This event is called when it's the same time than an alarm
!
! ================================================================
@@TJvAlarms.Running
!
! ================================================================
! @@TJvOnAlarm
!
! ================================================================
! @@TJvTriggerKind
!
! ================================================================
! @@RC_Alarm
--- 1,135 ----
! @@$TJvAlarms
! <GROUP JVCL.Comps>
! <TITLE TJvAlarms>
! <TOPICORDER 100>
! The TJvAlarms component provides you with a programmable timer. You can add
! multiple alarms for different dates, times and trigger intervals.
! --------------------------------------------------------------------------------
@@TJvAlarm
! <GROUP JVCL.Comps.TJvAlarms>
! Summary
! A single alarm record.
! Description
! TJvAlarm is a record that represents a single alarm, registered in the
! TJvAlarms component.
@@TJvAlarm.Name
! Name of the alarm.
@@TJvAlarm.Time
! Date and time at which the alarm is to be triggered.
! @@TJvAlarm.Kind
! The kind of alarm.
! --------------------------------------------------------------------------------
! @@TJvTriggerKind
! <GROUP JVCL.Comps.TJvAlarms>
! Summary
! Alarm kind.
! Description
! The TJvTriggerKind type are the kind of alarms that can be added to the
! TJvAlarms.
! @@TJvTriggerKind.tkOneShot
! The alarm is a one shot, ie. fires only once at the specified time.
! @@TJvTriggerKind.tkEachSecond
! The alarm will fire at the specified time and each second after that.
! @@TJvTriggerKind.tkEachMinute
! The alarm will fire at the specified time and each minute after that.
! @@TJvTriggerKind.tkEachHour
! The alarm will fire at the specified time and each hour after that.
! @@TJvTriggerKind.tkEachDay
! The alarm will fire at the specified time and each day after that.
! @@TJvTriggerKind.tkEachMonth
! The alarm will fire at the specified time and each month after that.
! @@TJvTriggerKind.tkEachYear
! The alarm will fire at the specified time and each year after that.
! --------------------------------------------------------------------------------
@@TJvAlarms
! <GROUP JVCL.Comps.TJvAlarms>
! TJvAlarm is a non-visible component that provides you with a programmable
! timer. The component allows multiple alarms to be added, each of which can be
! set to repeat at a specified interval or not at all.
! --------------------------------------------------------------------------------
@@TJvAlarms.Alarms
! Summary
! Registered alarms.
! Description
! Alarms is an array of registered alarms. The array is 0-based. Each item is
! a single alarm with a name, an initial fire date/time and the trigger kind
! (repeat interval).
! Parameters
! Idx - 0-based index of the alarm. Allowable values are 0 .. Count-1
! See Also
! Count
! --------------------------------------------------------------------------------
! @@TJvAlarms.Active
! Summary
! Indicates if alarms will trigger.
! Description
! Active indicates if alarms will fire. When Active is set to False, no alarm
! will fire at the set date/time. When set to True, Alarms will fire at the set
! date/time.
! See Also
! Running
! --------------------------------------------------------------------------------
@@TJvAlarms.Count
! Summary
! Number of registered alarms.
! Description
! AlarmsCount is the number of alarms in the array.
! See Also
! Alarms
! --------------------------------------------------------------------------------
@@TJvAlarms.OnAlarm
! <COMBINEWITH TJvOnAlarm>
! Summary
! The event to call when an alarm fires.
! Description
! OnAlarm is an event that will be called for each alarm that fires.
! Parameters
! Sender - Reference to the TJvAlarms component generating the event.
! Alarm - Reference to the alarm that fired.
! TriggerTime - The time the alarm went off.
! --------------------------------------------------------------------------------
@@TJvAlarms.Running
! Summary
! Flag that indicates if the alarm component is running.
! Description
! Running indicates if the component is active and has alarms waiting to be
! fired. If the components Active property is set to False, Running will also be
! False. When Active is set to True, Running will be True as long as Count > 0.
! See Also
! Active, Count
! --------------------------------------------------------------------------------
! @@TJvAlarms.Add
! Summary
! Adds a new alarm.
! Description
! Add adds a new alarm to the component. To add an alarm you need to provide a
! name (the alarm's ID), a date/time when the alarm should fire and the kind of
! alarm (default's to one-shot).
! Parameters
! Name - Name of the alarm. The name is the only way you can identify an alarm
! during an OnAlarm event.
! Time - Date and time at which the alarm should go off.
! Kind - The kind of alarm to be added. Kind will default to tkOneShot, meaning
! that the alarm will fire only once and at the specified time.
! See Also
! Alarms, Count, Deleted, OnAlarm, TJvTriggerKind
! --------------------------------------------------------------------------------
! @@TJvAlarms.Delete
! Summary
! Deletes an alarm.
! Description
! Delete removes the alarm at the specified index.
! Parameters
! Idx - Index of the alarm to delete.
! --------------------------------------------------------------------------------
! @@TJvAlarms.DoAlarm
! Summary
! Calls the OnAlarm event.
! Description
! DoAlarm is a protected method that will call the assigned OnAlarm event if
! present. It's intended for descendants to call the OnAlarm event from their
! own code.
! Parameters
! Alarm - Reference to the alarm that fired.
! TriggerTime - The time the alarm went off.
|
6 messages has been excluded from this view by a project administrator.