Rev 22 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 22 | Rev 24 | ||
|---|---|---|---|
| Line 40... | Line 40... | ||
| 40 | FHotspots: array[0..2] of THotspot; |
40 | FHotspots: array[0..2] of THotspot; |
| 41 | FullscreenMode: boolean; |
41 | FullscreenMode: boolean; |
| 42 | procedure cbPictureShow(ASender: TGame; AFilename: string; AType: TPictureType); |
42 | procedure cbPictureShow(ASender: TGame; AFilename: string; AType: TPictureType); |
| 43 | procedure cbAsyncSound(ASender: TGame; AFilename: string); |
43 | procedure cbAsyncSound(ASender: TGame; AFilename: string); |
| 44 | procedure cbExit(ASender: TGame); |
44 | procedure cbExit(ASender: TGame); |
| 45 | function cbWait(ASender: TGame; AMilliseconds: integer): boolean; |
45 | function cbWait(ASender: TGame; AMilliseconds: Cardinal): boolean; |
| 46 | procedure cbSetHotspot(ASender: TGame; AIndex: THotspotIndex; AHotspot: THotspot); |
46 | procedure cbSetHotspot(ASender: TGame; AIndex: THotspotIndex; AHotspot: THotspot); |
| 47 | procedure cbClearHotspots(ASender: TGame); |
47 | procedure cbClearHotspots(ASender: TGame); |
| 48 | procedure ClickEvent(X, Y: Integer); |
48 | procedure ClickEvent(X, Y: Integer); |
| 49 | private |
49 | private |
| 50 | FCancelSceneRequest: boolean; |
50 | FCancelSceneRequest: boolean; |
| Line 186... | Line 186... | ||
| 186 | procedure TMainForm.cbExit(ASender: TGame); |
186 | procedure TMainForm.cbExit(ASender: TGame); |
| 187 | begin |
187 | begin |
| 188 | Application.Terminate; |
188 | Application.Terminate; |
| 189 | end; |
189 | end; |
| 190 | 190 | ||
| 191 | function TMainForm.cbWait(ASender: TGame; AMilliseconds: integer): boolean; |
191 | function TMainForm.cbWait(ASender: TGame; AMilliseconds: Cardinal): boolean; |
| 192 | var |
192 | var |
| 193 | FirstTickCount: DWord; |
193 | FirstTickCount: DWord; |
| 194 | begin |
194 | begin |
| 195 | //Cursor := crHourglass; |
195 | //Cursor := crHourglass; |
| 196 | try |
196 | try |