Deutsches Lazarusforum

Während des Ladens solltest du nicht auf die Chartlistbox zugreifen. Wozu willst du das tun? Das triffts im Prinzip. Das Coderelikt bekomme ich auf die Schnelle nicht heraus, aber genau da liegt der Fehler. Wahrscheinlich liegt darin auch der Grund dafür, dass du überhaupt DisableDrawing/EnableDraw...

Während des Ladens solltest du nicht auf die Chartlistbox zugreifen. Wozu willst du das tun? Du könntest evtl auch die ChartListbox vom Chart trennen (ChartListbox.Chart := nil) und hinterher wieder neu verbinden (ChartListbox.Chart := Chart1), wobei ich jetzt aber nicht weiß, was mit den vorher aus...

EnableDrawing/DisableDrawing ist nur dafür gedacht, während des Ladens das Neuzeichnen zu unterbinden. Idealerweise sollte der Programmblock, in dem es angewendet wird, so kurz sein, dass man gleichzeitig das DisableDrawing und das EnableDrawing auf dem Bildschirm hat. Und der Block muss mit einem T...

Zugriff auf Excel mittels OLE war für mich immer der Horror an Unverständlichkeit. Mit FPSpreadsheet wäre das in den folgenden Zeilen zu erledigen: uses fpspreadsheet, xlsxooxml; procedure TForm1.Button1Click(Sender: TObject); var workbook: TsWorkbook; worksheet: TsWorksheet; x: Integer; begin workb...

Mathias hat geschrieben: ↑

Fr 12. Apr 2024, 17:07

Funktioniert bei mir nicht.

Natürlich, bei mir auch nicht. Darum steht es ja auf der Wunschliste.

Wenn "array[0..255] of byte" ein eigener Typ wäre, z.B. TByteArray256, dann könnte man das Folgende machen: type TByteArray256 = array[0..255] of Byte; var Data: TByteArray256; begin Data := Default(TByteArray256); FillByte(Data, SizeOf(Data), 0); Könnte man da nicht das FillChar weglassen, ausser ...

procedure test; var Data: array [0..255] of byte; begin Data[0]:=0; // <--- neu FillByte(Data, SizeOf(Data),$00); end; Könnte sein, dass nun ein Hint kommt a la "Not all elements initialized"... Wenn "array[0..255] of byte" ein eigener Typ wäre, z.B. TByteArray256, dann könnte man das Folgende mach...

Der erste Parameter in FillByte, dein "Data", ist ein "var" Parameter. Das signalisiert, dass die aufgerufene Funktion den Wert lesen und schreiben kann. Falls Data gelesen wird, (was hier natürlich nicht der Fall ist), fällt dem compiler auf, dass Data keinen wohldefinierten Wert hat, denn an Data ...

Richtig.

Genau.

Ich habe FPC 3.3.1, 3.2.2, 3.2.0, 3.0.4 und 2.6.4 unter 32-bit Windows ausprobiert. Bis auf 3.3.1 liefern alle mit deinem Programm einen Laufzeitfehler 103, "File not open" - das ist klar, das Häkchen bei "Win32 GUI application" unter "Projekt Options" > "Compiler Options" > "Config and Target" ist ...

heute Morgen hatte ich eher die Muße mal was zusammen zu hexen. Siehe Anhang. Mit FPC/main (v3.3.1) wird der Umlaut in P.WriteText(xPos[34], yPos[34], 'Versteigerungsliste ' + UTF8Decode('für') + ' den'); korrekt dargestellt. Dasselbe gilt für alle anderen Sonderzeichen in dem Text, wenn UTF8Decode...

Wieder heiteres Beruferaten... Was genau sind Vec3 und Quads? Ich kann's mir denken und habe mir folgenden compilierbaren Code zusammengereimt: type TVec3 = record x,y,z: Single; end; function Vec3(a, b, c: Single): TVec3; begin end; procedure Quads(v1, v2, v3, v4: TVec3); begin end; procedure TForm...

Es geht anscheinend um PDF-Erzeugung. Da wirst du für uns sicher ein kleines Projekt erzeugen und hochladen können, in dem man den Fehler sieht? Ansonsten ist das nur blinde Raterei...

Man muss die Positionen also selbst berechnen, oder korrigieren. Oder die Positionen und Größen mit dem Anker-Editor festlegen. War es nicht so, dass Maße, die vom Anchor abhängig sind, nicht skaliert werden? Maße, die vom Anchor abhängig sind? Ich sehe das genau anders herum: Der Anchor definiert ...