unitmain.pas

jvcl driver development envionment

          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}
    //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;