|
From: Peter T. <pe...@pr...> - 2004-01-27 12:52:58
|
Update of /cvsroot/jvcl/dev/JVCL3/examples/RxLib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31402/examples/RxLib Modified Files: ABOUT.PAS ABOUT.dfm MAIN.PAS MAIN.dfm Log Message: - all projects added to mak and bpg file (some are still commented out) - dof files fixed - minor fixes to compile Index: ABOUT.PAS =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/RxLib/ABOUT.PAS,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** ABOUT.PAS 8 Jan 2004 09:56:11 -0000 1.3 --- ABOUT.PAS 27 Jan 2004 12:51:54 -0000 1.4 *************** *** 68,72 **** procedure RxWebSite; begin ! ShellExecute(Application.Handle, nil, 'http://rx.demo.ru', nil, nil, SW_SHOWNOACTIVATE); end; --- 68,72 ---- procedure RxWebSite; begin ! ShellExecute(Application.Handle, nil, 'http://jvcl.sf.net', nil, nil, SW_SHOWNOACTIVATE); end; Index: MAIN.PAS =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/RxLib/MAIN.PAS,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** MAIN.PAS 18 Jan 2004 03:27:05 -0000 1.7 --- MAIN.PAS 27 Jan 2004 12:51:54 -0000 1.8 *************** *** 32,36 **** uses ! SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Gauges, ExtCtrls, Menus, JvSpeedbar, JvAppEvent, JvSplit, JvMenus, JvComponent, JvTrayIcon, JvBDEProgress, --- 32,36 ---- uses ! SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, Gauges, ExtCtrls, Menus, JvSpeedbar, JvAppEvent, JvSplit, JvMenus, JvComponent, JvTrayIcon, JvBDEProgress, *************** *** 40,44 **** type TMainForm = class(TForm) ! MainMenu1: TJvMainMenu ; FileMenu: TMenuItem; WindowMenu: TMenuItem; --- 40,44 ---- type TMainForm = class(TForm) ! MainMenu1: TJvMainMenu; FileMenu: TMenuItem; WindowMenu: TMenuItem; *************** *** 57,62 **** ProgressPanel: TPanel; DbiProgress: TGauge; ! DBProgress1: TJvDBProgress ; ! ToolbarMenu: TJvPopupMenu ; Customize1: TMenuItem; SaveLayoutItem: TMenuItem; --- 57,62 ---- ProgressPanel: TPanel; DbiProgress: TGauge; ! DBProgress1: TJvDBProgress; ! ToolbarMenu: TJvPopupMenu; Customize1: TMenuItem; SaveLayoutItem: TMenuItem; *************** *** 64,68 **** CascadeItem: TMenuItem; TileItem: TMenuItem; ! Toolbar: TJvSpeedBar ; AboutBtn: TjvSpeedItem; TileBtn: TjvSpeedItem; --- 64,68 ---- CascadeItem: TMenuItem; TileItem: TMenuItem; ! Toolbar: TJvSpeedBar; AboutBtn: TjvSpeedItem; TileBtn: TjvSpeedItem; *************** *** 74,78 **** View2Btn: TjvSpeedItem; View3Btn: TjvSpeedItem; ! AppEvents: TJvAppEvents ; WizardBtn: TjvSpeedItem; SpeedbarSection1: TjvSpeedbarSection; --- 74,78 ---- View2Btn: TjvSpeedItem; View3Btn: TjvSpeedItem; ! AppEvents: TJvAppEvents; WizardBtn: TjvSpeedItem; SpeedbarSection1: TjvSpeedbarSection; *************** *** 81,85 **** SpeedbarSection4: TjvSpeedbarSection; TrayIcon: TJvTrayIcon; ! PopupMenu: TJvPopupMenu ; RXDemo1: TMenuItem; About1: TMenuItem; --- 81,85 ---- SpeedbarSection4: TjvSpeedbarSection; TrayIcon: TJvTrayIcon; ! PopupMenu: TJvPopupMenu; RXDemo1: TMenuItem; About1: TMenuItem; *************** *** 87,92 **** Exit1: TMenuItem; WizardItem: TMenuItem; ! Images: TJvPicClip ; ! PopupImg: TJvPicClip ; RXWebSite1: TMenuItem; JvAppRegistryStorage: TJvAppRegistryStorage; --- 87,92 ---- Exit1: TMenuItem; WizardItem: TMenuItem; ! Images: TJvPicClip; ! PopupImg: TJvPicClip; RXWebSite1: TMenuItem; JvAppRegistryStorage: TJvAppRegistryStorage; *************** *** 141,147 **** {$IFDEF WIN32} ! {$R BACKGRND.R32} {$ELSE} ! {$R BACKGRND.R16} {$ENDIF} --- 141,147 ---- {$IFDEF WIN32} ! {$R BACKGRND.R32} {$ELSE} ! {$R BACKGRND.R16} {$ENDIF} *************** *** 167,171 **** {$IFDEF WIN32} RXDemo1.Default := True; ! GradientFormCaption(Self, clWindowText); {$ENDIF} end; --- 167,171 ---- {$IFDEF WIN32} RXDemo1.Default := True; ! // GradientFormCaption(Self, clWindowText); {$ENDIF} end; *************** *** 347,351 **** end; ! procedure TMainForm.ToolbarMenuGetItemParams(Sender: TMenu; Item: TMenuItem; State: TMenuOwnerDrawState; AFont: TFont; var Color: TColor; var Graphic: TGraphic; var NumGlyphs: Integer); begin --- 347,351 ---- end; ! procedure TMainForm.ToolbarMenuGetItemParams(Sender: TMenu; Item: TMenuItem; State: TMenuOwnerDrawState; AFont: TFont; var Color: TColor; var Graphic: TGraphic; var NumGlyphs: Integer); begin *************** *** 400,401 **** --- 400,402 ---- end. + Index: MAIN.dfm =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/RxLib/MAIN.dfm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** MAIN.dfm 18 Jan 2004 03:27:05 -0000 1.6 --- MAIN.dfm 27 Jan 2004 12:51:54 -0000 1.7 *************** *** 1,5 **** object MainForm: TMainForm ! Left = 303 ! Top = 254 Width = 440 Height = 276 --- 1,5 ---- object MainForm: TMainForm ! Left = 302 ! Top = 170 Width = 440 Height = 276 *************** *** 45,108 **** PixelsPerInch = 96 TextHeight = 13 - object StatusPanel: TPanel - Left = 0 - Top = 210 - Width = 432 - Height = 20 - Align = alBottom - Caption = 'StatusPanel' - TabOrder = 0 - object MessagePanel: TPanel - Left = 1 - Top = 1 - Width = 260 - Height = 18 - Align = alClient - Alignment = taLeftJustify - BevelOuter = bvNone - ParentColor = True - TabOrder = 0 - end - object Panel1: TPanel - Left = 261 - Top = 1 - Width = 6 - Height = 18 - Align = alRight - BevelOuter = bvNone - ParentColor = True - TabOrder = 1 - end - object ProgressPanel: TPanel - Left = 267 - Top = 1 - Width = 164 - Height = 18 - Align = alRight - BevelInner = bvLowered - BevelOuter = bvNone - BorderWidth = 1 - Caption = 'ProgressPanel' - ParentColor = True - TabOrder = 2 - object DbiProgress: TGauge - Left = 2 - Top = 2 - Width = 160 - Height = 14 - Align = alClient - BackColor = clBtnFace - BorderStyle = bsNone - ForeColor = clNavy - Progress = 0 - ShowText = False - end - end - end object Toolbar: TJvSpeedBar Left = 0 Top = 0 Width = 432 ! Height = 56 Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText --- 45,53 ---- PixelsPerInch = 96 TextHeight = 13 object Toolbar: TJvSpeedBar Left = 0 Top = 0 Width = 432 ! Height = 46 Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText *************** *** 113,118 **** BtnOffsetHorz = 8 BtnOffsetVert = 3 ! BtnWidth = 54 ! BtnHeight = 50 Version = 3 BevelInner = bvLowered --- 58,63 ---- BtnOffsetHorz = 8 BtnOffsetVert = 3 ! BtnWidth = 46 ! BtnHeight = 40 Version = 3 BevelInner = bvLowered *************** *** 151,157 **** Hint = 'Customize JvSpeedbar|' Spacing = 3 ! Left = 233 Top = 3 - Visible = True OnClick = CustomizeItemClick SectionName = 'File' --- 96,101 ---- Hint = 'Customize JvSpeedbar|' Spacing = 3 ! Left = 238 Top = 3 OnClick = CustomizeItemClick SectionName = 'File' *************** *** 175,179 **** Hint = 'Exit Application|' Spacing = 3 ! Left = 350 Top = 3 Visible = True --- 119,123 ---- Hint = 'Exit Application|' Spacing = 3 ! Left = 353 Top = 3 Visible = True *************** *** 229,233 **** Hint = 'View Data Controls|' Spacing = 3 ! Left = 62 Top = 3 Visible = True --- 173,177 ---- Hint = 'View Data Controls|' Spacing = 3 ! Left = 54 Top = 3 Visible = True *************** *** 256,260 **** Hint = 'View Tools|' Spacing = 3 ! Left = 116 Top = 3 Visible = True --- 200,204 ---- Hint = 'View Tools|' Spacing = 3 ! Left = 123 Top = 3 Visible = True *************** *** 280,284 **** Hint = 'Wizard Demo|' Spacing = 1 ! Left = 170 Top = 3 Visible = True --- 224,228 ---- Hint = 'Wizard Demo|' Spacing = 1 ! Left = 238 Top = 3 Visible = True *************** *** 382,386 **** Hint = 'About|' Spacing = 3 ! Left = 287 Top = 3 Visible = True --- 326,330 ---- Hint = 'About|' Spacing = 3 ! Left = 284 Top = 3 Visible = True *************** *** 389,392 **** --- 333,391 ---- end end + object StatusPanel: TPanel + Left = 0 + Top = 210 + Width = 432 + Height = 20 + Align = alBottom + Caption = 'StatusPanel' + TabOrder = 0 + object MessagePanel: TPanel + Left = 1 + Top = 1 + Width = 260 + Height = 18 + Align = alClient + Alignment = taLeftJustify + BevelOuter = bvNone + ParentColor = True + TabOrder = 0 + end + object Panel1: TPanel + Left = 261 + Top = 1 + Width = 6 + Height = 18 + Align = alRight + BevelOuter = bvNone + ParentColor = True + TabOrder = 1 + end + object ProgressPanel: TPanel + Left = 267 + Top = 1 + Width = 164 + Height = 18 + Align = alRight + BevelInner = bvLowered + BevelOuter = bvNone + BorderWidth = 1 + Caption = 'ProgressPanel' + ParentColor = True + TabOrder = 2 + object DbiProgress: TGauge + Left = 2 + Top = 2 + Width = 160 + Height = 14 + Align = alClient + BackColor = clBtnFace + BorderStyle = bsNone + ForeColor = clNavy + Progress = 0 + ShowText = False + end + end + end object MainMenu1: TJvMainMenu ImageMargin.Left = 0 *************** *** 396,400 **** ImageSize.Height = 0 ImageSize.Width = 0 ! Style = msOwnerDraw OnGetItemParams = MainMenu1GetItemParams Left = 4 --- 395,400 ---- ImageSize.Height = 0 ImageSize.Width = 0 ! ShowCheckMarks = True ! TextMargin = 4 OnGetItemParams = MainMenu1GetItemParams Left = 4 *************** *** 470,476 **** ImageMargin.Right = 0 ImageMargin.Bottom = 0 ! ImageSize.Height = 0 ! ImageSize.Width = 0 ! Style = msOwnerDraw OnGetItemParams = ToolbarMenuGetItemParams Left = 60 --- 470,477 ---- ImageMargin.Right = 0 ImageMargin.Bottom = 0 ! ImageSize.Height = 16 ! ImageSize.Width = 16 ! ShowCheckMarks = True ! TextMargin = 4 OnGetItemParams = ToolbarMenuGetItemParams Left = 60 *************** *** 542,548 **** ImageMargin.Right = 0 ImageMargin.Bottom = 0 ! ImageSize.Height = 0 ! ImageSize.Width = 0 ! Style = msOwnerDraw OnGetItemParams = PopupMenuGetItemParams Left = 60 --- 543,550 ---- ImageMargin.Right = 0 ImageMargin.Bottom = 0 ! ImageSize.Height = 16 ! ImageSize.Width = 16 ! ShowCheckMarks = True ! TextMargin = 4 OnGetItemParams = PopupMenuGetItemParams Left = 60 Index: ABOUT.dfm =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/RxLib/ABOUT.dfm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ABOUT.dfm 8 Jan 2004 09:56:11 -0000 1.2 --- ABOUT.dfm 27 Jan 2004 12:51:54 -0000 1.3 *************** *** 160,164 **** 'Serge V.Korolev' '' ! #169' 1995,1998' '') Align = alClient --- 160,164 ---- 'Serge V.Korolev' '' ! '© 1995,1998' '') Align = alClient *************** *** 177,181 **** Width = 182 Height = 13 ! Caption = ' Copyright '#169' AO ROSNO 1995, 1996 ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText --- 177,181 ---- Width = 182 Height = 13 ! Caption = ' Copyright © AO ROSNO 1995, 1996 ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText *************** *** 244,248 **** Width = 185 Height = 13 ! Caption = ' Copyright '#169' Master-Bank 1997, 1998 ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText --- 244,248 ---- Width = 185 Height = 13 ! Caption = ' Copyright © Master-Bank 1997, 1998 ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText |