Category : Recently Uploaded Files
Archive   : OBLIB.ZIP
Filename : OBLIBDEM.FSL
$ NE
Í
Ö @ P ° Í Í g Þ@ Þ6 a 860 nf0 Ô H 0
0 )
0 PX0A83A6 LIBENTRY WEP ÖÚ .ÿ
° ÿ¤ÿ Ü ÿÿ¤ÿ ÿÿ¤ÿ ò
/! 5 ÿ¤ÿ &2ÿX+x ÿÿ 4 ÿ 4 )x < )x ¤ÿ ÿ 2ÿ ÿ .ÿ
î ²þºþ ²þ²þâþ Ü ²þ²þâþ ²þÌþ D+ Ìþ Z)||þÌþ
|þ p&²þ,y tþâþ òÌþ /! x ->Q ²þâþ ²þâþ ò&þXÌþ+x âþ ¤&þXÄý+ âþ &þXºþ+x ²þâþ r²þ²þâþ ²þ
C ÿ þ ²þ ºþ Ìþ tþ âþ |þ xÿ Äý OBJECTTYPES .ÿ
8 = Úÿ ²ÿ
(²ÿ ªÿºÿ #ªÿ Æ <+x ªÿ ²ÿ ºÿ# Úÿ
( .ÿ
` o Æ a Y Î ±C ÿÿ Î º lÿÿÖ 4*< Î 7ÿ Â >ÿ ÿ ÿ .ÿ
x µ Æ ¢ ÿ Î ÿ -$$ÿ-*ÿ'ÿ $"c ÿÿ Î Ø l ÿÿÖ 4*< Î 7ÿ à >ÿ Î ö*ÿ&Öþ$ ö& þ$ &jþ$ 8 8 jþ ÿ þ Öþ ÿ ÿ ÿ *ÿ OBJECTNAME .ÿ
¸ â Æ 'Hÿô @ÿ Î "
@ÿ Æ 4+x Î ºÿÄÿÎÿØÿ Î 8 @ H P HÿPÿ*ÿ #*ÿ NHÿPÿºÿÄÿÎÿØÿ Pÿ @ XÎÿØÿ -$%A Æ <+x Hÿ Î Hÿ Hÿ Î HÿHÿ Î Hÿ - Hÿ *ÿ Pÿ ºÿ
Äÿ
Îÿ
@ÿ Øÿ
.ÿ
0 % Úÿ ²ÿ
(²ÿ ²ÿ ºÿ# Úÿ
( .ÿ
Úÿ Òÿ p JÒÿ Òÿ Úÿ
( .ÿ
¸ 5 Úÿ ÿ 4*<*ÿ 4*< ´ <+x " ÿ Úÿ *ÿ
BTNUP BTNDOWN
( .ÿ
` ' Úÿ ÿ <*< ´ 4+x Úÿ ÿ BTNUP
) .ÿ
Ð ` Úÿ ÿ 4*< ´"ÿ*ÿ "ÿ&ÿ'ÿô ´ <+x ´ <+x "ÿ*ÿ q"ÿ . ÿ ÿ "ÿ ÿ Úÿ *ÿ
BTNUP SELF
) .ÿ
p 8 Úÿ Òÿ
)Òÿ ´&Êÿ rÿ <*< Úÿ Êÿ Òÿ rÿ BTNUP
) .ÿ
h 0 Úÿ Òÿ
)Òÿ zÿ 4*< Úÿ Òÿ zÿ BTNUP
) .ÿ
\ Úÿ Æ A Æ <+x Òÿ Î Òÿ Òÿ Î ÒÿÒÿ Î Òÿ 6> Òÿ Úÿ
( .ÿ
Úÿ Òÿ Ø JÒÿ Òÿ Úÿ
( .ÿ
Úÿ -$&
Úÿ
( .ÿ
¸ > Úÿ ¼ <+x ÿ 4*<*ÿ 4*< Ä <+x " ÿ Úÿ *ÿ
BTNUP BTNDOWN
( .ÿ
` 0 Úÿ ÿ <*< Ä 4+x ¼ 4+x Úÿ ÿ BTNUP
) .ÿ
Ð i Úÿ ÿ 4*< Ä"ÿ*ÿ "ÿ&ÿ'ÿô Ä <+x ! Ä <+x "ÿ*ÿ q"ÿ ¼ <+x . ÿ ÿ "ÿ ÿ Úÿ *ÿ
BTNUP SELF
) .ÿ
p F Úÿ Òÿ
)Òÿ Ä&Êÿ rÿ <*< ` O>! rÿ Úÿ Êÿ Òÿ BTNUP
) .ÿ
h 0 Úÿ Òÿ
)Òÿ zÿ 4*< Úÿ Òÿ zÿ BTNUP
) .ÿ
Úÿ -$#
Úÿ
( .ÿ
¸ > Úÿ Ì <+x ÿ 4*<*ÿ 4*< Ô <+x " ÿ Úÿ *ÿ
BTNUP BTNDOWN
( .ÿ
` 0 Úÿ ÿ <*< Ô 4+x Ì 4+x Úÿ ÿ BTNUP
) .ÿ
Ð i Úÿ ÿ 4*< Ô"ÿ*ÿ "ÿ&ÿ'ÿô Ô <+x ! Ô <+x "ÿ*ÿ q"ÿ Ì <+x . ÿ ÿ "ÿ ÿ Úÿ *ÿ
BTNUP SELF
) .ÿ
p F Úÿ Òÿ
)Òÿ Ô&Êÿ rÿ <*< v O>! rÿ Úÿ Êÿ Òÿ BTNUP
) .ÿ
h 0 Úÿ Òÿ
)Òÿ zÿ 4*< Úÿ Òÿ zÿ BTNUP
) .ÿ
~ " Úÿ dÿ-ÿ'lÿ $" $ dÿ lÿ Úÿ ÿ OBJECTNAME
( .ÿ
Úÿ Úÿ
Úÿ Úÿ
. .ÿ
Úÿ -$%
Úÿ
/ .ÿ
Úÿ Úÿ
Úÿ Úÿ
) .ÿ
Úÿ Úÿ
Úÿ Úÿ
. .ÿ
Úÿ Úÿ
Úÿ Úÿ
) .ÿ
% .ÿ
% ð v¶ `³ X° P Hª @§ 8¤ "¡ ö à Ø Â º ¤ x p Z D} <z 4w t q òn Ük Ô Ì Ä ¼ ´ v 8 Î Æ ; # èpÀ ø
¸ ˸ Ë ZcBorland Standard File þ @ þ þ @ þ þ * þ þ þ þ þ ¥ Form UIManager UIContainer UIObject Page FormObj Box TableFrame Header Text Record Field
Bitmap Button þ + %ÿÿÿÿÿÿ1A) ( ! open( close( canArrive/ arrive/ setFocus( canDepart/ removeFocus( depart/ mouseEnter) mouseExit) mouseMove) mouseDown) mouseUp) mouseDouble) mouseRightDown) mouseRightUp) mouseRightDouble) keyPhysical* keyChar* action+ menuAction, timer1 pushButton( changeValue- calcField( run( newValue( proc( error0 status. mouseClick) Uses Type Var Const Proc ReadToClipboard CopyObjectToClip CutPreviewObject DoPreview OpenPreview þ ú^ ÿ Bÿÿ w 4 ÿÿ
" method ReadToClipboard(S String) Logical
Var
T Tcursor
B Binary
EndVar
T.Open("ObLib")
T.Edit()
If T.Locate("ObjectName", S) then
B = T."Object"
B.WriteToClipBoard("Borland Form Object", True)
Return(True)
else
Return(False)
endIf
endmethod
ReadToClipboard #L method CopyObjectToClip()
Var
F Form
Ui UiObject
TC TCursor
S String
B Binary
EndVar
B.ReadFromClipBoard("Borland Form Object")
{ read it from the clipboard }
{ Open The Binary Table }
TC.Open("ObLib")
TC.EDit()
S = ""
S.View("Please enter name")
If S.Size() > 1 Then
If TC.Locate("ObjectName",s) Then
MsgStop("Cannot Store", "An object of this name already exists")
Else
TC.insertrecord()
TC."ObjectName" = S
TC."ObjectType" = ObjectTypes
TC."Object" = B
TC.PostRecord()
EndIf
EndIf
TC.Close()
endmethod
CopyObjectToClip d Var
Ses Session
Ar Array[]String
Preview Logical
PreviewForm Form
ObCursor TCursor
endVar Var ý method open(var eventInfo Event)
Var
Ses Session
endVar
if eventInfo.isPreFilter()
then
; This code executes for each object on the form.
else
; This code executes only for the form.
Ses.Open()
Preview = False
endif
endmethod open $2 method CutPreviewObject()
Var
Ui UiObject
endVar
If Preview Then
Try
PreviewForm.EnumObjectNames(Ar)
Try
Ui.Attach(PreviewForm, Ar[3])
Ui.Select = True
PreviewForm.BringToTop()
SendKeys("%ET")
Onfail
endTry
Onfail
Endtry
endif
endmethod CutPreviewObject %»
method DoPreview()
Var
Ui UiObject
endVar
If Preview then
Try PreviewForm.Design() Onfail endtry
Try
CutPreviewObject()
If ReadToClipBoard(ObjectName) Then
Ui.Attach(Previewform, Ar[2])
Ui.Select = True
PreviewForm.BringToTop()
SendKeys("%EP")
PreviewForm.SetTitle("\"" +ObjectName+"\"" +" now in the clipboard")
EndIf
Onfail
EndTry
EndIf
BringToTop()
endmethod DoPreview &¬ method OpenPreview()
Var
x,y,w,h LongInt
Me Form
endVar
If not Preview Then
PreviewForm.Load("PREVIEW")
Preview = True
PreviewForm.GetPosition(x,y,w,h)
PreViewForm.SetPosition(4600,0,4800,6000)
Me.Attach(GetTitle())
Me.GetPosition(x,y,w,h)
Me.SetPosition(0,1000,w,h)
DoPreview()
Else
Preview = False
TRy Previewform.Design() Onfail endTry
Previewform.Save()
PreviewForm.Close()
endIf
endmethod OpenPreview Þ method close(var eventInfo Event)
Var
Ses Session
endVar
if eventInfo.isPreFilter()
then
; This code executes for each object on the form.
else
; This code executes only for the form.
endif
endmethod close Uses ObjectPal
endUses Uses &