oForm = CREATEOBJECT([form1]) oForm.Show() READ EVENTS ************************************************** *-- Form: form1 (d:\all_zapl\test.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 07/12/06 10:16:13 PM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT image1 AS image WITH ; Height = 154, ; Left = 34, ; Top = 35, ; Width = 185, ; Name = "Image1" ADD OBJECT command1 AS commandbutton WITH ; Top = 53, ; Left = 233, ; Height = 75, ; Width = 84, ; WordWrap = .T., ; Caption = "Show Picture from memo Field", ; Name = "Command1" PROCEDURE Load ** Create Cursor where we will store Picture File ** Field is Memo CREATE CURSOR CrsTest (MyMemo M) ENDPROC PROCEDURE command1.Click ** Store picture in memo Field IF RECCOUNT([CrsTest]) = 0 lcPicture = GETPICT() IF NOT EMPTY(lcPicture) INSERT INTO crstest VALUES (FILETOSTR(lcPicture)) ELSE RETURN ENDIF ENDIF thisform.Image1.PictureVal = crstest.MyMemo ENDPROC PROCEDURE Destroy CLEAR EVENTS ENDIF ENDDEFINE * *-- EndDefine: form1 **************************************************