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. 

  1. Do stworzenia rysunków potrzebny nam będzie jakiś program graficzny (nam całkowicie wystarczy Paint)
  2. 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).
  3. Trzeci przycisk musi mieć jedynie szare tło; gdy stworzyłeś już przyciski to umieść je w katalogu z programem.
  4. 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. 
  5. 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;
  6. 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!

  1. Umieść komponent MediaPlayer (na palecie System ); zmień jego właściwość visible na False; nie ma potrzeby aby był widoczny. 
  2. Umieść komponent CheckBox; zmień jego właściwość Caption na Włącz muzykę, a właściwość Name na muzyka.
  3. 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 ]