XnView Software

Thx

I found one more bug in gflGetTextExtent(). text_width hold incorrect value if italic is enabled (several px fewer, like for normal text).

OK, I found the error. It is in the libgfl.pas. There is:

function gflGetTextExtent( var text, font_name: PChar;
var font_size, orientation: GFL_INT32;
var italic, bold, strike_out, underline, antialias: GFL_BOOL;
var text_width, text_height: GFL_INT32): GFL_ERROR; stdcall;

Should be (without ...

I have called gflLibraryInit() with a result of GFL_NO_ERROR
gflGetTextExtent() returns GFL_NO_ERROR
I use it under Windows XP and Delphi 6 Professional. I used odd fonts, they are installed in the system.

I tried to use gflGetTextExtent() in a loop and the width/height parameters was some, but ...

Hi

I want to set text on the image using gflAddText(). Previously I have to know the width and height of the area with the text. I tried to use gflGetTextExtent() to get that values but this function returns random values. For example for three identical calls of
gflGetTextExtent('Reggi', 'Arial ...

OK.

Correct too error in line 265. There is:
Should be with semicolon:

Will You change in libgfl.pas or in dll?
I think I can verify entire libgfl.pas because there are more errors, and then i'll send you it.

Every picture is 24 bit

Curious issue. I tried to change declaration of this function to the form:

function gflSetColorAt(src: PGFL_BITMAP; x, y: GFL_INT32; var color: int64): GFL_ERROR; stdcall;

and then will use it in the loop like below:

color := 255; // color is int64 type
gflSetColorAt(gfl_bmp, x, y, color ...

Hi

I have next problem with new version of the library. Look into the code below (it's simplistic version of my code, but error occur):


for x:=10 to gfl_bmp.Width-10 do
begin
for y:=10 to gfl_bmp.Height-10 do
begin

gflGetColorAt(gfl_bmp, x, y, colorSrc);

colorSrc.Blue := colorSrc.Blue ...

I KNOW!!

The problem is in the libgfl.pas file.

There is:

function gflBitblt(src: PGFL_BITMAP; rect: PGFL_RECT;
dst: PPGFL_BITMAP ; x_dest, y_dest: GFL_INT32): GFL_ERROR; stdcall;

Should be:

function gflBitblt(src: PGFL_BITMAP; rect: PGFL_RECT;
dst: PGFL_BITMAP ; x_dest, y_dest: GFL_INT32 ...

Hi!

I have always AccessDenied in procedure:

procedure BlurFragment(X, Y, W, H, blur: integer; templImage: PGFL_BITMAP; bgColorGFL: TGFL_COLOR);
var
cropRect: TGFL_RECT;
fragment: PGFL_BITMAP;
begin
rC1 := repeatCount;
try
cropRect1.x:=X;
cropRect1.y:=Y;
cropRect1.w:=W;
cropRect1.h:=H ...

Hi, I didn't know about the newest version 2.67 because at address http://perso.orange.fr/pierre.g/xnview/enhome.html is information about 2.66 only.
In 2.6.7 this bug doesn't occur.

Sorry for my inadvertence, best regards

Hi. I have the Access Violation when using gflSharpen (in 2.66 only). It was worked correctly in previous version (2.54 and earlier):

procedure TGflImage.sharpImage(percent: integer);
begin
gflSharpen(gfl_bmp, nil, percent);
end;

I tried to using this function with some 'percentage' values from ...

Hi.

I use libgfl in Delphi and found some bugs in declarations of the funcions.

The functions using PGFL_COLOR type don't work correctly so I chenged the declarations to INT64 and it work - for example:

function gflDrawLineColor(src: PGFL_BITMAP; x0, y0, x1, y1: GFL_INT32;
line_width: GFL ...

As in topic. This button is aligned to left and don't move when resizing this Dialog.

Regards