aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Menu
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-04-10 15:04:18 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-04-10 15:04:18 +0000
commit596265628f267cd0d91f6e834a0f78c591cd8a3e (patch)
tree67fc18e2b457b270b73a4739cb37998dea249f99 /Game/Code/Menu
parentde19222a6fc53d455a91a8e5c8c99c080408392b (diff)
downloadusdx-596265628f267cd0d91f6e834a0f78c591cd8a3e.tar.gz
usdx-596265628f267cd0d91f6e834a0f78c591cd8a3e.tar.xz
usdx-596265628f267cd0d91f6e834a0f78c591cd8a3e.zip
workaround for erroneously detection of 48000Hz-only devices as 44100Hz devices in portaudio
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1017 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Menu/UMenu.pas51
1 files changed, 30 insertions, 21 deletions
diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas
index 653a6051..5be44859 100644
--- a/Game/Code/Menu/UMenu.pas
+++ b/Game/Code/Menu/UMenu.pas
@@ -746,16 +746,20 @@ begin
BackImg.TexY2 := 1;
if (BackImg.TexNum <> -1) then
begin
- // does anyone know what these loops were for?
-{ // draw texture with overlapping
- for PetY := 1 to BackH do
- for PetX := 1 to BackW do begin
- BackImg.X := (PetX-1)/BackW * 800; //640
- BackImg.Y := (PetY-1)/BackH * 600; //480
- DrawTexture(BackImg);
- end; // for PetX}
- {BackImg.X:=BackW;
- BackImg.Y:=BackW; }
+ // does anyone know what these loops were for?
+ {
+ // draw texture with overlapping
+ for PetY := 1 to BackH do
+ for PetX := 1 to BackW do begin
+ BackImg.X := (PetX-1)/BackW * 800; //640
+ BackImg.Y := (PetY-1)/BackH * 600; //480
+ DrawTexture(BackImg);
+ end; // for PetX
+ }
+ {
+ BackImg.X:=BackW;
+ BackImg.Y:=BackW;
+ }
BackImg.X := 0;
BackImg.Y := 0;
BackImg.Z := 0; // todo: eddie: to the opengl experts: please check this! On the mac z is not initialized???
@@ -765,7 +769,7 @@ begin
end; // if
-// if assigned( VideoPlayback ) then
+ //if assigned( VideoPlayback ) then
begin
VideoPlayback.GetFrame( now() );
VideoPlayback.DrawGL(2);
@@ -802,9 +806,9 @@ begin
for J := 0 to Length(SelectsS) - 1 do
SelectsS[J].Draw;
- // Third, we draw all our widgets
-// for J := 0 to Length(WidgetsSrc) - 1 do
-// SDL_BlitSurface(WidgetsSrc[J], nil, ParentBackBuf, WidgetsRect[J]);
+ // Third, we draw all our widgets
+ // for J := 0 to Length(WidgetsSrc) - 1 do
+ // SDL_BlitSurface(WidgetsSrc[J], nil, ParentBackBuf, WidgetsRect[J]);
Result := True;
end;
@@ -815,15 +819,17 @@ begin
Result := True;
end;
-{function TMenu.GetNextScreen(): PMenu;
+{
+function TMenu.GetNextScreen(): PMenu;
begin
Result := NextScreen;
-end;}
+end;
+}
-{function TMenu.AddWidget(X, Y : UInt16; WidgetSrc : PSDL_Surface): Int16;
+{
+function TMenu.AddWidget(X, Y : UInt16; WidgetSrc : PSDL_Surface): Int16;
var
WidgetNum : Int16;
-
begin
If (Assigned(WidgetSrc)) Then
begin
@@ -843,9 +849,11 @@ begin
end
else
Result := -1;
-end;}
+end;
+}
-{procedure TMenu.ClearWidgets(MinNumber : Int16);
+{
+procedure TMenu.ClearWidgets(MinNumber : Int16);
var
J : Int16;
begin
@@ -857,7 +865,8 @@ begin
SetLength(WidgetsSrc, MinNumber);
SetLength(WidgetsRect, MinNumber);
-end;}
+end;
+}
function TMenu.IsSelectable(Int: Cardinal): Boolean;
begin