'Listing 33.1  33LIST01.TXT - Inicjowanie przegldarki w procedurze adowania formularza

Private Sub Form_Load()
Dim Tc As String * 1
' rozmiary formularza wzgldem formularza gwnego
chkreg.Width = CkBkMain.Width * 0.98
chkreg.Height = CkBkMain.Height * 0.75
' pooenie formularza wzgldem formularza gwnego
chkreg.Left = 0
chkreg.Top = 0
' parametry przegldarki
grdChkReg.Width = chkreg.Width * 0.98
grdChkReg.Cols = 8
grdChkReg.Rows = 1
' pierwszy wiersz i dwie pierwsze kolumny s stae (Fixed)
' pierwszy wiersz
grdChkReg.Row = 0
' pierwsza kolumna
grdChkReg.Col = 0
grdChkReg.Text = "Row"
grdChkReg.ColWidth(0) = 1.1 * (TextWidth("A") * 3)
grdChkReg.FixedAlignment(0) = 2

' druga kolumna
grdChkReg.Col = 1
grdChkReg.Text = "  Check"
grdChkReg.ColWidth(1) = 1.1 * (TextWidth("A") * 5)
grdChkReg.FixedAlignment(1) = 2


' trzecia kolumna
grdChkReg.Col = 2
grdChkReg.Text = "     Date"
grdChkReg.ColWidth(2) = 1.1 * (TextWidth("A") * 8)
grdChkReg.FixedAlignment(2) = 2
grdChkReg.ColAlignment(2) = 2


' czwarta kolumna
grdChkReg.Col = 3
grdChkReg.Text = "                   Payee         "
grdChkReg.ColWidth(3) = 1.1 * (TextWidth("A") * 20)
'grdChkReg.FixedAlignment(3) = 2
grdChkReg.ColAlignment(3) = 2


' pita kolumna
grdChkReg.Col = 4
grdChkReg.Text = "     Debit"
grdChkReg.ColWidth(4) = 1.1 * (TextWidth("A") * 8)
grdChkReg.FixedAlignment(4) = 2
grdChkReg.ColAlignment(4) = 2


' szsta kolumna
grdChkReg.Col = 5
grdChkReg.Text = "     Credit"
grdChkReg.ColWidth(5) = 1.1 * (TextWidth("A") * 8)
grdChkReg.FixedAlignment(5) = 2
grdChkReg.ColAlignment(5) = 2


' sidma kolumna
grdChkReg.Col = 6
grdChkReg.Text = "      Balance"
grdChkReg.ColWidth(6) = 1.1 * (TextWidth("A") * 8)
grdChkReg.FixedAlignment(6) = 2
grdChkReg.ColAlignment(6) = 2


' sma kolumna
grdChkReg.Col = 7
grdChkReg.Text = "     Cleared"
grdChkReg.ColWidth(7) = 1.1 * (TextWidth("A") * 8)
grdChkReg.FixedAlignment(7) = 2
grdChkReg.ColAlignment(7) = 2

