home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
WDR Computer Club Digital 1996 October
/
CLUB10_96.BIN
/
grafdemo
/
grafdemo.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1996-08-15
|
420KB
|
1,274 lines
Form1
Form1
Form15
Check3D3
SSCheck
Originalbild laden
Oribild
******************************************************************************************************************************************************
******************************************************************************************************************************************************
******************************************************************************************************************************************************
***************************************************
***********************************************************************************
************************************************
******************************************************************************
***********************************************
**************************************************************************
*********************
********************
************************************************************************
*******************
*************
*********************************************************************
*******************
********
********************************************************************
*******************
******
******************************************************************
*******************
*****
****************************************************************
********************
****
******************************************
*********
********************
*****
***************************************
********
**********************
*****
************************************
********
*************************
******
**********************************
*******
***************************
********************************
*******
******************************
*******************************
*******
*******************************
*****************************
*******
***************************
*********************
********
************************
****************
*********
*********************
*************
*********
***************
**********
**********
**********
*******
***********
*********
******
*************
********
*****
**************
********
****************
*******
*******************
*******
********************
******
**********************
******
**********************
*******
**********************
*******
;;;;;;;;;0
**********************
wwwwww
*******
wwwwww
w{;;;w;;0
*********************
wwwwww
********
wwwwww
wwwwww;;;;0
*********************
wwwwwwp
wwwwww
*********
wwwwwwwp
wwwwwwwwww{;;
********************
wwwwwwwp
wwwwwwwwwwww
**********
wwwwwwwwp
wwwwwwwwwwww{;0
********************
wwwwwwww
wwwwwwwwwwwws
**********
www{;;;;;0
!!!!!!!!!
wwwww
*******************
***
*******
;;;;;;;;;;0
!!!!!!!!!!
******************
********
;;;;;;;;;;;;
!!!!!!!!!
**************** *
** ** *********
;;;;;
!!!!!!!!!!!!
****************
******** !
!!!!(
!!!!!!!!!!!!
!!!!!!!!!!!
*****************
**** *
******** !
!!!!!!!
!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!
****************
******
*******
!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!
**************
************** !!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!
!!!!
!! !!!!!!!!!!!!!
***************
***************
!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!
!!!
!!!!!!!!!!!!
**************
***************
!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!
!! !!
!!!!!!!!!!!!!
*************
*************** !!!!!!!! !!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!
!!!!!
!!!!!!!!!!!!!
************
****************
!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!
!!!!!!! !!!!!!!!!!!!!!!
***********
*****************
!!!!!! !!!!!!!!!!!!!!!!!!!!!!!
!!!!!!! !!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!
**********
*****************
!!!!! !!!!!!!!!!!!!!!!!!!!!!!
!!!!!!! !!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!
*********
*****************
!!!!!!
!!!!!!!!!!!!!!!!!!!!!
!!!!!!! !!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!
********
wwwwwwp
******************
!!!!!
!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!
!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!
pwwwwwwp
*******
wpwwwwwww
******************
wwwwwwwwww
*******
!!!!!!
!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!! !!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!
;;wwwwwwww
******************
*****
!!!!!! !!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!
!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!
;;;;;;;;;;;0
******************
*****
!!!!!!!
!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!
!!!!!!!!!!!!!!!!!! !!!!!!!!!!
;;;;;;;;;;;;;
******************
!!!!!!
!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!! !!!!!!!!!!!!!!!!!!!
!!!!!!!!
;;;;;;;
*******************
!!!!!!!
!!!!!!!!!!!!
!!!!!!!!!!
!!!!!!!!!!!!!!!!!! !!!!!!!
*******************
wwwwwwww
!!!!!!!
!!!!!!!!!
!!!!!!!!! !!!!!!!!!!!!!!!!!!!
!!!!!!
*******************
!!!!!!!
!!!!!!!!
!!!!!!!!!
!!!!!!!!!!!!!!!!!!
!!!!
*******************
!!!!!!!
!!!!!!!
!!!!!!!! !!!!!!!!!!!!!!!!!!! !!!!
*******************
!!!!!!
!!!!!!
wp!!!!!!!!!
!!!!!!!!!!!!!!!!!!!
******************
!!!!!!!
!!!!! www
!!!!!!!!
!!!!!!!!!!!!!!!!!!
******************
!!!!!!
!!!!!
!!!!!!!
!!!!!!!!!!!!!!!!!!
******************
!!!!!
!!!!
!!!!!!!
!!!!!!!!!!!!!!!!! !
******************
!!!!!
wp!!!!!!!
!!!!!!!!!!!!!!!!!!! !
******************
!!!!!
!!!!!
;;;7p
!!!!!!
!!!!!!!!!!!!!!!!!!!
******************
!!!! !!!!! www
7wwwww
!!!!!!
!!!!!!!!!!!!!!!!!!!!
******************
wwwww
****
!!!! www
7wwwwwp
wwp!!!!!!
!!!!!!!!!!!!!!!!!!!!
******************
wwwwwww
****
;;wwwwwww
!!!! !!!!!!!!!!!!!!!!!!!!
******************
wwwwwww
****
!!! !!!!
;;wwwwwww
!!! !!!!!!!!!!!!!!!!!!!!
******************
wwwwwww
*****
!!! !!!!
;;wwwwwwp
wwp!!!!
!!!!!!!!!!!!!!!!!!!
******************
wwwwwwp
*****
!! !!!
p;7wwwwwwp
!!!!!!!!!!!!!!!!!!!
*******************
wwwwwww
******
!! !!!
;7wwwwww
!! !!!!!!!!!!!!!!!!!!!
*******************
wwwwww
******
!! !!
ww{;;;;wwwwwwp
!!!!!!!!!!!!!!!!!!
*******************
wwwwwwp
******
www{;;;7wwwwwp
wwwp!!! !!!!!!!!!!!!!!!!!!
*******************
wwwwwp
*******
!! !! ww
wwww;;7wwwwwp
wwwp!!!
!!!!!!!!!!!!!!!!
*****************
wwwwww
********
;www;;;wwwwww
!!!!!!!!!!!!!!!!
********************
wwwwwp
wwwww
********
wwww;;7wwwwwp
wwwwp
!!!!!!!!!!!!!!!
*******************
wwwwww
wwwwww
********
;;;7wwww;;wwwwwwp
wwwwwp
!!!!!!!!!!
********************
wwwwwwwwwwwwp
wwwww
********
;;;;wwwwwwwwwwwwp
!!!!!!!!!
*********************
wwwwwwwwwwwp
wwwwp
********
*****
w{;;wwwwwwwwwwwp
!!!!!!
******************** ww
wwwwwwwwwwp
wwwwp
******
******
ww{;;wwwwwwwwww
!!!!
;;;;;;;0
********************
wwwwwwwwwwwwww
wwwww
*******
wwwwwwwwwwwwww
;;;;;;0
******************* ww
pwwwwwwwwwwwwww
wwwwwp
******
0wwwwwwwwwwwwww
wwwwwp
;;;;;;
;;;;;;
*******************
wwwwwwwwwwwwww
wwwwww
******
;07wwwwwwwwwwwwwp
wwwwwwp
*******************
wwwwwwwwwwwp
******
;;;;;7wwwwwwwwwww
*******************
wwwwwwww
******
;;;;;;;;;;;;wwwwwwwp
*******************
wwwwwww
******
;;;;;;;;;;;;;;;wwwwwwp
*******************
******
wwwwwwwwww
;;;;;;;7www
*******
***********
wwwwwwwwwwwwwwwwp
******
wwwwwwwwwwwwwwwwwwwwww
;;;;;p
******
******
wwwwwwwwwwwwwwwwwwwwwwwww
******
wwwwwwwwwwwwwwwwwwwwwwwwwww{0
******
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
******
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
*****
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp
*******
wwwwwwwwwwwwwwwwwwwwwww
wwwwwwwwwwww
****
wwwwwwwwwwwwwwwwwwwww
wwwwwwwp
********
wwwwwwwwwwwwwwwwwwp
wwwwwwp
wwwwwwwwwwwwwwwwwp
wwwwwp
wwwwwwwwwwwwwwwwww
wwwww
wwwwwwwwwwwwwwwwp
wwwwp
wwwwwwwwwwwwwwwwp
wwwwwwwwwwwwwwww
wwwwp
wwwwwwwwwwwwwwwwp
wwwww
wwwwwwwwwwwwwwww
wwwwwwwwww
wwwwwwwwwwwwwwww
wwwwp
wwwwwwwwww
wwwwwwwwwwwwwwwp
wwwwwwwww
wwwwwwwwwwwwwwwwp
wwwwwwww
wwwwwwwwwwwww
wwwwp
wwwwww
wwwwwwwwwwwwwp
wwwww
wwwwwwwwwwwwww
pwwwwww
wwwwwwwwwwwwwww
wwwwww
wwwwwwwwwwwwwwww
wwwwwwp
wwwwwwwwwwwwwwwwp
wwwwwww
wwwww
wwwwwwwwwwwwwwwwp
pwwwwwwww
wwwwwp
wwwwwwwwwwwwwwww
wwwwwwwwwp
wwwwwwp
wwwwwwwwwwwwwwwwp
wwwwwwwwwwwww
wwwwwwwp
wwwwwwwwwwwwwwwwwp
wwwwwwwwwwwwwp
wwwwwww
wwwwwwwwwwwwwwwww
wwwwwwwwwwwwww
wwwwwwww
wwwwwwwwwwww
wwwwp
wwwwwwwwwwwwww
wwwwwwwp
wwwwwp
wwwwwwwwwwwwwwp
wwwwwwwwwp
wwwww
wwwwp
wwwwwwwwwwwwwww
wwwwwwwwwwwwp
wwwww
wwwwp
wwwwwwwwwwwwwww
wwwwwwwwwwwp
wwwwp
wwwwwwwwwwwwwwwp
wwwwwwwwwwwwp
wwwwp
wwwwwwwwwwwwwwww
wwwwwwwwwwwwww
wwwww
wwwwp
wwwwwwwwwwwwwwww
wwwwwwwwwwwwww
wwwww
wwwww
wwwwww
wwwwwwwwwwwwwwww
wwwwwwwwwwwwwww
wwwww
wwwww
wwwwwww
wwwwwwwwwwwwwwwwp
wwwwwwwwwwwwww
wwwwp
wwwwp
wwwwwwwww
wwwwwwwwwwwwwwwwwp
wwwwwwwwwwwwwwp
wwwwp
wwwwp
wwwwwwwwwp
wwwwwwwwwwwwwwwwwp
wwwwwwwwwwwww{;
wwwwwwwwwww
wwwwwwwwwwwwwwwwwp
wwwwwwwwws
wwwwwwwwwwwwp
wwwwwwwwwwwwp
wwwwwwww{;;;;;;;;
wwwwwww
wwwwwwwwwwwwwp
wwwww
;;;;;
wwwwww
wwwwwwwwwwwwwp
www;;;;;;;;;;;;
wwwwwp
wwwwwwwwwwwwwww
wwwww
wwwwwwwwwwwwwwwwwww
;;;;0
wwwwwp
wwwwwwwwwwwwwwwwww
;;;;0
wwwwwp
wwwwwwwwwwwwwwwwwp
wwwwwp
wwwwwwwwwwwwwwwwwp
;;;;0
wwwww
wwwwwwwwwwwwwwww
wwwww
wwwwwp
wwwwwwwwp
wwwwp
wwwwww
wwwwwww
wwwwp
wwwwwww
wwwwp
wwwwwwp
wwwwp
wwwwwwp
wwwww
;;;;;;
wwwwwwp
wwwwwp
wwwwwwp
wwwwww
wwwwww
wwwwwwwp
wwwwww
wwwwwwwp
wwwwwww
wwwwwwwwp
wwwwwww
wwwwwwwwp
wwwwwwp
wwwwwwwwwp
wwwwwwp
wwwwwwwwwwp
;;;;p
wwwwwwwp
wwwwwwwwwwwwwwwwwp
wwwwwwww
pwwwwwwwwwwwwwwwww
;;;;0
wwwwwwwp
;;;;;
wwwwwwwwwwwwwwwp
wwwwwww
wwwwwwwwwwwwp
;;;;;
wwwwwwww
;;;;;
wwwwwwwwwwwp
xxxxx
wwwwwwwp
wwwwwwwwwwp
;;;;;0
wwwwwwww
;;;;;
wwwwwwwwww
xxxxxxx
wwwwwwp
wwwwwwwwww
;;;wwwwww
wwwwwwwwwwp
xxxxxxwwp
wwwwwwwwwwwwp
;;;;;;;;;;7ww
wwwwwwwwwwwww
xxxxxxwwwww
wwwwwwwwwwwwwp
wwwwww
;;;;;;;;0
wwwwwwwwwwwwp
xxxxxwwwwwwwp
wwwwwwpwwwwwwwwww
wwwwwwwp
wwwwwww
wwwwwwwwwwp
xxxxwwwwwwwwwp
wwwwwwwwwwp
wwwwwwwww
wwwwwwwwwwp
wwwwwwwwww
wwwwwwww
xxxwwwwwwwwwwww
wwwwwwwwwwp
wwwwwwwwp
wwwwwwwwwwwwwp
wwwwwwwwwww
wwwwwwwp
xxwwwwwwwwwwwwwwp
wwwwwwwwwwwp
wwwwwww
wwwwwwwwwwwwwww
wwwwwwwwwwwp
wwwwwww
wwwwp
wwwwwwwwwwwwwwww
wwwww
wwwwwwwwwwp
wwwwwwp
wwwww
wwwwwwwwwwwwwwwwp
wwwwww
wwwwwwwwwp
wwwwwwp
wwwww
wwwwwwwwwwwwwwwwp
wwwwwwp
wwwwwwwwp
wwwwwp
wwwwww
wwwwwwwwwwwwwwwwp
wwwwwwww
wwwwwww
wwwwwp
wwwww
wwwwwwwwwwwwwwww
wwwwwwwwp
wwwwwwwwwwp
wwwwwp
wwwwww
wwwwwwwwwwwwwwwwp
wwwwwwwp
wwwpwwwwwwwp
wwwwww
wwwww
wwwwwwwwwwwwwwww
wwwwwwww
wwwpwwwwwwwp
wwwww
wwwww
wwwwwwwwwwwwwwww
wwwwwwwp
wwwpwwwwwwww
wpwww
wwwwwwwwwwwwwww
wwwwwwp
wwwwwwww
wpwww
wwwww
wwwwwwwwwwwwwwp
wwwwww
wwwwwwwp
wpwww
wwwwwwwwwwwwpwp
wwwwwwp
wwwwwwww
wpwww
wwwwwwwwww
wwwwwp
wwwwwwww
wpwww
wwwwwwwww
wwwww
wwwwwwwp
wpwww
wwwwwwwpwwww
wwwwwwwp
wwwwwpwwww
wwwwwww
wwwwwwwp
wwwww
wwwwwww
wwwww
wwwwwwp
wwwwwwp
pwwwww
wwwwwww
wwwwwwp
wwwwwww
wwwwp
wwwwwwp
wwwwwww
wwwwp
wwwwwww
wwwwwwwp
wwwwp
wwwwww
wwwwwww
wwwwww
wwwwwwwp
wwwwwwp
wwwwwwwwp
wwwwwww
wwwwwwwwwwwp
wwwwww
wwwwwwww
wwwwwwwwwp
wwwwww
wwwwwwwww
wwwwwwwwwwwww
wwwwwww
wwwwwwwwwwp
wwwwwwwwwwwp
wwwwwww
wwwwwwwwwwww
wwwwwwwww
wwwwwwwww
wwwwwwwwwwww
wwwwwp
wwwwwwwwwww
wwwwwwwwwwwwp
wwwwwwww
wwwwwwwwwwwp
wwwwwwwwwwww
wwwwwwwwwww
wwwwwwp
wwwww
wwwwp
wwwwp
wwwww
wwwwwp
wwwwww
wwwwwwwwp
wwwwp
wwwwwp
wwwwwwwwwww
wwwwp
wwwwwwwwww
wwwww
wwwwwwww
wwwww
wwwww
wwwwp
Bild5
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp++
pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp++
AAAAAA
App++
AAAAAA
App++
App++
App++
AAApp++
pppppppppppppppppppppppppppppppppppppppppppppp++
AAAAAA
AAAAAA
pppppppppppppppppppppppppppppppppppppppppppppp++
AAAAAA
AAAAAA
pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp++
pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp++
Check3D2
SSCheck
zweites Bild nach B laden
Bild4
Check3D1
SSCheck
Bild nach B laden
HScroll1
! Option3D2
SSOption
Declares anzeigen
Option3D1
SSOption
Konstanten anzeigen
Text1
Text1
MS Sans Serif
Panel3D1
SSPanel
Command3D7
SSCommand
Command3D6
SSCommand
Command3D5
SSCommand
Command3D4
SSCommand
Command3D3
SSCommand
<< >>
CMDialog1
CommonDialog
Command3D2
SSCommand
o. Hintergr.
Timer1
Command3D1
SSCommand
Zufall ein
bild3
Bild2
Bild1
M_Bitmap_laden
Bitmap laden
M_normal
Normal ist eingeschaltet
M_Stretch
Stretch ist ausgeschaltet
M_Methode
Methode (SRCCOPY)
M_SRCCOPY
SRCCOPY
M_SRCAND
SRCAND
M_SRCPAINT
SRCPAINT
M_SRCERASE
SRCERASE
M_SRCINVERT
SRCINVERT
M_Notsrccopy
NOTSCRCOPY
M_notsrceras
NOTSRCERASE
M_mergecopy
MERGECOPY
M_Mergepaint
MERGEPAINT
M_DSTINVERT
DSTINVERT
M_Blackness
BLACKNESS
M_WHITENESS
WHITENESS
M_Bitmap_speichern
Bitmap speichern
M_Hilfe
Hilfe
@ Form_Load-
windowstate
ScaleMode
bild1
Bild1_Click
altxm
Bild1_MouseDown
ButtonS
Shifts
Bild1_MouseMove
click>
Klick
neuxh
Command1_Click
Bild1_MouseUp
caption
BitBlt
hDestDC
nWidth
nHeight
hSrcDCl
dwRop
StretchBlt
nSrcWidth
nSrcHeight
srccopy
bild2O
picture*
M_Stretch_Clickf
Stretch
M_normal_ClickX
scalwidth
ScaleHeight4
ScaleWidthT
bild<
M_StretchZ
M_normal
M_SRCAND_Click
SRCANDw
srcundQ
srccop
M_srccopy_Click"
SRCPAINT
M_SRCPAINT_ClickB
SRCERASE*
SRCINVERT
M_SRCERASE_Click
M_SRCINVERT_Click
NOTSRCCOPY
NOTSRCERASE
MERGECOPY
Mergepaint4
PATCOPY
PATPAINT
PATINVERTE
dstinvertd
Blackness
Whiteness
Bild2_Click
Bild_kopieren
Bild2_MouseDown
farbe
BackColor
bild3
M_srccopyp
M_srcand>
M_srcpaintM
M_srcerase
M_srcinvert
M_methode
hscroll1_changey
vscroll1
hscroll1
vscroll1_change
value
VScroll1_Scroll
HScroll1_Scroll
bild3_Click
M_Notsrccopy_Click
M_notsrceras_Click
M_mergecopy_Click4
M_Mergepaint_ClickG
M_PATCOPY_Click[
M_Patpaint_Clicky
M_DSTINVERT_Click
Width
Height
M_Blackness_Click
M_WHITENESS_Click
Bild2_MouseUp
Bild2_MouseMove
ForeColor
endselectr
FontSize#
bild3_MouseDown
command3d1_click
uelle
BLACK
WHITE
zufall~
Timer1_Timer
command3d1L
timer1
Enabled
Command3D2_Clickx
command3d2V
hgfarbe
Left.
horizontal
Bild3_markieren
Bild3_neuzeichnen
form1>
autoredrawb
M_Bitmap_laden_Click
cmdialog1
Filter
Actiona
Filename
M_Bitmap_speichern_Click
Image
command1
Command3D3_Clickh
command3d3
Command3D4_Click
schritt
Command3D5_Click
Command3D7_Click
Command3D6_Click
DrawModeq
Command3D3_MouseDown
Anfang
EndeY
Effekt_anzeigen
GDIS
chr34
GroupPush3D1_Click
Option3D2_ClickA
text1
Visible:
Text1_Change
Text1_Clickz
screen\
TwipsPerPixelY
Option3D1_Click
option3d1
option3d2
beenden
Interval
Minh @
Check3D1_Click
bild4
check3d1
Check3D2_Click
bild5
check3d2
M_Hilfe_Click
Check3D3_Click
oribild
check3d3
Ternary raster operations
(DWORD) Ziel = Quelle
(DWORD) Ziel = Quelle OR Ziel
(DWORD) Ziel = Quelle AND ZielQ
(DWORD) Ziel = Quelle XOR ZielQ
(DWORD) Ziel = Quelle AND (NOT Ziel )
(DWORD) Ziel = (NOT Quelle)
(DWORD) Ziel = (NOT Quelle) AND (NOT Ziel)D
(DWORD) Ziel = (Quelle AND pattern)
(DWORD) Ziel = (NOT Quelle) OR Ziel
(DWORD) Ziel = (NOT Ziel)
(DWORD) Ziel = BLACKD
(DWORD) Ziel = WHITED
Bild_kopieren
hier geht es zur Sache, die wichtigste Unterroutine im Programm
chst einmal die Eckpunkte bestimmen - je nachdem wie man den
Kasten gezogen hat. E
p1x und p1y sind die linke obere Ecke
p2x und p2y sind die rechte untere Ecke
Wenn die Variable Stretch =0 ist, wird das Bild nicht aufgeblasen (Bitblt)
Wenn die Variable Stretch =1 ist, wird aufgeblasen (Stretchblt)
das Autoredrawbild Bild2 wird refresht.
Wert ist die Variable f
r die Zeichenmethodeb
Bild1_MouseDown
Den gezeichneten gelben Kasten l
schen
(Bild1 ist autoredraw=true, Bild bleibt erhalten)
Wenn der linke Mausknopf (1) gedr
ckt wurde
Klick merkt sich, da
Button gedr
ckt wurde
die alte Position des Anklickens merken mit altx und alty
Bild1_MouseMove
Wurde linke Maustaste angeklickt ist klick=1
Kasten in Bild l
schen
gelben Kasten line und B = Block zeichnen=
neux und neuy merken, damit man die Kastenumrisse kennt
Die Kastenmasse sind: altx,alty,neux,neuy
Bild1_MouseUp
Variable Klick auf Null stellen; Vorgang beendete
gelben Kasten noch einmal zeichneno
Unterprogramm Bild_kopieren aufrufen(
Bild2_MouseDown
Bild2_MouseMove
Bild2_MouseUp
bild3_Click
Zufall ausschalten
Bild3_markieren
ffffff
ffffff
bild3_MouseDown
Bild3_neuzeichnen
Check3D1_Click
Check3D2_Click
Check3D3_Click
command3d1_click
Zufall ein
Zufall aus
Zufall ein
o. Hintergr.
Command3D2_Click
o. Hintergr.
m. Hintergr.
o. Hintergr.
Command3D3_MouseDown
Zufall aus
<< >>
Command3D4_Click
Command3D5_Click
Command3D6_Click
Command3D7_Click
Effekt_anzeigen
<< >>
Form_Load
auf Vollbild schalten
Demo f
r Grafikbearbeitung
Zufallsgenerator verstellen
Scalemode auf Pixel=3 stellen
API-Funktionen arbeiten mit Pixel
Bilder auf gleiche Gr
e stellen
Bild1 ist Ausgangsbild
Farbbild auf gleiche Breite wie Bild2 stellen
Bild 3 skalieren, damit 16 Felder entstehen
Subroutine aufrufen, um Bild3 mit Farbe zu zeichnen
Anfangsmethode f
r bitblt auf srccopy stelllenc
Defaultwerte f
r Effektschleife
Scrollbalken f
r Timer auf maximal 1 Sekunde stellenb
hscroll1_change
HScroll1_Scroll
M_Bitmap_laden_Click
*.bmp (Bitmapfiles)|*.bmp
M_Bitmap_speichern_Click
*.bmp (als Bitmapfile)|test.bmp
M_Blackness_Click
Methode (BLACKNESS)
M_DSTINVERT_Click
Methode (DSTINVERT)
M_Hilfe_Click
Dieses kleine Demoprogramm soll die M
glichkeiten zeigen, die man mit den beiden API-Funktionen
Bitlt und Stretchblt hat. Das Verbinden der einzelnen Aufrufe mit den Rasteroperationskonstanten (Wie SRCCOPY z.B.) f
hrt zu erstaunlichen Ergebnissen.
Auch die Hintergrundfarbe des Bildes geht bei manchen Konstanten in das optische Ergebnis ein. Mit der Zufallfunktion kann man einen Eindruck der M
glichkeiten erzeugen.
Hilfe zum Programm
M_mergecopy_Click
Methode (MERGECOPY)
M_Mergepaint_Click
Methode (MERGEPAINT)
M_normal_Click
Bild1 (Quelle) l
schen. Da auf Autoredraw=true gestellt,u
wird nur der gezeichnete gelbe Kasten gel
scht.
Bild2 Inhalt l
schen; leeres Picture ladens
leiste Caption
ndern
Stretch ist ausgeschaltet
Normal ist eingeschaltet
Variable Stretch auf 0 setzen.i
M_Notsrccopy_Click
Methode (NOTSRCCOPY)
M_notsrceras_Click
Methode (NOTSRCERASE)
M_SRCAND_Click
Methode (SRCAND)
M_srccopy_Click
Methode (SRCCOPY)
M_SRCERASE_Click
Methode (SRCERASE)
M_SRCINVERT_Click
Methode (SRCINVERT)
M_SRCPAINT_Click
Methode (SRCPAINT)
M_Stretch_Click
Bild 1 gelben Kasten l
schena
Bild2 leeres Bild laden = Inhalt l
schen,
Variable Stretch auf 1 stellenl
berschriften
ndern
Stretch ist eingeschaltet
Normal ist ausgeschaltet
M_WHITENESS_Click
Methode (WHITENESS)
Option3D1_Click
Const SRCCOPY = &HCC0020
Const SRCPAINT = &HEE0086
Const SRCAND = &H8800C6
Const SRCINVERT = &H660046
Const SRCERASE = &H440328
Const NOTSRCCOPY = &H330008
Const NOTSRCERASE = &H1100A6
Const MERGECOPY = &HC000CA
Const MERGEPAINT = &HBB0226
Const DSTINVERT = &H550009
Const BLACKNESS = &H42&
Const WHITENESS = &HFF0062
Option3D2_Click
Declare Function BitBlt Lib
(ByVal hDestDC%, ByVal x%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal dwRop As Long) As Integer
Declare Function StretchBlt% Lib
(ByVal hDC%, ByVal x%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)
Text1_Click
Timer1_Timer
m. Hintergr.