[JVCL-Checkins] dev/JVCL3/examples/JvDBHTLabel MainFrm.dfm,1.3,1.4 MainFrm.pas,1.3,1.4 - cleanups

[Robert M. <mar...@us...>]

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

Modified Files:
	MainFrm.dfm MainFrm.pas 
Log Message:
cleanups


Index: MainFrm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvDBHTLabel/MainFrm.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** MainFrm.pas	9 Feb 2004 08:28:06 -0000	1.3
--- MainFrm.pas	9 Feb 2004 16:41:39 -0000	1.4
***************
*** 19,25 ****
      procedure FormCreate(Sender: TObject);
    private
-     { Private declarations }
    public
-     { Public declarations }
    end;
  
--- 19,23 ----
***************
*** 33,43 ****
  procedure TForm1.Button1Click(Sender: TObject);
  begin
!   JvDBHTLabel1.Mask := StringReplace(memFormat.Lines.Text,#13#10,'',[rfReplaceAll]);
  end;
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
!   if not FileExists(JvCsvDataSet1.Filename) then
!     ShowMessage('Data file not found!')
    else
      JvCsvDataSet1.Open;
--- 31,41 ----
  procedure TForm1.Button1Click(Sender: TObject);
  begin
!   JvDBHTLabel1.Mask := StringReplace(memFormat.Lines.Text, #13#10, '', [rfReplaceAll]);
  end;
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
!   if not FileExists(JvCsvDataSet1.FileName) then
!     ShowMessageFmt('Data file "%s" not found!', [JvCsvDataSet1.FileName])
    else
      JvCsvDataSet1.Open;
***************
*** 46,47 ****
--- 44,46 ----
  
  end.
+ 

Index: MainFrm.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvDBHTLabel/MainFrm.dfm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** MainFrm.dfm	9 Feb 2004 08:28:06 -0000	1.3
--- MainFrm.dfm	9 Feb 2004 16:41:38 -0000	1.4
***************
*** 7,10 ****
--- 7,12 ----
    ClientWidth = 472
    Color = clBtnFace
+   Constraints.MinHeight = 200
+   Constraints.MinWidth = 300
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
***************
*** 65,93 ****
    end
    object JvCsvDataSet1: TJvCsvDataSet
!     FieldDefs = <
!       item
!         Name = 'FILENAME'
!         DataType = ftString
!         Size = 255
!       end
!       item
!         Name = 'SIZE'
!         DataType = ftInteger
!       end
!       item
!         Name = 'ATTRIBUTES'
!         DataType = ftString
!         Size = 64
!       end
!       item
!         Name = 'TYPE'
!         DataType = ftString
!         Size = 255
!       end>
!     FileName = 'TestData2.csv'
      ReadOnly = True
      Changed = False
      CsvFieldDef = 'FILENAME:$255,SIZE:%,ATTRIBUTES:$64,TYPE:$255'
      CsvUniqueKeys = False
      CaseInsensitive = True
      SavesChanges = False
--- 67,76 ----
    end
    object JvCsvDataSet1: TJvCsvDataSet
!     FileName = 'TestData.csv'
      ReadOnly = True
      Changed = False
      CsvFieldDef = 'FILENAME:$255,SIZE:%,ATTRIBUTES:$64,TYPE:$255'
      CsvUniqueKeys = False
+     ExtendedHeaderInfo = False
      CaseInsensitive = True
      SavesChanges = False