Deutsches Lazarusforum

Jo danke,

funktioniert mit TBGRABitmap


function Resample(Src :TBgraBitmap; Width, Height :integer) :TBgraBitmap;
var
f :single;
begin
if (Width=0) and (Height=0) then begin
Width := Src.Width;
Height := Src.Height;
end else begin
f := Src.Width/Src.Height;
if Width=0 then
Width := round ...

Auffe Arbeit Windows 7, zu Hause Windows 10.

Arbeit: Kleine Firma, technikversiert, Desktop meistens Windows (7 und 10), für Serveraufgaben oft Linux, meistens auf ner VM.

Wir machen viel stromsparendes auf Controllern, dann ohne OS mit C. Zunehmend auch Embedded Linux, wenn TCP/IP benötigt wird ...

Moin,

als alter Delphi-Programmierer arbeite ich auch immer wieder gerne mit Lazarus und freue mich wie schön sich das entwickelt.

Für meinen FPC-WebGallery-Generator möchte ich Jpegs schön resampeln. Habe das früher mit ImageMagick gemacht, aber das ist etwas umständlich. Daher habe ich ...

Oops, habe das Wörtchen assembler übersehen. Jetzt kompiliert er!

Besten Dank.

Habe gerade das selbe Problem an einer anderen Stelle
Compiler meldet:

D:\Mf\Lz\LIBRARY\CPUTime.pas(31,1) Fatal: Syntax error, "BEGIN" expected but "ASM" found

Habe hier eine Funktion mit etwas Assembler drin. Kommt von Delphi und funktioniert. Manchmal streue ich ein paar Assemblerzeilen ein, weil die Hochsprache dann einfach zu umständlich, ineffektiv, kompliziert, langsam und hässlich ist (habe ich irgendwetwas vergessen?).

Ich weiß. dass Lazarus wegen ...