home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso / 00202 / s / disk1 / picview.fr_ / picview.bin
Text File  |  1993-04-28  |  3KB  |  96 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Picture Viewer"
  4.    ClipControls    =   0   'False
  5.    Height          =   5250
  6.    Left            =   1020
  7.    LinkTopic       =   "Form1"
  8.    ScaleHeight     =   4845
  9.    ScaleWidth      =   7365
  10.    Top             =   1320
  11.    Width           =   7485
  12.    Begin CommandButton Command1 
  13.       Caption         =   "E&xit"
  14.       Height          =   495
  15.       Left            =   5520
  16.       TabIndex        =   4
  17.       Top             =   4080
  18.       Width           =   1215
  19.    End
  20.    Begin FileListBox File1 
  21.       Height          =   1395
  22.       Left            =   600
  23.       Pattern         =   "*.bmp;*.wmf;*.ico"
  24.       TabIndex        =   2
  25.       Top             =   2400
  26.       Width           =   2895
  27.    End
  28.    Begin DirListBox Dir1 
  29.       Height          =   1575
  30.       Left            =   600
  31.       TabIndex        =   1
  32.       Top             =   720
  33.       Width           =   2895
  34.    End
  35.    Begin DriveListBox Drive1 
  36.       Height          =   1530
  37.       Left            =   600
  38.       TabIndex        =   0
  39.       Top             =   360
  40.       Width           =   2895
  41.    End
  42.    Begin Label Label1 
  43.       BorderStyle     =   1  'Fixed Single
  44.       Height          =   495
  45.       Left            =   3720
  46.       TabIndex        =   3
  47.       Top             =   3240
  48.       Width           =   3015
  49.    End
  50.    Begin Image open 
  51.       BorderStyle     =   1  'Fixed Single
  52.       Height          =   2775
  53.       Left            =   3720
  54.       Stretch         =   -1  'True
  55.       Top             =   360
  56.       Width           =   3015
  57.    End
  58. End
  59.  
  60. Sub Command1_Click ()
  61.     End
  62. End Sub
  63.  
  64. Sub Dir1_Change ()
  65. ' When directory is changed, update path in Files control.
  66.     file1.Path = Dir1.Path
  67. End Sub
  68.  
  69. Sub Drive1_Change ()
  70. ' When drive is changed, update directory control.
  71. ' (This also causes a Change event for the directory control).
  72.        Dir1.Path = Drive1.Drive
  73. End Sub
  74.  
  75. Sub File1_DblClick ()
  76. ' When at the root level (for example, C:\) the Path property
  77. ' has a backslash (\) at the end.  When at any other level,
  78. ' there is no final \.  This code handles either case to build
  79. ' the complete path and filename of the selected file.
  80.       If Right(file1.Path, 1) <> "\" Then
  81.         label1.Caption = file1.Path & "\" & file1.FileName
  82.       Else
  83.         label1.Caption = file1.Path & file1.FileName
  84.       End If
  85. ' Load the selected picture file.
  86.       Form1.open.Picture = LoadPicture(label1.Caption)
  87. End Sub
  88.  
  89. Sub Form_Load ()
  90. ' Set drive and path for controls to drive
  91. ' and directory where this application is located.
  92.     Drive1.Drive = App.Path
  93.     Dir1.Path = App.Path
  94. End Sub
  95.  
  96.