Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Problem mit Klassen


Bergmann89 - So 07.12.08 18:13
Titel: Problem mit Klassen
HI,

ich hab grad irgendwie n Blackout oder so, auf jedenfall will es nich so wie ich will. Ich bin grad dabei n Game zu proggen und hab folgenedes Problem: Ich hab ne Klasse TMainMenu und die hat ne Variable HUD: THUD; das HUD is aber überflüssig, da es nur 2 Schriftzüge ausgibt und da wollt ich das gleich mit ins TMainMenu schreiben, aber wenn ich alles 1 zu 1 kopier gehts net?! Hier ma der relevante Code:

Das ist THUD:

Delphi-Quelltext 
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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
 
type
  THUD = class
  private
    fFontContextID: TFontContextID;
    fViewport: TGLVectori4;
    fPointFont, fLiveFont: TFont;
  public
    procedure   Render(Points, Live: Integer);
    constructor Create(FontContextID: TFontContextID);
    destructor  Destroy; override;
  end;

implementation

procedure THUD.Render(Points, Live: Integer);

function FillString(Str: String; FillChar: Char; StrLength: Integer): String;
var i: Integer;
begin
  result := Str;
  for i := Length(result) to StrLength do
    result := FillChar + result;
end;

begin
  glMatrixMode(GL_PROJECTION);
  glPushMatrix;
  glLoadIdentity;
  glOrtho(0,fViewport[2],fViewport[3],0,0,10);
  glMatrixMode(GL_MODELVIEW);
  glDisable(GL_DEPTH_TEST);

  fPointFont.TextOut('Points: '+FillString(IntToStr(Points),'0',10),
                     fViewport[2]* 1/100,
                     fViewport[3]* 1/100,
                     fViewport[2]*48/100,
                     fViewport[3]*10/100,
                     TS_ALIGN_LEFT);

  fLiveFont.TextOut('Live: '+FillString(IntToStr(Live),'0',2),
                     fViewport[2]*50/100,
                     fViewport[3]* 1/100,
                     fViewport[2]*49/100,
                     fViewport[3]*10/100,
                     TS_ALIGN_RIGHT);

  glEnable(GL_DEPTH_TEST);
  glMatrixMode(GL_PROJECTION);
  glPopMatrix;
  glMatrixMode(GL_MODELVIEW);
end;

constructor THUD.Create(FontContextID: TFontContextID);
var Color: TVector4f;
begin
  inherited Create;

  glGetIntegerv(GL_VIEWPORT, @fViewport);

  fFontContextID := FontContextID;

  Color[0] := 1;
  Color[1] := 1;
  Color[2] := 1;
  Color[3] := 1;

  fPointFont := TFont.Create(fFontContextID,
                             TS_STYLE_NORMAL,
                             round(fViewport[3]*5/100),
                             ExtractFilePath(Application.ExeName)+'LCD_FONT.ttf',
                             Color);

  fLiveFont  := TFont.Create(fFontContextID,
                             TS_STYLE_NORMAL,
                             round(fViewport[3]*5/100),
                             ExtractFilePath(Application.ExeName)+'LCD_FONT.ttf',
                             Color);
end;

destructor THUD.Destroy;
begin
  fPointFont.Destroy;
  fLivefont.Destroy;
  inherited Destroy;
end;


und das hab ich dann so in TMainMenu übernommen:

Delphi-Quelltext 
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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
 
procedure TMainMenu.Render;
[...]
begin
  [..]  

  HUD.Render(6543215,100); //so gehts
  
  //aber so nich, obwohl es der gleiche Code is!
  glMatrixMode(GL_PROJECTION);
  glPushMatrix;
  glLoadIdentity;
  glOrtho(0,fViewport[2],fViewport[3],0,0,10);
  glMatrixMode(GL_MODELVIEW);
  glDisable(GL_DEPTH_TEST);

  MenuFont.TextOut('Hallo^^',
                   fViewport[2]* 1/100,
                   fViewport[3]* 1/100,
                   fViewport[2]*48/100,
                   fViewport[3]*10/100,
                   TS_ALIGN_LEFT);

  glEnable(GL_DEPTH_TEST);
  glMatrixMode(GL_PROJECTION);
  glPopMatrix;
  glMatrixMode(GL_MODELVIEW);
end;

constructor TMainMenu.Create(FontContextID: TFontContextID);
[...]
var Color: TVector4f;
begin
  inherited Create;

  fFontContextID := FontContextID;
  HUD := THUD.Create(fFontContextID);

  glGetIntegerv(GL_VIEWPORT, @fViewport);
  Color[0] := 1;
  Color[1] := 1;
  Color[2] := 1;
  Color[3] := 1;
  MenuFont := TFont.Create(fFontContextID,
                           TS_STYLE_NORMAL,
                           round(fViewport[3]*5/100),
                           ExtractFilePath(Application.ExeName)+'LCD_FONT.ttf',
                           Color);
  [...]
end;

TFont is auch ne Klasse die ich selbst geschrieben hab, aber die geht, weil ja in der HUD-Klasse die Strings ausgegeben werden! Hab ich hier irgendwo n Fehler drin, den ich jetzt nich seh?

MfG Bergmann.


jaenicke - So 07.12.08 18:40
Was geht denn nicht? Passiert nix, kommt ein Fehler beim Kompilieren, beim Ausführen?

Was mir auffällt (aber vermutlich hier nicht das Problem ist) ist, dass du Klassennamen verwendest, die es im Standarddelphi gibt (TMainMenu, TFont, ...). Sowas ist keine gute Idee.


Bergmann89 - So 07.12.08 18:42
Es passiert nix...
das es ein TMainMenu gibt wusste ich gar nich(^^), aber wenn dass das Problem wäre, dann würde ja der Font im THUD nich gehen!


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!