Teach Yourself Borland C++ in 14 Days - portal

346 Day 9
Listing 9.3. continued
75: // function LoadString(), display the string,
76: // and tell Windows to repaint the Label
77: //
78: LoadString(HInstance, IDS_UP, buff, sizeof(buff));
79: Label->Caption = buff;
80: Label->Refresh();
81: //
82: // play the ‘up’ sound using the WinAPI function
83: // PlaySound(), play it asynchronously
84: //
85: PlaySound(“ID_WAVEUP”,
86: HInstance, SND_ASYNC | SND_RESOURCE);
87: //
88: // pause for a moment at the top of the jump
89: //
90: Sleep(200);
91: //
92: // repeat all of the above except in reverse
93: //
94: for (int i=5;i>0;i--) {
95: String resName = s + String(i);
96: DrawImage(resName);
97: }
98: PlaySound(“ID_WAVEDOWN”,
99: HInstance, SND_ASYNC | SND_RESOURCE);
100: LoadString(HInstance, IDS_DOWN, buff, sizeof(buff));
101: Label->Caption = buff;
102: Label->Refresh();
103: Sleep(200);
104: }
105: }
106: //----------------------------------------------------------
107: void __fastcall TMainForm::StopClick(TObject *Sender)
108: {
109: //
110: // Stop button pressed, so tell the loop to stop executing
111: //
112: done = true;
113: }
114: //----------------------------------------------------------
115: //
116: // a class member function to display the bitmap
117: //
118: void
119: TMainForm::DrawImage(String& name)
120: {
121: //
122: // load the bitmap from a resource
123: // using the name passed to us
124: //
125: Image->Picture->Bitmap->
126: LoadFromResourceName((int)HInstance, name);
127: //
128: // must pump the message loop so that Windows gets
129: // a chance to display the bitmap