Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Zeichen auf Paintbox aus Klasse geht nicht

    Delphi
    by Luckie, 24. Nov 2003
  Vergesst das bitte sofort. Ich habe Mist gebaut. :wall:
  
  
  procedure TGun.DrawMount(pt: TPoint);
  var
  Pen, PenOld: HPen;
  GreyBrush, GreyBrushOld: HBrush;
  begin
  FGunPosition := pt;
  :roll:
• Forum: Multimedia

  Zeichen auf Paintbox aus Klasse geht nicht

    Delphi
    by Luckie, 24. Nov 2003
  Folgendes Ich habe mir eine Zeichenroutine gemacht. Was sie zeichnet ist egal, es werden nur GDI Zeichenfunktionen aufgerufen. Dies habe ich in eine Klasse gekapselt. Diese sieht wie folgt aus:
  
  type
  TGun = class
  private
  FDC: HDC;
  FGunPosition: TPoint;
  FDegree: Cardinal;
  FGunEndPoints: TPoint;
  procedure GunEndPoints(Degree: Cardinal);