david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
819 lines
31 KiB
ObjectPascal
819 lines
31 KiB
ObjectPascal
{******************************************************************
|
|
|
|
JEDI-VCL Demo
|
|
|
|
Copyright (C) 2002 Project JEDI
|
|
|
|
Original author: Ralf Grenzing [Ralf dot Grenzing@gmx.de]
|
|
Uwe Rupprecht [uwe-rupprecht@gmx.de]
|
|
|
|
Contributor(s): Michael Beck (mbeck1@compuserve.com)
|
|
Settings part based on work of Angus Johnson - ajohnson@rpi.net.au
|
|
|
|
You may retrieve the latest version of this file at the JEDI-JVCL
|
|
home page, located at http://jvcl.sourceforge.net
|
|
|
|
The contents of this file are used with permission, 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_1Final.html
|
|
|
|
Software distributed under the License is distributed on an
|
|
"AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
|
implied. See the License for the specific language governing
|
|
rights and limitations under the License.
|
|
|
|
******************************************************************}
|
|
|
|
unit Unitmain;
|
|
|
|
{$I jvcl.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
JvButton, JvNavigationPane, JvBaseDlg, JvJVCLAboutForm, JvAutoComplete,
|
|
ImgList, JvComponent, Buttons, JvExButtons, JvBitBtn, ComCtrls,
|
|
JvExComCtrls, JvComCtrls, StdCtrls, JvExStdCtrls, JvRichEdit, JvEdit,
|
|
JvListBox, JvExControls, JvLabel, JvXPBar, JvXPCore, JvXPContainer,
|
|
ExtCtrls, JvExExtCtrls, JvSplitter, JvCtrls, JvCaptionPanel, JvToolBar,
|
|
JvAppStorageBaseMainFrmU, ControlsExampleMainFormU, JvCheckBox,
|
|
JvHtControls, JvStatusBar, JvNetscapeSplitter, JvDbMaskEditDemoForm,
|
|
JvOutlookBarCustomDrawDemoMainForm, JvComponentBase, JvExtComponent;
|
|
|
|
type
|
|
TMainform = class(TForm)
|
|
JvCaptionPanel1: TJvCaptionPanel;
|
|
JvNavPaneStyleMan: TJvNavPaneStyleManager;
|
|
LargeImages: TImageList;
|
|
PanelTop: TPanel;
|
|
aJvImgBtn: TJvImgBtn;
|
|
sbxWinXPBar: TScrollBox;
|
|
JvXPContainer1: TJvXPContainer;
|
|
JvXPBarBrowseDemos: TJvXPBar;
|
|
jvXPBarSettings: TJvXPBar;
|
|
JvXPBarIDE: TJvXPBar;
|
|
Panel4: TPanel;
|
|
JvListBoxAllDemos: TJvListBox;
|
|
JvLookupAutoCompl: TJvLookupAutoComplete;
|
|
aJvBitBtn: TJvBitBtn;
|
|
JvRichEditHints: TJvRichEdit;
|
|
JvSplitter1: TJvSplitter;
|
|
JvJVCLAboutComp: TJvJVCLAboutComponent;
|
|
JvNavPanelButton2: TJvNavPanelButton;
|
|
JvNavPanelButton3: TJvNavPanelButton;
|
|
JvNavPanelBtnIdePageCtrl: TJvNavPanelButton;
|
|
JvNavPanelBtnLoadFormInIDE: TJvNavPanelButton;
|
|
JvNavPanelBtnJumpHelp: TJvNavPanelButton;
|
|
JvNavPanelBtnExit: TJvNavPanelButton;
|
|
JvXPBarInformation: TJvXPBar;
|
|
JvPageControlComps: TJvPageControl;
|
|
JvXPBarSearchByCompName: TJvXPBar;
|
|
Panel2: TPanel;
|
|
JvLabel2: TJvLabel;
|
|
JvListBoxDemosCompNameSorted: TJvListBox;
|
|
JvEdtCompSearch: TJvEdit;
|
|
JvLabel1: TJvLabel;
|
|
Panel1: TPanel;
|
|
JvLabel3: TJvLabel;
|
|
JvCheckBoxAllowOnlyOneExpanded: TJvCheckBox;
|
|
JvLabel4: TJvLabel;
|
|
JvLabel5: TJvLabel;
|
|
StatusBar: TJvStatusBar;
|
|
JvNavPanelButton1: TJvNavPanelButton;
|
|
JvNetscapeSplitter1: TJvNetscapeSplitter;
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure CreateDemoForm(const ID: Integer; ShowForm: Boolean = True);
|
|
procedure btnLoadIdeClick(Sender: TObject);
|
|
procedure CompClick(Sender: TObject);
|
|
procedure JvNavPanelBtnIdePageCtrlClick(Sender: TObject);
|
|
procedure ShowJVCLAboutDlg(Sender: TObject);
|
|
procedure ShellExecHint(Sender: TObject);
|
|
procedure JvNavPanelBtnExitClick(Sender: TObject);
|
|
procedure JvXPBarIDECollapsedChange(Sender: TObject; Collapsing: Boolean);
|
|
procedure WinXPBarEnsureOnlyOneExpanded(Sender: TObject; Collapsing: Boolean);
|
|
procedure JvRichEditHintsURLClick(Sender: TObject;
|
|
const URLText: string; Button: TMouseButton);
|
|
procedure JvListBoxAllDemosChange(Sender: TObject);
|
|
procedure JvNavPanelBtnJumpHelpClick(Sender: TObject);
|
|
procedure JvXPBarSearchByCompNameAfterCollapsedChange(Sender: TObject;
|
|
Collapsing: Boolean);
|
|
procedure JvXPBarBrowseDemosAfterCollapsedChange(
|
|
Sender: TObject; Collapsing: Boolean);
|
|
procedure JvNavPanelButton1Click(Sender: TObject);
|
|
private
|
|
procedure ReadAllDemosFromIni;
|
|
end;
|
|
|
|
const
|
|
MAX_FORMS = 150;
|
|
|
|
var
|
|
Mainform: TMainform;
|
|
TheToolBar: TJvToolBar;
|
|
TheFormArray: array[1..MAX_FORMS] of TForm;
|
|
FormID: Integer;
|
|
gBitmapFilePath: string;
|
|
|
|
implementation
|
|
|
|
uses
|
|
JvFrameEmpty, hello, JvLabelsU, JvFormsU, JvDialogsU, JvButtonsU, JvDateTimeU,
|
|
ArrowButtonMainFormU, JvPanelsU, JvChoosersU, JvControlsU, JvSearchFiles, JvWinDialogsU,
|
|
JvEditsU, JvAniMainFormU, JvSearchFileMainFormU, JvNTEventLogMainFormU, JvMruListMainFormU,
|
|
JvLogFileMainFormU, InstallLabelMainFormU, JvDBDateTimePickerMainFormU, ContentScrollerMainFormU,
|
|
JvDataEmbeddedMainFormU, JvBrowseFolderMainFormU,
|
|
JvClipboardViewerMainFormU, JvZoomMainFormU, JvWindowsTitleMainFomU,
|
|
RaHtHintsMainFormU, FileListBoxMainFormU, JvTreeViewAsMenuMainFormU,
|
|
ListCombMainFormU, JvBalloonHintMainFormU, JvHTMLParserMainFormU,
|
|
JvLinkLabelMainFormU, JvScreenCaptureMainFormU,
|
|
JvShFileOperationMainFormU, JvSystemPopup2MainFormU, JvSystemPopupMainFormU,
|
|
JvThumbnailMainFormU, RegTVMainFormU, RunDll32MainFormU, TimelineMainFormU,
|
|
TipOfDayMainFormU, TMTimeLineMainFormU, FindReplaceMainFormU, JvPlayListMainFormU,
|
|
JvZLibMultipleMainFormU, OtherStandAlone, Profiler32MainFormU,
|
|
RessourcesFormMain, SearchingForm, JclDebug, JclStrings, JclFileUtils, ShellAPI,
|
|
IniFiles, CreateProcessExampleMainFormU, ConsoleExampleMainFormU,
|
|
XMLSerializerMainFormU, JvAppHotKeyDemoMainFormU, JvAppStorageSelListMainfrmU,
|
|
JvAppStorageSubStorageMainFrm, JvAviCapDemoFrmU, TVDemoMain, MDIBkgndDemoMain,
|
|
MDIBkgndDemoSettings, MDIBkgndDemoChld, JvBehaviorLblMainFrmU, BmpAnimMainFormU,
|
|
ChangeNotificationMainFormU, OLBarMainFormU, MailExampleMainFormU,
|
|
JvInspectorDBDemoMainFormU, InspectorSimpleExampleMain, InspectorExampleMain,
|
|
TransBtnFormMainU, JvShellHookDemoMainFormU, ScrollWinMainFormU, LEDMain,
|
|
StarFieldMain, JvCharMapMainFrmU, JvChartDemoFm, JvCheckBoxRadioBtnFrmU,
|
|
CheckTVDemoFrm, JvColorComboDemoMainFormU, CsvDataSourceDemoFm, JvID3v1MainFormU,
|
|
JvID3v2MainFormU, JvHiddenGems, DSADialogsMainFormU, MessageDlgEditorMain,
|
|
JvComboListBoxDemoForm, JvComputerInfoExDemoForm, JvDBActionMainForm,
|
|
JvDBFindEditDemoForm, JvDBGridExportDemoMainForm, JvDBHTLabelDemoMainForm,
|
|
JvDBImageDemoMainForm, JvDBSearchDemoMainForm, JvDesktopAlertDemoForm,
|
|
WebMapperDemoMainForm, UseCaseDemoMainForm, DependencyWalkerDemoMainForm,
|
|
fDialogs, JvDomainUpDownDemoMainForm, JvDotNetDemoMainForm,
|
|
JvErrorIndicatorMainDemoForm, JvFooterAndGroupHeaderDemoForm,
|
|
JvFullColorCircleDialogMainForm, JvFullColorDialogMainForm,
|
|
EditorMainFormU, GIFMAIN, uJvMouseGesture, JvNavPaneDemoMainForm, fBalls,
|
|
fPhilosophers, JvMarkupLabelDemoMainForm, JvMenusExampleMainForm,
|
|
PackageModifierMainForm, JvPageListTreeViewMainForm, JvPanelDemoFrm;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TMainform.ReadAllDemosFromIni;
|
|
var
|
|
IniFile, IniFileCompsUsed: TIniFile;
|
|
allDemoFrms, compUsedSL: TStringList;
|
|
I, J, K: Integer;
|
|
aTabSheet: TTabSheet;
|
|
aJvXPBar: TJvXPBar;
|
|
aFileName: string;
|
|
found: Boolean;
|
|
|
|
function getJvXPBarByCaption(aCaption: string): TJvXPBar;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
Result := nil;
|
|
for I := 0 to JvXPContainer1.ControlCount - 1 do
|
|
if TJvXPBar(JvXPContainer1.Controls[I]).caption = aCaption then
|
|
begin
|
|
Result := TJvXPBar(JvXPContainer1.Controls[I]);
|
|
Exit;
|
|
end;
|
|
end;
|
|
|
|
function createJvXPBar(aCaption: string): TJvXPBar;
|
|
begin
|
|
Result := TJvXPBar.Create(Self);
|
|
Result.Parent := JvXPContainer1;
|
|
Result.Caption := aCaption;
|
|
Result.Collapsed := True;
|
|
Result.ShowItemFrame := False;
|
|
Result.RoundedItemFrame := 0;
|
|
Result.Align := alTop;
|
|
Result.ParentFont := False;
|
|
Result.Colors.BodyColor := clInfoBK;
|
|
Result.HeaderFont.Color := clBlack;
|
|
Result.Font.Color := clNavy; // color of items
|
|
Result.HeaderFont.Size := 11;
|
|
Font.Color := clNavy; // color of items
|
|
Result.Colors.GradientFrom := $00F4E2E1;
|
|
Result.Colors.GradientTo := $00B09494;
|
|
Result.HotTrackColor := clBlack;
|
|
end;
|
|
|
|
function getTabsSheetByCaption(aCaption: string): TTabSheet;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
Result := nil;
|
|
|
|
for I := 0 to JvPageControlComps.PageCount - 1 do
|
|
begin
|
|
if JvPageControlComps.Pages[I].Caption = aCaption then
|
|
begin
|
|
Result := JvPageControlComps.Pages[I];
|
|
Exit;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function createTabSheet(aCaption: string): TTabSheet;
|
|
begin
|
|
Result := TTabSheet.Create(self);
|
|
Result.Parent := JvPageControlComps;
|
|
Result.caption := aCaption;
|
|
Result.PageControl := JvPageControlComps;
|
|
end;
|
|
|
|
begin
|
|
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + '\data\JvMegaDemoAllDemoForms.ini');
|
|
IniFileCompsUsed := TIniFile.Create(ExtractFilePath(Application.ExeName) + '\data\JvMegaDemoCompsTabs.ini');
|
|
allDemoFrms := TStringList.Create;
|
|
compUsedSL := TStringList.Create;
|
|
try
|
|
IniFile.ReadSections(allDemoFrms);
|
|
for I := 0 to allDemoFrms.Count - 1 do
|
|
begin
|
|
|
|
if IniFile.ReadString(allDemoFrms[I], 'Title', '') = '' then
|
|
begin
|
|
MessageDlg('Demo Form Id ' + allDemoFrms[I] + ' has no title!', mtError, [mbOK], 0);
|
|
Exit;
|
|
end;
|
|
|
|
// add entry to the ListBox of all Demos
|
|
JvListBoxAllDemos.Items.Add(IniFile.ReadString(allDemoFrms[I], 'Title', ''));
|
|
|
|
// add an entry to the XPBars
|
|
if IniFile.ReadString(allDemoFrms[I], 'XPBar', '') <> '' then
|
|
begin
|
|
aJvXPBar := getJvXPBarByCaption(IniFile.ReadString(allDemoFrms[I], 'XPBar', ''));
|
|
|
|
if aJvXPBar = nil then
|
|
aJvXPBar := createJvXPBar(IniFile.ReadString(allDemoFrms[I], 'XPBar', ''));
|
|
|
|
with aJvXPBar.Items.Add do
|
|
begin
|
|
Caption := IniFile.ReadString(allDemoFrms[I], 'Title', '');
|
|
Hint := IniFile.ReadString(allDemoFrms[I], 'descr', '');
|
|
ImageIndex := IniFile.ReadInteger(allDemoFrms[I], 'ImageIdx', -1);
|
|
Tag := StrToInt(allDemoFrms[I]);
|
|
OnClick := CompClick;
|
|
end;
|
|
end;
|
|
|
|
// add an entry for every to the "components as in thh Delphi IDE"
|
|
if IniFile.ReadString(allDemoFrms[I], 'compsUsed', '') <> '' then
|
|
begin
|
|
compUsedSL.commaText := IniFile.ReadString(allDemoFrms[I], 'compsUsed', '');
|
|
|
|
for J := 0 to compUsedSL.count - 1 do
|
|
begin
|
|
aTabSheet := getTabsSheetByCaption(IniFileCompsUsed.ReadString(compUsedSL[J], 'Tab', ''));
|
|
|
|
if aTabSheet = nil then
|
|
aTabSheet := createTabSheet(IniFileCompsUsed.ReadString(compUsedSL[J], 'Tab', ''));
|
|
|
|
// check if for that comp a ImgBtn already created
|
|
found := False;
|
|
for K := 0 to aTabSheet.ControlCount - 1 do
|
|
if aTabSheet.Controls[K].Name = compUsedSL[J] then
|
|
begin
|
|
aTabSheet.Controls[K].Hint := aTabSheet.Controls[K].Hint + ',' + allDemoFrms[I];
|
|
found := True;
|
|
end;
|
|
if found = False then
|
|
begin
|
|
aJvBitBtn := TJvBitBtn.Create(Self);
|
|
aJvBitBtn.Parent := Self;
|
|
aJvBitBtn.Name := compUsedSL[J];
|
|
aJvBitBtn.Left := aTabSheet.Tag;
|
|
aTabSheet.Tag := aTabSheet.Tag + 30;
|
|
aJvBitBtn.Top := 2;
|
|
aJvBitBtn.Width := 25;
|
|
aJvBitBtn.Height := 25;
|
|
aJvBitBtn.ShowHint := False;
|
|
aJvBitBtn.OnClick := CompClick;
|
|
aFileName := gBitmapFilePath + 'T' + compUsedSL[J] + '.BMP';
|
|
{
|
|
if not FileExists(AFileName) and (aTabSheet.Caption <> 'none') then
|
|
MessageDlg('File "' + AFileName + '" for Bitmap not found!', mtError, [mbOk], 0)
|
|
else
|
|
}
|
|
try
|
|
if aTabSheet.Caption <> 'none' then
|
|
aJvBitBtn.Glyph.LoadFromFile(AFileName);
|
|
except
|
|
end;
|
|
aJvBitBtn.Hint := allDemoFrms[I];
|
|
aJvBitBtn.caption := '';
|
|
aJvBitBtn.Parent := aTabSheet;
|
|
|
|
JvListBoxDemosCompNameSorted.items.add(compUsedSL[J]);
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
finally
|
|
IniFile.Free;
|
|
IniFileCompsUsed.Free;
|
|
allDemoFrms.Free;
|
|
compUsedSL.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainform.FormDestroy(Sender: TObject);
|
|
var
|
|
I: Integer;
|
|
begin
|
|
for I := 1 to MAX_FORMS do
|
|
if (TheFormArray[I] <> nil) then
|
|
TheFormArray[I].Free;
|
|
end;
|
|
|
|
procedure TMainform.CreateDemoForm(const ID: Integer; ShowForm: Boolean);
|
|
begin
|
|
// free the last Demo Form
|
|
FreeAndNil(TheFormArray[FormID]);
|
|
case ID of
|
|
1: TheFormArray[ID] := TJvFormsFrm.Create(nil);
|
|
2: TheFormArray[ID] := TJvDialogs.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);
|
|
7: TheFormArray[ID] := TJvEdits.Create(nil);
|
|
8: TheFormArray[ID] := TSearchingFormMain.Create(nil);
|
|
9: TheFormArray[ID] := TJvPanelsFrm.Create(nil);
|
|
10: TheFormArray[ID] := TfglXMLSerializerDemo.Create(nil);
|
|
11: TheFormArray[ID] := TJvSearchFileMainForm.Create(nil);
|
|
12: TheFormArray[ID] := TJvDateTimeFrm.Create(nil);
|
|
13: TheFormArray[ID] := TJvChoosersFrm.Create(nil);
|
|
14: TheFormArray[ID] := TJvControls.Create(nil);
|
|
15: TheFormArray[ID] := TJvAniMainForm.Create(nil);
|
|
// 16 : TheFormArray[ID] := TJvMousePositionnerMainForm.Create(nil);
|
|
17: TheFormArray[ID] := TJvDataEmbeddedMainForm.Create(nil);
|
|
18: TheFormArray[ID] := TBmpAnimMainForm.Create(nil);
|
|
19: TheFormArray[ID] := TArrowButtonMainForm.Create(nil);
|
|
20: TheFormArray[ID] := TJvClipboardViewerMainForm.Create(nil);
|
|
21: TheFormArray[ID] := TJvBrowseFolderMainForm.Create(nil);
|
|
22: TheFormArray[ID] := TInstallLabelMainForm.Create(nil);
|
|
24: TheFormArray[ID] := TJvLogFileMainForm.Create(nil);
|
|
25: TheFormArray[ID] := TOLBarMainForm.Create(nil);
|
|
27: TheFormArray[ID] := TChangeNotificationMainForm.Create(nil);
|
|
28: TheFormArray[ID] := TCreateProcessExampleMainForm.Create(nil);
|
|
29: TheFormArray[ID] := TJvNTEventLogMainForm.Create(nil);
|
|
30: TheFormArray[ID] := TJvAppHotKeyDemoMainForm.Create(nil);
|
|
31: TheFormArray[ID] := TJvWindowsTitleMainForm.Create(nil);
|
|
// 32 : TheFormArray[ID] := TJvSpecialProgressMainForm.Create(nil);
|
|
33: TheFormArray[ID] := TJvColorComboDemoMainForm.Create(nil);
|
|
34: TheFormArray[ID] := TContentScrollerMainForm.Create(nil);
|
|
35: TheFormArray[ID] := TMailExampleMainForm.Create(nil);
|
|
36: TheFormArray[ID] := TJvTreeViewAsMenuMainForm.Create(nil);
|
|
37: TheFormArray[ID] := TListCombMainForm.Create(nil);
|
|
38: TheFormArray[ID] := TJvDBDateTimePickerMainForm.Create(nil);
|
|
39: TheFormArray[ID] := TJvInspectorDBDemoMainForm.Create(nil);
|
|
40: TheFormArray[ID] := TJvMruListMainForm.Create(nil);
|
|
41: TheFormArray[ID] := TFileListBoxMainForm.Create(nil);
|
|
42: TheFormArray[ID] := TJvButtons.Create(nil);
|
|
43: TheFormArray[ID] := TJvBalloonHintMainForm.Create(nil);
|
|
44: TheFormArray[ID] := TDSADialogsMainForm.Create(nil);
|
|
45: TheFormArray[ID] := TfrmMessageDlgEditor.Create(nil);
|
|
46: TheFormArray[ID] := TJvHTMLParserMainForm.Create(nil);
|
|
47: TheFormArray[ID] := TJvLinkLabelMainForm.Create(nil);
|
|
48: TheFormArray[ID] := TJvScreenCaptureMainForm.Create(nil);
|
|
49: TheFormArray[ID] := TJvShellHookDemoMainForm.Create(nil);
|
|
50: TheFormArray[ID] := TJvShFileOperationMainForm.Create(nil);
|
|
51: TheFormArray[ID] := TJvSystemPopupMainForm.Create(nil);
|
|
52: TheFormArray[ID] := TJvSystemPopup2MainForm.Create(nil);
|
|
53: TheFormArray[ID] := TJvThumbnailMainForm.Create(nil);
|
|
// 54 : TheFormArray[ID] := TJvTranslatorMainForm.Create(nil);
|
|
// 55 : TheFormArray[ID] := TJvWndProcHookDemoMainForm.Create(nil);
|
|
// 56 : TheFormArray[ID] := TJvWndProcHookDemoMainForm.Create(nil);
|
|
57: TheFormArray[ID] := TRegTVMainForm.Create(nil);
|
|
58: TheFormArray[ID] := TRunDll32MainForm.Create(nil);
|
|
59: TheFormArray[ID] := TJvScrollingWindowMainForm.Create(nil);
|
|
60: TheFormArray[ID] := TTimelineMainForm.Create(nil);
|
|
61: TheFormArray[ID] := TTipOfDayMainForm.Create(nil);
|
|
62: TheFormArray[ID] := TTMTimeLineMainForm.Create(nil);
|
|
63: TheFormArray[ID] := TTransBtnFormMain.Create(nil);
|
|
64: TheFormArray[ID] := TJvZLibMultipleMainForm.Create(nil);
|
|
65: TheFormArray[ID] := TWelcomeForm.Create(nil);
|
|
66: TheFormArray[ID] := TOtherMainForm.Create(nil);
|
|
67: TheFormArray[ID] := TProfiler32MainForm.Create(nil);
|
|
68: TheFormArray[ID] := TFindReplaceMainForm.Create(nil);
|
|
69: TheFormArray[ID] := TJvPlaylistMainForm.Create(nil);
|
|
// 70 : TheFormArray[ID] := TImageWindowMainForm.Create(nil);
|
|
71: TheFormArray[ID] := TRessourcesForm.Create(nil);
|
|
72: TheFormArray[ID] := TConsoleExampleMainForm.Create(nil);
|
|
73: TheFormArray[ID] := TJvAppStorageBaseMainFrm.Create(nil);
|
|
74: TheFormArray[ID] := TJvAppStorageSelListMainfrm.Create(nil);
|
|
75: TheFormArray[ID] := TJvAppStorageSubStorageMainForm.Create(nil);
|
|
76: TheFormArray[ID] := TJvAviCapDemoFrm.Create(nil);
|
|
77: TheFormArray[ID] := TJvBackgroundDemoFrm.Create(nil);
|
|
78:
|
|
begin
|
|
TheFormArray[ID] := TMDIMainForm.Create(nil);
|
|
// TMDIMainForm.Create(Application)
|
|
// TBkgndImageSettings.Create(Application);
|
|
// TMDIChildForm.Create(Application);
|
|
end;
|
|
79: TheFormArray[ID] := TJvBehaviorLblMainFrm.Create(nil);
|
|
80: TheFormArray[ID] := TSimpleMainForm.Create(nil);
|
|
81: TheFormArray[ID] := TfrmInspector.Create(nil);
|
|
82: TheFormArray[ID] := TLEDDemoMain.Create(nil);
|
|
83: TheFormArray[ID] := TStarfieldMainForm.Create(nil);
|
|
84: TheFormArray[ID] := TJvCharMapMainFrm.Create(nil);
|
|
85: TheFormArray[ID] := TJvChartDemoForm.Create(nil);
|
|
86: TheFormArray[ID] := TJvCheckBoxRadioBtnFrm.Create(nil);
|
|
87: TheFormArray[ID] := TfrmCheckTVDemo.Create(nil);
|
|
88: TheFormArray[ID] := TControlsExampleMainForm.Create(nil);
|
|
89: TheFormArray[ID] := TCsvDataSourceForm.Create(nil);
|
|
90: TheFormArray[ID] := TJvID3v1MainForm.Create(nil);
|
|
91: TheFormArray[ID] := TJvID3v2MainForm.Create(nil);
|
|
92: TheFormArray[ID] := TJvHiddenGemsForm.Create(nil);
|
|
93: TheFormArray[ID] := TJvComboListBoxDemoFrm.Create(nil);
|
|
94: TheFormArray[ID] := TJvComputerInfoExDemoFrm.Create(nil);
|
|
95: TheFormArray[ID] := TJvDBActionMainFrm.Create(nil);
|
|
96: TheFormArray[ID] := TJvDBFindEditDemoFrm.Create(nil);
|
|
97: TheFormArray[ID] := TJvDBGridExportDemoMainFrm.Create(nil);
|
|
98: TheFormArray[ID] := TJvDBHTLabelDemoMainFrm.Create(nil);
|
|
99: TheFormArray[ID] := TJvDBImageDemoMainFrm.Create(nil);
|
|
100: TheFormArray[ID] := TJvDbMaskEditDemoFrm.Create(nil);
|
|
101: TheFormArray[ID] := TJvDBSearchDemoMainFrm.Create(nil);
|
|
102: TheFormArray[ID] := TJvDesktopAlertDemoFrm.Create(nil);
|
|
103: TheFormArray[ID] := TWebMapperDemoMainFrm.Create(nil);
|
|
104: TheFormArray[ID] := TUseCaseDemoMainFrm.Create(nil);
|
|
105: TheFormArray[ID] := TDependencyWalkerDemoMainFrm.Create(nil);
|
|
106: TheFormArray[ID] := TJvDialogsDemoFrm.Create(nil);
|
|
107: TheFormArray[ID] := TJvDomainUpDownDemoMainFrm.Create(nil);
|
|
108: TheFormArray[ID] := TJvDotNetDemoMainFrm.Create(nil);
|
|
109: TheFormArray[ID] := TJvErrorIndicatorMainDemoFrm.Create(nil);
|
|
110: TheFormArray[ID] := TJvFooterAndGroupHeaderDemoFrm.Create(nil);
|
|
111: TheFormArray[ID] := TJvFullColorCircleDlgMainFrm.Create(nil);
|
|
112: TheFormArray[ID] := TJvFullColorDialogMainFrm.Create(nil);
|
|
113: TheFormArray[ID] := TEditorMainForm.Create(nil);
|
|
114: TheFormArray[ID] := TAnimatorForm.Create(nil);
|
|
115: TheFormArray[ID] := TJvMouseGestureDemoMainFrm.Create(nil);
|
|
116: TheFormArray[ID] := TJvNavPaneDemoMainFrm.Create(nil);
|
|
117: TheFormArray[ID] := TfBouncingBalls.Create(nil);
|
|
118: TheFormArray[ID] := TfrmDiningPhilosophers.Create(nil);
|
|
119: TheFormArray[ID] := TJvMarkupLabelDemoMainFrm.Create(nil);
|
|
120: TheFormArray[ID] := TJvMenusExampleMainFrm.Create(nil);
|
|
121: TheFormArray[ID] := TJvOutlookBarCustomDrawDemoMainFrm.Create(nil);
|
|
122: TheFormArray[ID] := TPackageModifierMainFrm.Create(nil);
|
|
123: TheFormArray[ID] := TJvPageListTreeViewMainFrm.Create(nil);
|
|
124: TheFormArray[ID] := TJvPanelDemoMainFrm.Create(nil);
|
|
{$IFDEF INCLUDE_DEVEXP_CX}
|
|
125: TheFormArray[ID] := TJvParameterListDemoMainFrm.Create(nil);
|
|
{$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);
|
|
end;
|
|
|
|
//Execute the forms appearance only if they need to be shown
|
|
if ShowForm then
|
|
begin
|
|
// embed the form in JvCaptionPanel1
|
|
TheFormArray[ID].Parent := JvCaptionPanel1;
|
|
TheFormArray[ID].BorderStyle := bsNone;
|
|
TheFormArray[ID].Scaled := False;
|
|
TheFormArray[ID].Visible := True;
|
|
TheFormArray[ID].left := 0;
|
|
TheFormArray[ID].top := 25;
|
|
|
|
//take the with, heigth and caption from the form
|
|
JvCaptionPanel1.width := TheFormArray[ID].Width + 5;
|
|
JvCaptionPanel1.height := TheFormArray[ID].height + 30;
|
|
JvCaptionPanel1.Caption := TheFormArray[ID].Caption;
|
|
|
|
// check if the form has a MainMenu and plug it in
|
|
{$IFDEF COMPILER6_UP}
|
|
if TheFormArray[ID].Menu <> nil then
|
|
begin
|
|
TheToolBar := TJvToolBar.Create(TheFormArray[ID]);
|
|
TheToolBar.Parent := TheFormArray[ID];
|
|
TheToolBar.Menu := TheFormArray[ID].Menu;
|
|
TheToolBar.Flat := True;
|
|
end;
|
|
{$ENDIF COMPILER6_UP}
|
|
end;
|
|
//save the last form ID
|
|
FormID := ID;
|
|
end;
|
|
|
|
procedure TMainform.FormShow(Sender: TObject);
|
|
var
|
|
IniFile: TIniFile;
|
|
IniFileName: string;
|
|
begin
|
|
|
|
IniFileName := ExtractFilePath(Application.ExeName) + 'data\JvMegaDemoConfig.ini';
|
|
if not FileExists(IniFileName) then
|
|
begin
|
|
MessageDlg(
|
|
'JVCL MegaDemo Configuration File ''' + IniFileName + ''' not found!'#13 +
|
|
'Programm will be aborted!', mtError, [mbOK], 0);
|
|
Exit;
|
|
end;
|
|
|
|
IniFile := TIniFile.Create(IniFileName);
|
|
gBitmapFilePath := IniFile.ReadString('Main', 'BitmapFilePath', '');
|
|
|
|
if FileExists(ExtractFilePath(Application.ExeName) + 'Help\JVCL3.HLP') then
|
|
Application.HelpFile := ExtractFilePath(Application.ExeName) + 'Help\JVCL3.HLP'
|
|
else
|
|
Application.HelpFile := IniFile.ReadString('Main', 'HelpFile', '');
|
|
|
|
{
|
|
if not FileExists(Application.HelpFile) then
|
|
if MessageDlg(
|
|
'JVCL MegaDemo Help File ''' + Application.HelpFile + ''' was not found!'#13 +
|
|
'Do you want to open the config file?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
|
|
ShellExecute(0, nil, PChar('"' + IniFile.FileName + '"'), nil, nil, SW_SHOWNORMAL);
|
|
}
|
|
|
|
FreeAndNil(IniFile);
|
|
|
|
//Show the Welcome-Frame
|
|
CreateDemoForm(65);
|
|
|
|
ReadAllDemosFromIni;
|
|
|
|
// workaround, because anchors seems not to work here
|
|
JvPageControlComps.width := self.width - 40;
|
|
end;
|
|
|
|
procedure TMainform.btnLoadIdeClick(Sender: TObject);
|
|
var
|
|
aFileStringList: TStringList;
|
|
SearchPathExpr: string;
|
|
begin
|
|
if ModuleOfAddr(TheFormArray[FormID].ClassInfo) = '' then
|
|
begin
|
|
MessageDlg(
|
|
'This functionality is disabled unless you build the demo from the'#13 +
|
|
'Delphi IDE with map file generation enabled.', mtWarning, [mbOK], 0);
|
|
Exit;
|
|
end;
|
|
|
|
screen.Cursor := crHourGlass;
|
|
|
|
// uses the function 'ModuleOfAddr' from JclDebug unit to get the unit name
|
|
SearchPathExpr := ExtractFilePath(Application.ExeName) +
|
|
ModuleOfAddr(TheFormArray[FormID].ClassInfo) + '.pas';
|
|
StrReplace(SearchPathExpr, '\bin', '\examples', [rfIgnoreCase]);
|
|
|
|
// uses AdvBuildFileList to get the file location in the example diretory tree
|
|
aFileStringList := TStringList.create;
|
|
AdvBuildFileList(SearchPathExpr, faAnyFile, aFileStringList, amAny,
|
|
[flFullNames, flRecursive], '', nil);
|
|
|
|
screen.Cursor := crDefault;
|
|
|
|
if aFileStringList.Count < 1 then
|
|
MessageDlg('File not found', mtError, [mbOK], 0)
|
|
else
|
|
ShellExecute(0, nil, PChar('"' + aFileStringList.Strings[0] + '"'), nil, nil, SW_SHOWNORMAL);
|
|
|
|
StatusBar.SimpleText := 'file ''' + aFileStringList.Strings[0] + ''' has been launched';
|
|
aFileStringList.free;
|
|
end;
|
|
|
|
procedure TMainform.CompClick(Sender: TObject);
|
|
|
|
procedure addWithFormat(aStr: string);
|
|
begin
|
|
JvRichEditHints.selattributes.style := [fsBold]; // set bold attribute
|
|
JvRichEditHints.selattributes.Color := clNavy; // color to blue
|
|
JvRichEditHints.seltext := aStr;
|
|
JvRichEditHints.selattributes.style := []; // revert to normal
|
|
JvRichEditHints.selattributes.Color := clBlack;
|
|
// JvRichEditHints.selstart := JvRichEditHints.getTextLen; // set caret to end of text
|
|
end;
|
|
|
|
var
|
|
aSL, allSections, tempSL: TStringList;
|
|
I, J: Integer;
|
|
IniFile: TIniFile;
|
|
begin
|
|
|
|
if (JvListBoxAllDemos.ItemIndex = -1) and (Sender = JvListBoxAllDemos) then // File is loading of nothing is selected
|
|
Exit;
|
|
|
|
aSL := TStringList.Create;
|
|
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + '\data\JvMegaDemoAllDemoForms.ini');
|
|
JvRichEditHints.Text := '';
|
|
|
|
// there are 3 possible callers for his method:
|
|
|
|
if Sender is TJvXPBarItem then
|
|
aSL.CommaText := IntToStr(TJvXPBarItem(sender).Tag)
|
|
else
|
|
if Sender = JvListBoxAllDemos then
|
|
begin
|
|
// we have only the Demo Title, so we have to search for it in the while ini file
|
|
IniFile.ReadSections(aSL);
|
|
for I := 0 to aSL.Count - 1 do
|
|
if IniFile.ReadString(aSL[I], 'Title', '') = JvListBoxAllDemos.Items[JvListBoxAllDemos.ItemIndex] then
|
|
begin
|
|
aSL.CommaText := aSL[I];
|
|
Break;
|
|
end;
|
|
end
|
|
else
|
|
if Sender = JvListBoxDemosCompNameSorted then
|
|
begin
|
|
addWithFormat(JvListBoxDemosCompNameSorted.Items[JvListBoxDemosCompNameSorted.ItemIndex]);
|
|
JvRichEditHints.Lines.add(' is used in following Demos:');
|
|
// we have one the Comonent Name, so we have to search in whole ini, in the comma seperated valuues
|
|
allSections := TStringList.create;
|
|
tempSL := TStringList.create;
|
|
IniFile.ReadSections(allSections);
|
|
for I := 0 to allSections.Count - 1 do
|
|
begin
|
|
tempSL.CommaText := IniFile.ReadString(allSections[I], 'compsUsed', '');
|
|
for J := 0 to tempSL.count - 1 do
|
|
if tempSL[J] = JvListBoxDemosCompNameSorted.Items[JvListBoxDemosCompNameSorted.ItemIndex] then
|
|
aSL.Add(allSections[I]);
|
|
end;
|
|
|
|
allSections.Free;
|
|
tempSL.Free;
|
|
end
|
|
else // the comps in the "Comps as in the Delphi IDE"
|
|
begin
|
|
aSL.CommaText := (Sender as TControl).Hint;
|
|
addWithFormat((Sender as TControl).Name);
|
|
JvRichEditHints.Lines.add(' is used in following Demos:');
|
|
end;
|
|
|
|
// in the CommaText of the StringList aSL are now the DemoFormId[s]
|
|
for I := 0 to aSL.Count - 1 do
|
|
begin
|
|
JvRichEditHints.Lines.Add('');
|
|
addWithFormat('http:' + aSL[I] + ' ' + IniFile.ReadString(aSL[I], 'Title', ''));
|
|
JvRichEditHints.Lines.Add('');
|
|
JvRichEditHints.Lines.Add(IniFile.ReadString(aSL[I], 'Descr', ''));
|
|
end;
|
|
|
|
FreeAndNil(aSL);
|
|
FreeAndNil(IniFile);
|
|
end;
|
|
|
|
procedure TMainform.JvNavPanelBtnIdePageCtrlClick(Sender: TObject);
|
|
begin
|
|
JvXPBarIDE.Collapsed := not JvXPBarIDE.Collapsed;
|
|
end;
|
|
|
|
procedure TMainform.ShowJVCLAboutDlg(Sender: TObject);
|
|
begin
|
|
JvJVCLAboutComp.Execute;
|
|
end;
|
|
|
|
procedure TMainform.ShellExecHint(Sender: TObject);
|
|
var
|
|
aFileName: string;
|
|
begin
|
|
|
|
if Sender is TControl then
|
|
aFileName := TControl(Sender).Hint
|
|
else
|
|
if Sender is TJvXPBarItem then
|
|
aFileName := TJvXPBarItem(Sender).Hint
|
|
else
|
|
begin
|
|
MessageDlg('Unknown Sender Type! Could not extract FileName from Hint', mtError, [mbOK], 0);
|
|
Exit;
|
|
end;
|
|
|
|
// check if aFileName is a real filename
|
|
if (pos('http', aFileName) = 0) and (pos('mailto', aFileName) = 0) then
|
|
begin
|
|
aFileName := ExtractFileDir(Application.ExeName) + '\' + aFileName;
|
|
if not FileExists(aFilename) then
|
|
begin
|
|
MessageDlg('File ''' + aFilename + ''' could not be found!', mtError, [mbOK], 0);
|
|
Exit;
|
|
end;
|
|
end;
|
|
|
|
screen.Cursor := crHourGlass;
|
|
ShellExecute(0, nil, PChar(aFileName), nil, nil, SW_SHOWNORMAL);
|
|
StatusBar.SimpleText := 'file ''' + aFileName + ''' has been launched';
|
|
screen.Cursor := crDefault;
|
|
end;
|
|
|
|
procedure TMainform.JvNavPanelBtnExitClick(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure TMainform.JvXPBarIDECollapsedChange(Sender: TObject; Collapsing: Boolean);
|
|
begin
|
|
if Collapsing then
|
|
JvCaptionPanel1.Top := JvCaptionPanel1.Top - 83
|
|
else
|
|
JvCaptionPanel1.Top := JvCaptionPanel1.Top + 83;
|
|
end;
|
|
|
|
procedure TMainform.WinXPBarEnsureOnlyOneExpanded(Sender: TObject; Collapsing: Boolean);
|
|
// this procedure ensures that only one group is expanded - if the user choose so
|
|
var
|
|
I: Integer;
|
|
begin
|
|
if JvCheckBoxAllowOnlyOneExpanded.Checked = False then
|
|
Exit;
|
|
|
|
if Collapsing then
|
|
Exit;
|
|
|
|
// collapse all other JvXPBars except the sender
|
|
for I := 0 to JvXPContainer1.ControlCount - 1 do
|
|
if JvXPContainer1.Controls[I] <> Sender then
|
|
TJvXPBar(JvXPContainer1.Controls[I]).collapsed := True;
|
|
end;
|
|
|
|
procedure TMainform.JvRichEditHintsURLClick(Sender: TObject;
|
|
const URLText: string; Button: TMouseButton);
|
|
begin
|
|
if StrIsDigit(copy(UrlText, 6, 99)) then
|
|
self.CreateDemoForm(StrToInt(copy(UrlText, 6, 99)))
|
|
else
|
|
ShellExecute(0, nil, PChar('"' + UrlText + '"'), nil, nil, SW_SHOWNORMAL);
|
|
end;
|
|
|
|
procedure TMainform.JvListBoxAllDemosChange(Sender: TObject);
|
|
var
|
|
IniFile: TIniFile;
|
|
allDemoFrms: TStringList;
|
|
I: Integer;
|
|
begin
|
|
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + '\data\JvMegaDemoAllDemoForms.ini');
|
|
allDemoFrms := TStringList.Create;
|
|
try
|
|
IniFile.ReadSections(allDemoFrms);
|
|
for I := 0 to allDemoFrms.Count - 1 do
|
|
begin
|
|
JvListBoxAllDemos.Items.AddObject(IniFile.ReadString(allDemoFrms[I], 'Title', ''), nil)
|
|
end;
|
|
finally
|
|
IniFile.Free;
|
|
allDemoFrms.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TMainform.JvNavPanelBtnJumpHelpClick(Sender: TObject);
|
|
var
|
|
I: Integer;
|
|
firstLine: string;
|
|
begin
|
|
// get the first word in the JvRichedit, becaues it is the component Name
|
|
// not a very nice design, but at least it works
|
|
firstLine := JvRichEditHints.Lines[0];
|
|
|
|
if firstLine = '' then
|
|
begin
|
|
MessageDlg(
|
|
'This function is only availible when a component from the PageControl in '#13 +
|
|
'''Components as in the Delphi IDE'' is the current item!', mtWarning, [mbOK], 0);
|
|
Exit;
|
|
end;
|
|
I := 0;
|
|
|
|
while firstLine[I] <> ' ' do
|
|
inc(I);
|
|
|
|
Application.HelpKeyword('T' + copy(FirstLine, 1, I - 1));
|
|
StatusBar.SimpleText := 'help topic ''T' + copy(FirstLine, 1, I - 1) + ''' has been launched';
|
|
end;
|
|
|
|
procedure TMainform.JvXPBarSearchByCompNameAfterCollapsedChange(
|
|
Sender: TObject; Collapsing: Boolean);
|
|
begin
|
|
JvEdtCompSearch.SetFocus;
|
|
end;
|
|
|
|
procedure TMainform.JvXPBarBrowseDemosAfterCollapsedChange(
|
|
Sender: TObject; Collapsing: Boolean);
|
|
begin
|
|
JvListBoxAllDemos.SetFocus;
|
|
end;
|
|
|
|
procedure TMainform.JvNavPanelButton1Click(Sender: TObject);
|
|
var
|
|
A, B: Double;
|
|
begin
|
|
A := 0;
|
|
B := 0;
|
|
ShowMessageFmt('%f', [A / B]);
|
|
end;
|
|
|
|
end.
|
|
|