blob: 4b10e54c3bab45610a94ebb117303e9744380088 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
unit UMenuStatic;
interface
uses UTexture, OpenGL12;
type
TStatic = class
public
Texture: TTexture; // Button Screen position and size
Visible: boolean;
procedure Draw;
constructor Create(Textura: TTexture); overload;
end;
implementation
uses UDrawTexture;
procedure TStatic.Draw;
var
Pet: integer;
begin
if Visible then
DrawTexture(Texture);
end;
constructor TStatic.Create(Textura: TTexture);
begin
inherited Create;
Texture := Textura;
end;
end.
|
