Data input - PicInfo sample application

Form PicForm

Module PicMain

Public  
var ProgramTitle As String
Function ShowFileOpenDialog(in:Long, in:String, in:String, [in/out:Long], [in:String], [in:String], [in/out:PicMain.EFileDlgFlags]) As String

Class IPicInfo

Public  
Function ReadFile(String) As Boolean

Class PicBMP

Implements IPicInfo

Class PicGIF

Implements IPicInfo

Color legend

Green Implements