VERSION 5.00
Begin VB.Form axdUserDoc 
   ClientHeight    =   4680
   ClientLeft      =   0
   ClientTop       =   345
   ClientWidth     =   4800
   ClipControls    =   0   'False
   FillStyle       =   0  'Solid
   FontTransparent =   0   'False
   HasDC           =   0   'False
   NegotiateMenus  =   0   'False
   ScaleHeight     =   312
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   320
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton eIncDir 
      Caption         =   "&IncludeDir"
      CausesValidation=   0   'False
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   4200
      Width           =   975
   End
   Begin VB.ListBox eList 
      CausesValidation=   0   'False
      Height          =   4140
      IntegralHeight  =   0   'False
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   4695
   End
   Begin VB.CommandButton eRetry 
      Caption         =   "&Rebuild"
      CausesValidation=   0   'False
      Height          =   375
      Left            =   3480
      TabIndex        =   0
      Top             =   4200
      Width           =   1215
   End
   Begin VB.Label eLabel 
      Height          =   300
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   5775
   End
End
Attribute VB_Name = "axdUserDoc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Copyright (C) 2008-2012 Jan Vorel
' This program is free software; you can redistribute it and/or modify
' it under the terms of the GNU General Public License as published by
' the Free Software Foundation; either version 2 of the License, or
' (at your option) any later version.

' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.

' You should have received a copy of the GNU General Public License
' along with this program; if not, write to the Free Software
' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

' If you have any questions, suggestions or bug reports about this product,
' contact me: info@ctuser.net; Do not contact me about general B.A.S.I.C.
' language or A.P.I. issues

Option Explicit
Option Base 0

Private Sub eIncDir_Click()
  IDE_SelectIncludeDir
  End Sub

Private Sub eRetry_Click()
  Dim Filename As String
  
  eList.Top = eLabel.Top + eLabel.Height
  Form_Resize
  eRetry.Enabled = False
  eList.Clear
  Form_Resize
  DoEvents
  
  'BuildLib "d:\dev\software\common\VB6\ReadFileV2\Module1w."
  BuildLib "d:\dev\software\Projects\Calaym\gen_Calaym."
  
  eRetry.Enabled = True
  eList.Top = eLabel.Top
  Form_Resize
  End Sub

Private Sub Form_Load()
  Set gLabel = eLabel
  Set gList = eList
  
  Call IDE_Initialize
  End Sub
  
Private Sub Form_Resize()
  Dim xLong1 As Long
  Dim xLong2 As Long

  xLong1 = Me.ScaleWidth
  xLong2 = Me.ScaleHeight
  
  xLong2 = xLong2 - 4& - eRetry.Height
  eRetry.Move xLong1 - eRetry.Width - 4&, xLong2
  eIncDir.Top = xLong2
  xLong2 = xLong2 - eList.Top - 4&
  If xLong2 < 0& Then xLong2 = 0&
  eList.Height = xLong2
  If xLong1 < 0& Then xLong1 = 0&
  eList.Width = xLong1
  eLabel.Width = xLong1
  End Sub



