Delphi Programming – losLab Software

Alcinoe with Delphi 11.1 Alexandria supporting

Alcinoe Component Library by Zeus64 is an open source of visual and non-visual components library for Delphi. Full OpenGL video player, WebRTC Delphi wrapper, native ios/android TEdit, Improved firemonkey controls, Firebase cloud messaging, Android/ios facebook SDK login, Json/Bson Parser, ImageMagick wrapper, MongoDB client. Alcinoe is compatible with Delphi Rio 10.3.3 and Delphi Sydney 10.4.2 https://github.com/Zeus64/alcinoe […]

Delphi 5 TDateTimePicker Format

During add Delphi 5 compatibility to the Purchase Order calculation sample of HotXLS Delphi Excel Spreadsheet component, an error occurred while compiling under Delphi 5. The line which set the date format of the TDateTimePicker control does not compile:

DateTimePicker.Format := 'MM/dd/yyyy';

1	DateTimePicker.Format := 'MM/dd/yyyy';

TDateTimePicker control of Delphi is a wrapper around a Microsoft control. It allows you to […]

ftol and the 64bit Delphi inline asm changes

function _ftol( f: double) : Integer; cdecl;
begin
  asm
    lea    eax, f
    fstp  qword ptr [eax]
  end;
  result := Trunc(f);
end;

function _ftol( f: double) : Integer; cdecl;

begin

asm

lea eax, f

fstp qword ptr [eax]

end;

result := Trunc(f);

end;

Above is a Delphi inline asm version of the ftol (Floating Point to Integer Conversion) function used by our HotPDF Delphi PDF component. When compiling above Delphi codes in the 64-bit target platform, Delphi will raise below error: [dcc64 Error] E1025 Unsupported language feature: ‘ASM’ The reason is: The 64-bit Delphi compiler DCC64 does […]

Delphi Incompatible type tagLOGBRUSH tagLOGBRUSH32

When using Delphi XE2 or above editions to compile coeds likes below:

procedure VEMRCREATEBRUSHINDIRECT(Data: PEMRCreateBrushIndirect);
begin
  GDIObjects[Data^.ihBrush] := CreateBrushIndirect(Data^.lb);
//GDIObjects and CreateBrushIndirect are defined in the winapi.windows unit.
end;

procedure VEMRCREATEBRUSHINDIRECT(Data: PEMRCreateBrushIndirect);

begin

GDIObjects[Data^.ihBrush] := CreateBrushIndirect(Data^.lb);

//GDIObjects and CreateBrushIndirect are defined in the winapi.windows unit.

end;

The compiler says: E2010 Incompatible types: ‘tagLOGBRUSH’ and ‘tagLOGBRUSH32’. The solution to fix this compiling error is:

procedure VEMRCREATEBRUSHINDIRECT(Data: PEMRCreateBrushIndirect);
var
  LogBrush: TLogBrush;
begin
  LogBrush.lbStyle := Data^.lb.lbStyle;
  LogBrush.lbColor := Data^.lb.lbColor;
  LogBrush.lbHatch := Data^.lb.lbHatch;
  GDIObjects[Data^.ihBrush] := CreateBrushIndirect(LogBrush);
end;

procedure VEMRCREATEBRUSHINDIRECT(Data: PEMRCreateBrushIndirect);

var

LogBrush: TLogBrush;

begin

LogBrush.lbStyle := Data^.lb.lbStyle;

LogBrush.lbColor := Data^.lb.lbColor;

LogBrush.lbHatch := Data^.lb.lbHatch;

GDIObjects[Data^.ihBrush] := CreateBrushIndirect(LogBrush);

end;