|
发表于 2008-1-26 01:33:01
|
显示全部楼层
来自: 中国广西防城港
const
/ E4 E; ~9 q, M# _* w. T3 f$ W3 Y1 g WM_MAGNETISM = WM_USER + 10;
! i9 j' ~4 ]+ b6 C2 t9 M const . c/ K2 ~; o; h" M. _6 E3 i4 Q5 E
MT_CLOSEU = 1;
3 x0 n2 L: U F$ N c* _6 t MT_CLOSED = 2;
$ C3 C: T: A- i2 j9 a2 d# g5 z! [ MT_MOVE = 5; 1 E, t7 }: Z: K7 K
MT_CREATE = 6;
0 e! ^. e& P, c8 b. q1 L0 n MT_PRIOR = 7; # e2 y2 j& e- O) z0 ~' q
MT_NEXT = 8;
/ A. h. Y; r% }9 z/ [) o. k .......
( I+ U2 h' L- F- }1 u G Y:integer; 7 X$ Q8 [- C( z( K
procedure TReportMain.FormCreate(Sender: TObject); 6 d5 n2 \' f! h# `
begin 7 v8 s' M6 f) f' f6 N
y:=paintbox1.Height; ! p2 |: K/ s" u- V" X
end; 0 K3 ~: s$ E! L1 p. [
procedure TReportMain.Timer1Timer(Sender: TObject);
, V6 |; @2 k1 _ begin
, Q8 O# Y+ B; o3 m$ L, r7 F PaintBox1.Canvas.Font.Color := clBlue; 3 z- K K; h# h% [6 i ^4 z. z
PaintBox1.Canvas.TextOut(15,y,'dfdf);
; E7 q, i; k3 W# H' { PaintBox1.Canvas.TextOut(25,y+16,'fdf'); p' n$ C; r; j5 U: B# J
PaintBox1.Canvas.Font.Color := clgreen; 0 ~7 g8 `* \2 a0 {
PaintBox1.Canvas.TextOut(35,y+PaintBox1.Canvas.Font.Size+8+22,'ffd'); ' P7 `: [1 y9 J/ d- F4 D7 T
PaintBox1.Canvas.Font.Color := clred;
/ K+ i9 G. F4 r5 m4 g% c PaintBox1.Canvas.TextOut(5,y+PaintBox1.Canvas.Font.Size+8+40,'gfg');
; i# C( o( [) ?: }% ~0 y3 [ PaintBox1.Canvas.TextOut(25,y+PaintBox1.Canvas.Font.Size+8+58,'gfg'); ) E8 Y2 Z& r/ Y3 U
dec(y); 0 t5 h" v' {6 {/ l, u
if y<-(PaintBox1.Canvas.Font.Size+8)*2 then y:=paintbox1.Height+16; & \6 m( a+ } i
end; 4 {4 z3 r1 P9 E3 _
procedure TReportMain.PaintBox1Paint(Sender: TObject); 9 C* [7 x& U9 S4 F9 C! S
begin $ Q/ Z# u2 A/ {% p# w) U ?. s0 M& L
PaintBox1.Canvas.Font.Name:='隶书';
0 F/ ]9 s$ X* }9 R; H1 Q% k PaintBox1.Canvas.Font.Size:=12;
% ^4 F. _ z' ], r8 O PaintBox1.Canvas.Brush.Color :=clActiveBorder;
7 S. j8 R& i8 o9 r1 T' b# i PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width, PaintBox1.Height))
5 s/ B" {. k/ g* a end; |
评分
-
查看全部评分
|