|
@@ -245,10 +245,6 @@ const
|
|
|
var
|
|
var
|
|
|
LFilePath: String;
|
|
LFilePath: String;
|
|
|
LBitmap: TQRCodeGenLibBitmap;
|
|
LBitmap: TQRCodeGenLibBitmap;
|
|
|
-{$IF DEFINED(VCL_OR_LCL)}
|
|
|
|
|
- LJpeg: TQRCodeGenLibJPEGImage;
|
|
|
|
|
- LPng: TQRCodeGenLibPNGImage;
|
|
|
|
|
-{$IFEND VCL_OR_LCL}
|
|
|
|
|
begin
|
|
begin
|
|
|
LFilePath := ExtractFilePath(ParamStr(0));
|
|
LFilePath := ExtractFilePath(ParamStr(0));
|
|
|
LFilePath := IncludeTrailingPathDelimiter(LFilePath);
|
|
LFilePath := IncludeTrailingPathDelimiter(LFilePath);
|
Ugochukwu Mmaduekwe