ÿþ N i n i e j s z y d a r m o w y e b o o k z a w i e r a f r a g m e n t
p e Bn e j w e r s j i p o d t y t u Be m :
D e l p h i 3 1 p r z y d a t n y c h p r o g r a m ó w
A b y p r z e c z y t a i n f o r m a c j e o p e Bn e j w e r s j i , k l i k n i j t u t a j
D a r m o w a p u b l i k a c j a d o s t a r c z o n a p r z e z
D a r m o w e - E b o o k i
N i n i e j s z a p u b l i k a c j a m o |e b y k o p i o w a n a , o r a z d o w o l n i e
r o z p r o w a d z a n a t y l k o i w y Bc z n i e w f o r m i e d o s t a r c z o n e j p r z e z
W y d a w c . Z a b r o n i o n e s j a k i e k o l w i e k z m i a n y w z a w a r t o [c i
p u b l i k a c j i b e z p i s e m n e j z g o d y w y d a w c y . Z a b r a n i a s i j e j
o d s p r z e d a |y , z g o d n i e z r e g u l a m i n e m W y d a w n i c t w a Z Bo t e M y [l i .
© C o p y r i g h t f o r P o l i s h e d i t i o n b y Z l o t e M y s l i . p l
D a t a : 0 7 . 0 2 . 2 0 0 7
T y t u B: D e l p h i 3 1 p r z y d a t n y c h p r o g r a m ó w ( f r a g m e n t u t w o r u )
A u t o r : P r z e m y s Ba w P i s u l a
P r o j e k t o k Ba d k i : M a r z e n a O s u c h o w i c z
K o r e k t a : S y l w i a F o r t u n a
S k Ba d : A n n a P o p i s - W i t k o w s k a
I n t e r n e t o w e W y d a w n i c t w o Z Bo t e M y [l i
N e t i n a S p . z o . o .
u l . D a s z y Ds k i e g o 5
4 4 - 1 0 0 G l i w i c e
W W W : w w w . Z l o t e M y s l i . p l
E M A I L : k o n t a k t @ z l o t e m y s l i . p l
W s z e l k i e p r a w a z a s t r z e |o n e .
A l l r i g h t s r e s e r v e d .
S P I S T R E ZC I
W S T P . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5
P R O G R A M M E M O , E D I T , L I S T A , C O M B O . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 8
P R O G R A M A N K I E T A . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 4
P R O G R A M K S I {K A A D R E S O W A . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 8
P R O G R A M M A I N M E N U I P O P U P M E N U . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3 5
P R O G R A M P R Z E G L D A R K A G R A F I K I I S L A J D Ó W . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 4 7
P R O G R A M K O L O R Y F O R M A T K I . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 6 0
P R O G R A M O D C Z Y T K O D Ó W I N U M E R Ó W K L A W I S Z Y . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 6 6
P R O G R A M K A L K U L A T O R . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 7 0
P R O G R A M Z G A D U J - Z G A D U L A . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 8 9
P R O G R A M O D T W A R Z A C Z M U Z Y C Z N Y . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 0 0
W AA S N Y K O M P O N E N T T D Z I A L A N I A . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 1 0
P R O G R A M W Y K O R Z Y S T U J C Y K O M P O N E N T T D Z I A L A N I A . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 1 6
P R O G R A M P R Z E C I G N I J I U P U Z . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 2 1
P R O G R A M K O L O R Y R G B . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 2 6
P R O G R A M T W O R Z E N I E O B I E K T Ó W . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 3 1
P R O G R A M R Ó W N A N I E K W A D R A T O W E O B I E K T O W O . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 4 0
P R O G R A M A K T Y W N A F O R M A . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 5 0
P R O G R A M B A Z A D A N Y C H F I R M Y . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 5 5
P R O G R A M T W O R Z E N I E , K O P I O W A N I E , U S U W A N I E . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 7 0
P R O G R A M R Y S O W A N I E S A M O C Z Y N N E . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 7 5
P R O G R A M B A Z A D A N Y C H . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 8 0
P R O G R A M B U D U J E M Y I N T R O P R O G R A M U . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1 9 6
P R O G R A M Z M I E C T A P E T , O T W Ó R Z I N N Y P R O G R A M . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 0 0
P R O G R A M O D T W A R Z A C Z F I L M Ó W . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 0 5
P R O G R A M A R K U S Z K A L K U L A C Y J N Y . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 1 3
P R O G R A M G I E AD A S A M O C H O D O W A . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 2 1
P R O G R A M K O M U N I K A T O R S I E C I O W Y . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 3 1
P r o g r a m K l i e n t . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 3 1
P r o g r a m S e r v e r . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 3 6
P R O G R A M P R Z E G L D A R K A S T R O N W W W . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 4 2
P R O G R A M E D Y T O R T E K S T U . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 5 4
P R O G R A M E D Y T O R H T M L . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 7 2
P R O G R A M R Y S O W A N I E M Y S Z K . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 7 7
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 4
P r z e m y s Ba w P i s u l a
W s t p
W s t p
N i n i e j s z a p u b l i k a c j a p r z e d s t a w i a 3 0 p r o g r a m ó w s t w o r z o n y c h
w p o p u l a r n y m [r o d o w i s k u p r o g r a m i s t y c z n y m , j a k i m j e s t D e l p h i .
P r z e z n a c z o n a j e s t d l a p o c z t k u j c y c h , a l e i t a k i c h , k t ó r z y m a j j u |
p e w n e d o [w i a d c z e n i e w p r o g r a m o w a n i u .
P u b l i k a c j a z a k Ba d a , |e C z y t e l n i k z a p o z n a B s i z p o d s t a w a m i O b j e c t
P a s c a l a o r a z u m i e p o r u s z a s i w [r o d o w i s k u D e l p h i . D l a t e g o n i e
b d o m a w i a B t u t a j t y c h s p r a w .
O p i s t y c h r z e c z y m o |n a z n a l e z w w i e l u k s i |k a c h i p o d r c z n i k a c h .
E b o o k t e n m a n a c e l u p r z e d s t a w i C z y t e l n i k o w i p r a k t y c z n e
z a s t o s o w a n i e p o s i a d a n e j w i e d z y .
K s i |k a p r z e d s t a w i a p r o g r a m y w r a z z i l u s t r a c j a m i , k o d e m
zr ó d Bo w y m i k o m e n t a r z a m i .
P u b l i k o w a n e t u t a j p r o g r a m y m o g s t a n o w i w s t p d o d a l s z e j i c h
r o z b u d o w y .
N a p o c z t k u k a |d e g o p r o g r a m u C z y t e l n i k z n a j d z i e w y j a [n i e n i e j e g o
d z i a Ba n i a , o p i s z a s t o s o w a n y c h k o m p o n e n t ó w , a d a l e j s z c z e g ó Bo w e
w y j a [n i e n i e d z i a Ba n i a w s z y s t k i c h u |y t y c h i n s t r u k c j i , f u n k c j i
i p r o c e d u r .
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 5
P r z e m y s Ba w P i s u l a
Z n a j d u j e s i t u t a j r ó w n i e | s p o s ó b t w o r z e n i a w Ba s n e g o k o m p o n e n t u ,
a p l i k a c j i i n t e r n e t o w y c h i z a s a d y p r o g r a m o w a n i a o b i e k t o w e g o .
S p r a w y p o d s t a w o w e :
1 . D o k o m p o n e n t u w k o d z i e p r o g r a m u o d w o Bu j e m y s i p o p r z e z j e g o
w Ba [c i w o [ N a m e .
D l a t e g o j e [l i j z m i e n i s z z d o m y [l n e j n a d a n e j p r z e z D e l p h i n a
s w o j t o p a m i t a j , a b y [ j e j k o n s e k w e n t n i e u |y w a B d o k o Dc a .
J e [l i o d w o Bu j e s z s i d o k o m p o n e n t u z n a j d u j c e g o s i w i n n e j
f o r m i e , a l e w t y m s a m y m p r o g r a m i e , t o j e g o n a z w N a m e
p o p r z e d z a j n a z w t e g o f o r m u l a r z a .
2 . W Ba [c i w o [c i k o m p o n e n t ó w d o s t p n e n a z a k Ba d c e P r o p e r t i e s
m o |n a z m i e n i a w c z a s i e p r o j e k t o w a n i a p r o g r a m u l u b w c z a s i e
j e g o d z i a Ba n i a ( w k o d z i e p r o g r a m u ) . W c z a s i e p r o j e k t o w a n i a p o
p r a w e j s t r o n i e o d n a z w y w p i s u j e s z j e j w a r t o [ l u b k l i k a s z
w s t r z a Bk i w y b i e r a s z j z l i s t y . P r z y n i e k t ó r y c h z n i c h j e s t
p r o s t o k c i k z t r z e m a k r o p k a m i , w i c k l i k a s z n a n i e g o i r o z w i j a s i
e d y t o r , w k t ó r y m w p i s u j e s z w a r t o [c i .
3 . Z d a r z e n i a d l a d a n e g o k o m p o n e n t u g e n e r u j e m y p o p r z e j [c i u n a
z a k Ba d k E v e n t s . Z a z n a c z a s z t a m p o l e w k o l u m n i e p o p r a w e j
s t r o n i e o d n a z w y d a n e g o z d a r z e n i a , j e g o k o l o r z m i e n i s i n a b i a By ,
a n a s t p n i e k l i k a s z w n i e d w a r a z y . N a z w y p r o c e d u r D e l p h i
g e n e r u j e a u t o m a t y c z n i e . P a m i t a j , a b y [ n i c w n i c h n i e z m i e n i a B!
T w o i m z a d a n i e m j e s t w p i s a n i e i n s t r u k c j i m i d z y B e g i n a E n d
i e w e n t u a l n e z a d e k l a r o w a n i e s t a By c h z m i e n n y c h , t a b l i c i t p . n a d
s Bo w e m B e g i n , a p r z e d P r o c e d u r e N a z w a ( p a r a m e t r y ) .
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 6
P r z e m y s Ba w P i s u l a
4 . W n i n i e j s z e j p u b l i k a c j i , a b y n i e p o w t a r z a d w a r a z y t e g o s a m e g o ,
n i e b d p r z e d s t a w i a B t r e [c i p r o c e d u r o s o b n o d l a k a |d e g o
k o m p o n e n t u , t y l k o u j m j e w s z y s t k i e r a z e m p o d a j c c a By k o d
zr ó d Bo w y m o d u Bu l u b m o d u Bó w , j e [l i b d z i e i c h k i l k a .
O b o k k a |d e j p r o c e d u r y z n a j d o w a s i b d z i e o p i s , c o t o z a
p r o c e d u r a i d o j a k i e g o k o m p o n e n t u s i o d n o s i . W y j a [n i e n i a
i k o m e n t a r z e p o d a n e b d n a k o Dc u l u b z b o k u f u n k c j i l u b
p r o c e d u r y .
5 . J e [l i c h c e s z u |y w a p o l s k i c h l i t e r w D e l p h i , t o [c i g n i j p l i k
P o l s k a k l a w i a t u r a z e s t r o n y h t t p : / / w w w . b o r l a n d . p l
i z a i n s t a l u j g o n a s w o i m k o m p u t e r z e . Z w r ó t y l k o u w a g n a
n u m e r a c j , a b y [ z a i n s t a l o w a B p l i k p r z e z n a c z o n y d o o d p o w i e d n i e j
w e r s j i .
6 . J a k z d o b y D e l p h i ?
Ï% P C W O R L D K O M P U T E R 1 0 A B / 2 0 0 1 D e l p h i 6 . 0 E n t e r p r i s e
T r i a l
Ï% P C W O R L D K O M P U T E R 1 1 A B / 2 0 0 1 D e l p h i 5 S t a n d a r d
( K o m e r c y j n a )
Ï% K O M P U T E R ZW I A T E k s p e r t D e l p h i 7 P e r s o n a l E d i t i o n
Ï% K O M P U T E R ZW I A T E k s p e r t D e l p h i 2 0 0 5 P e r s o n a l
K o d y o d b l o k o w u j c e d o w s z y s t k i c h w e r s j i o t r z y m u j e m y p o
b e z p Ba t n y m z a r e j e s t r o w a n i u s i n a s t r o n i e f i r m y B O R L A N D
h t t p : / / w w w . b o r l a n d . p l . W p r z y p a d k u p r o g r a m ó w : B a z a
d a n y c h i K o m u n i k a t o r s i e c i o w y m u s i s z d y s p o n o w a w e r s j
E n t e r p r i s e .
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 7
P r z e m y s Ba w P i s u l a
U w a g a ! : W p u b l i k a c j i d l a w i k s z e j p r z e j r z y s t o [c i u |y t o
s p a c j i m i d z y a p o s t r o f e m a l i t e r , w y r a z e m , n a w i a s e m l u b
c y f r . W p i s a n y c h p r z e z s i e b i e p r o g r a m a c h n i e n a l e |y t e g o
r o b i , p o n i e w a | m o |e t o s i p r z y c z y n i d o
n i e p r a w i d Bo w e g o d z i a Ba n i a p r o g r a m ó w .
W k o d a c h zr ó d Bo w y c h d o Bc z o n y c h d o k s i |k i z a s t o s o w a n o
p r a w i d Bo w e k o d o w a n i e .
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 8
P r z e m y s Ba w P i s u l a
P r o g r a m K a l k u l a t o r
P r o g r a m K a l k u l a t o r
P r o g r a m j e s t t y p o w y m k a l k u l a t o r e m w y k o n u j c y p o d s t a w o w e
d z i a Ba n i a a r y t m e t y c z n e .
W s t a w n a f o r m :
Ï% 2 2 B u t t o n y . Z m i e D w y s o k o [ ( H e i g h t ) i s z e r o k o [ ( W i d t h )
w s z y s t k i c h n a 3 0 p i k s e l i . M o |e s z t o z r o b i z a j e d n y m z a m a c h e m
o b r y s o w u j c l u b z a z n a c z a j c j e w s z y s t k i e z w c i [n i t y m k l a w i s z e m
S h i f t . Z a z n a c z e n i e b d z i e w ó w c z a s m i a Bo k o l o r s z a r y . W ó w c z a s
z m i e D w / w w a r t o [c i . P o z m i e n i a j i c h C a p t i o n j a k n a r y s u n k u .
P i e r w i a s t e k z r o b i Be m z u k o [n i k a i z n a k u t y l d y .
Ï% j e d n o p o l e E d i t . W y k a s u j j e g o w Ba [c i w o [ T e x t .
Ï% F o n t D i a l o g ( D i a l o g s )
Ï% M a i n M e n u ( S t a n d a r d ) K l i k n i j d w a r a z y w M a i n M e n u
i w p i s z k o l e j n o d o C a p t i o n z a z n a c z a j c u p r z e d n i o p o s z c z e g ó l n e
p o l a .
Ï% P l i k , K o l o r i w i e l k o [ l i c z b i Z a k o Dc z . Z a z n a c z p o l e
n a p r a w o o d P l i k i w p i s z k o l e j n o d o C a p t i o n :
Ï% P o m o c i O p r o g r a m i e .
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 9
P r z e m y s Ba w P i s u l a
R y s 1 9 . M a i n M e n u .
R y s . 2 0 W y g l d f o r m y .
Ï% d o d a m y d r u g f o r m z i n f o r m a c j o p r o g r a m i e .
Ï% W y b i e r z F i l e - > N e w - > O t h e r . Z a z n a c z z a k Ba d k K a l k u l a t o r
i w y b i e r z A b o u t B o x .
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 1 0
P r z e m y s Ba w P i s u l a
J e s t t o o k i e n k o d i a l o g o w e z p r z y c i s k i e m O K . P o z m i e n i a j C a p t i o n
u m i e s z c z o n y c h t a m L a b e l i , d o I m a g e z a Ba d u j j a k i [ o b r a z
( w Ba [c i w o [ P i c t u r e ) . W j e d n y m L a b e l u w p i s z a d r e s s w o j e j s t r o n y
W W W . B d z i e s i o n a o t w i e r a Ba p o n a c i [n i c i u n a t e n L a b e l
O c z y w i [c i e z r o b i m y t a k , a b y p o n a j e c h a n i u n a n i e g o m y s z k k u r s o r
z m i e n i a B k s z t a Bt n a Ba p k
W L a b e l 4 z a d r e s e m s t r o n y z m i e D k o l o r c z c i o n k i n a n i e b i e s k i
( w Ba [c i w o [ F o n t ) .
W y k o r z y s t a l i [m y g o t o w y s z a b l o n , a l e n i c n i e s t o i n a p r z e s z k o d z i e ,
a b y t a k i e o k n o z b u d o w a z e z w y k Be j f o r m a t k i . N a l e |y w ó w c z a s j e j
w Ba [c i w o [ B o r d e r S t y l e u s t a w i n a b s D i a l o g .
P o w i n n o t o w y g l d a m n i e j w i c e j t a k , j a k n a r y s u n k u .
R y s . 2 1 W y g l d f o r m y d r u g i e j O p r o g r a m i e
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 1 1
P r z e m y s Ba w P i s u l a
T e r a z n a l e |y d o d a t d r u g f o r m d o g Bó w n e j . Z a z n a c z p i e r w s z
( g Bó w n ) f o r m i w y b i e r z F i l e - > U s e U n i t . K i e d y o t w o r z y s i
o k i e n k o d o d a w a n i a m o d u Bu , k l i k n i j O K . D e l p h i d o d a d r u g f o r m
d o p r o g r a m u i d o k o n a o d p o w i e d n i e g o w p i s u d o m o d u Bu g Bó w n e g o .
N i e b d z i e s z t e g o m u s i a B w p i s y w a r c z n i e .
N a j p i e r w o p r o g r a m u j e m y z d a r z e n i a d l a d r u g i e j f o r m y .
K o d zr ó d Bo w y p r o g r a m u K a l k u l a t o r m o d u Bu d r u g i e g o
( A b o u t B o x )
u n i t U n i t 3 ;
i n t e r f a c e
u s e s W i n d o w s , S y s U t i l s , C l a s s e s , G r a p h i c s , F o r m s , C o n t r o l s ,
S t d C t r l s ,
B u t t o n s , E x t C t r l s , S h e l l A p i , j p e g ;
/ / d o d a j m o d u B S h e l l A P i
t y p e
T A b o u t B o x = c l a s s ( T F o r m )
O K B u t t o n : T B u t t o n ;
I m a g e 1 : T I m a g e ;
L a b e l 1 : T L a b e l ;
L a b e l 2 : T L a b e l ;
L a b e l 3 : T L a b e l ;
L a b e l 4 : T L a b e l ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 1 2
P r z e m y s Ba w P i s u l a
p r o c e d u r e L a b e l 4 M o u s e D o w n ( S e n d e r : T O b j e c t ; B u t t o n :
T M o u s e B u t t o n ;
S h i f t : T S h i f t S t a t e ; X , Y : I n t e g e r ) ;
p r o c e d u r e L a b e l 4 M o u s e M o v e ( S e n d e r : T O b j e c t ; S h i f t : T S h i f t S t a t e ;
X ,
Y : I n t e g e r ) ;
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
A b o u t B o x : T A b o u t B o x ;
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 A b o u t B o x . L a b e l 4 M o u s e D o w n ( S e n d e r : T O b j e c t ; B u t t o n :
T M o u s e B u t t o n ;
S h i f t : T S h i f t S t a t e ; X , Y : I n t e g e r ) ;
/ / o n M o u s e D o w n d l a L a b e l 4
b e g i n
S h e l l E x e c u t e ( h a n d l e , ' o p e n ' , ' h t t p : / / w w w . T w o j a S t r o n a . p l ' , n i l ,
n i l , S W _ S H O W ) ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 1 3
P r z e m y s Ba w P i s u l a
e n d ;
( *
o n M o u s e D o w n z a c h o d z i , k i e d y z n a j d u j c s i n a d k o m p o n e n t e m
n a c i s k a m y l e w y p r z y c i s k m y s z y .
f u n k c j a S h e l l E x e c u t e o t w i e r a d o m y [l n p r z e g l d a r k
z p o d a n y m a d r e s e m s t r o n y .
H a n d l e t o u c h w y t o k n a , S W _ S H O W o z n a c z a w y [w i e t l .
I n n a w a r t o [ t o S W _ H I D E u k r y j . * )
p r o c e d u r e T A b o u t B o x . L a b e l 4 M o u s e M o v e ( S e n d e r : T O b j e c t ; S h i f t :
T S h i f t S t a t e ; X ,
Y : I n t e g e r ) ;
/ / o n M o u s e M o v e d l a L a b e l 4
b e g i n
L a b e l 4 . C u r s o r : = c r H a n d P o i n t ;
e n d ;
e n d .
( * o n M o u s e M o v e z a c h o d z i , k i e d y p r z e s u w a m y w s k a zn i k m y s z y
n a d k o m p o n e n t e m .
T u t a j p o d c z a s p r z e s u w a n i a w s k a zn i k a m y s z y n a d L a b e l e m
z a d r e s e m s t r o n y W W W z m i e n i a m y k u r s o r n a Ba p k
c r H a n d P o i n t * )
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 1 4
P r z e m y s Ba w P i s u l a
D l a u m i e s z c z o n e g o t a m p r z y c i s k u O K n i e m u s i s z w p i s y w a k o d u .
J e s t j u | w p i s a n y .
W y k o r z y s t a l i [m y f u n k c j S h e l l E x e c u t e , w i c d o l i s t y U s e s
A b o u t B o x d o d a j m o d u B S h e l l A p i .
K o d zr ó d Bo w y p r o g r a m u K a l k u l a t o r . M o d u B g Bó w n y
W s e k c j i P r i v a t e u m i e [ n a g Bó w k i d w ó c h p r o c e d u r p o m o c n i c z y c h
Ï% d z i a Ba n i e
Ï% f o k u s
P o d s Bo w e m i m p l e m e n t a t i o n u m i e [c i m y k i l k a z m i e n n y c h , b y b y By
w i d z i a n e w c a By m m o d u l e
u n i t U n i t 1 ;
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 , B u t t o n s , S t d C t r l s , M e n u s ;
t y p e
T F o r m 1 = c l a s s ( T F o r m )
E d i t 1 : T E d i t ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 1 5
P r z e m y s Ba w P i s u l a
B u t t o n 1 : T B u t t o n ;
B u t t o n 2 : T B u t t o n ;
B u t t o n 3 : T B u t t o n ;
B u t t o n 4 : T B u t t o n ;
B u t t o n 5 : T B u t t o n ;
B u t t o n 6 : T B u t t o n ;
B u t t o n 7 : T B u t t o n ;
B u t t o n 8 : T B u t t o n ;
B u t t o n 9 : T B u t t o n ;
B u t t o n 1 0 : T B u t t o n ;
B u t t o n 1 1 : T B u t t o n ;
B u t t o n 1 2 : T B u t t o n ;
B u t t o n 1 3 : T B u t t o n ;
B u t t o n 1 4 : T B u t t o n ;
B u t t o n 1 5 : T B u t t o n ;
B u t t o n 1 6 : T B u t t o n ;
B u t t o n 1 7 : T B u t t o n ;
M a i n M e n u 1 : T M a i n M e n u ;
P l i k 1 : T M e n u I t e m ;
K o l o r l i c z b 1 : T M e n u I t e m ;
N 1 : T M e n u I t e m ;
Z a k o c z 1 : T M e n u I t e m ;
P o m o c 1 : T M e n u I t e m ;
O p r o g r a m i e 1 : T M e n u I t e m ;
B u t t o n 1 8 : T B u t t o n ;
F o n t D i a l o g 1 : T F o n t D i a l o g ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 1 6
P r z e m y s Ba w P i s u l a
B u t t o n 1 9 : T B u t t o n ;
B u t t o n 2 0 : T B u t t o n ;
B u t t o n 2 1 : T B u t t o n ;
B u t t o n 2 2 : T B u t t o n ;
p r o c e d u r e B u t t o n 2 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 Z a k o c z 1 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 K o l o r l i c z b 1 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 u t t o n 3 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 u t t o n 1 2 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 u t t o n 1 1 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 u t t o n 4 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 u t t o n 1 3 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 u t t o n 1 0 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 u t t o n 5 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 u t t o n 6 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 u t t o n 9 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 u t t o n 7 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 u t t o n 8 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 u t t o n 1 8 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 u t t o n 1 4 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 u t t o n 1 5 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 u t t o n 1 6 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 u t t o n 1 9 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 u t t o n 1 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 u t t o n 2 0 C l i c k ( S e n d e r : T O b j e c t ) ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 1 7
P r z e m y s Ba w P i s u l a
p r o c e d u r e B u t t o n 1 7 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 O p r o g r a m i e 1 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 u t t o n 2 1 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 E d i t 1 K e y P r e s s ( S e n d e r : T O b j e c t ; v a r K e y : C h a r ) ;
p r o c e d u r e B u t t o n 2 2 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 r o c e d u r e d z i a l a n i e ;
/ / n a g Bó w k i p r o c e d u r d z i a Ba n i e i f o k u s
p r o c e d u r e f o k u 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 1 : T F o r m 1 ;
i m p l e m e n t a t i o n
u s e s U n i t 3 ;
( * t u t a j D e l p h i d o d a B d r u g i m o d u B. U m n i e t o a k u r a t U n i t 3 . T o
s a m o m o |n a w p i s a r c z n i e * )
{ $ R * . d f m }
V a r x , a , b : C u r r e n c y ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 1 8
P r z e m y s Ba w P i s u l a
/ / d e k l a r a c j a z m i e n n y c h w i d z i a n y c h p r z e z c a By m o d u B
z n a k : C h a r ;
l i c z b a : B o o l e a n ;
p r o c e d u r e T F o r m 1 . d z i a l a n i e ;
b e g i n
C a s e z n a k o f
' + ' : E d i t 1 . T e x t : = F l o a t T o S t r ( x + S t r T o F l o a t ( E d i t 1 . T e x t ) ) ;
' - ' : E d i t 1 . T e x t : = F l o a t T o S t r ( x - S t r T o F l o a t ( E d i t 1 . T e x t ) ) ;
' * ' : E d i t 1 . T e x t : = F L o a t T o S t r ( x * S t r T o F l o a t ( E d i t 1 . T e x t ) ) ;
' / ' : t r y E d i t 1 . T e x t : = F l o a t T o S t r ( x / S t r T o F l o a t ( E d i t 1 . T e x t ) ) ;
e x c e p t o n E Z e r o D i v i d e d o
/ / d z i e l e n i e z o b s Bu g b Bd u
S h o w M e s s a g e ( ' B l d d z i e l e n i a p r z e z z e r o ! ' ) ;
e n d ;
' ^ ' : b e g i n a : = S t r T o I n t ( E d i t 1 . T e x t ) ;
/ / p o t g o w a n i e
b : = E x p ( a * L n ( x ) ) ;
E d i t 1 . T e x t : = F l o a t T o S t r ( b ) ;
e n d ;
' s ' : E d i t 1 . T e x t : = F l o a t T o S t r F ( S i n ( ( P i * x ) / 1 8 0 ) , f f G e n e r a l , 3 , 1 ) ;
/ / s i n u s
' c ' : E d i t 1 . T e x t : = F l o a t T o S t r F ( C o s ( ( P i * x ) / 1 8 0 ) , f f G e n e r a l , 3 , 1 ) ;
/ / c o s i n u s
' p ' : E d i t 1 . T e x t : = F l o a t T o S t r ( S q r t ( x ) ) ;
/ / p i e r w i a s t e k d r u g i e g o s t o p n i a
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 1 9
P r z e m y s Ba w P i s u l a
' t ' : E d i t 1 . T e x t : = F l o a t T o S t r F ( A r c T a n ( ( P i * x ) / 1 8 0 ) , f f G e n e r a l , 3 , 1 ) ;
/ / t a n g e n s
e n d ;
e n d ;
( *
p r o c e d u r a d z i a Ba n i e w y k r y w a z n a k i o d p o w i e d n i o d o t e g o
w y k o n u j e p r z y p i s a n e d o t e g o z n a k u d z i a Ba n i e m a t e m a t y c z n e .
F L o a t T o S t r F ( L i c z b a , f f G e n e r a l , P r e c y z j a , X , Y ) f o r m a t u j e
w y [w i e t l a n l i c z b
X d o k Ba d n o [ w y [w i e t l a n i a w f o r m a c i e d z i e s i t n y m
Y m i n i m a l n a l i c z b a c y f r d l a n o t a c j i w y k Ba d n i c z e j
d z i a Ba n i e E x p ( a * L n ( x ) ) p o d n o s i l i c z b X d o d o w o l n e j
p o t g i a
w p r z y p a d k u d z i e l e n i a z a s t o s o w a n o o b s Bu g b Bd u
T r y & E x c e p t , n a w y p a d e k g d y b y k t o [ c h c i a B d z i e l i p r z e z z e r o
w p r z y p a d k u f u n k c j i t r y g o n o m e t r y c z n y c h z a p i s S i n ( P i * X ) /
1 8 0 j e s t p r z e l i c z e n i e m r a d i a n ó w n a s t o p n i e , p o n i e w a | w D e l p h i
w a r t o [ a r g u m e n t u d o t y c h f u n k c j i p r z e k a z u j e s i w r a d i a n a c h .
* )
p r o c e d u r e T F o r m 1 . B u t t o n 2 C l i c k ( S e n d e r : T O b j e c t ) ;
/ / o n C l i c k d l a p r z y c i s k u C E
b e g i n
E d i t 1 . T e x t : = ' ' ;
/ / w y c z y [ E d i t a
E d i t 1 . S e t F o c u s ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 2 0
P r z e m y s Ba w P i s u l a
/ / u s t a w w s k a zn i k w E d i t
e n d ;
( * P r z y c i s k C E c z y [c i p o l e E d i t i u s t a w i a w n i m w s k a zn i k * )
p r o c e d u r e T F o r m 1 . Z a k o c z 1 C l i c k ( S e n d e r : T O b j e c t ) ;
/ / o n C l i c k d l a Z a k o Dc z ( w M a i n M e n u )
b e g i n
C l o s e ;
e n d ;
p r o c e d u r e T F o r m 1 . K o l o r l i c z b 1 C l i c k ( S e n d e r : T O b j e c t ) ;
( * o n C l i c k d l a p r z y c i s k u K o l o r i w i e l k o [ l i c z b w M a i n M e n u * )
b e g i n
i f F o n t D i a l o g 1 . E x e c u t e T h e n
/ / j e [l i o t w a r t e j e s t o k n o w y b o r u c z c i o n k i
E d i t 1 . F o n t : = F o n t D i a l o g 1 . F o n t ;
/ / t o w y b r a n e a t r y b u t y c z c i o n k i p r z y p i s z d o E d i t 1
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 3 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o k u s ;
E d i t 1 . T e x t : = E d i t 1 . T e x t + ' 1 ' ;
e n d ;
( *
w y w o Ba j p r o c e d u r f o k u s . O p i s d a l e j .
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 2 1
P r z e m y s Ba w P i s u l a
d o p o l a E d i t 1 d o d a j t o , c o w n i m w p i s a n e p l u s z n a k
n a c i [n i t e g o B u t t o n a . C z y l i d o d a j e c y f r y o d 0 & 9 i p r z e c i n e k .
P r o c e d u r y d l a w s z y s t k i c h p r z y c i s k ó w z c y f r a m i i p r z e c i n k i e m s
i d e n t y c z n e , z m i e n i a s i t y l k o c y f r a i p r z e c i n e k . W i c m o |n a j e
w Ba [c i w i e p r z e k o p i o w a z m i e n i a j c w a r t o [ n a k o Dc u . * ) .
p r o c e d u r e T F o r m 1 . B u t t o n 1 2 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o k u s ;
E d i t 1 . T e x t : = E d i t 1 . T e x t + ' 2 ' ;
/ / p o d o b n i e j / w
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 1 1 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o k u s ;
E d i t 1 . T e x t : = E d i t 1 . T e x t + ' 3 ' ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 4 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o k u s ;
E d i t 1 . T e x t : = E d i t 1 . T e x t + ' 4 ' ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 1 3 C l i c k ( S e n d e r : T O b j e c t ) ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 2 2
P r z e m y s Ba w P i s u l a
b e g i n
f o k u s ;
E d i t 1 . T e x t : = E d i t 1 . T e x t + ' 5 ' ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 1 0 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o k u s ;
E d i t 1 . T e x t : = E d i t 1 . T e x t + ' 6 ' ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 5 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o k u s ;
E d i t 1 . T e x t : = E d i t 1 . T e x t + ' 7 ' ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 6 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o k u s ;
E d i t 1 . T e x t : = E d i t 1 . T e x t + ' 8 ' ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 9 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o k u s ;
E d i t 1 . T e x t : = E d i t 1 . T e x t + ' 9 ' ;
e n d ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 2 3
P r z e m y s Ba w P i s u l a
p r o c e d u r e T F o r m 1 . B u t t o n 7 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o k u s ;
E d i t 1 . T e x t : = E d i t 1 . T e x t + ' 0 ' ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 8 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o k u s ;
E d i t 1 . T e x t : = E d i t 1 . T e x t + ' , ' ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 1 8 C l i c k ( S e n d e r : T O b j e c t ) ;
/ / o n C l i c k d l a p r z y c i s k u +
b e g i n
x : = S t r T o F l o a t ( E d i t 1 . T e x t ) ;
z n a k : = ' + ' ;
l i c z b a : = F a l s e ;
E d i t 1 . T e x t : = ' ' ;
E d i t 1 . S e t F o c u s ;
e n d ;
( *
d o z m i e n n e j X p r z y p i s z a k t u a l n w a r t o [ z E d i t 1
w y k r y t y z n a k : t o +
u s t a w z m i e n n l i c z b a n a F a l s e
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 2 4
P r z e m y s Ba w P i s u l a
w y c z y [ E d i t a
u s t a w w E d i t k u r s o r
d l a p o z o s t a By c h p r o c e d u r w y k o n u j c y c h d z i a Ba n i a i n s t r u k c j s
p o d o b n e , z m i e n i a s i t y l k o z n a k * )
p r o c e d u r e T F o r m 1 . B u t t o n 1 4 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
x : = S t r T o F l o a t ( E d i t 1 . T e x t ) ;
z n a k : = ' - ' ;
l i c z b a : = F a l s e ;
E d i t 1 . T e x t : = ' ' ;
E d i t 1 . S e t F o c u s ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 1 5 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
x : = S t r T o F l o a t ( E d i t 1 . T e x t ) ;
z n a k : = ' * ' ;
l i c z b a : = F a l s e ;
E d i t 1 . T e x t : = ' ' ;
E d i t 1 . S e t F o c u s ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 1 6 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
x : = S t r T o F l o a t ( E d i t 1 . T e x t ) ;
z n a k : = ' / ' ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 2 5
P r z e m y s Ba w P i s u l a
l i c z b a : = F a l s e ;
E d i t 1 . T e x t : = ' ' ;
E d i t 1 . S e t F o c u s ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 1 9 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
x : = S t r T o F l o a t ( E d i t 1 . T e x t ) ;
z n a k : = ' ^ ' ;
l i c z b a : = F a l s e ;
E d i t 1 . T e x t : = ' ' ;
E d i t 1 . S e t F o c u s ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 1 C l i c k ( S e n d e r : T O b j e c t ) ;
/ / o n C l i c k d l a =
b e g i n
d z i a l a n i e ;
z n a k : = ' = ' ;
l i c z b a : = F a l s e ;
e n d ;
( *
w y k o n a j o d p o w i e d n i e d z i a Ba n i e ( p r o c e d u r a d z i a l a n i e )
w y k r y t y z n a k t o =
u s t a w z m i e n n l i c z b a n a F a l s e * )
p r o c e d u r e T F o r m 1 . B u t t o n 2 0 C l i c k ( S e n d e r : T O b j e c t ) ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 2 6
P r z e m y s Ba w P i s u l a
b e g i n
x : = S t r T o F l o a t ( E d i t 1 . T e x t ) ;
z n a k : = ' s ' ;
/ / d l a s i n u s j a k d l a i n n y c h d z i a Ba D
l i c z b a : = F a l s e ;
E d i t 1 . T e x t : = ' ' ;
E d i t 1 . S e t F o c u s ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 1 7 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
x : = S t r T o F l o a t ( E d i t 1 . T e x t ) ;
/ / d l a p i e r w i a s t k a k w a d r a t o w e g o
z n a k : = ' p ' ;
l i c z b a : = F a l s e ;
E d i t 1 . T e x t : = ' ' ;
E d i t 1 . S e t F o c u s ;
e n d ;
p r o c e d u r e T F o r m 1 . O p r o g r a m i e 1 C l i c k ( S e n d e r : T O b j e c t ) ;
( * o n C l i c k d l a O p r o g r a m i e w M a i n M e n u * )
b e g i n
A b o u t B o x . S h o w M o d a l ;
/ / w y [w i e t l f o r m d r u g O p r o g r a m i e
e n d ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 2 7
P r z e m y s Ba w P i s u l a
p r o c e d u r e T F o r m 1 . B u t t o n 2 1 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
x : = S t r T o F l o a t ( E d i t 1 . T e x t ) ;
z n a k : = ' c ' ;
/ / d l a c o s i n u s j a k w y |e j
l i c z b a : = F a l s e ;
E d i t 1 . T e x t : = ' ' ;
E d i t 1 . S e t F o c u s ;
e n d ;
p r o c e d u r e T F o r m 1 . E d i t 1 K e y P r e s s ( S e n d e r : T O b j e c t ; v a r K e y : C h a r ) ;
b e g i n
C a s e K e y o f
' 0 ' . . ' 9 ' , # 8 , ' , ' , ' - ' :
/ / w p r o w a d z o n o c y f r y , p r z e c i n e k , B a c k S p a c e ( k o d # 8 )
;
/ / t y l k o [r e d n i k ; n i e r ó b n i c ,
e l s e
/ / w p r z e c i w n y m r a z i e
K e y : = # 0 ;
/ / z a m i e D i n n e k l a w i s z e n a z n a k p u s t y
e n d ;
e n d ;
( *
o n K e y P r e s s d l a E d i t a k i e d y n a c i s k a m y k l a w i s z w j e g o o b r b i e .
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 2 8
P r z e m y s Ba w P i s u l a
P r o c e d u r a s Bu |y d o w y e l i m i n o w a n i a w p r o w a d z a n i a z n a k ó w
i n n y c h n i | c y f r y o d 0 & 9 , p r z e c i n k a i k l a w i s z a B a c k S p a c e ( d o
w y k a s o w a n i a z Be g o w p i s u . J e g o k o d A S C I I t o # 8 ) .
j e [l i w p r o w a d z o n o 0 & 9 , p r z e c i n e k l u b u |y t o k l a w i s z a
B a c k S p a c e t o
n i e r ó b n i c . W p i s u j e m y s a m [r e d n i k
w p r z e c i w n y m r a z i e ( n p . w p i s u j e l i t e r y )
z a m i e D i n n e k l a w i s z e n a z n a k p u s t y ( # 0 ) * )
p r o c e d u r e T F o r m 1 . f o k u s ;
b e g i n
E d i t 1 . S e t F o c u s ;
i f ( ( n o t ( l i c z b a ) ) a n d ( z n a k = ' = ' ) ) t h e n
E d i t 1 . T e x t : = ' ' ;
l i c z b a : = T r u e ;
e n d ;
( *
u s t a w k u r s o r w E d i t 1
j e [l i o s t a t n i o n a c i [n i t o B u t t o n z c y f r , a n i e z d z i a Ba n i e m
i j e d n o c z e [n i e z n a k w y k r y t y t o =
w y c z y [ p o l e E d i t 1
u s t a w z m i e n n l i c z b a n a T r u e * )
p r o c e d u r e T F o r m 1 . B u t t o n 2 2 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 2 9
P r z e m y s Ba w P i s u l a
x : = S t r T o F l o a t ( E d i t 1 . T e x t ) ;
z n a k : = ' t ' ;
/ / t a n g e n s
l i c z b a : = F a l s e ;
E d i t 1 . T e x t : = ' ' ;
E d i t 1 . S e t F o c u s ;
e n d ;
e n d .
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 3 0
P r z e m y s Ba w P i s u l a
P r o g r a m
P r o g r a m
Z m i e D t a p e t , o t w ó r z i n n y p r o g r a m
Z m i e D t a p e t , o t w ó r z i n n y p r o g r a m
P r o g r a m p o k a z u j e j a k z p o z i o m u D e l p h i o t w i e r a i n n e p r o g r a m y ,
z m i e n i a t a p e t p u l p i t u , u s t a w i a c z a s s y s t e m o w y .
U m i e [ n a f o r m i e :
Ï% O p e n D i a l o g
Ï% s i e d e m B u t o n ó w . Z m i e D i c h C a p t i o n j a k n a r y s u n k u .
Ï% j e d e n B i t B t n . Z m i e D j e g o w Ba [c i w o [ K i n d n a b k C l o s e .
W e w s z y s t k i c h p r o c e d u r a c h u |y w a m y f u n k c j i S h e l l E x e c u t e , w i c
d o l i s t y U s e s n a l e |y d o d a m o d u B S h e l l A P i .
R y s 5 9 . W y g l d f o r m y .
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 3 1
P r z e m y s Ba w P i s u l a
K o d zr ó d Bo w y p r o g r a m u Z m i e D t a p e t , o t w ó r z i n n y
p r o g r a m
u n i t U n i t 1 ;
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 , S h e l l A p i , B u t t o n s ;
t y p e
T F o r m 1 = c l a s s ( T F o r m )
B u t t o n 1 : T B u t t o n ;
B u t t o n 2 : T B u t t o n ;
B u t t o n 3 : T B u t t o n ;
B u t t o n 4 : T B u t t o n ;
B u t t o n 5 : T B u t t o n ;
B u t t o n 6 : T B u t t o n ;
B u t t o n 7 : T B u t t o n ;
B i t B t n 1 : T B i t B t n ;
O p e n D i a l o g 1 : T O p e n D i a l o g ;
p r o c e d u r e B u t t o n 1 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 u t t o n 2 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 u t t o n 3 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 u t t o n 4 C l i c k ( S e n d e r : T O b j e c t ) ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 3 2
P r z e m y s Ba w P i s u l a
p r o c e d u r e B u t t o n 5 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 u t t o n 6 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 u t t o n 7 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 1 : T F o r m 1 ;
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 1 . B u t t o n 1 C l i c k ( S e n d e r : T O b j e c t ) ;
/ / d l a O t w ó r z N o t a t n i k
b e g i n
S h e l l E x e c u t e ( H a n d l e , ' o p e n ' , ' n o t e p a d . e x e ' , n i l , n i l , S W _ S H O W ) ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 2 C l i c k ( S e n d e r : T O b j e c t ) ;
/ / d l a O t w ó r z W o r d a
b e g i n
S h e l l E x e c u t e ( H a n d l e , ' o p e n ' , ' W i n W o r d . e x e ' , n i l , n i l ,
S W _ S H O W ) ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 3 3
P r z e m y s Ba w P i s u l a
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 3 C l i c k ( S e n d e r : T O b j e c t ) ;
/ / d l a O t w ó r z E x c e l a
b e g i n
S h e l l E x e c u t e ( H a n d l e , ' o p e n ' , ' e x c e l . e x e ' , n i l , n i l , S W _ S H O W ) ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 4 C l i c k ( S e n d e r : T O b j e c t ) ;
/ / d l a O t w ó r z P o w e r P o i n t
b e g i n
S h e l l E x e c u t e ( H a n d l e , ' o p e n ' , ' p o w e r p n t . e x e ' , n i l , n i l ,
S W _ S H O W ) ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 5 C l i c k ( S e n d e r : T O b j e c t ) ;
/ / d l a P a n e l S t e r o w a n i a
b e g i n
S h e l l E x e c u t e ( H a n d l e , ' o p e n ' , ' c o n t r o l . e x e ' , n i l , n i l , S W _ S H O W ) ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 6 C l i c k ( S e n d e r : T O b j e c t ) ;
/ / d l a Z m i e D c z a s i d a t e
b e g i n
S h e l l E x e c u t e ( H a n d l e , ' o p e n ' , ' c o n t r o l . e x e ' , ' t i m e d a t e . c p l ' , n i l ,
S W _ S H O W ) ;
e n d ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 3 4
P r z e m y s Ba w P i s u l a
( *
w e w s z y s t k i c h p r o c e d u r a c h w y k o r z y s t u j e m y f u n k c j
S h e l l E x e c u t e
H a n d l e t o u c h w y t , o p e n o t w ó r z , n a s t p n i e c o , c z y l i p o d a j e m y
p l i k . e x e
S W _ S H O W z n a c z y , c z y s i w y [w i e t l i o k n o z p r o g r a m e m * )
p r o c e d u r e T F o r m 1 . B u t t o n 7 C l i c k ( S e n d e r : T O b j e c t ) ;
/ / d l a Z m i e D t a p e t
V a r P l i k : S t r i n g ;
b e g i n
i f O p e n D i a l o g 1 . E x e c u t e T h e n
P l i k : = O p e n D i a l o g 1 . F i l e N a m e ;
S y s t e m P a r a m e t e r s I n f o ( S P I _ S E T D E S K W A L L P A P E R , 0 , P c h a r ( P l i k ) ,
S P I F _ U P D A T E I N I F I L E O R S P I F _ S E N D W I N I N I C H A N G E ) ;
e n d ;
e n d .
( * - z m i a n a t a p e t y w y b r a n e j w O p e n D i a l o g * )
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 3 5
P r z e m y s Ba w P i s u l a
P r o g r a m R y s o w a n i e m y s z k
P r o g r a m R y s o w a n i e m y s z k
P r o g r a m t e n p o k a z u j e , j a k r y s o w a m y s z k p o p Bó t n i e f o r m a t k i .
O c z y w i [c i e m o |n a t e | z m i e n i r o z m i a r p d z l a , j e g o k o l o r . M a t e |
o p c j e g u m k i .
W s t a w n a f i r m :
Ï% C o m b o B o x . D o I t e m s w p i s z k i l k a l i c z b b d c y c h r o z m i a r e m
p d z l a . D o w Ba [c i w o [c i T e x t w p i s z R o z m i a r p d z l a .
Ï% c z t e r y B u t t o n y . I c h C a p t i o n n a r y s u n k u .
Ï% C o l o r D i a l o g . O k n o w y b o r u k o l o r u .
R y s 7 8 . W y g l d f o r m y R y s o w a n i e m y s z k .
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 3 6
P r z e m y s Ba w P i s u l a
W p r o g r a m i e w y k o r z y s t u j e m y z d a r z e n i a o n M o u s e D o w n ,
o n M o u s e M o v e i o n M o u s e U p z a c h o d z c e o d p o w i e d n i o p o d c z a s :
w c i [n i c i a l e w e g o p r z y c i s k u m y s z y , p r z e s u w a n i a z w c i [n i t y m l e w y m
p r z y c i s k i e m i p o d c z a s p u s z c z a n i a l e w e g o k l a w i s z a m y s z y , k i e d y
z n a j d u j e m y s i n a d d a n y m k o m p o n e n t e m . W t y m p r z y p a d k u b d z i e
t o f o r m a t k a .
W s e k c j i I m p l e m e n t a t i o n z a d e k l a r u j e m y z m i e n n t y p u B o o l e a n ,
k t ó r e j z a d a n i e m b d z i e w y k r y c i e f a k t u n a c i [n i c i a i p u s z c z e n i a
l e w e g o p r z y c i s k u m y s z k i .
O p c j a G u m k i p o l e g a n a r y s o w a n i u k o l o r e m d o m y [l n y m f o r m y .
K o d zr ó d Bo w y p r o g r a m u R y s o w a n i e m y s z k
u n i t U n i t 1 ;
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 , C o m C t r l s , T o o l W i n , B u t t o n s ;
t y p e
T F o r m 1 = c l a s s ( T F o r m )
B u t t o n 1 : T B u t t o n ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 3 7
P r z e m y s Ba w P i s u l a
C o l o r D i a l o g 1 : T C o l o r D i a l o g ;
B u t t o n 2 : T B u t t o n ;
C o m b o B o x 1 : T C o m b o B o x ;
B u t t o n 3 : T B u t t o n ;
B u t t o n 4 : T B u t t o n ;
p r o c e d u r e B u t t o n 1 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 F o r m M o u s e D o w n ( S e n d e r : T O b j e c t ; B u t t o n :
T M o u s e B u t t o n ;
S h i f t : T S h i f t S t a t e ; X , Y : I n t e g e r ) ;
p r o c e d u r e F o r m M o u s e M o v e ( S e n d e r : T O b j e c t ; S h i f t : T S h i f t S t a t e ;
X ,
Y : I n t e g e r ) ;
p r o c e d u r e F o r m M o u s e U p ( S e n d e r : T O b j e c t ; B u t t o n :
T M o u s e B u t t o n ;
S h i f t : T S h i f t S t a t e ; X , Y : I n t e g e r ) ;
p r o c e d u r e B u t t o n 2 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 C o m b o B o x 1 C h a n g e ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e B u t t o n 3 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 u t t o n 4 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 1 : T F o r m 1 ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 3 8
P r z e m y s Ba w P i s u l a
i m p l e m e n t a t i o n
{ $ R * . d f m }
V a r r y s u j : B o o l e a n ;
/ / z m i e n n a [l e d z c a l e w y p r z y c i s k
p r o c e d u r e T F o r m 1 . B u t t o n 1 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
C l o s e ;
e n d ;
p r o c e d u r e T F o r m 1 . F o r m M o u s e D o w n ( S e n d e r : T O b j e c t ; B u t t o n :
T M o u s e B u t t o n ;
S h i f t : T S h i f t S t a t e ; X , Y : I n t e g e r ) ;
b e g i n
C a n v a s . M o v e T o ( x , y ) ;
r y s u j : = T r u e ;
e n d ;
( * W c z a s i e w c i s k a n i a l e w e g o p r z y c i s k u u s t a w i a m y s i w p u n k c i e
o w s p ó Br z d n y c h X , Y , c z y t a m , g d z i e k l i k n i e m y . * )
p r o c e d u r e T F o r m 1 . F o r m M o u s e M o v e ( S e n d e r : T O b j e c t ; S h i f t :
T S h i f t S t a t e ; X ,
Y : I n t e g e r ) ;
b e g i n
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 3 9
P r z e m y s Ba w P i s u l a
i f r y s u j t h e n
C a n v a s . L i n e T o ( x , y ) ;
e n d ;
( *
j e [l i z m i e n n a r y s u j m a w a r t o [ T r u e t o
p r z e s u D s i d o p u n k t u X , Y , c z y l i t a m g d z i e , p r z e s u w a s z
w s k a zn i k m y s z y * )
p r o c e d u r e T F o r m 1 . F o r m M o u s e U p ( S e n d e r : T O b j e c t ; B u t t o n :
T M o u s e B u t t o n ;
S h i f t : T S h i f t S t a t e ; X , Y : I n t e g e r ) ;
b e g i n
r y s u j : = F a l s e ;
e n d ;
( * J a k p u [c i m y l e w y p r z y c i s k , p r z y p i s z z m i e n n e j r y s u j w a r t o [
F a l s e . * )
p r o c e d u r e T F o r m 1 . B u t t o n 2 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
/ / o n C l i c k d l a K o l o r p d z l a
i f C o l o r D i a l o g 1 . E x e c u t e T h e n
C a n v a s . P e n . C o l o r : = C o l o r D i a l o g 1 . C o l o r ;
e n d ;
( * N a d a j p d z l o w i k o l o r w y b r a n y w o k n i e C o l o r D i a l o g 1 . * )
p r o c e d u r e T F o r m 1 . C o m b o B o x 1 C h a n g e ( S e n d e r : T O b j e c t ) ;
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 4 0
P r z e m y s Ba w P i s u l a
b e g i n
C a n v a s . P e n . W i d t h : = C o m b o B o x 1 . I t e m I n d e x ;
e n d ;
( * S z e r o k o [ ( W i d t h ) p d z l a r ó w n a s i l i c z b i e z C o m b o B o x 1 . * )
p r o c e d u r e T F o r m 1 . B u t t o n 3 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
/ / o n C l i c k d l a O d [w i e |
R e p a i n t ;
e n d ;
( * o d [w i e |, w y c z y [ * )
p r o c e d u r e T F o r m 1 . B u t t o n 4 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
/ / o n C l i c k d l a G u m k a
C a n v a s . P e n . C o l o r : = c l B t n F a c e ;
e n d ;
e n d .
( * D o p d z l a ( t u t a j : G u m k i ) p r z y p i s z k o l o r f o r m y . * )
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 4 1
P r z e m y s Ba w P i s u l a
R y s 7 9 . P r o g r a m R y s o w a n i e m y s z k w d z i a Ba n i u .
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
D E L P H I 3 1 P R Z Y D A T N Y C H P R O G R A M Ó W - d a r m o w y f r a g m e n t - k l i k n i j p o w i c e j
Ï% s t r . 4 2
P r z e m y s Ba w P i s u l a
J a k s k o r z y s t a z w i e d z y z a w a r t e j w p e Bn e j
J a k s k o r z y s t a z w i e d z y z a w a r t e j w p e Bn e j
w e r s j i e b o o k a ?
w e r s j i e b o o k a ?
W i c e j p r a k t y c z n y c h p r o g r a m ó w z n a j d z i e s z w p e Bn e j w e r s j i e b o o k a .
Z a p o z n a j s i z o p i s e m n a s t r o n i e :
h t t p : / / d e l p h i - p r o g r a m y . z l o t e m y s l i . p l
N a u c z s i p e Bn i e j w y k o r z y s t y w a
m o |l i w o [c i D e l p h i !
C o p y r i g h t b y Z Bo t e M y [l i & P r z e m y s Ba w P i s u l a
P O L E C A M Y T A K {E P O R A D N I K I :
P O L E C A M Y T A K {E P O R A D N I K I :
P r o g r a m u j w D e l p h i i C + + B u i l d e r M i r o s Ba w J . K u b i a k
J a k s z y b k o n a u c z y s i p r o g r a m o w a n i a
w d w ó c h r ó |n y c h j z y k a c h ?
S t a n d a r d o w m e t o d j e s t u c z e n i e s i p r o g r a m o w a n i a
" j z y k p o j z y k u " . A c o p o w i e s z n a d w a w j e d n y m ? C o
g d y b y [ p r z y o k a z j i z a g Bb i a n i a s i w s z c z e g ó By d a n e j
i n s t r u k c j i w D e l p h i d o w i e d z i a B s i o d r a z u , j a k t o s a m o r o b i
s i w C + + B u i l d e r z e ?
W i c e j o t y m p o r a d n i k u p r z e c z y t a s z n a s t r o n i e :
h t t p : / / p o d s t a w y - d e l p h i - b u i l d e r . z l o t e m y s l i . p l
" ( . . . ) T a p o z y c j a z a w i e r a k o m p e n d i u m p r o g r a m o w a n i a o b i e k t o w e g o
w j e d n y m t o m i e . B a ! W j e d n y m p l i k u . J e s t [w i e t n a d l a u c z c y c h s i ( . . . ) j a k
i d l a k o g o [, k t o n a b i e |c o n i e p r o g r a m u j e , a l e p o t r z e b u j e o d [w i e |y s o b i e
i n f o r m a c j e ( . . . ) "
S t a n i s Ba w J a n i a k , T e l e i n f o r m a t y k , 5 0 l a t .
V i s u a l B a s i c 2 0 0 5 E x p r e s s i M y S Q L Au k a s z P e t a
J a k s z y b k o i p r o s t o
u t w o r z y r o z b u d o w a n a p l i k a c j e b a z o d a n o w ?
E b o o k " V i s u a l B a s i c 2 0 0 5 E x p r e s s i M y S Q L " u c z y z a r ó w n o
s k Ba d n i j z y k a V i s u a l B a s i c j a k r ó w n i e | z a s a d t w o r z e n i a
a p l i k a c j i o p a r t y c h o b a z d a n y c h M y S Q L d l a s y s t e m u
W i n d o w s w t y m j z y k u , a z o s t a B n a p i s a n y g Bó w n i e z m y [l
o p o c z t k u j c y c h p r o g r a m i s t a c h
W i c e j o t y m p o r a d n i k u p r z e c z y t a s z n a s t r o n i e :
h t t p : / / v i s u a l - b a s i c . z l o t e m y s l i . p l
" D o s y c , z e e - b o o k t o j e s z c z e d o d a t k o w o k o d y i p r z y k l a d y a p l i k a c j i d o n a u k i .
B a r d z o w a r t o s c i o w y e - b o o k . C z y s t o i p r o s t o p r z e k a z a n a w i e d z a . P o l e c a m . "
D a v i d 2 7 l a t , p r o g r a m i s t a
Z o b a c z p e Be n k a t a l o g n a s z y c h p r a k t y c z n y c h p o r a d n i k ó w
n a s t r o n i e w w w . z l o t e m y s l i . p l
Wyszukiwarka
Podobne podstrony:
delphi 31 przydatnych programowDelphi 31 przydatnych programowDelphi 31 przydatnych programowdelphi 31 przydatnych programowDelphi 31 przydatnych programów fragmentdelphi 31 przydatnych programowDelphi 31 przydatnych programówDelphi 31 przydatnych programówDelphi 31 przydatnych programów Przemysław PisulaDelphi 31 przydatnych programowDelphi 31 przydatnych programówDelphi 31 przydatnych programowDelphi 31 przydatnych programowDelphi 31 przydatnych programowdelphi 31 przydatnych programowDelphi 1 przydatnych programowDelphi 1 przydatnych programowdelphi 1 przydatnych programow fragmentDelphi 1 przydatnych programow fragmentwięcej podobnych podstron