Category : Recently Uploaded Files
Archive : OBLIB.ZIP
Filename : OBLIBDEM.FSL
Output of file : OBLIBDEM.FSL contained in archive : OBLIB.ZIP
$ 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 & Const
ThisFormHelp = "OL_"
endConst Const C- J ] I 5 T h ¶! v
°þ3= ¯ Ê Object Library Clipboard :WORK:OBTYPES.DB ] ObjectTypes PARADOX , < :WORK:OBLIB.DB ObjectType ObjectName PARADOX , ÿ o ÿÿ & & E I 5 ÿÿ +
* ÀÀÀ ÿÿÿ R ÿ ÿÿ
L + 2 ÿÿ Var
ObLib TCursor
endVar Var ï Û
z ÀÀÀ ÿÿÿ Bÿ Ý OBTYPES % ü P ^ ÿÿ D method status(var eventInfo StatusEvent)
DisableDefault
endmethod status )6
ÀÀÀ
ÿ l ÿÿ
x ÿÿ
x
*0
ÿ Ä ÿÿ i K Ê â ÿÿ É á
Object Types É ÿÿÿ
ÿ ÿÿ L x
´ ÿÿ
´
* * ÿÿÿÿ ÿ
ObjectTypes i ø ¦ e ÿÿ G
method mouseEnter(var eventInfo MouseEvent)
disabledefault
endmethod mouseEnter ø ¦
P + ÀÀÀ d Ì ÿ Û OBLIB | ^
^ ÿÿ D method status(var eventInfo StatusEvent)
DisableDefault
endmethod status
)6 ª
ÀÀÀ
ª
ÿ l ÿÿ
©
Z ÿÿ ©
Z
*0
ÿ Ä ÿÿ
i i Ï ¦ ÿÿ Ï ¥
Object's for: Ï ÿÿÿ
ÿ ÿÿ
L Z ©
´ ÿÿ
©
´
* * ÿÿÿÿ ÿ V ObjectName
i ¥ ² ÿÿ ? method arrive(var eventInfo MoveEvent)
Dopreview()
endmethod arrive G
method mouseEnter(var eventInfo MouseEvent)
DisableDefault
endmethod mouseEnter ¥
P + ÀÀÀ d Ì ÿ j ÿÿ L < F · ÿÿ (
z ÀÀÀ
ÿ j ÿÿ L ( ÿÿ
{
z ÀÀÀ ÿ b CbtnPaste1 r ¤ û ÿÿ method open(var eventInfo Event)
Dragging = False
btnUp.visible = True
btnDown.visible = True
btnIsDown = False
endmethod open t method mouseDown(var eventInfo MouseEvent)
btnUp.visible = False
btnIsDown = True
Dragging = True
endmethod mouseDown Ü method mouseUp(var eventInfo MouseEvent)
btnUp.visible = True
If NOT (btnIsDown AND self.hasMouse()) Then
btnIsDown = False
Return
Endif
btnIsDown = False
self.pushButton()
Dragging = False
endmethod mouseUp 4 Var
Dragging Logical
btnIsDown Logical
endVar Var ¶
method mouseEnter(var eventInfo MouseEvent)
If eventinfo.isleftDown() AND btnIsDown Then
btnUp.visible = False
Endif
Message("Read object from library to clipboard")
endmethod mouseEnter u method mouseExit(var eventInfo MouseEvent)
If eventInfo.isLeftDown() Then
btnUp.visible = True
Endif
endmethod mouseExit P
method pushButton(var eventInfo Event)
ReadToClipboard(ObjectName)
endmethod pushButton ~ |
{ ÿÿÿÿ ÿ btnDown ÿÿ }
P Ì BM v ( ÀÀÀ ÿ ÿ ÿÿ ÿ ÿ ÿ ÿÿ ÿÿÿ x x x ÿ÷ÿx ûûðx]ÝÝx ¿¿°x xøøøø ûûðxDDDx¿¿°x31xøøøø ûûðxx¿¿°x xøð ûûðxîæîx ¿° xDDDxøð ûðxx wxð øøðwwx xwwffîxøøøøðxDDDx x333x ÎÎ xxììw x îîîxDDDwwwwwwwwwww333 d ÿ btnUp ÿÿ ~
P Ì BM v ( ÀÀÀ ÿ ÿ ÿÿ ÿ ÿ ÿ ÿÿ ÿÿÿ è*¶ È@ wwwwwwwwwwÐí¬ø5ø ø"`ø ûûðø=Úø ¿¿°ñ-Zøøøøø ûûðúOMø¿¿°þKøøøøø ûûð ø¿¿°à¸øøð ûûðõÍ4ø ¿° 1øøð ûð©ø ùøð øøðùøÛ¿øøøøøð¿ø ªø ÎÎ »øììªø ß»øªÿÿÿÿÿÿÿÿÿÿø» ˪»d ÿ S CeBtnCopy3 ; ¤ ¤ ì ÿÿ method open(var eventInfo Event)
Dragging = False
btnUp.visible = True
btnDown.visible = True
btnIsDown = False
endmethod open t method mouseDown(var eventInfo MouseEvent)
btnUp.visible = False
btnIsDown = True
Dragging = True
endmethod mouseDown Ü method mouseUp(var eventInfo MouseEvent)
btnUp.visible = True
If NOT (btnIsDown AND self.hasMouse()) Then
btnIsDown = False
Return
Endif
btnIsDown = False
self.pushButton()
Dragging = False
endmethod mouseUp 4 Var
Dragging Logical
btnIsDown Logical
endVar Var ±
method mouseEnter(var eventInfo MouseEvent)
If eventinfo.isleftDown() AND btnIsDown Then
btnUp.visible = False
Endif
Message("Store Clipboard object in library")
endmethod mouseEnter u method mouseExit(var eventInfo MouseEvent)
If eventInfo.isLeftDown() Then
btnUp.visible = True
Endif
endmethod mouseExit F
method pushButton(var eventInfo Event)
CopyObjectToClip()
endmethod pushButton l
{ ÿÿÿÿ ÿ btnDown ÿÿ m
P Ì BM v ( ÀÀÀ ÿ ÿ ÿÿ ÿ ÿ ÿ ÿÿ ÿÿÿ """ xxwDDDxwwwx xpw xÿÿÿxwpðxÿÿÿxpÿ°x xÿwûðx"""xwx°°x x ÿpw ðxDDDxÿwp¿°x x ðxÿÿÿxÿ ¿°xÿÿÿx ðx xÿ¿°x"""x ÿ ðx xOð°xDDDxÿ ðx x°ÿÿÿx ÿÿÿx x"""wwwwwwwwwwx DDD d ÿ btnUp ÿÿ n
P Ì BM v ( ÀÀÀ ÿ ÿ ÿÿ ÿ ÿ ÿ ÿÿ ÿÿÿ w÷ UÕ]wwwwwwwwwwUÕ]øUÕ]øw÷ø UÕ]øðUÕ]øÿ°UÕ]øÿûðw÷wø°°UÕ]ø ÿ ðUÕ]øÿ¿°UÕ]ø ðw÷øÿ ¿°UÕ]ø ðUÕUøÿ¿°UÕ]ø ÿ ðw÷øOð°UÕ]øÿ ðUÕ]ø°UÕUø w÷øUÕ]øUÕ]ÿÿÿÿÿÿÿÿÿÿøUÕ] w÷UÕ]d ÿ Ã ÿÿ - ß ì Á ÿÿ ì á
ÀÀÀ
Store Object Àì ÿ Â ÿÿ
- Ý £ ÿÿ Ý á
ÀÀÀ
Read Object ÀÝ
ÿ Â ÿÿ - ÿ
Ý w _ ÿÿ A
method pushButton(var eventInfo Event)
OpenPreview()
endmethod pushButton Ý w
z ÿ ¾ ÿÿ K ² á ÿÿ ² á
ÀÀÀ
Preview ²
ÿ À ÿÿ - Ý Y _ ÿÿ A
method pushButton(var eventInfo Event)
MoveToPage(2)
endmethod pushButton Ý Y
z
ÿ ¿ ÿÿ < ² á ÿÿ ² á
ÀÀÀ
About ? ² ÿ j ÿÿ " L - < ³ 9 ÿÿ
z ÀÀÀ
ÿ m Box1 L ÿÿ w ý
z ÀÀÀ ÿ ÿÿ ! { ÿÿ {
P Ì BM¦ v ( Õ $ 0 ÀÀÀ ÿ ÿ ÿÿ ÿ ÿ ÿ ÿÿ ÿÿÿ Ì»wwwwwwwwwxÌöfgöfgvfffgxwöfgöfgvfffffg3ÿffxÿffxfffffffxffxffxffoÿÿffgffxffxfføöfgÿwwwwwffxwwxffxwwwwwwwxwwwwwwwwxwwxwwwwwwwwxÿÿwwwffxwwwxwwxöfgxffffxvffgxffxvffwöfgffxöfgÿöffwffxffxöfgÿöffwffxfffffxöfffgxffx3öffxfföfgffffgöfgffffxöfgffgöfgöffffffxffxöfgöffffffxvffffffxöfffffgffxÌÿffwÿffxöfffffffxöffffffgöfgffgÿffxöffffffxöfxÿfgöffffffxfffffffgfffffffxöfgffgöffxöfffÿöffgöfffÿöffxÿffxfffxffxffoÿfffxöfgffxffoÿfffxöffoÿfffgffoÿöffxöfgDöfgwwwwvfgöffgxÿffgöffgxÿffgffxfffxffxffxÿffxöfgffxffxÿffxöffxÿffgöfføÿögöfg ÿffffffffgöffwöfgöffwöfgffxÿfffgffxffxffgöfgffxffxffgöfgöfgöfoÿÿöfg ffffffffgÿffxöffxÿffxöfgffxöfgfgöfxffgwöfgöfgffxffgwöfgöfgöfgöfgwwwwwwöfgDöfffffffgffxÿffxffxÿffxöfxöfgffxöfgöfffwvfgÿffxöfgöfffwvfgöfgöffxöfffffffgÿffxÿöfffffffgffxffxffxffxöfgöfgöfxöfgöffffffgffxöfgöffffffgöfgÿffxöfffffffgffxÿffÿÿffxffwffxffwffxöfgöfgöfgöfgÿöffffffxffxöfgÿöffffffxöfgffxöfffffffgffx"ffgffxöfgffxöfgffxöfgöfgÿfgfgÿÿÿöfffxffgöfgÿÿÿöfffxÿffxffxöffÿÿÿöfgffgÌöfgffxöfgxÿffxöfgxÿffxöfgöfgffffxwwÿÿffxffgöffxwwÿÿffxffxÿffgöffxöfgfffxwöffxÿffxöffwöffxöffwöffxÿfgöfgöfffxffxÿffxöffwöffxffxÿffxffgöffgffgöfgöffgw3ÿffxöffxöffgwffgöffgwffgfgöfgöfgffxöfgwvffxöfffwvffxöfgwvffxöffwwfffgfffwwffxöffffwffgöfgöffffffgöffffffgffvfgÿfgffxöfffffgöffffffgöfffffgÿfffffffgöffffffxöfgffg öfgvfgÿffffffxÿffffffxffvfwffvfxÿfffffgöfoöfffgÿfffffgöfffföfgfffffgöfgffgÌöffvfgffoffgfföffgffvfxöfvfgÿfffgxÿffÿfffxÿfffgxÿfffÿffxÿfffgxÿffffxÿffvfgÿÿøÿÿøÿÿÿÿøöfvfxöfffgÿÿÿÿÿÿøÿÿÿøÿÿÿÿÿÿÿøÿÿxÿÿÿÿÿÿøÿÿø»ffffgöfvfxÿfffgDöfffxöfffxfffg UöfffxöfffxöffgÌÿfffxÿfffxöfffxDöffxfffxÿfffxDÿÿÿøÿÿÿøÿÿÿøf3ª d ÿ Æ ÿÿ K + 3 á ÿÿ 3 á
ÀÀÀ
Object Library À3 ÿ _ÿÿ" ! Æ À ß ÿÿ À "
P Ì BMö v ( @ 4 ÀÀÀ ÿ ÿ ÿÿ ÿ ÿ ÿ ÿÿ ÿÿÿ wwwwwwwwwwwxwwwwwwwwwwwwxwwwwwwwwwwwwx wxwxøøøøøøøøøøðwx wxðûûðû ûûûðwx¿¿°¿¿¿¿wwwwwwwwwwwwð ðwwwwwwwwwwww¿¿°¿¿¿¿pwwwwwwwwwwwwðûûðû ûûû ðwp w ðwxøøøøøøøøwðûûðû ûûû ðww¿¿°¿¿¿¿ðwp øwð ðwwÿÿÿÿÿwpwwÿÿÿÿÿøw÷÷÷÷÷ ðwwtDDDOÿw ¿¿¿ wÿÿÿÿÿøwøøøøø ðwtDDDOÿwwwwww¯¯ÐPwÿÿÿÿÿøwwwwwwwøøøøø ðwtDDDOÿwwwwwww¿¿¿ÐPwÿÿÿÿÿøw øøøøø ðwtDDDOÿwøøøøøøϯ¯ÐPwÿÿÿÿÿøwøøøøø÷üúúððwtDDDOÿwø øø Pwÿÿÿÿÿøw Ì
àwÿÿÿ wø òòøø Ì ÐPwÿÿÿðøøw
àwôDOwø ø øø ÐPwÿÿÿ øøøw îà
àwp wøð¹¹ øðî Àø ÐPwxøøøøøøøx î
êàwøøðøøøø Àøø Ì ÐPwp øðwxøøøøøøðøø wÙPwx wøøøð wxøøð»°øøøøwwx »»wøøøøøðwxøøø ¿ûøðøøww ¿û xøøøð»°øðøøw wøøøøøøøøøøøwx d ÿ j ÿÿ L ! <
] ÿÿ ?
z ÀÀÀ ÿ ! btnOK % " Z ü ½ R ¿ ÿÿ o method open(var eventInfo Event)
btnUp.visible = True
btnDown.visible = True
btnIsDown = False
endmethod ` method mouseDown(var eventInfo MouseEvent)
btnUp.visible = False
btnIsDown = True
endmethod Ç method mouseUp(var eventInfo MouseEvent)
btnUp.visible = True
If NOT (btnIsDown AND self.hasMouse()) Then
btnIsDown = False
Return
Endif
btnIsDown = False
self.pushButton()
endmethod mouseUp Var
btnIsDown Logical
endVar method mouseEnter(var eventInfo MouseEvent)
If eventinfo.isleftDown() AND btnIsDown Then
btnUp.visible = False
Endif
endmethod s method mouseExit(var eventInfo MouseEvent)
If eventInfo.isLeftDown() Then
btnUp.visible = True
Endif
endmethod Á
method pushButton(var eventInfo Event)
If Preview Then
Preview = False
TRy Previewform.Design() Onfail endTry
Previewform.Save()
PreviewForm.Close()
EndIf
Close()
endmethod pushButton # 4 &
{ ÿÿÿÿ ÿ Å btnDown " $ $ # ´ I ÿÿ ± I $
Ì BMV v ( ? ' à ÀÀÀ ÿ ÿ ÿÿ ÿ ÿ ÿ ÿÿ ÿÿÿ wx ww wwwx wwww DGwwwx "Dwwww ¢"$Gwwwx """Dwwwwx """$Gwwwx """"Dwwwwx """"$Gwwwx """""Dwwwwx ""*¢"$Gwww ""Gª""Dwwwxx ""Gz¢"$Gwww ""Hª""Dwwwxx ¢"H¢"$www ¢"Hª"$Hwwwxx ªª¢"Dwww ª"$Hwww ¢"Dww ª"$Hww ¢"Dx ª"$ ¢$ ª$ ¨ wwwwwwwwwwwwwwwwwwwwwwwwwwwwww d ÿ à btnUp " # $ ´ I ÿÿ ± I %
Ì BMV v ( ? ' à ÀÀÀ ÿ ÿ ÿÿ ÿ ÿ ÿ ÿÿ ÿÿÿ wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwøwøwøwøwøwxwøwwwøDGwxwø"Dwwwø¢"$Gwxwø"""Dwwwø"""$Gwxwø""""Dwwwø""""$Gwx wø"""""Dwwwø""*¢"$Gwxwø""Gª""Dwwwø""Gz¢"$Gw wø""Gxª""Dwxwø¢"Gx¢"$wwwø¢"Hª"$Gwxwøªª(¢"Dww wøª"$Gwxwø¢"Dwwwøª"$Gwwø¢"Dwwøª"$wwø¢$wwøª$wwø¢wøwøwøwøwÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø d ÿ ± ObjectTypes " % È å
¦ ÿÿ
¦
P + ÿÿ d Ì ÿ o ÿÿ E & I 5 ÿÿ ' +
" ÀÀÀ ÿ Å ÿÿ & ( ) ' V Z Ú ÿÿ ¼ á
ÀÀÀ
Object Library À¼ ÿ ¢ÿÿ & ) ' ( -  ¤ Þ ÿÿ ¤ u
ÀÀÀ ë
This utility stores objects to tables as a Binary Blob. It uses the cliboard to read from and paste too when working. Because the objects are stored as clip objects then all nested objects and code are stored as well. This is a better approach than using Paradox prototypes as nested objects can be stored.
This form is taken from a set of utilities I Call "APP Manager". Over the next few months I will be loading various sections of this up onto compuserve. Please note these are Entirely Free to use and distribute. All I would ask is that you leave this information in the form so as to credit me for the work Thanks....
Peter Maude
INTERNET : [email protected]
CServe : 100125,3636
"We Wants a Proper OOP Para whats it " À¤
ÿ À ÿÿ & ( ) U a _ ÿÿ A
method pushButton(var eventInfo Event)
MoveToPage(1)
endmethod pushButton * a
z
* ÿ » ÿÿ ) * * W R ³ á ÿÿ ³ á
) ÀÀÀ
Back ³ þ 6 2/$Ð 2/$Ð þ t ´ ¼ " Arial 7-! Ã7- < 7 ÎJ´ ¼ " Small Fonts Ã7- < 7 ÎJþ þ # S&? C T ê \ ) ½ Z
x À î v ?« è+
- ¨
À j ¡ Ø
T
= Q *
û Ó
ÿ { ¼'=(½¹îê CONTAINER ×¹ ÿÿx« ACTIVE ê ÿÿx« TP LASTMOUSECLICKED = ÿÿx« SUBJECT lP ÿÿx« À¼ LASTMOUSERIGHTCLICKED © ÿÿx« C? SELF Õ¼ ÿÿx« #FORM1 ÿè ÿÿx.@< cÝÔ #PAGE23 ó* ÿÿxÿ #BUTTON28 W= ÿÿx* Y #TEXT29 Kj ÿÿxW #TEXT27 ÿÿx* #TEXT26 ØÀ ÿÿx* #PAGE2 óë ÿÿxÿ #BOX10 ö,
ÿÿx vr OBJECTTYPES _? ÿÿx, £ BTNOK r& ÿÿx,§ § £Ð®ÐÌ BTNUP ¹% ÿÿx ) % ûBTNDOWN èÌ$ ÿÿx #BOX17 û ÿÿx, \ X BOX1 > % ÿÿx ¬
#BOX31 2 h Q ÿÿx> #BITMAP34 2 { " ÿÿx> #TEXT32 2 À ¨ ÿÿx> å
#BITMAP30 2 í Ó ÿÿx> #BOX16
ÿÿx, ë#BOX15
A
*
ÿÿx
#BUTTON24 5
n
T
ÿÿxA
ú #TEXT25 b
ÿÿxn
#BUTTON3 5
Å
¬
ÿÿxA
¢ #TEXT4 ¹
ï
Ø
ÿÿxÅ
#TEXT13 5
ÿÿxA
#TEXT12 5
E - ÿÿxA
CEBTNCOPY3 5
w X l ÿÿxA
ì à! » J Õ» · BTNUP k ¤ n ÿÿxw ê æ 8!BTNDOWN k Ó · m ÿÿxw
CBTNPASTE1 5
æ | ÿÿxA
Ñ# Å%é I /#üI E BTNUP ù 2 ~ ÿÿx x t %BTNDOWN ù a E } ÿÿx Ñ Í OBLIB t ÿÿx, Ñ #RECORD9 º ¡ ÿÿx Z
V
'
OBJECTNAME ® ì Í ÿÿxº ¼' d( #HEADER8
ÿ ÿÿx #TEXT20
C
+
ÿÿx
¶
²
OBTYPES r
V
ÿÿx, ¶
) #RECORD11 f
ÿÿxr
OBJECTTYPES
Ò
²
ÿÿx
°) #HEADER6 f
þ
å
ÿÿxr
#TEXT18 ò
) ÿÿxþ
] THISFORMHELP YOL_ NFILEBROWSERINFO s }~ ÿ L ä \ 6 ØÀÌ ð X ¶ Y ¶ W ¶ kH ¶ WINDOWSTYLE ¶ ALLOWABLETYPES ¶ SELECTEDTYPE ¶ FILEFILTERS ALIAS PATH
PATHONLY ]
H
W
Y
X
WINDOWSTYLE
ALLOWABLETYPES
SELECTEDTYPE FILEFILTERS ALIAS PATH PATHONLY REPORTOPENINFO ò üà ÿ ª c ~ W?K o X ¶ Y ¶ W ¶ H ¶ NAME MASTERTABLE QUERYSTRING RESTARTOPTIONS ¤ >
H
W
Y
X NAME MASTERTABLE QUERYSTRING RESTARTOPTIONS (REPORTPRINTINFO # ÿ ¡ uÿs % èº 7 ÓOa f NAME MASTERTABLE QUERYSTRING RESTARTOPTIONS ¤ PRINTBACKWARDS
MAKECOPIES PANELOPTIONS ¤ NCOPIES ¤ STARTPAGE ¶ ENDPAGE
¶
PAGEINCREMENT ¤ XOFFSET ¶ YOFFSET
¶ ORIENT ¤ ¢ NAME MASTERTABLE QUERYSTRING RESTARTOPTIONS PRINTBACKWARDS MAKECOPIES PANELOPTIONS NCOPIES
STARTPAGE
ENDPAGE PAGEINCREMENT
XOFFSET
YOFFSET ORIENT e FORMOPENINFO ; E ÿ Ý ¬ Ç ¸ óX ¶ Y ¶ W ¶ H ¶ NAME MASTERTABLE QUERYSTRING WINSTYLE ¶ 8
H
W
Y
X NAME MASTERTABLE QUERYSTRING
WINSTYLE 3SES e&AR [ & uPREVIEW Æ PREVIEWFORM Î OBCURSOR 8% OBLIB v%R BTNISDOWN ´ DRAGGING ¼ BTNISDOWN Ä DRAGGING Ì x$ BTNISDOWN Ô ÿ READTOCLIPBOARD " n METHOD_SELF S A*¡5* METHOD_SELF
n S ÿ COPYOBJECTTOCLIP # n METHOD_SELF± *s* M* Y* ( METHOD_SELF n3ÿ OPEN n METHOD_SELFE EVENTINFOB Ð * º METHOD_SELF
n EVENTINFO EÔ>ÿ CUTPREVIEWOBJECT $ n METHOD_SELFè * _ METHOD_SELF neäÿ DOPREVIEW % n METHOD_SELFy ¦* é METHOD_SELF n uÿ ² OPENPREVIEW & n METHOD_SELFã* Ë*×*¿* u METHOD_SELF nÿÿ CLOSE n METHOD_SELFE EVENTINFO ð* METHOD_SELF
n EVENTINFO E&W
PUSHBUTTON n METHOD_SELFE EVENTINFO6 Ê ´ METHOD_SELF
n EVENTINFO E²2 OPEN n METHOD_SELFE EVENTINFOâ p Z METHOD_SELF
n EVENTINFO E MOUSEDOWN n METHOD_SELFZ EVENTINFO METHOD_SELF
n EVENTINFO ZYÞ MOUSEUP n METHOD_SELFZ EVENTINFO/ À ª METHOD_SELF
n EVENTINFO Z§+
MOUSEENTER n METHOD_SELFZ EVENTINFOØ l V METHOD_SELF
n EVENTINFO ZRÔ R MOUSEEXIT n METHOD_SELFZ EVENTINFO METHOD_SELF
n EVENTINFO Zû
PUSHBUTTON n METHOD_SELFE EVENTINFO/ Ã METHOD_SELF
n EVENTINFO En
PUSHBUTTON n METHOD_SELFE EVENTINFO× k U METHOD_SELF
n EVENTINFO EÅ
PUSHBUTTON n METHOD_SELFE EVENTINFO ý METHOD_SELF
n EVENTINFO Ew OPEN n METHOD_SELFE EVENTINFO' µ METHOD_SELF
n EVENTINFO Ew MOUSEDOWN n METHOD_SELFZ EVENTINFOÉ \ F METHOD_SELF
n EVENTINFO Zw MOUSEUP n METHOD_SELFZ EVENTINFOp ! ë METHOD_SELF
n EVENTINFO Zw
MOUSEENTER n METHOD_SELFZ EVENTINFO! ©! ! METHOD_SELF
n EVENTINFO Zw " MOUSEEXIT n METHOD_SELFZ EVENTINFO½! P" :" METHOD_SELF
n EVENTINFO Zw
PUSHBUTTON n METHOD_SELFE EVENTINFOd" ø" â" METHOD_SELF
n EVENTINFO E OPEN n METHOD_SELFE EVENTINFO # # # METHOD_SELF
n EVENTINFO E MOUSEDOWN n METHOD_SELFZ EVENTINFO®# A$ +$ METHOD_SELF
n EVENTINFO Z MOUSEUP n METHOD_SELFZ EVENTINFOU$ æ$ Ð$ METHOD_SELF
n EVENTINFO Z
MOUSEENTER n METHOD_SELFZ EVENTINFOú$ % x% METHOD_SELF
n EVENTINFO Z l& MOUSEEXIT n METHOD_SELFZ EVENTINFO¢% 5& & METHOD_SELF
n EVENTINFO Z
PUSHBUTTON n METHOD_SELFE EVENTINFOI& Ý& Ç& METHOD_SELF
n EVENTINFO E STATUS n METHOD_SELFÂ EVENTINFOñ& ' k' METHOD_SELF
n EVENTINFO § + ì ARRIVE n METHOD_SELFÖ EVENTINFO' )( ( METHOD_SELF
n EVENTINFO Ö''ì
MOUSEENTER n METHOD_SELFZ EVENTINFOA( Õ( ¿( METHOD_SELF
n EVENTINFO Zr
STATUS n METHOD_SELFÂ EVENTINFOé( y) c) METHOD_SELF
n EVENTINFO ÂÒ
MOUSEENTER n METHOD_SELFZ EVENTINFO) !* * METHOD_SELF
n EVENTINFO Z T ¤ÿ% B ÿNf*F xÿ UI ÿx TC âþ% S Ìþ B ºþN SES ºÿe UI ÿx UI ÿx X ºÿ¶ Y Äÿ¶ W Îÿ¶ ³*H Øÿ¶ ME Pÿ SES ºÿe Ör ÿ @ @ º7 Ð7 r " 7 7 · #¿ 7 ¿ 7 J 7 7 x $7 7 %7 7 & 7 7 ( F7 F7 [ r &7 &7 J r p7 p7 J r P7 P7 J r 7 7 B Ü7 Ü7 J r| S 7 S 7 Õ 7 Õ 7 g <
7 <
7 ¹ õ
7 õ
7 |7 |7 l è7 è7 h rl | 7 | 7 þ 7 þ 7 g e
7 e
7 ¹ 7 7 ¥ 7 ¥ 7 l 7 7 B r : 7 : 7 B r ê7 ê7 P r& ñ7 ñ7 y j7 j7 ^ È7 È7 ° x7 x7 y ñ7 ñ7 l ]7 ]7 r ¡7 ¡7 P 0ObLib
ObjectNameObjectBorland Form Object Please enter name Cannot Store%An object of this name already exists
ObjectType%ET%EP" now in the clipboardPREVIEW!Store Clipboard object in library %Read object from library to clipboard
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/