Rozdział 4
[ Powrót ]
Ostatnim razem stworzyłeś program "Kółko i Krzyżyk". Teraz
dodamy do niego grafikę muzykę.
Potrzebne nam będą 3 rysunki: jeden z krzyżykiem, z kółkiem i
pusty.
- Do stworzenia rysunków potrzebny nam będzie jakiś program graficzny
(nam całkowicie wystarczy Paint)
- Rozmiary rysunków muszą być zbliżone do rozmiaru przycisków w twoim
programie; rysunki muszą mieć także szare tło (takie jak kolor przycisków).
- Trzeci przycisk musi mieć jedynie szare tło; gdy stworzyłeś już
przyciski to umieść je w katalogu z programem.
- Umieść przycisk, który będzie służył jako rozpoczęcie nowej tury;
treść jego procedury zmodyfikuj następująco:
procedure TMain1stGame.Button10Click(Sender: TObject);
var
Bitmap5:TBitmap;
begin
bitmap5:=TBitmap.create;
bitmap5.LoadFromFile('nic.bmp');
button1.glyph:=bitmap5;
button2.glyph:=bitmap5;
button3.glyph:=bitmap5;
button4.glyph:=bitmap5;
button5.glyph:=bitmap5;
button6.glyph:=bitmap5;
button7.glyph:=bitmap5;
button8.glyph:=bitmap5;
button9.glyph:=bitmap5;
speedb.down:=true;
speedb2.down:=false;
end;
Wyjaśnienie: Na samym początku deklarowana jest zmienna Bitmap5.
Później następuje stworzenie bitmapy przy pomocy polecenia bitmap5:=TBitmap.create;
Następnie następuje wczytanie uprzednio stworzonej bitmapy: bitmap5.loadfromfile('nic.bmp');
Kolejną funkcją jest przypisanie każdemu z przycisków bitmapę nic.bmp.
- Teraz musisz zastąpić starą procedure nową:
procedure TMain1stGame.Button1Click(Sender: TObject);
var
Bitmap:TBitmap;
Bitmap2:TBitmap;
begin
bitmap:=TBitmap.Create;
bitmap.LoadFromfile('krzyzyk.bmp');
bitmap2:=TBitmap.Create;
bitmap2.LoadFromFile('kolko.bmp');
if speedb.down then
button1.glyph:=bitmap;
if speedb2.down then
button1.glyph:=bitmap2;
end;
- Skopiuj ten kod i wstaw do pozostałych przycisków z tą różnicą, że
w przedostatniej i czwartej od końca linii zastąp button1 na nazwę
przycisku.
Teraz możesz uruchomić program - działa! Fajnie by było gdyby program
posiadał funkcje odtwarzania muzyki. Zróbmy więc to!
- Umieść komponent MediaPlayer (na palecie System ); zmień
jego właściwość visible na False; nie ma potrzeby aby był
widoczny.
- Umieść komponent CheckBox; zmień jego właściwość Caption na
Włącz muzykę, a właściwość Name na muzyka.
- Kliknij podwójnie na komponent i uzupełnij procedure:
if muzyka.checked=true then begin
MediaPlayer.filename:='muzyka.mid';
MediaPlayer.open;
MediaPlayer.play;
end else
MediaPlayer.stop;
Teraz umieść w katalogu z programem plik muzyczny i zmień jego nazwę
na muzyka.mid.
To już wszystko tym razem. W kolejnej części zajmiemy się dokończeniem
programu Kółko i Krzyżyk i zaczniemy całkiem nowy program. Zapraszam następnym
razem!
Nie wahajcie się pisać: programowanie@poczta.onet.pl
[ Powrót ]