u n i t   U n i c o d e W i n A p i F o r m ; 
 
 
 
 i n t e r f a c e 
 
 
 
 u s e s 
 
     W i n d o w s ,   M e s s a g e s ,   S y s U t i l s ,   V a r i a n t s ,   C l a s s e s ,   G r a p h i c s ,   C o n t r o l s ,   F o r m s , 
 
     D i a l o g s ,   S t d C t r l s ; 
 
 
 
 t y p e 
 
     T F o r m 3 0   =   c l a s s ( T F o r m ) 
 
         b t n M e s s a g e A :   T B u t t o n ; 
 
         b t n M e s s a g e W :   T B u t t o n ; 
 
         b t n T e x t O u t :   T B u t t o n ; 
 
         p r o c e d u r e   b t n M e s s a g e A C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
         p r o c e d u r e   b t n M e s s a g e W C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
         p r o c e d u r e   b t n T e x t O u t C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
     p r i v a t e 
 
         {   P r i v a t e   d e c l a r a t i o n s   } 
 
     p u b l i c 
 
         {   P u b l i c   d e c l a r a t i o n s   } 
 
     e n d ; 
 
 
 
 v a r 
 
     F o r m 3 0 :   T F o r m 3 0 ; 
 
 
 
 i m p l e m e n t a t i o n 
 
 
 
 { $ R   * . d f m } 
 
 
 
 p r o c e d u r e   T F o r m 3 0 . b t n M e s s a g e A C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
 b e g i n 
 
     M e s s a g e B o x A   ( H a n d l e ,   ' 							  		' , ' C a p t i o n   ' ,       M B _ O K ) ; 
 
 e n d ; 
 
 
 
 p r o c e d u r e   T F o r m 3 0 . b t n M e s s a g e W C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
 v a r 
 
     			:   W i d e S t r i n g ; 
 
 b e g i n 
 
     			  : =   ' 					  	' ; 
 
     M e s s a g e B o x W   ( H a n d l e ,   P W C h a r   ( 			) ,   ' C a p t i o n ' ,         M B _ O K ) ; 
 
 e n d ; 
 
 
 
 p r o c e d u r e   T F o r m 3 0 . b t n T e x t O u t C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
 v a r 
 
     w s :   W i d e S t r i n g ; 
 
 b e g i n 
 
     w s   : =   ' 					  	' ; 
 
     C a n v a s . F o n t . S i z e   : =   2 0 ; 
 
     T e x t O u t W ( C a n v a s . H a n d l e ,   1 0 4 ,   2 2 4 ,   P W C h a r ( w s ) ,   L e n g t h   ( w s ) ) ; 
 
 e n d ; 
 
 
 
 e n d . 
 
 