|
发表于 2008-1-26 01:33:01
|
显示全部楼层
来自: 中国广西防城港
const
( d/ D3 m; @! \! U, C6 y WM_MAGNETISM = WM_USER + 10; 8 L* ~6 r" Z* }% F
const ; C6 a$ F, F$ u
MT_CLOSEU = 1; 5 X1 Y2 ]$ L' Q) @1 a: G
MT_CLOSED = 2; ' M, I" w: |& ?& w9 W4 f2 K
MT_MOVE = 5;
# C" y0 ]. L+ U% { MT_CREATE = 6; 3 M3 L+ o- T2 q0 q' _: n# D
MT_PRIOR = 7;
1 V- C. U7 K" n/ I" S MT_NEXT = 8; 0 Y8 g9 a6 M @
....... # f% S; g7 b1 l; @
Y:integer;
M* Z9 m- [$ F' J( k procedure TReportMain.FormCreate(Sender: TObject); + D$ C7 `, g. u J& r
begin
+ c* Z0 {' v' L3 K( r y:=paintbox1.Height; $ W, E z/ g* J0 ^ p# v& u
end;
! N5 Q# x% M6 V procedure TReportMain.Timer1Timer(Sender: TObject);
3 H5 K8 L8 Z2 }3 n" O begin - G0 Q$ s/ S M3 y- M6 p& k
PaintBox1.Canvas.Font.Color := clBlue; # w; H7 @* U# Z4 `
PaintBox1.Canvas.TextOut(15,y,'dfdf);
+ ~+ O$ _6 ?4 q3 c* G PaintBox1.Canvas.TextOut(25,y+16,'fdf'); , J! E/ U( t8 f) V8 }
PaintBox1.Canvas.Font.Color := clgreen; ( E% z+ v; p! R% S" ~* }- |
PaintBox1.Canvas.TextOut(35,y+PaintBox1.Canvas.Font.Size+8+22,'ffd'); ) q7 p3 j: N: ?/ E5 H
PaintBox1.Canvas.Font.Color := clred;
% y) S; g# k% {! o# `( ` PaintBox1.Canvas.TextOut(5,y+PaintBox1.Canvas.Font.Size+8+40,'gfg'); 8 I7 \# c" h/ v0 k$ H: J6 ^) H
PaintBox1.Canvas.TextOut(25,y+PaintBox1.Canvas.Font.Size+8+58,'gfg'); # \+ X$ ?# p7 m5 }6 f# o3 y) ?
dec(y); # N2 ?; W+ D' n, O
if y<-(PaintBox1.Canvas.Font.Size+8)*2 then y:=paintbox1.Height+16;
& W! A9 y+ p3 E$ b+ D! ^ end;
4 h: ]5 ?8 H* l; W* B c procedure TReportMain.PaintBox1Paint(Sender: TObject); ) m7 ]4 K9 B- p
begin
( o& b7 Z5 v( l PaintBox1.Canvas.Font.Name:='隶书';
3 L' [1 \5 {4 _. u9 ^' X PaintBox1.Canvas.Font.Size:=12;
# m6 c7 P0 ], u Z! g PaintBox1.Canvas.Brush.Color :=clActiveBorder;
" G ^3 H. V! j+ c0 S) C, F PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width, PaintBox1.Height)) 2 A3 F" [6 P6 F6 E; F$ X
end; |
评分
-
查看全部评分
|