Deutsches Lazarusforum

Ich wünsche mir, dass dieser Code irgendwann funktioniert: type TPoint = record X, Y: Integer; end;   TMyType = record ID: Integer; Pos: TPoint; end;   const ZeroP: TPoint = (X: 0; Y: 0);   DefaultMyType: TMyType = (ID: 54631; Pos: ZeroP);  Bisher musste ich für die letzte Zeile imme...

Moin alle zusammen, Ich habe eine generische Klasse TSmartArray, die ein (ebenso generisches) Interface IList implementiert. Nun habe ich eine Prozedur, deren Signatur einen Parameter vom Typ IList<QWord> definiert. Ich kann dieser Prozedur aber keinen Parameter vom Typ TSmartArray<QWord> übergeben....

Registrierungen machst du mit der folgenden Funktion:


Die erledigt alles vollautomatisch. Ganz egal, welche Art von Registrierung du meinst, die kann alles.

Den brauchst du ja wahrscheinlich für größere Dateien ohnehin. Würde ich nicht unbedingt sagen. Er unterteilt ja einen FileStream (der ja auch mit sehr großen Dateien umgehen kann) in Chunks von 64 KiB Größe, für die Cardinal locker ausreicht, kombiniert mit Repeat-Until. Wenn das unter 32 Bit funk...

Du kannst mit OnIdle eher keine Tasten abfragen, aber dafür Game-Loops erstellen:   interface type TForm = class … procedure AppOnIdle(Sender:TObject; var Done: Boolean); end;   implementation   procedure TForm1.OnCreate(Sender); begin … Application.OnIdle := @AppOnIdle; end;   proce...

Hey ho,
Willkommen im Forum! Bin übrigens ein Jahr älter als du und habe auch laange lange Zeit D7 genutzt.

Welchen Fehler wirft denn SetSize bei dir? Und warum benutzt du Screen.Size, wäre deine Zeichenfläche vielleicht sinnvoller mit Form.Width&Height angegeben? Ich mach das immer folgendermaßen: In OnCreate erstelle ich das Bitmap lediglich, das Setzen der Größe mach ich nur in OnResize. Denn ich b...

Zeichne doch alles was du zeichnen musst erstmal in einen Bitmap-Puffer, den du in OnPaint nur auf die Form zeichnest. Dort dürfte die Abfrage von Farbwerten nämlich funktionieren.   var Buffer: TBitmap;   procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; ...

Wenn es nicht kompliziert sein soll, kannst du ja eine Fläche zum Selberzeichnen wählen und mit dem Canvas-Objekt Linien zeichnen (mit Seitenberechnung vom Winkel á la x=cos, y=sin), die die Richtung anzeigen. „Drehendes grafisches Objekt“ klingt zwar doch fast nach OpenGL, Canvas ist aber für die g...

Dankeschön, die Unit beschreibt einen schönen Weg, um das hinzubekommen, hab es dadurch lösen können! Der ungefähre Code sieht jetzt so aus: TAbstractSmartArray = class public { Gibt einen Zeiger auf Element I zurück, falls vorhanden, sonst nil } function GetElemPtr(I: SizeInt): Pointer; vir...

Hallo alle zusammen! Ich habe eine generische Klasse TSmartArray, die ich in einer for-in-loop ansprechen können möchte. Wie definiere ich einen Enumerator dafür? Mein Problem ist, dass man eine Im-Voraus-Deklaration benutzen muss, die bei Generischen Typen nicht geht oder anders aussieht. Das Beisp...

Hätte vielleicht vorher nach deinem Kenntnisstand fragen können ^^ FormKeyDown wird aufgerufen, wenn eine Taste gedrückt wird, FormKeyUp, wenn eine losgelassen wird. Du kannst dir in diesen Methoden die Informationen über gedrückte Tasten in Variablen speichern, so dass du darauf auch außerhalb dies...

Die Meldung, dass Shift nicht verwendet wird, ist genau dann normal, wenn man Shift auch wirklich nicht benutzt Die Meldung, dass KeyDown eine vererbte Methode verbirgt, habe ich aber nie, prüfe doch mal, ob deine Methode überhaupt aufgerufen wird, indem du einfach bei jedem Tastendruck WriteLn(...

Nee, Maria73 stinkt.

Aber warum tut das jemand? ^^

Nach einer einfachen Neuinstallation ging es noch nicht, dafür aber nach der Neuinstallation und dem Löschen des Ordners ~/.lazarus. Hätt ich auch früher drauf kommen können.