Hallo,
Beim Kompilieren der
unit ceffmx.pas zeigt es einige Fehlermeldungen an. Kann mir jemand helfen, den Code für XE3 lauffähig zu machen?
Zitat:
[dcc32 Error] ceffmx.pas(440): E2003 Undeclared identifier: 'ScanLine'
Delphi-Quellcode:
function CefGetBitmap(const browser: ICefBrowser; typ: TCefPaintElementType; Bitmap: TBitmap): Boolean;
var
w, h, i: Integer;
p, s: Pointer;
begin
browser.GetSize(typ, w, h);
Bitmap.SetSize(w, h);
GetMem(p, h * w * 4);
try
Result := browser.GetImage(typ, w, h, p);
s := p;
for i := 0 to h - 1 do
begin
Move(s^, Bitmap.ScanLine[i]^, w*4);
Inc(Integer(s), w*4);
end;
finally
FreeMem(p);
end;
end;
Zitat:
[dcc32 Error] ceffmx.pas(440): E2017 Pointer type required
Move(s^, Bitmap.ScanLine[i]^, w*4);
Zitat:
[dcc32 Error] ceffmx.pas(809): E2003 Undeclared identifier: 'StartLine'
dst := @PByte(StartLine)[offset]; // StartLine ist vermutlich eine Eigenschaft von TBitmap
Zitat:
[dcc32 Error] ceffmx.pas(815): E2034 Too many actual parameters
Move(src^, dst^, offset);
Zitat:
[dcc32 Error] ceffmx.pas(1060): E2003 Undeclared identifier: 'Platform'
with AbsoluteToLocal(Platform.GetMousePos) do