From: <mar...@us...> - 2006-05-16 14:04:47
|
Revision: 10604 Author: marquardt Date: 2006-05-16 07:04:37 -0700 (Tue, 16 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10604&view=rev Log Message: ----------- makefile for examples fixed and some examples made compiling again Modified Paths: -------------- trunk/jvcl/examples/JvObjectPicker/Unit1.pas trunk/jvcl/examples/JvShellHook/JvShellHookDemoMainFormU.pas trunk/jvcl/examples/makefile.mak Modified: trunk/jvcl/examples/JvObjectPicker/Unit1.pas =================================================================== --- trunk/jvcl/examples/JvObjectPicker/Unit1.pas 2006-05-16 10:04:28 UTC (rev 10603) +++ trunk/jvcl/examples/JvObjectPicker/Unit1.pas 2006-05-16 14:04:37 UTC (rev 10604) @@ -119,7 +119,7 @@ { (p3) not sure about this one (was @Attributes[0])... } InitInfo.apwzAttributeNames := LPLPWSTR(@Attributes[0]); // 5. initialize object picker - if SUCCEEDED(ObjPicker.Initialize(InitInfo)) then + if SUCCEEDED(ObjPicker.Initialize(@InitInfo)) then begin // 6. display dialog HR := ObjPicker.InvokeDialog(0, DataObj); Modified: trunk/jvcl/examples/JvShellHook/JvShellHookDemoMainFormU.pas =================================================================== --- trunk/jvcl/examples/JvShellHook/JvShellHookDemoMainFormU.pas 2006-05-16 10:04:28 UTC (rev 10603) +++ trunk/jvcl/examples/JvShellHook/JvShellHookDemoMainFormU.pas 2006-05-16 14:04:37 UTC (rev 10604) @@ -62,6 +62,16 @@ {$R *.dfm} +const + HSHELL_SYSMENU = 9; + HSHELL_ENDTASK = 10; + HSHELL_APPCOMMAND = 12; + HSHELL_WINDOWREPLACED = 13; + HSHELL_WINDOWREPLACING = 14; + HSHELL_HIGHBIT = $8000; + HSHELL_FLASH = HSHELL_REDRAW or HSHELL_HIGHBIT; + HSHELL_RUDEAPPACTIVATED = HSHELL_WINDOWACTIVATED or HSHELL_HIGHBIT; + procedure TJvShellHookDemoMainForm.FormCreate(Sender: TObject); begin SH := TJvShellHook.Create(Self); @@ -168,13 +178,13 @@ if chkNoRedraw.Checked then Exit else S := 'HSHELL_REDRAW'; HSHELL_TASKMAN: S := 'HSHELL_TASKMAN'; HSHELL_LANGUAGE: S := 'HSHELL_LANGUAGE'; -// HSHELL_SYSMENU: S := 'HSHELL_SYSMENU'; -// HSHELL_ENDTASK: S := 'HSHELL_ENDTASK'; + HSHELL_SYSMENU: S := 'HSHELL_SYSMENU'; + HSHELL_ENDTASK: S := 'HSHELL_ENDTASK'; HSHELL_ACCESSIBILITYSTATE: S := 'HSHELL_ACCESSIBILITYSTATE'; HSHELL_WINDOWREPLACED: S := 'HSHELL_WINDOWREPLACED'; -// HSHELL_WINDOWREPLACING: S := 'HSHELL_WINDOWREPLACING'; -// HSHELL_FLASH: S := 'HSHELL_FLASH'; -// HSHELL_RUDEAPPACTIVATED: S := 'HSHELL_RUDEAPPACTIVATED'; + HSHELL_WINDOWREPLACING: S := 'HSHELL_WINDOWREPLACING'; + HSHELL_FLASH: S := 'HSHELL_FLASH'; + HSHELL_RUDEAPPACTIVATED: S := 'HSHELL_RUDEAPPACTIVATED'; HSHELL_APPCOMMAND: S := GetAppCommand(lParam); else S := Format('Unknown command ($%.8x)', [wParam]); Modified: trunk/jvcl/examples/makefile.mak =================================================================== --- trunk/jvcl/examples/makefile.mak 2006-05-16 10:04:28 UTC (rev 10603) +++ trunk/jvcl/examples/makefile.mak 2006-05-16 14:04:37 UTC (rev 10604) @@ -6,15 +6,16 @@ COM = ..\..\common BIN = ..\..\bin DCU = ..\..\dcu +RES = ..\..\resources JCLSRC=..\..\..\JCL\source JCL = $(JCLSRC);$(JCLSRC)\common;$(JCLSRC)\windows;$(JCLSRC)\vcl JCLH = ..\$(JCLSRC);..\$(JCLSRC)\common;..\$(JCLSRC)\windows;..\$(JCLSRC)\vcl JCLHH = ..\..\$(JCLSRC);..\..\$(JCLSRC)\common;..\..\$(JCLSRC)\windows;..\..\$(JCLSRC)\vcl JCLHHH = ..\..\..\$(JCLSRC);..\..\..\$(JCLSRC)\common;..\..\..\$(JCLSRC)\windows;..\..\..\$(JCLSRC)\vcl -SRC = $(RUN);$(COM);$(JCL); -SRCH = ..\$(RUN);..\$(COM);$(JCLH); -SRCHH = ..\..\$(RUN);..\..\$(COM);$(JCLHH); -SRCHHH = ..\..\..\$(RUN);..\..\..\$(COM);$(JCLHHH); +SRC = $(RUN);$(RES);$(COM);$(JCL); +SRCH = ..\$(RUN);..\$(RES);..\$(COM);$(JCLH); +SRCHH = ..\..\$(RUN);..\..\$(RES);..\..\$(COM);$(JCLHH); +SRCHHH = ..\..\..\$(RUN);..\..\..\$(RES);..\..\..\$(COM);$(JCLHHH); #--------------------------------------------------------------------------------------------------- MAKE = $(ROOT)\make.exe -$(MAKEFLAGS) -f$** DCC = $(ROOT)\dcc32.exe -e$(BIN) -i$(SRC) -n$(DCU) -r$(SRC) -u$(SRC) -q -w -B This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-11-29 08:41:39
|
Revision: 11055 http://svn.sourceforge.net/jvcl/?rev=11055&view=rev Author: marquardt Date: 2006-11-29 00:41:38 -0800 (Wed, 29 Nov 2006) Log Message: ----------- make CompileExampoles andd JVCLMegaDemo work again by disabling some demos Modified Paths: -------------- trunk/jvcl/examples/JVCLDemos.bpg trunk/jvcl/examples/JVCLMegaDemo/JVCLMegaDemo.dof trunk/jvcl/examples/JVCLMegaDemo/JVCLMegaDemo.dpr trunk/jvcl/examples/JVCLMegaDemo/Unitmain.dfm trunk/jvcl/examples/JVCLMegaDemo/Unitmain.pas trunk/jvcl/examples/makefile.mak Modified: trunk/jvcl/examples/JVCLDemos.bpg =================================================================== --- trunk/jvcl/examples/JVCLDemos.bpg 2006-11-29 07:37:03 UTC (rev 11054) +++ trunk/jvcl/examples/JVCLDemos.bpg 2006-11-29 08:41:38 UTC (rev 11055) @@ -10,8 +10,6 @@ BRCC = $(ROOT)\bin\brcc32.exe $** #------------------------------------------------------------------------------ PROJECTS = -Gl_demo.exe \ -_glXMLSerializer_demo.exe \ jsb.exe \ jsr.exe \ sc.exe \ @@ -128,7 +126,6 @@ JvSimpleXMLEncodeDemo.exe \ JvSimpleXMLSpeedTest.exe \ XMLValidator.exe \ -SpecialProgressTestPrj.exe \ JvSpellCheckerDemo.exe \ JvStringGridDemo.exe \ JvSystemPopupProj.exe \ @@ -139,7 +136,6 @@ TimeLineDemo.exe \ TipsDemo.exe \ SimpleTLTest1.exe \ -JvTranslatorProj.exe \ TransparentButtonDemo.exe \ JvTrayIconDemo.exe \ JvTreeViewAsMenu.exe \ @@ -203,12 +199,6 @@ #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ -Gl_demo.exe: Globus\Visual Components Demo\Gl_demo.dpr -$(DCC) - -_glXMLSerializer_demo.exe: Globus\XMLSerializer\_glXMLSerializer_demo.dpr -$(DCC) - jsb.exe: JediSurveyor\Builder\jsb.dpr $(DCC) @@ -557,9 +547,6 @@ XMLValidator.exe: JvSimpleXML Validator\XMLValidator.dpr $(DCC) -SpecialProgressTestPrj.exe: JvSpecialProgress\SpecialProgressTestPrj.dpr -$(DCC) - JvSpellCheckerDemo.exe: JvSpellChecker\JvSpellCheckerDemo.dpr $(DCC) @@ -590,9 +577,6 @@ SimpleTLTest1.exe: JvTMTimeLine\SimpleTLTest1.dpr $(DCC) -JvTranslatorProj.exe: JvTranslator\JvTranslatorProj.dpr -$(DCC) - TransparentButtonDemo.exe: JvTransparentButton\TransparentButtonDemo.dpr $(DCC) Modified: trunk/jvcl/examples/JVCLMegaDemo/JVCLMegaDemo.dof =================================================================== --- trunk/jvcl/examples/JVCLMegaDemo/JVCLMegaDemo.dof 2006-11-29 07:37:03 UTC (rev 11054) +++ trunk/jvcl/examples/JVCLMegaDemo/JVCLMegaDemo.dof 2006-11-29 08:41:38 UTC (rev 11055) @@ -1,8 +1,76 @@ +[FileVersion] +Version=6.0 [Compiler] -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=0 +R=0 +S=0 +T=0 +U=0 +V=1 +W=0 +X=1 +Y=1 +Z=1 +ShowHints=1 +ShowWarnings=1 +UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; +[Linker] +MapFile=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= [Directories] OutputDir=..\..\bin UnitOutputDir=..\..\dcu +PackageDLLOutputDir= +PackageDCPOutputDir= SearchPath=..\..\run;..\..\common +Packages= +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=0 +AutoIncBuild=0 +MajorVer=1 +MinorVer=0 +Release=0 +Build=0 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=1031 +CodePage=1252 Modified: trunk/jvcl/examples/JVCLMegaDemo/JVCLMegaDemo.dpr =================================================================== --- trunk/jvcl/examples/JVCLMegaDemo/JVCLMegaDemo.dpr 2006-11-29 07:37:03 UTC (rev 11054) +++ trunk/jvcl/examples/JVCLMegaDemo/JVCLMegaDemo.dpr 2006-11-29 08:41:38 UTC (rev 11055) @@ -73,8 +73,6 @@ SearchingForm in 'SearchingForm.pas' {SearchingFormMain}, CreateProcessExampleMainFormU in '..\JvCreateProcess\CreateProcessExampleMainFormU.pas' {CreateProcessExampleMainForm}, ConsoleExampleMainFormU in '..\JvCreateProcess\ConsoleExampleMainFormU.pas' {ConsoleExampleMainForm}, - hshape in '..\Globus\Visual Components Demo\hshape.pas' {HShapeFrm}, - glDemo in '..\Globus\Visual Components Demo\glDemo.pas' {GLDemoFrm}, glHelpPanel_demo in '..\Globus\Visual Components Demo\glHelpPanel_demo.pas' {fTglHelpPanel}, XMLSerializerMainFormU in '..\Globus\XMLSerializer\XMLSerializerMainFormU.pas' {fglXMLSerializerDemo}, testClasses in '..\Globus\XMLSerializer\testClasses.pas', Modified: trunk/jvcl/examples/JVCLMegaDemo/Unitmain.dfm =================================================================== --- trunk/jvcl/examples/JVCLMegaDemo/Unitmain.dfm 2006-11-29 07:37:03 UTC (rev 11054) +++ trunk/jvcl/examples/JVCLMegaDemo/Unitmain.dfm 2006-11-29 08:41:38 UTC (rev 11055) @@ -28,7 +28,7 @@ object JvNetscapeSplitter1: TJvNetscapeSplitter Left = 225 Top = 181 - Height = 577 + Height = 573 Cursor = crHSplit Hint = 'click me to have more '#13#10'space for the current demo' Align = alLeft @@ -256,7 +256,7 @@ Left = 0 Top = 181 Width = 225 - Height = 577 + Height = 573 HorzScrollBar.Smooth = True HorzScrollBar.Style = ssFlat HorzScrollBar.Tracking = True @@ -279,7 +279,7 @@ Left = 0 Top = 145 Width = 225 - Height = 432 + Height = 428 AutoSize = True BorderWidth = 4 Caption = 'JvXPContainer1' @@ -345,6 +345,9 @@ BevelOuter = bvNone Color = clInfoBk TabOrder = 0 + DesignSize = ( + 209 + 45) object JvLabel1: TJvLabel Left = 8 Top = 8 @@ -749,6 +752,9 @@ BevelOuter = bvNone Color = clInfoBk TabOrder = 0 + DesignSize = ( + 209 + 153) object JvLabel2: TJvLabel Left = 8 Top = 8 @@ -783,7 +789,7 @@ Width = 177 Height = 19 Flat = True - ParentCtl3D = False + ParentFlat = False Modified = False Color = clInfoBk TabOrder = 1 @@ -797,6 +803,7 @@ Width = 225 Height = 139 Align = alTop + AutoSize = False Color = clInfoBk TabOrder = 1 OnURLClick = JvRichEditHintsURLClick @@ -887,6 +894,9 @@ OnCollapsedChange = JvXPBarIDECollapsedChange Align = alTop ParentFont = False + DesignSize = ( + 900 + 133) object JvPageControlComps: TJvPageControl Left = 7 Top = 31 @@ -966,7 +976,7 @@ end object StatusBar: TJvStatusBar Left = 0 - Top = 758 + Top = 754 Width = 900 Height = 19 Panels = <> Modified: trunk/jvcl/examples/JVCLMegaDemo/Unitmain.pas =================================================================== --- trunk/jvcl/examples/JVCLMegaDemo/Unitmain.pas 2006-11-29 07:37:03 UTC (rev 11054) +++ trunk/jvcl/examples/JVCLMegaDemo/Unitmain.pas 2006-11-29 08:41:38 UTC (rev 11055) @@ -41,7 +41,7 @@ ExtCtrls, JvExExtCtrls, JvSplitter, JvCtrls, JvCaptionPanel, JvToolBar, JvAppStorageBaseMainFrmU, ControlsExampleMainFormU, JvCheckBox, JvHtControls, JvStatusBar, JvNetscapeSplitter, JvDbMaskEditDemoForm, - JvOutlookBarCustomDrawDemoMainForm; + JvOutlookBarCustomDrawDemoMainForm, JvComponentBase, JvExtComponent; type TMainform = class(TForm) @@ -135,7 +135,7 @@ TipOfDayMainFormU, TMTimeLineMainFormU, FindReplaceMainFormU, JvPlayListMainFormU, JvZLibMultipleMainFormU, OtherStandAlone, Profiler32MainFormU, RessourcesFormMain, SearchingForm, JclDebug, JclStrings, JclFileUtils, ShellAPI, - IniFiles, CreateProcessExampleMainFormU, ConsoleExampleMainFormU, glDemo, + IniFiles, CreateProcessExampleMainFormU, ConsoleExampleMainFormU, XMLSerializerMainFormU, JvAppHotKeyDemoMainFormU, JvAppStorageSelListMainfrmU, JvAppStorageSubStorageMainFrm, JvAviCapDemoFrmU, TVDemoMain, MDIBkgndDemoMain, MDIBkgndDemoSettings, MDIBkgndDemoChld, JvBehaviorLblMainFrmU, BmpAnimMainFormU, @@ -338,7 +338,7 @@ case ID of 1: TheFormArray[ID] := TJvFormsFrm.Create(nil); 2: TheFormArray[ID] := TJvDialogs.Create(nil); - 3: TheFormArray[ID] := TGLDemoFrm.Create(nil); +// 3: TheFormArray[ID] := TGLDemoFrm.Create(nil); 4: TheFormArray[ID] := TJvLabelsFrm.Create(nil); 5: TheFormArray[ID] := TRaHtHintsMainForm.Create(nil); 6: TheFormArray[ID] := TJvZoomMainForm.Create(nil); @@ -466,14 +466,14 @@ 124: TheFormArray[ID] := TJvPanelDemoMainFrm.Create(nil); {$IFDEF INCLUDE_DEVEXP_CX} 125: TheFormArray[ID] := TJvParameterListDemoMainFrm.Create(nil); - {$ENDIF} + {$ENDIF INCLUDE_DEVEXP_CX} //125: TheFormArray[ID] := T .Create(nil); //126: TheFormArray[ID] := T .Create(nil); //127: TheFormArray[ID] := T .Create(nil); //128: TheFormArray[ID] := T .Create(nil); //129: TheFormArray[ID] := T .Create(nil); else - TheFormArray[ID] := tfrEmpty.create(nil); + TheFormArray[ID] := TfrEmpty.Create(nil); end; //Execute the forms appearance only if they need to be shown Modified: trunk/jvcl/examples/makefile.mak =================================================================== --- trunk/jvcl/examples/makefile.mak 2006-11-29 07:37:03 UTC (rev 11054) +++ trunk/jvcl/examples/makefile.mak 2006-11-29 08:41:38 UTC (rev 11055) @@ -25,11 +25,11 @@ DCCHHH = $(ROOT)\dcc32.exe -e..\..\..\$(BIN) -i$(SRCHHH) -n..\..\..\$(DCU) -r$(SRCHHH) -u$(SRCHHH) -q -w -B BRCC = $(ROOT)\brcc32.exe $** #--------------------------------------------------------------------------------------------------- -all: uib globus docking inspector standard threads ralib rxlib plugin xml mega surveyor diagram +all: uib docking inspector standard threads ralib rxlib plugin xml mega surveyor diagram #--------------------------------------------------------------------------------------------------- surveyor: jsb.exe jsr.exe sc.exe js.exe #--------------------------------------------------------------------------------------------------- -globus: Gl_demo.exe _glXMLSerializer_demo.exe +#globus: Gl_demo.exe _glXMLSerializer_demo.exe #--------------------------------------------------------------------------------------------------- xml: JvSimpleXMLDemo.exe JvSimpleXMLEncodeDemo.exe JvSimpleXMLSpeedTest.exe XMLValidator.exe #--------------------------------------------------------------------------------------------------- @@ -85,7 +85,7 @@ JvAppStoreDemo.exe JvAppStoreDemoSelList.exe JvAppStoreDemoSubStorage.exe JvDBAction.exe \ JvDBFindEditDemo.exe JvDBHTLabelDemo.exe JvDBImageDemo.exe JvDBSearchDemo.exe JvDesignerDemo.exe \ JvDesktopAlertDemo.exe JvEdits.exe EmbeddedForm.exe JvFullColorCircleDialogPrj.exe JvFullColorDialogPrj.exe \ -SpecialProgressTestPrj.exe JvTranslatorProj.exe JvUltimDBGridADOTest.exe \ +JvUltimDBGridADOTest.exe \ JvUltimDBGridBDETest.exe # # (rom) deactivated requires components not always installed @@ -1117,15 +1117,17 @@ $(DCC) $&.dpr @cd .. -SpecialProgressTestPrj.exe: "JvSpecialProgress\SpecialProgressTestPrj.dpr" - @cd JvSpecialProgress - $(DCC) $&.dpr - @cd .. +# (rom) this is a CLX example +#SpecialProgressTestPrj.exe: "JvSpecialProgress\SpecialProgressTestPrj.dpr" +# @cd JvSpecialProgress +# $(DCC) $&.dpr +# @cd .. -JvTranslatorProj.exe: "JvTranslator\JvTranslatorProj.dpr" - @cd JvTranslator - $(DCC) $&.dpr - @cd .. +# (rom) this is a CLX example +#JvTranslatorProj.exe: "JvTranslator\JvTranslatorProj.dpr" +# @cd JvTranslator +# $(DCC) $&.dpr +# @cd .. JvUltimDBGridADOTest.exe: "JvUltimDBGrid\ADO\JvUltimDBGridADOTest.dpr" @cd JvUltimDBGrid\ADO This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2006-12-16 22:33:16
|
Revision: 11088 http://svn.sourceforge.net/jvcl/?rev=11088&view=rev Author: ahuser Date: 2006-12-16 14:26:04 -0800 (Sat, 16 Dec 2006) Log Message: ----------- Jvcl.inc include directive correction Modified Paths: -------------- trunk/jvcl/examples/JvAppInstances/JvAppInstDemo.dpr trunk/jvcl/examples/JvEdits/JvEdits.dpr Modified: trunk/jvcl/examples/JvAppInstances/JvAppInstDemo.dpr =================================================================== --- trunk/jvcl/examples/JvAppInstances/JvAppInstDemo.dpr 2006-12-16 22:25:34 UTC (rev 11087) +++ trunk/jvcl/examples/JvAppInstances/JvAppInstDemo.dpr 2006-12-16 22:26:04 UTC (rev 11088) @@ -24,10 +24,10 @@ Known Issues: -----------------------------------------------------------------------------} +program JvAppInstDemo; + {$I jvcl.inc} -program JvAppInstDemo; - uses Forms, Main in 'Main.pas' {FormMain}; Modified: trunk/jvcl/examples/JvEdits/JvEdits.dpr =================================================================== --- trunk/jvcl/examples/JvEdits/JvEdits.dpr 2006-12-16 22:25:34 UTC (rev 11087) +++ trunk/jvcl/examples/JvEdits/JvEdits.dpr 2006-12-16 22:26:04 UTC (rev 11088) @@ -1,6 +1,6 @@ program JvEdits; -{$I 'jvcl.inc'} +{$I jvcl.inc} uses {$IFDEF VCL} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2006-12-16 22:51:07
|
Revision: 11090 http://svn.sourceforge.net/jvcl/?rev=11090&view=rev Author: ahuser Date: 2006-12-16 14:51:04 -0800 (Sat, 16 Dec 2006) Log Message: ----------- Jvcl.inc include directive correction Modified Paths: -------------- trunk/jvcl/examples/JediSurveyor/Reporter/MainFrm.pas trunk/jvcl/examples/JediSurveyor/common/JvSurveyIntf.pas trunk/jvcl/examples/JediSurveyor/common/JvSurveyUtils.pas trunk/jvcl/examples/JvAppInstances/Main.pas trunk/jvcl/examples/JvDBExplorer/Childwin2.pas trunk/jvcl/examples/JvDBImage/JvDBImageDemoMainForm.pas trunk/jvcl/examples/JvDBSearch/JvDBSearchDemoMainForm.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/DependencyWalkerDemoMainForm.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/JclParseUses.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/OptionsFrm.pas trunk/jvcl/examples/JvDocking/AdvanceDemo/Delphi_Source/Main.pas trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/MainForm.pas trunk/jvcl/examples/JvDocking/MSDN2002/Source/MSDN2002MainUnit.pas trunk/jvcl/examples/JvDocking/VCDemo/Source/Main.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/DefineWindowLayoutUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/MainFormUnit.pas trunk/jvcl/examples/JvErrorIndicator/JvErrorIndicatorMainDemoForm.pas trunk/jvcl/examples/JvGIFAnimator/GIFMAIN.PAS trunk/jvcl/examples/JvItemViewer/MainFrm.pas trunk/jvcl/examples/JvObjectPicker/Unit1.pas trunk/jvcl/examples/JvOutlookBar/OLBarMainFormU.pas trunk/jvcl/examples/JvParameterList/JvDynControlEngineVCLRed.pas trunk/jvcl/examples/JvRegistryTreeView/RegTVMainFormU.pas trunk/jvcl/examples/JvRichEdit/MessengerMainFormU.pas trunk/jvcl/examples/JvRollOut/MainFrm.pas trunk/jvcl/examples/JvRunDll32/InfoFrm.pas trunk/jvcl/examples/JvRunDll32/RunDll32MainFormU.pas trunk/jvcl/examples/JvScrollingWindow/ScrollWinMainFormU.pas trunk/jvcl/examples/JvSimpleXML Encode/MainFrm.pas trunk/jvcl/examples/JvSpecialProgress/JvSpecialProgressMainFormU.pas trunk/jvcl/examples/JvSystemPopUp2/JvSystemPopup2MainFormU.pas trunk/jvcl/examples/JvTipOfDay/TipOfDayMainFormU.pas trunk/jvcl/examples/JvTranslator/JvTranslatorMainFormU.pas trunk/jvcl/examples/JvUIB/Automation/UIB_TLB.pas trunk/jvcl/examples/JvUIB/Automation/database.pas trunk/jvcl/examples/JvUIB/Component/Cursor/main.pas trunk/jvcl/examples/JvUIB/Component/DataPump/main.pas trunk/jvcl/examples/JvUIB/Component/Metadata/main.pas trunk/jvcl/examples/JvUIB/Component/Script/main.pas trunk/jvcl/examples/JvUIB/Component/StoredProc/main.pas trunk/jvcl/examples/JvValidateEdit/JvCharStrEditor.pas trunk/jvcl/examples/JvValidators/MainFrm.pas trunk/jvcl/examples/JvZLibMultiple/JvZLibMultipleMainFormU.pas trunk/jvcl/examples/RaLib/RaControls/fJvControls.pas trunk/jvcl/examples/RaLib/RaDBTreeView/fJvDBTree.pas trunk/jvcl/examples/RaLib/RaHtHints/RaHtHintsMainFormU.pas trunk/jvcl/examples/RaLib/RaInterpreter/fJvInterpreterTest.pas trunk/jvcl/examples/RaLib/RaInterpreterEndUser/fReports.pas trunk/jvcl/examples/RaLib/RaInterpreterNotepad/fMain.pas trunk/jvcl/examples/RxLib/MAIN.PAS Modified: trunk/jvcl/examples/JediSurveyor/Reporter/MainFrm.pas =================================================================== --- trunk/jvcl/examples/JediSurveyor/Reporter/MainFrm.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JediSurveyor/Reporter/MainFrm.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -22,10 +22,10 @@ ******************************************************************} +unit MainFrm; + {$I jvcl.inc} -unit MainFrm; - interface uses Modified: trunk/jvcl/examples/JediSurveyor/common/JvSurveyIntf.pas =================================================================== --- trunk/jvcl/examples/JediSurveyor/common/JvSurveyIntf.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JediSurveyor/common/JvSurveyIntf.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -22,10 +22,10 @@ ******************************************************************} +unit JvSurveyIntf; + {$I jvcl.inc} -unit JvSurveyIntf; - interface type Modified: trunk/jvcl/examples/JediSurveyor/common/JvSurveyUtils.pas =================================================================== --- trunk/jvcl/examples/JediSurveyor/common/JvSurveyUtils.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JediSurveyor/common/JvSurveyUtils.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -22,11 +22,12 @@ ******************************************************************} +unit JvSurveyUtils; + {$I jvcl.inc} -unit JvSurveyUtils; +interface -interface uses JvSurveyIntf, JvComputerInfoEx; Modified: trunk/jvcl/examples/JvAppInstances/Main.pas =================================================================== --- trunk/jvcl/examples/JvAppInstances/Main.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvAppInstances/Main.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -22,10 +22,10 @@ ******************************************************************} +unit Main; + {$I jvcl.inc} -unit Main; - interface uses Modified: trunk/jvcl/examples/JvDBExplorer/Childwin2.pas =================================================================== --- trunk/jvcl/examples/JvDBExplorer/Childwin2.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvDBExplorer/Childwin2.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -33,6 +33,8 @@ { } {*******************************************************} +unit ChildWin2; + {$I jvcl.inc} {$IFNDEF COMPILER3_UP} @@ -51,8 +53,6 @@ {$UNDEF USE_QR2} {$ENDIF} -unit ChildWin2; - interface uses WinTypes, WinProcs, Messages, Classes, Graphics, Forms, Controls, DB, Modified: trunk/jvcl/examples/JvDBImage/JvDBImageDemoMainForm.pas =================================================================== --- trunk/jvcl/examples/JvDBImage/JvDBImageDemoMainForm.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvDBImage/JvDBImageDemoMainForm.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit JvDBImageDemoMainForm; + {$I jvcl.inc} -unit JvDBImageDemoMainForm; - interface uses Modified: trunk/jvcl/examples/JvDBSearch/JvDBSearchDemoMainForm.pas =================================================================== --- trunk/jvcl/examples/JvDBSearch/JvDBSearchDemoMainForm.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvDBSearch/JvDBSearchDemoMainForm.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit JvDBSearchDemoMainForm; + {$I jvcl.inc} -unit JvDBSearchDemoMainForm; - interface uses Modified: trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/DependencyWalkerDemoMainForm.pas =================================================================== --- trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/DependencyWalkerDemoMainForm.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/DependencyWalkerDemoMainForm.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit DependencyWalkerDemoMainForm; + {$I jvcl.inc} -unit DependencyWalkerDemoMainForm; - interface uses Modified: trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/JclParseUses.pas =================================================================== --- trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/JclParseUses.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/JclParseUses.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit JclParseUses; + {$I jvcl.inc} -unit JclParseUses; - interface uses Modified: trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/OptionsFrm.pas =================================================================== --- trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/OptionsFrm.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/OptionsFrm.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit OptionsFrm; + {$I jvcl.inc} -unit OptionsFrm; - interface uses Modified: trunk/jvcl/examples/JvDocking/AdvanceDemo/Delphi_Source/Main.pas =================================================================== --- trunk/jvcl/examples/JvDocking/AdvanceDemo/Delphi_Source/Main.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvDocking/AdvanceDemo/Delphi_Source/Main.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -14,10 +14,10 @@ Known Issues: -----------------------------------------------------------------------------} +unit Main; + {$I jvcl.inc} -unit Main; - interface uses Modified: trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/MainForm.pas =================================================================== --- trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/MainForm.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/MainForm.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -14,7 +14,9 @@ Known Issues: -----------------------------------------------------------------------------} unit MainForm; + {$I jvcl.inc} + interface uses Modified: trunk/jvcl/examples/JvDocking/MSDN2002/Source/MSDN2002MainUnit.pas =================================================================== --- trunk/jvcl/examples/JvDocking/MSDN2002/Source/MSDN2002MainUnit.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvDocking/MSDN2002/Source/MSDN2002MainUnit.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -14,9 +14,10 @@ Known Issues: -----------------------------------------------------------------------------} +unit MSDN2002MainUnit; -unit MSDN2002MainUnit; {$I jvcl.inc} + interface uses Modified: trunk/jvcl/examples/JvDocking/VCDemo/Source/Main.pas =================================================================== --- trunk/jvcl/examples/JvDocking/VCDemo/Source/Main.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvDocking/VCDemo/Source/Main.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -13,8 +13,11 @@ Known Issues: -----------------------------------------------------------------------------} + +unit Main; + {$I jvcl.inc} -unit Main; + {$IFNDEF USEJVCL} Sorry, this demo requires the JVCL! {$ENDIF} Modified: trunk/jvcl/examples/JvDocking/VIDDemo/Source/DefineWindowLayoutUnit.pas =================================================================== --- trunk/jvcl/examples/JvDocking/VIDDemo/Source/DefineWindowLayoutUnit.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvDocking/VIDDemo/Source/DefineWindowLayoutUnit.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -14,7 +14,9 @@ Known Issues: -----------------------------------------------------------------------------} unit DefineWindowLayoutUnit; + {$I jvcl.inc} + interface uses Modified: trunk/jvcl/examples/JvDocking/VIDDemo/Source/MainFormUnit.pas =================================================================== --- trunk/jvcl/examples/JvDocking/VIDDemo/Source/MainFormUnit.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvDocking/VIDDemo/Source/MainFormUnit.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -14,7 +14,9 @@ Known Issues: -----------------------------------------------------------------------------} unit MainFormUnit; + {$I jvcl.inc} + interface uses Modified: trunk/jvcl/examples/JvErrorIndicator/JvErrorIndicatorMainDemoForm.pas =================================================================== --- trunk/jvcl/examples/JvErrorIndicator/JvErrorIndicatorMainDemoForm.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvErrorIndicator/JvErrorIndicatorMainDemoForm.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit JvErrorIndicatorMainDemoForm; + {$I jvcl.inc} -unit JvErrorIndicatorMainDemoForm; - interface uses Modified: trunk/jvcl/examples/JvGIFAnimator/GIFMAIN.PAS =================================================================== --- trunk/jvcl/examples/JvGIFAnimator/GIFMAIN.PAS 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvGIFAnimator/GIFMAIN.PAS 2006-12-16 22:51:04 UTC (rev 11090) @@ -32,10 +32,10 @@ { } {*******************************************************} +unit GIFMain; + {$I jvcl.inc} -unit GIFMain; - interface uses Modified: trunk/jvcl/examples/JvItemViewer/MainFrm.pas =================================================================== --- trunk/jvcl/examples/JvItemViewer/MainFrm.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvItemViewer/MainFrm.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -26,10 +26,10 @@ unit MainFrm; +{$I jvcl.inc} + interface -{$I jvcl.inc} - uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, ExtCtrls, ImgList, ComCtrls, Menus, Modified: trunk/jvcl/examples/JvObjectPicker/Unit1.pas =================================================================== --- trunk/jvcl/examples/JvObjectPicker/Unit1.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvObjectPicker/Unit1.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit Unit1; + {$I jvcl.inc} -unit Unit1; - interface uses Modified: trunk/jvcl/examples/JvOutlookBar/OLBarMainFormU.pas =================================================================== --- trunk/jvcl/examples/JvOutlookBar/OLBarMainFormU.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvOutlookBar/OLBarMainFormU.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit OLBarMainFormU; + {$I jvcl.inc} -unit OLBarMainFormU; - interface uses Modified: trunk/jvcl/examples/JvParameterList/JvDynControlEngineVCLRed.pas =================================================================== --- trunk/jvcl/examples/JvParameterList/JvDynControlEngineVCLRed.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvParameterList/JvDynControlEngineVCLRed.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -22,10 +22,10 @@ Known Issues: -----------------------------------------------------------------------------} +unit JvDynControlEngineVCLRed; + {$I jvcl.inc} -unit JvDynControlEngineVCLRed; - interface uses Modified: trunk/jvcl/examples/JvRegistryTreeView/RegTVMainFormU.pas =================================================================== --- trunk/jvcl/examples/JvRegistryTreeView/RegTVMainFormU.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvRegistryTreeView/RegTVMainFormU.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit RegTVMainFormU; + {$I jvcl.inc} -unit RegTVMainFormU; - interface uses Modified: trunk/jvcl/examples/JvRichEdit/MessengerMainFormU.pas =================================================================== --- trunk/jvcl/examples/JvRichEdit/MessengerMainFormU.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvRichEdit/MessengerMainFormU.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -23,9 +23,11 @@ rights and limitations under the License. ******************************************************************} -{$I jvcl.inc} + unit MessengerMainFormU; +{$I jvcl.inc} + interface uses Modified: trunk/jvcl/examples/JvRollOut/MainFrm.pas =================================================================== --- trunk/jvcl/examples/JvRollOut/MainFrm.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvRollOut/MainFrm.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -1,6 +1,7 @@ -{$I jvcl.inc} unit MainFrm; +{$I jvcl.inc} + interface uses Modified: trunk/jvcl/examples/JvRunDll32/InfoFrm.pas =================================================================== --- trunk/jvcl/examples/JvRunDll32/InfoFrm.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvRunDll32/InfoFrm.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit InfoFrm; + {$I jvcl.inc} -unit InfoFrm; - interface uses Modified: trunk/jvcl/examples/JvRunDll32/RunDll32MainFormU.pas =================================================================== --- trunk/jvcl/examples/JvRunDll32/RunDll32MainFormU.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvRunDll32/RunDll32MainFormU.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit RunDll32MainFormU; + {$I jvcl.inc} -unit RunDll32MainFormU; - interface uses Modified: trunk/jvcl/examples/JvScrollingWindow/ScrollWinMainFormU.pas =================================================================== --- trunk/jvcl/examples/JvScrollingWindow/ScrollWinMainFormU.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvScrollingWindow/ScrollWinMainFormU.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit ScrollWinMainFormU; + {$I jvcl.inc} -unit ScrollWinMainFormU; - interface uses Modified: trunk/jvcl/examples/JvSimpleXML Encode/MainFrm.pas =================================================================== --- trunk/jvcl/examples/JvSimpleXML Encode/MainFrm.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvSimpleXML Encode/MainFrm.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -23,9 +23,11 @@ rights and limitations under the License. ******************************************************************} -{$I jvcl.inc} + unit MainFrm; +{$I jvcl.inc} + interface uses Modified: trunk/jvcl/examples/JvSpecialProgress/JvSpecialProgressMainFormU.pas =================================================================== --- trunk/jvcl/examples/JvSpecialProgress/JvSpecialProgressMainFormU.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvSpecialProgress/JvSpecialProgressMainFormU.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit JvSpecialProgressMainFormU; + {$I jvcl.inc} -unit JvSpecialProgressMainFormU; - interface uses Modified: trunk/jvcl/examples/JvSystemPopUp2/JvSystemPopup2MainFormU.pas =================================================================== --- trunk/jvcl/examples/JvSystemPopUp2/JvSystemPopup2MainFormU.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvSystemPopUp2/JvSystemPopup2MainFormU.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit JvSystemPopup2MainFormU; + {$I jvcl.inc} -unit JvSystemPopup2MainFormU; - interface uses Modified: trunk/jvcl/examples/JvTipOfDay/TipOfDayMainFormU.pas =================================================================== --- trunk/jvcl/examples/JvTipOfDay/TipOfDayMainFormU.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvTipOfDay/TipOfDayMainFormU.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit TipOfDayMainFormU; + {$I jvcl.inc} -unit TipOfDayMainFormU; - interface uses Modified: trunk/jvcl/examples/JvTranslator/JvTranslatorMainFormU.pas =================================================================== --- trunk/jvcl/examples/JvTranslator/JvTranslatorMainFormU.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvTranslator/JvTranslatorMainFormU.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit JvTranslatorMainFormU; + {$I jvcl.inc} -unit JvTranslatorMainFormU; - interface uses Modified: trunk/jvcl/examples/JvUIB/Automation/UIB_TLB.pas =================================================================== --- trunk/jvcl/examples/JvUIB/Automation/UIB_TLB.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvUIB/Automation/UIB_TLB.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -23,12 +23,14 @@ // DepndLst: // (1) v2.0 stdole, (C:\WINDOWS\System32\stdole2.tlb) // ************************************************************************ // + {$I jvcl.inc} {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. {$IFDEF COMPILER7_UP} {$WARN SYMBOL_PLATFORM OFF} {$ENDIF} {$WRITEABLECONST ON} + interface uses Windows, ActiveX, Classes, Graphics, StdVCL{$IFDEF COMPILER6_UP}, Variants{$ENDIF}; Modified: trunk/jvcl/examples/JvUIB/Automation/database.pas =================================================================== --- trunk/jvcl/examples/JvUIB/Automation/database.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvUIB/Automation/database.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -25,6 +25,7 @@ ******************************************************************} unit database; + {$I jvcl.inc} {$IFDEF COMPILER7_UP} {$WARN SYMBOL_PLATFORM OFF} Modified: trunk/jvcl/examples/JvUIB/Component/Cursor/main.pas =================================================================== --- trunk/jvcl/examples/JvUIB/Component/Cursor/main.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvUIB/Component/Cursor/main.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -23,9 +23,11 @@ rights and limitations under the License. ******************************************************************} -{$I jvcl.inc} + unit main; +{$I jvcl.inc} + // This sample demonstrate the use of a cursor // Note: // SelectQuery.UseCursor := True Modified: trunk/jvcl/examples/JvUIB/Component/DataPump/main.pas =================================================================== --- trunk/jvcl/examples/JvUIB/Component/DataPump/main.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvUIB/Component/DataPump/main.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -23,9 +23,11 @@ rights and limitations under the License. ******************************************************************} -{$I jvcl.inc} + unit main; +{$I jvcl.inc} + interface uses Modified: trunk/jvcl/examples/JvUIB/Component/Metadata/main.pas =================================================================== --- trunk/jvcl/examples/JvUIB/Component/Metadata/main.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvUIB/Component/Metadata/main.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -23,9 +23,11 @@ rights and limitations under the License. ******************************************************************} -{$I jvcl.inc} + unit main; +{$I jvcl.inc} + interface uses Modified: trunk/jvcl/examples/JvUIB/Component/Script/main.pas =================================================================== --- trunk/jvcl/examples/JvUIB/Component/Script/main.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvUIB/Component/Script/main.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -23,9 +23,11 @@ rights and limitations under the License. ******************************************************************} -{$I jvcl.inc} + unit main; +{$I jvcl.inc} + interface uses Modified: trunk/jvcl/examples/JvUIB/Component/StoredProc/main.pas =================================================================== --- trunk/jvcl/examples/JvUIB/Component/StoredProc/main.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvUIB/Component/StoredProc/main.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -23,9 +23,11 @@ rights and limitations under the License. ******************************************************************} -{$I jvcl.inc} + unit main; +{$I jvcl.inc} + interface uses Modified: trunk/jvcl/examples/JvValidateEdit/JvCharStrEditor.pas =================================================================== --- trunk/jvcl/examples/JvValidateEdit/JvCharStrEditor.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvValidateEdit/JvCharStrEditor.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit JvCharStrEditor; + {$I jvcl.inc} -unit JvCharStrEditor; - interface uses Modified: trunk/jvcl/examples/JvValidators/MainFrm.pas =================================================================== --- trunk/jvcl/examples/JvValidators/MainFrm.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvValidators/MainFrm.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit MainFrm; + {$I jvcl.inc} -unit MainFrm; - interface uses Modified: trunk/jvcl/examples/JvZLibMultiple/JvZLibMultipleMainFormU.pas =================================================================== --- trunk/jvcl/examples/JvZLibMultiple/JvZLibMultipleMainFormU.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/JvZLibMultiple/JvZLibMultipleMainFormU.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit JvZLibMultipleMainFormU; + {$I jvcl.inc} -unit JvZLibMultipleMainFormU; - interface uses Modified: trunk/jvcl/examples/RaLib/RaControls/fJvControls.pas =================================================================== --- trunk/jvcl/examples/RaLib/RaControls/fJvControls.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/RaLib/RaControls/fJvControls.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -26,10 +26,10 @@ unit fJvControls; +{$I jvcl.inc} + interface -{$I jvcl.inc} - uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls, JvComponentPanel, StdCtrls, ComCtrls, Modified: trunk/jvcl/examples/RaLib/RaDBTreeView/fJvDBTree.pas =================================================================== --- trunk/jvcl/examples/RaLib/RaDBTreeView/fJvDBTree.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/RaLib/RaDBTreeView/fJvDBTree.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -28,11 +28,10 @@ Known Issues: -----------------------------------------------------------------------------} +unit fJvDBTree; {$I jvcl.inc} -unit fJvDBTree; - interface uses Modified: trunk/jvcl/examples/RaLib/RaHtHints/RaHtHintsMainFormU.pas =================================================================== --- trunk/jvcl/examples/RaLib/RaHtHints/RaHtHintsMainFormU.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/RaLib/RaHtHints/RaHtHintsMainFormU.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,11 +24,10 @@ Known Issues: -----------------------------------------------------------------------------} +unit RaHtHintsMainFormU; {$I jvcl.inc} -unit RaHtHintsMainFormU; - interface uses Modified: trunk/jvcl/examples/RaLib/RaInterpreter/fJvInterpreterTest.pas =================================================================== --- trunk/jvcl/examples/RaLib/RaInterpreter/fJvInterpreterTest.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/RaLib/RaInterpreter/fJvInterpreterTest.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,14 +24,12 @@ Known Issues: -----------------------------------------------------------------------------} +unit fJvInterpreterTest; {$I jvcl.inc} -unit fJvInterpreterTest; - interface - uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, Modified: trunk/jvcl/examples/RaLib/RaInterpreterEndUser/fReports.pas =================================================================== --- trunk/jvcl/examples/RaLib/RaInterpreterEndUser/fReports.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/RaLib/RaInterpreterEndUser/fReports.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,10 +24,10 @@ ******************************************************************} +unit fReports; + {$I jvcl.inc} -unit fReports; - interface uses Modified: trunk/jvcl/examples/RaLib/RaInterpreterNotepad/fMain.pas =================================================================== --- trunk/jvcl/examples/RaLib/RaInterpreterNotepad/fMain.pas 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/RaLib/RaInterpreterNotepad/fMain.pas 2006-12-16 22:51:04 UTC (rev 11090) @@ -24,12 +24,12 @@ ******************************************************************} +unit fMain; + {$I jvcl.inc} //!!! (p3) NB! All storage commented out using //!!! -unit fMain; - interface uses Modified: trunk/jvcl/examples/RxLib/MAIN.PAS =================================================================== --- trunk/jvcl/examples/RxLib/MAIN.PAS 2006-12-16 22:32:51 UTC (rev 11089) +++ trunk/jvcl/examples/RxLib/MAIN.PAS 2006-12-16 22:51:04 UTC (rev 11090) @@ -26,10 +26,10 @@ unit Main; +{$I jvcl.inc} + interface -{$I jvcl.inc} - uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, Gauges, ExtCtrls, Menus, JvSpeedbar, This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2007-02-06 10:35:00
|
Revision: 11180 http://svn.sourceforge.net/jvcl/?rev=11180&view=rev Author: obones Date: 2007-02-06 02:34:58 -0800 (Tue, 06 Feb 2007) Log Message: ----------- New demo for TJvSimScope Added Paths: ----------- trunk/jvcl/examples/JvSimScope/ trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.bdsproj trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.dof trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.dpr trunk/jvcl/examples/JvSimScope/MainForm.dfm trunk/jvcl/examples/JvSimScope/MainForm.pas Added: trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.bdsproj =================================================================== --- trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.bdsproj (rev 0) +++ trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.bdsproj 2007-02-06 10:34:58 UTC (rev 11180) @@ -0,0 +1,177 @@ +<?xml version="1.0" encoding="utf-8"?> +<BorlandProject> + <PersonalityInfo> + <Option> + <Option Name="Personality">Delphi.Personality</Option> + <Option Name="ProjectType"></Option> + <Option Name="Version">1.0</Option> + <Option Name="GUID">{0CA227DA-53C3-47F9-9E1D-873BC274DA95}</Option> + </Option> + </PersonalityInfo> + <Delphi.Personality> + <Source> + <Source Name="MainSource">JvSimScopeDemo.dpr</Source> + </Source> + <FileVersion> + <FileVersion Name="Version">7.0</FileVersion> + </FileVersion> + <Compiler> + <Compiler Name="A">8</Compiler> + <Compiler Name="B">0</Compiler> + <Compiler Name="C">1</Compiler> + <Compiler Name="D">1</Compiler> + <Compiler Name="E">0</Compiler> + <Compiler Name="F">0</Compiler> + <Compiler Name="G">1</Compiler> + <Compiler Name="H">1</Compiler> + <Compiler Name="I">1</Compiler> + <Compiler Name="J">0</Compiler> + <Compiler Name="K">0</Compiler> + <Compiler Name="L">1</Compiler> + <Compiler Name="M">0</Compiler> + <Compiler Name="N">1</Compiler> + <Compiler Name="O">0</Compiler> + <Compiler Name="P">1</Compiler> + <Compiler Name="Q">0</Compiler> + <Compiler Name="R">0</Compiler> + <Compiler Name="S">0</Compiler> + <Compiler Name="T">0</Compiler> + <Compiler Name="U">0</Compiler> + <Compiler Name="V">1</Compiler> + <Compiler Name="W">1</Compiler> + <Compiler Name="X">1</Compiler> + <Compiler Name="Y">1</Compiler> + <Compiler Name="Z">1</Compiler> + <Compiler Name="ShowHints">True</Compiler> + <Compiler Name="ShowWarnings">True</Compiler> + <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler> + <Compiler Name="NamespacePrefix"></Compiler> + <Compiler Name="GenerateDocumentation">False</Compiler> + <Compiler Name="DefaultNamespace"></Compiler> + <Compiler Name="SymbolDeprecated">True</Compiler> + <Compiler Name="SymbolLibrary">True</Compiler> + <Compiler Name="SymbolPlatform">True</Compiler> + <Compiler Name="SymbolExperimental">True</Compiler> + <Compiler Name="UnitLibrary">True</Compiler> + <Compiler Name="UnitPlatform">True</Compiler> + <Compiler Name="UnitDeprecated">True</Compiler> + <Compiler Name="UnitExperimental">True</Compiler> + <Compiler Name="HResultCompat">True</Compiler> + <Compiler Name="HidingMember">True</Compiler> + <Compiler Name="HiddenVirtual">True</Compiler> + <Compiler Name="Garbage">True</Compiler> + <Compiler Name="BoundsError">True</Compiler> + <Compiler Name="ZeroNilCompat">True</Compiler> + <Compiler Name="StringConstTruncated">True</Compiler> + <Compiler Name="ForLoopVarVarPar">True</Compiler> + <Compiler Name="TypedConstVarPar">True</Compiler> + <Compiler Name="AsgToTypedConst">True</Compiler> + <Compiler Name="CaseLabelRange">True</Compiler> + <Compiler Name="ForVariable">True</Compiler> + <Compiler Name="ConstructingAbstract">True</Compiler> + <Compiler Name="ComparisonFalse">True</Compiler> + <Compiler Name="ComparisonTrue">True</Compiler> + <Compiler Name="ComparingSignedUnsigned">True</Compiler> + <Compiler Name="CombiningSignedUnsigned">True</Compiler> + <Compiler Name="UnsupportedConstruct">True</Compiler> + <Compiler Name="FileOpen">True</Compiler> + <Compiler Name="FileOpenUnitSrc">True</Compiler> + <Compiler Name="BadGlobalSymbol">True</Compiler> + <Compiler Name="DuplicateConstructorDestructor">True</Compiler> + <Compiler Name="InvalidDirective">True</Compiler> + <Compiler Name="PackageNoLink">True</Compiler> + <Compiler Name="PackageThreadVar">True</Compiler> + <Compiler Name="ImplicitImport">True</Compiler> + <Compiler Name="HPPEMITIgnored">True</Compiler> + <Compiler Name="NoRetVal">True</Compiler> + <Compiler Name="UseBeforeDef">True</Compiler> + <Compiler Name="ForLoopVarUndef">True</Compiler> + <Compiler Name="UnitNameMismatch">True</Compiler> + <Compiler Name="NoCFGFileFound">True</Compiler> + <Compiler Name="ImplicitVariants">True</Compiler> + <Compiler Name="UnicodeToLocale">True</Compiler> + <Compiler Name="LocaleToUnicode">True</Compiler> + <Compiler Name="ImagebaseMultiple">True</Compiler> + <Compiler Name="SuspiciousTypecast">True</Compiler> + <Compiler Name="PrivatePropAccessor">True</Compiler> + <Compiler Name="UnsafeType">False</Compiler> + <Compiler Name="UnsafeCode">False</Compiler> + <Compiler Name="UnsafeCast">False</Compiler> + <Compiler Name="OptionTruncated">True</Compiler> + <Compiler Name="WideCharReduced">True</Compiler> + <Compiler Name="DuplicatesIgnored">True</Compiler> + <Compiler Name="UnitInitSeq">True</Compiler> + <Compiler Name="LocalPInvoke">True</Compiler> + <Compiler Name="MessageDirective">True</Compiler> + <Compiler Name="CodePage"></Compiler> + </Compiler> + <Linker> + <Linker Name="MapFile">0</Linker> + <Linker Name="OutputObjs">0</Linker> + <Linker Name="GenerateHpps">False</Linker> + <Linker Name="ConsoleApp">1</Linker> + <Linker Name="DebugInfo">False</Linker> + <Linker Name="RemoteSymbols">False</Linker> + <Linker Name="GenerateDRC">False</Linker> + <Linker Name="MinStackSize">16384</Linker> + <Linker Name="MaxStackSize">1048576</Linker> + <Linker Name="ImageBase">4194304</Linker> + <Linker Name="ExeDescription"></Linker> + </Linker> + <Directories> + <Directories Name="OutputDir">..\..\bin</Directories> + <Directories Name="UnitOutputDir">..\..\dcu</Directories> + <Directories Name="PackageDLLOutputDir"></Directories> + <Directories Name="PackageDCPOutputDir"></Directories> + <Directories Name="SearchPath">..\..\run;..\..\common</Directories> + <Directories Name="Packages"></Directories> + <Directories Name="Conditionals"></Directories> + <Directories Name="DebugSourceDirs"></Directories> + <Directories Name="UsePackages">False</Directories> + </Directories> + <Parameters> + <Parameters Name="RunParams"></Parameters> + <Parameters Name="HostApplication"></Parameters> + <Parameters Name="Launcher"></Parameters> + <Parameters Name="UseLauncher">False</Parameters> + <Parameters Name="DebugCWD"></Parameters> + <Parameters Name="Debug Symbols Search Path"></Parameters> + <Parameters Name="LoadAllSymbols">True</Parameters> + <Parameters Name="LoadUnspecifiedSymbols">False</Parameters> + </Parameters> + <Language> + <Language Name="ActiveLang"></Language> + <Language Name="ProjectLang">$00000000</Language> + <Language Name="RootDir"></Language> + </Language> + <VersionInfo> + <VersionInfo Name="IncludeVerInfo">False</VersionInfo> + <VersionInfo Name="AutoIncBuild">False</VersionInfo> + <VersionInfo Name="MajorVer">1</VersionInfo> + <VersionInfo Name="MinorVer">0</VersionInfo> + <VersionInfo Name="Release">0</VersionInfo> + <VersionInfo Name="Build">0</VersionInfo> + <VersionInfo Name="Debug">False</VersionInfo> + <VersionInfo Name="PreRelease">False</VersionInfo> + <VersionInfo Name="Special">False</VersionInfo> + <VersionInfo Name="Private">False</VersionInfo> + <VersionInfo Name="DLL">False</VersionInfo> + <VersionInfo Name="Locale">1036</VersionInfo> + <VersionInfo Name="CodePage">1252</VersionInfo> + </VersionInfo> + <VersionInfoKeys> + <VersionInfoKeys Name="CompanyName"></VersionInfoKeys> + <VersionInfoKeys Name="FileDescription"></VersionInfoKeys> + <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="InternalName"></VersionInfoKeys> + <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> + <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> + <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> + <VersionInfoKeys Name="ProductName"></VersionInfoKeys> + <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="Comments"></VersionInfoKeys> + </VersionInfoKeys> + </Delphi.Personality> + <StarTeamAssociation></StarTeamAssociation> + <StarTeamNonRelativeFiles></StarTeamNonRelativeFiles> +</BorlandProject> Added: trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.dof =================================================================== --- trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.dof (rev 0) +++ trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.dof 2007-02-06 10:34:58 UTC (rev 11180) @@ -0,0 +1,8 @@ +[Compiler] +UnsafeType=0 +UnsafeCode=0 +UnsafeCast=0 +[Directories] +OutputDir=..\..\bin +UnitOutputDir=..\..\dcu +SearchPath=..\..\run;..\..\common Added: trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.dpr =================================================================== --- trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.dpr (rev 0) +++ trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.dpr 2007-02-06 10:34:58 UTC (rev 11180) @@ -0,0 +1,13 @@ +program JvSimScopeDemo; + +uses + Forms, + MainForm in 'MainForm.pas' {frmMain}; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TfrmMain, frmMain); + Application.Run; +end. Property changes on: trunk/jvcl/examples/JvSimScope/JvSimScopeDemo.dpr ___________________________________________________________________ Name: svn:mime-type + text/plain Name: svn:keywords + Id LastChangedDate LastChangedBy LastChangedRevision URL Name: svn:eol-style + native Added: trunk/jvcl/examples/JvSimScope/MainForm.dfm =================================================================== --- trunk/jvcl/examples/JvSimScope/MainForm.dfm (rev 0) +++ trunk/jvcl/examples/JvSimScope/MainForm.dfm 2007-02-06 10:34:58 UTC (rev 11180) @@ -0,0 +1,154 @@ +object frmMain: TfrmMain + Left = 0 + Top = 0 + BorderStyle = bsSingle + Caption = 'JvSimScope demo' + ClientHeight = 437 + ClientWidth = 520 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object jssCPU: TJvSimScope + Left = 264 + Top = 48 + Width = 240 + Height = 181 + Active = False + BaseLine = 0 + Interval = 100 + Lines = < + item + Name = 'CPU graph' + Position = 0 + end> + Minimum = 0 + Maximum = 181 + TotalTimeSteps = 240 + OnUpdate = jssCPUUpdate + end + object jssRandom: TJvSimScope + Left = 264 + Top = 248 + Width = 240 + Height = 177 + Active = False + BaseLine = 0 + BaseLineUnit = jluAbsolute + DisplayUnits = jduLogical + Interval = 100 + Lines = < + item + Name = 'Random' + Color = clAqua + Position = 0 + PositionUnit = jluAbsolute + end + item + Name = 'Random 2' + Color = clYellow + Position = 0 + PositionUnit = jluAbsolute + end> + Minimum = -100 + Maximum = 100 + TotalTimeSteps = 240 + OnUpdate = jssRandomUpdate + end + object lblCPUDetails1: TLabel + Left = 16 + Top = 48 + Width = 225 + Height = 53 + AutoSize = False + Caption = + 'This scope shows the current CPU usage. Notice the DisplayUnits ' + + 'property set to duPixels which means that the grid size is set i' + + 'n pixels, not measurement units' + WordWrap = True + end + object lblCPUDetails2: TLabel + Left = 16 + Top = 100 + Width = 225 + Height = 78 + AutoSize = False + Caption = + 'There is also one line in the Lines property, which unit is set ' + + 'to percent so that the value is an actual percentage of the tota' + + 'l height. This is fine for a CPU usage as it'#39's a value expressed' + + ' in percentage.' + WordWrap = True + end + object lblRandomDetails1: TLabel + Left = 16 + Top = 248 + Width = 225 + Height = 65 + AutoSize = False + Caption = + 'This scope shows random values but uses logical units to show a ' + + 'more advanced usage. Here, the Minimum and Maximum values are us' + + 'ed and can be adjusted to make the lines fit in the display.' + WordWrap = True + end + object Label1: TLabel + Left = 16 + Top = 316 + Width = 225 + Height = 65 + AutoSize = False + Caption = + 'The yellow line values are meant to go higher than the maximum v' + + 'alue set at design time for the scope. Use the button below to c' + + 'hange that value and notice how the lines are completely adjuste' + + 'd to this change.' + WordWrap = True + end + object lblWelcome: TLabel + Left = 104 + Top = 8 + Width = 319 + Height = 24 + Caption = 'Welcome to the TJvSimScope demo' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object btnActivateDeactivateCPU: TButton + Left = 92 + Top = 196 + Width = 75 + Height = 25 + Caption = 'Activate' + TabOrder = 0 + OnClick = btnActivateDeactivateCPUClick + end + object btnActivateDeactivateRandom: TButton + Left = 36 + Top = 392 + Width = 75 + Height = 25 + Caption = 'Activate' + TabOrder = 1 + OnClick = btnActivateDeactivateRandomClick + end + object btnAdjustMax: TButton + Left = 117 + Top = 392 + Width = 100 + Height = 25 + Caption = 'Adjust Max value' + TabOrder = 2 + OnClick = btnAdjustMaxClick + end +end Property changes on: trunk/jvcl/examples/JvSimScope/MainForm.dfm ___________________________________________________________________ Name: svn:mime-type + text/plain Name: svn:eol-style + native Added: trunk/jvcl/examples/JvSimScope/MainForm.pas =================================================================== --- trunk/jvcl/examples/JvSimScope/MainForm.pas (rev 0) +++ trunk/jvcl/examples/JvSimScope/MainForm.pas 2007-02-06 10:34:58 UTC (rev 11180) @@ -0,0 +1,118 @@ +{----------------------------------------------------------------------------- +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: MainForm.pas, released on 2007-02-06. + +The Initial Developer of the Original Code is Olivier Sannier [obones att altern dott org] +Portions created by Olivier Sannier are Copyright (C) 2007 Olivier Sannier. +All Rights Reserved. + +Contributor(s): None to date. + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Description: + Demonstrates the usage of TJvSimScope + +Known Issues: +-----------------------------------------------------------------------------} +unit MainForm; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, JvSimScope, StdCtrls; + +type + TfrmMain = class(TForm) + jssCPU: TJvSimScope; + jssRandom: TJvSimScope; + lblCPUDetails1: TLabel; + btnActivateDeactivateCPU: TButton; + lblCPUDetails2: TLabel; + lblRandomDetails1: TLabel; + btnActivateDeactivateRandom: TButton; + btnAdjustMax: TButton; + Label1: TLabel; + lblWelcome: TLabel; + procedure btnActivateDeactivateCPUClick(Sender: TObject); + procedure jssCPUUpdate(Sender: TObject); + procedure jssRandomUpdate(Sender: TObject); + procedure btnActivateDeactivateRandomClick(Sender: TObject); + procedure btnAdjustMaxClick(Sender: TObject); + private + FPrevIdleTime: LARGE_INTEGER; + FPrevSystemTime: LARGE_INTEGER; + public + { D\xE9clarations publiques } + end; + +var + frmMain: TfrmMain; + +implementation + +{$R *.dfm} + +uses + CPUUsage; + +procedure TfrmMain.btnActivateDeactivateCPUClick(Sender: TObject); +begin + jssCPU.Active := not jssCPU.Active; + if jssCPU.Active then + btnActivateDeactivateCPU.Caption := 'Deactivate' + else + btnActivateDeactivateCPU.Caption := 'Activate'; +end; + +procedure TfrmMain.btnActivateDeactivateRandomClick(Sender: TObject); +begin + jssRandom.Active := not jssRandom.Active; + if jssRandom.Active then + btnActivateDeactivateRandom.Caption := 'Deactivate' + else + btnActivateDeactivateRandom.Caption := 'Activate'; +end; + +procedure TfrmMain.btnAdjustMaxClick(Sender: TObject); +var + I: Integer; + LineMax: Integer; +begin + // We check all values of line number 1 to see if there is one that is greater + // than the current max value of the scope. If so, we change the Maximum value + // to demonstrate how redrawing is done and how past values were kept to allow + // redrawing with a new scale. + LineMax := jssRandom.Minimum; + for I := 0 to jssRandom.Lines[1].Values.Count - 1 do + begin + if jssRandom.Lines[1].Values[I] > LineMax then + LineMax := jssRandom.Lines[1].Values[I]; + end; + + if LineMax > jssRandom.Maximum then + jssRandom.Maximum := LineMax; +end; + +procedure TfrmMain.jssCPUUpdate(Sender: TObject); +begin + jssCPU.Lines[0].Position := Round(GetCPUUsage(FPrevIdleTime, FPrevSystemTime)) +end; + +procedure TfrmMain.jssRandomUpdate(Sender: TObject); +begin + jssRandom.Lines[0].Position := Random(200) - 100; + jssRandom.Lines[1].Position := Random(200); // this one will eventually go out of scope +end; + +end. Property changes on: trunk/jvcl/examples/JvSimScope/MainForm.pas ___________________________________________________________________ Name: svn:mime-type + text/plain Name: svn:keywords + Id LastChangedDate LastChangedBy LastChangedRevision URL Name: svn:eol-style + native This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ou...@us...> - 2008-01-22 07:29:42
|
Revision: 11703 http://jvcl.svn.sourceforge.net/jvcl/?rev=11703&view=rev Author: outchy Date: 2008-01-21 23:29:31 -0800 (Mon, 21 Jan 2008) Log Message: ----------- minor style cleaning Modified Paths: -------------- trunk/jvcl/examples/JvDBActions/JvDBAction.dpr trunk/jvcl/examples/JvProgramVersionCheck/Project1.dpr Modified: trunk/jvcl/examples/JvDBActions/JvDBAction.dpr =================================================================== --- trunk/jvcl/examples/JvDBActions/JvDBAction.dpr 2008-01-22 01:37:06 UTC (rev 11702) +++ trunk/jvcl/examples/JvDBActions/JvDBAction.dpr 2008-01-22 07:29:31 UTC (rev 11703) @@ -1,7 +1,5 @@ program JvDBAction; -{%TogetherDiagram 'ModelSupport_JvDBAction\default.txaPackage'} - uses Forms, JvDBActionMainForm in 'JvDBActionMainForm.pas' {JvDBActionMainFrm}; Modified: trunk/jvcl/examples/JvProgramVersionCheck/Project1.dpr =================================================================== --- trunk/jvcl/examples/JvProgramVersionCheck/Project1.dpr 2008-01-22 01:37:06 UTC (rev 11702) +++ trunk/jvcl/examples/JvProgramVersionCheck/Project1.dpr 2008-01-22 07:29:31 UTC (rev 11703) @@ -1,8 +1,5 @@ program Project1; -{%File 'ModelSupport\Main\Main.txvpck'} -{%File 'ModelSupport\Vorgabe.txvpck'} - uses Forms, Main in 'Main.pas' {Form1}; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2008-04-03 21:32:03
|
Revision: 11779 http://jvcl.svn.sourceforge.net/jvcl/?rev=11779&view=rev Author: jfudickar Date: 2008-04-03 14:31:31 -0700 (Thu, 03 Apr 2008) Log Message: ----------- Updated Example Modified Paths: -------------- trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.dfm trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.pas trunk/jvcl/examples/JvProgramVersionCheck/Main.pas trunk/jvcl/examples/JvProgramVersionCheck/Project1.dpr Modified: trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.dfm =================================================================== --- trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.dfm 2008-04-03 21:31:14 UTC (rev 11778) +++ trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.dfm 2008-04-03 21:31:31 UTC (rev 11779) @@ -2150,7 +2150,6 @@ StorageOptions.WhiteSpaceReplacement = '_' StorageOptions.AutoEncodeValue = False StorageOptions.AutoEncodeEntity = False - StorageOptions.AutoIndent = True StorageOptions.InvalidCharReplacement = '_' FileName = 'JvParameterListDemo.xml' RootNodeName = 'Configuration' Modified: trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.pas =================================================================== --- trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.pas 2008-04-03 21:31:14 UTC (rev 11778) +++ trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.pas 2008-04-03 21:31:31 UTC (rev 11779) @@ -46,7 +46,7 @@ JvAppRegistryStorage, JvDynControlEngine, ComCtrls, Buttons, JvBitBtn, JvCombobox, CheckLst, ShlObj, ExtDlgs, JvImage, JvMaskEdit, JvSpin, JvBaseEdits, JvGroupBox, JvExStdCtrls, - JvExExtCtrls, JvAppXMLStorage, JvCipher, JvComponentBase; + JvExExtCtrls, JvAppXMLStorage, JvCipher, JvComponentBase, JvExtComponent; type TJvParameterListDemoMainFrm = class(TForm) Modified: trunk/jvcl/examples/JvProgramVersionCheck/Main.pas =================================================================== --- trunk/jvcl/examples/JvProgramVersionCheck/Main.pas 2008-04-03 21:31:14 UTC (rev 11778) +++ trunk/jvcl/examples/JvProgramVersionCheck/Main.pas 2008-04-03 21:31:31 UTC (rev 11779) @@ -64,5 +64,5 @@ end; begin - RgisterJvDynControlRTTIInspectorControl(DynControlEngineJVCL); + RegisterJvDynControlRTTIInspectorControl(DynControlEngineJVCL); end. Modified: trunk/jvcl/examples/JvProgramVersionCheck/Project1.dpr =================================================================== --- trunk/jvcl/examples/JvProgramVersionCheck/Project1.dpr 2008-04-03 21:31:14 UTC (rev 11778) +++ trunk/jvcl/examples/JvProgramVersionCheck/Project1.dpr 2008-04-03 21:31:31 UTC (rev 11779) @@ -1,6 +1,11 @@ program Project1; uses + madExcept, + madLinkDisAsm, + madListHardware, + madListProcesses, + madListModules, Forms, Main in 'Main.pas' {Form1}; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |