[JVCL-Checkins] dev/JVCL3/examples/JvUninstallControls/BCB JvUninstallCtrlsDemo.bpr,NONE,1.1 JvUnins

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvUninstallControls/BCB
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4968/JVCL3/examples/JvUninstallControls/BCB

Added Files:
	JvUninstallCtrlsDemo.bpr JvUninstallCtrlsDemo.cpp MainFrm.cpp 
	MainFrm.dfm MainFrm.h 
Log Message:
Translation of examples to BCB by korecek
Initial checkin, downgraded to BCB5 for a better compatibility.

--- NEW FILE: JvUninstallCtrlsDemo.cpp ---
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
USERES("JvUninstallCtrlsDemo.res");
USEFORM("MainFrm.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------

--- NEW FILE: JvUninstallCtrlsDemo.bpr ---
<?xml version='1.0' encoding='utf-8' ?>
<!-- C++Builder XML Project -->
<PROJECT>
  <MACROS>
    <VERSION value="BCB.06.00"/>
    <PROJECT value="..\..\..\bin\JvUninstallCtrlsDemo.exe"/>
    <OBJFILES value="..\..\..\dcu\JvUninstallCtrlsDemo.obj ..\..\..\dcu\MainFrm.obj"/>
    <RESFILES value="JvUninstallCtrlsDemo.res"/>
    <IDLFILES value=""/>
    <IDLGENFILES value=""/>
    <DEFFILE value=""/>
    <RESDEPEN value="$(RESFILES) MainFrm.dfm"/>
    <LIBFILES value=""/>
    <LIBRARIES value="JVDLGSC5R.lib JVCUSTOMC5R.lib JVSTDCTRLSC5R.lib JVCTRLSC5R.lib JVMMC5R.lib 
      VCLX50.lib CJCL50.lib JVCOREC5R.lib JVSYSTEMC5R.lib Vcl50.lib"/>
    <SPARELIBS value="Vcl50.lib JVSYSTEMC5R.lib JVCOREC5R.lib CJCL50.lib VCLX50.lib JVMMC5R.lib 
      JVCTRLSC5R.lib JVSTDCTRLSC5R.lib JVCUSTOMC5R.lib JVDLGSC5R.lib"/>
    <PACKAGES value="Vcl50.bpi Vclx50.bpi bcbsmp50.bpi Qrpt50.bpi Vcldb50.bpi Vclbde50.bpi 
      ibsmp50.bpi vcldbx50.bpi TeeUI50.bpi TeeDB50.bpi Tee50.bpi TeeQR50.bpi 
      VCLIB50.bpi bcbie50.bpi CJCL50.bpi JVCOREC5R.bpi JVSYSTEMC5R.bpi 
      JVSTDCTRLSC5R.bpi JVCTRLSC5R.bpi JVCMPC5R.bpi JVCUSTOMC5R.bpi 
      JVDLGSC5R.bpi JVCRYPTC5R.bpi JVMMC5R.bpi JVAPPFRMC5R.bpi JVDBC5R.bpi 
      JVBDEC5R.bpi JVBANDSC5R.bpi JVPLUGINC5R.bpi JVJANSC5R.bpi vclie50.bpi 
      JVGLOBUSC5R.bpi JVPRINTPREVIEWC5R.bpi JVPAGECOMPSC5R.bpi 
      JVVALIDATORSC5R.bpi JVUIBC5R.bpi JVWIZARDC5R.bpi JVTIMEFRAMEWORKC5R.bpi 
      JVHMIC5R.bpi JVMANAGEDTHREADSC5R.bpi JVXPCTRLSC5R.bpi JVDOCKINGC5R.bpi 
      JVDOTNETCTRLSC5R.bpi JVEDIC5R.bpi"/>
    <PATHCPP value=".;"/>
    <PATHPAS value=".;"/>
    <PATHRC value=".;"/>
    <PATHASM value=".;"/>
    <DEBUGLIBPATH value="$(BCB)\lib\debug"/>
    <RELEASELIBPATH value="$(BCB)\lib\release"/>
    <LINKER value="ilink32"/>
    <USERDEFINES value="_DEBUG"/>
    <SYSDEFINES value="NO_STRICT"/>
    <MAINSOURCE value="JvUninstallCtrlsDemo.cpp"/>
    <INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\run;..\..\..\common"/>
    <LIBPATH value="$(BCB)\lib\debug;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Resources"/>
    <WARNINGS value="-w-par"/>
  </MACROS>
  <OPTIONS>
    <IDLCFLAGS value="-I$(BCB)\include -I$(BCB)\include\vcl -I$(INCLUDEPATH) -src_suffix cpp 
      -D_DEBUG -boa"/>
    <CFLAG1 value="-Od -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c 
      -tW -tWM"/>
    <PFLAGS value="-N2..\..\..\dcu -N0..\..\..\dcu -$YD -$W -$O- -$A8 -v -JPHNE -M"/>
    <RFLAGS value=""/>
    <AFLAGS value="/mx /w2 /zd"/>
    <LFLAGS value="-I..\..\..\dcu -D&quot;&quot; -aa -Tpe -x -Gn -v"/>
  </OPTIONS>
  <LINKER>
    <ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
    <ALLRES value="$(RESFILES)"/>
    <ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
  </LINKER>
  <IDEOPTIONS>
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1036
CodePage=1252

[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0

[HistoryLists\hlIncludePath]
Count=5
Item0=$(BCB)\include;$(BCB)\include\vcl;..\..\..\run;..\..\..\common
Item1=..\..\JvShellHook\BCB;$(BCB)\include;$(BCB)\include\vcl;..\..\JvShellHook\BCB\$(INCLUDEPATH);..\..\..\run;..\..\..\common
Item2=$(BCB)\include;$(BCB)\include\vcl;$(INCLUDEPATH);..\..\..\run;..\..\..\common
Item3=$(BCB)\include;$(BCB)\include\vcl;$(INCLUDEPATH);..\..\..\run
Item4=$(BCB)\include;$(BCB)\include\vcl;$(INCLUDEPATH)

[HistoryLists\hlLibraryPath]
Count=5
Item0=$(BCB)\lib\debug;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Resources
Item1=..\..\JvShellHook\BCB;$(BCB)\lib\debug;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\JvShellHook\BCB\$(RESPATH);..\..\..\Resources
Item2=$(BCB)\lib\debug;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(RESPATH);..\..\..\Resources
Item3=$(BCB)\lib\debug;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(RESPATH)
Item4=$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(RESPATH)

[HistoryLists\hlDebugSourcePath]
Count=1
Item0=$(BCB)\source\vcl

[HistoryLists\hlConditionals]
Count=1
Item0=_DEBUG

[HistoryLists\hlIntOutputDir]
Count=2
Item0=..\..\..\dcu
Item1=OBJ

[HistoryLists\hlFinalOutputDir]
Count=2
Item0=..\..\..\bin\
Item1=..\..\..\bin

[Debugging]
DebugSourceDirs=$(BCB)\source\vcl

[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0

[Compiler]
ShowInfoMsgs=1
LinkDebugVcl=0
  </IDEOPTIONS>
</PROJECT>
--- NEW FILE: MainFrm.cpp ---
/******************************************************************

                       JEDI-VCL Demo

 Copyright (C) 2002 Project JEDI

 Original author:

 Contributor(s):
   korecek: translation from Delphi to BCB

 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.

******************************************************************/
// $Id: MainFrm.cpp,v 1.1 2005/05/12 16:10:43 outchy Exp $
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MainFrm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "JvUninstallControls"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::JvUninstallListBox1Click(TObject *Sender)
{

   memListInfo->Lines = JvUninstallListBox1->Properties;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::chkListShowAllClick(TObject *Sender)
{
  JvUninstallListBox1->ShowAll = chkListShowAll->Checked;
  JvUninstallListBox1->RefreshItem();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::chkListSortedClick(TObject *Sender)
{
  JvUninstallListBox1->Sorted = chkListSorted->Checked;
  JvUninstallListBox1->RefreshItem();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::chkShowEmptyClick(TObject *Sender)
{
  JvUninstallListBox1->ShowEmptyValues = chkShowEmpty->Checked;
  JvUninstallListBox1->RefreshItem();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::JvUninstallComboBox1Click(TObject *Sender)
{
    memComboInfo->Lines = JvUninstallComboBox1->Properties;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::chkComboShowAllClick(TObject *Sender)
{
  JvUninstallComboBox1->ShowAll = chkComboShowAll->Checked;
  JvUninstallComboBox1->RefreshItem();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::chkComboSortedClick(TObject *Sender)
{
  JvUninstallComboBox1->Sorted = chkComboSorted->Checked;
  JvUninstallComboBox1->RefreshItem();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::chkComboEmptyValuesClick(TObject *Sender)
{
  JvUninstallComboBox1->ShowEmptyValues = chkComboEmptyValues->Checked;
  JvUninstallComboBox1->RefreshItem();

}
//---------------------------------------------------------------------------

--- NEW FILE: MainFrm.dfm ---
object Form1: TForm1
  Left = 216
  Top = 73
  Width = 833
  Height = 688
  Caption = 'JvUninstall Controls Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 385
    Top = 0
    Width = 5
    Height = 661
    Cursor = crSizeWE
  end
  object Panel2: TPanel
    Left = 390
    Top = 0
    Width = 435
    Height = 661
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object JvUninstallComboBox1: TJvUninstallComboBox
      Left = 0
      Top = 0
      Width = 434
      Height = 21
      DropDownCount = 25
      ItemHeight = 13
      Style = csDropDownList
      TabOrder = 0
      OnClick = JvUninstallComboBox1Click
      Anchors = [akLeft, akTop, akRight]
    end
    object chkComboShowAll: TCheckBox
      Left = 15
      Top = 32
      Width = 69
      Height = 17
      Caption = 'Show All'
      TabOrder = 1
      OnClick = chkComboShowAllClick
    end
    object chkComboSorted: TCheckBox
      Left = 95
      Top = 32
      Width = 64
      Height = 17
      Caption = 'Sorted'
      TabOrder = 2
      OnClick = chkComboSortedClick
    end
    object memComboInfo: TMemo
      Left = 0
      Top = 56
      Width = 434
      Height = 603
      Anchors = [akLeft, akTop, akRight, akBottom]
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 3
      WordWrap = False
    end
    object chkComboEmptyValues: TCheckBox
      Left = 168
      Top = 32
      Width = 97
      Height = 17
      Caption = 'Show Empty'
      TabOrder = 4
      OnClick = chkComboEmptyValuesClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 385
    Height = 661
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object JvUninstallListBox1: TJvUninstallListBox
      Left = 2
      Top = 0
      Width = 383
      Height = 203
      ItemHeight = 13
      TabOrder = 0
      OnClick = JvUninstallListBox1Click
      Anchors = [akLeft, akTop, akBottom]
    end
    object chkListShowAll: TCheckBox
      Left = 8
      Top = 210
      Width = 63
      Height = 17
      Anchors = [akLeft, akBottom]
      Caption = 'Show All'
      TabOrder = 1
      OnClick = chkListShowAllClick
    end
    object chkListSorted: TCheckBox
      Left = 88
      Top = 210
      Width = 55
      Height = 17
      Anchors = [akLeft, akBottom]
      Caption = 'Sorted'
      TabOrder = 2
      OnClick = chkListSortedClick
    end
    object chkShowEmpty: TCheckBox
      Left = 168
      Top = 210
      Width = 97
      Height = 17
      Anchors = [akLeft, akBottom]
      Caption = 'Show Empty'
      TabOrder = 3
      OnClick = chkShowEmptyClick
    end
    object memListInfo: TMemo
      Left = 0
      Top = 233
      Width = 383
      Height = 425
      Anchors = [akLeft, akRight, akBottom]
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 4
      WantReturns = False
      WordWrap = False
    end
  end
end

--- NEW FILE: MainFrm.h ---
/******************************************************************

                       JEDI-VCL Demo

 Copyright (C) 2002 Project JEDI

 Original author:

 Contributor(s):
   korecek: translation from Delphi to BCB

 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.

******************************************************************/
// $Id: MainFrm.h,v 1.1 2005/05/12 16:10:43 outchy Exp $
//---------------------------------------------------------------------------

#ifndef MainFrmH
#define MainFrmH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "JvUninstallControls.hpp"
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TPanel *Panel2;
        TJvUninstallComboBox *JvUninstallComboBox1;
        TCheckBox *chkComboShowAll;
        TCheckBox *chkComboSorted;
        TMemo *memComboInfo;
        TCheckBox *chkComboEmptyValues;
        TPanel *Panel1;
        TJvUninstallListBox *JvUninstallListBox1;
        TCheckBox *chkListShowAll;
        TCheckBox *chkListSorted;
        TCheckBox *chkShowEmpty;
        TMemo *memListInfo;
        TSplitter *Splitter1;
        void __fastcall JvUninstallListBox1Click(TObject *Sender);
        void __fastcall chkListShowAllClick(TObject *Sender);
        void __fastcall chkListSortedClick(TObject *Sender);
        void __fastcall chkShowEmptyClick(TObject *Sender);
        void __fastcall JvUninstallComboBox1Click(TObject *Sender);
        void __fastcall chkComboShowAllClick(TObject *Sender);
        void __fastcall chkComboSortedClick(TObject *Sender);
        void __fastcall chkComboEmptyValuesClick(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

[JVCL-Checkins] dev/JVCL3/examples/JvUninstallControls/BCB JvUninstallCtrlsDemo.bpr,NONE,1.1 JvUnins

JEDI VCL for Delphi

[JVCL-Checkins] dev/JVCL3/examples/JvUninstallControls/BCB JvUninstallCtrlsDemo.bpr,NONE,1.1 JvUninstallCtrlsDemo.cpp,NONE,1.1 MainFrm.cpp,NONE,1.1 MainFrm.dfm,NONE,1.1 MainFrm.h,NONE,1.1 - Translation of examples to BCB by korecek Initial checkin, d