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…
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:
|
1
|
DateTimePicker.Format := 'MM/dd/yyyy';
|
…
|
1
2
3
4
5
6
7
8
|
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…
When using Delphi XE2 or above editions to compile coeds likes below:
|
1
2
3
4
5
|
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:
|
1
2
3
4
5
6
7
8
9
|
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;
|