1//************************************************************************* 2//* * 3//* Confidential Trade Secret. * 4//* Copyright (c) 2011-2012 Mertech Data Systems Inc, Miami Florida * 5//* All rights reserved. * 6//* DataFlex is a registered trademark of Data Access Corporation. * 7//* * 8//************************************************************************* 9Use Windows.pkg 10Use cRichEdit.pkg 11 12Register_Procedure DevMsg_Callback Handle hoRichEdit 13 14Object oFlex2CrystalDevMsg is a ModalPanel 15 Set Size to 100 211 16 Set Label to "Flex2Crystal Incompatibility" 17 Set piMinSize to 89 208 18 Set Location to 2 2 19 Set Sysmenu_Icon to False 20 Property Handle phoInvokingObject 21 22 Object oOK_Btn is a Button 23 Set Label to "&OK" 24 Set Location to 82 80 25 Set peAnchors to anBottomRight 26 Set Default_State to True 27 28 Procedure OnClick 29 Send Close_Panel 30 End_Procedure 31 32 End_Object 33 34 Object oMessage is a cRichEdit 35 Set Size to 73 194 36 Set Location to 3 8 37 Set peAnchors to anAll 38 Property String psMessage "" 39 40 Procedure Page Integer bPageObject 41 Forward Send Page bPageObject 42 43 If (bPageObject) Begin 44 Send Delete_Data 45 If (phoInvokingObject(Self)) Send DevMsg_Callback of (phoInvokingObject(Self)) Self 46 Else Send AppendText (psMessage(Self)) 47 End 48 End_Procedure 49 End_Object 50 51 Procedure DisplayMessage String message Handle hoInvokingObject 52 If (num_arguments = 2) Begin 53 Set phoInvokingObject to hoInvokingObject 54 Send Popup_Modal 55 End 56 Else Begin 57 Set psMessage of oMessage to message 58 Send Popup_Modal 59 End 60 End_Procedure 61 62 On_Key Key_Alt+Key_O Send KeyAction of oOK_Btn 63 64End_Object