1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
| *Dikey Yazı Kaydırma Programı
*Kaydırma alanını ayarlamak için container'ın boyutları ve yerini değiştirin.
*Yazıyı XMES'e yerleştirin.
XSB=chr(13)+chr(13)
XMES="Kayan yazı programı"+XSB+"fox4um için hazırlandı"+XSB+"2010"+XSB+"birol"
public ofrmPHAK
ofrmPHAK=createobject("cfrmPHAK")
ofrmPHAK.addobject("OCN1","CCN1")
ofrmPHAK.OCN1.addobject("OLB2","CLB1")
ofrmPHAK.OCN1.addobject("OLB1","CLB1")
ofrmPHAK.OCN1.OLB2.top=2
ofrmPHAK.OCN1.OLB2.left=2
ofrmPHAK.OCN1.OLB1.forecolor=rgb(80,80,80)
ofrmPHAK.OCN1.OLB2.forecolor=rgb(180,180,180)
ofrmPHAK.addobject("OTM1","CTM1")
ofrmPHAK.show
return
*****************************
define class cfrmPHAK as form
autocenter=.t.
width=300
height=200
picture=home(4)+"GIFS\morphfox.gif"
showwindow=2
borderstyle=0
alwaysontop=.t.
desktop=.t.
caption="Program Hakkında"
maxbutton=.f.
minbutton=.f.
visible=.t.
PROCEDURE KEYPRESS
LPARAMETERS nKeyCode,nShiftAltCtrl
IF nKeyCode=27
THISFORM.RELEASE()
ENDIF
enddefine
******************************
define class CCN1 as container
*top=197
top=0
left=25
height=ofrmPHAK.height-this.top
width=ofrmPHAK.width-50
visible=.t.
backstyle=0
bordercolor=rgb(255,255,255)
borderwidth=0
enddefine
**************************
define class CLB1 as label
top=0
left=0
width=ofrmPHAK.OCN1.width
height=ofrmPHAK.OCN1.height
backstyle=0
bordercolor=rgb(255,255,255)
forecolor=rgb(0,0,0)
fontsize=12
fontbold=1
fontname="Verdana"
caption=XMES
visible=.t.
enddefine
**************************
define class CTM1 as timer
interval=25
procedure init
with ofrmPHAK.OCN1.OLB1
ofrmPHAK.OCN1.OLB1.top=ofrmPHAK.OCN1.height
if .height<fontmetric(1,.fontname,.fontsize)*(memlines(.caption))
.height=fontmetric(1,.fontname,.fontsize)*(memlines(.caption))
endif
endwith
procedure timer
with ofrmPHAK.OCN1.OLB1
if .top<0-fontmetric(1,.fontname,.fontsize)*(memlines(.caption))
.top=ofrmPHAK.OCN1.height
else
ofrmPHAK.OCN1.OLB2.top=.top-1+2
ofrmPHAK.OCN1.OLB1.top=.top-1
endif
endwith
enddefine |
]]>