X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_touch.pas;h=cab5c776b209a1cf1c484402b488f47def9363d6;hb=e887dc54405dcdea33aa6ba85a38887bfe902a59;hp=1778eca23bfcbfd96762b2bfbcae92ee79153fba;hpb=defbc8a87bbfc67290bdbe413be9b58c27f20b53;p=d2df-sdl.git diff --git a/src/game/g_touch.pas b/src/game/g_touch.pas index 1778eca..cab5c77 100644 --- a/src/game/g_touch.pas +++ b/src/game/g_touch.pas @@ -168,11 +168,6 @@ implementation end end; - procedure DrawRect(x, y, w, h: Integer); - begin - e_DrawQuad(x, y, x + w, y + h, 0, 255, 0, 31); - end; - function IntersectControl(ctl, xx, yy: Integer): Boolean; var x, y, w, h: Integer; @@ -308,8 +303,8 @@ implementation GetKeyRect(i, x, y, w, h, founded); if founded then begin - DrawRect(x, y, w, h); - e_TextureFontPrint(x, y, GetKeyName(i), gStdFont) + e_DrawQuad(x, y, x + w, y + h, 0, 255, 0, 31); + e_TextureFontPrintEx(x, y, GetKeyName(i), gStdFont, 255, 255, 255, 1, True) end; end; {$ENDIF}