You are not logged in.
Pages: 1
AB,
Do you still provide any support for SynGDI Plus?
I have created a ThumbView component that uses the GR32 lib. In this component I put:
uses
Windows, Messages, Math, SysUtils, Classes, Controls, Types,
StdCtrls, Dialogs, Contnrs, CommCtrl, ActiveX, Graphics, Forms,
GR32_Image, GR32, GR32_Transforms, GR32_RangeBars, GR32_Blend,
SynGdiPlus,
BackgroundWorker;
....
//initialization
// Gdip.RegisterPictures;
end.
When I install the component without this initialization I can close delphi without any problems.
but if i uncomment that initialization Gdip.RegisterPictures, when I close delphi I get the following message
Offline
Offline
i have commented the picture (GIF) that was registred. the error happen yet
I removed TGifImage of matrixes too
const
PicturesExt: array[0..4] of TFileName =
('jpg','jpeg','png','tif','tiff');
PictureClasses: array[0..4] of TGraphicClass =
(TJpegImage,TJpegImage,TPngImage,TTiffImage,TTiffImage);
....
procedure TGDIPlus.RegisterPictures;
var
i: integer;
begin
SendDebug('register!');
// launch Gdip.RegisterPictures to initialize the GDI+ library if necessary
if (Self=nil) and (Gdip=nil) then
begin
SendDebug('gdipo criando!');
Gdip := TGDIPlus.Create('gdiplus.dll');
end;
// register JPG and PNG pictures as TGraphic
if GetClass('TTiffImage')=nil then
begin
RegisterClass(TJpegImage);
RegisterClass(TPngImage);
//RegisterClass(TGifImage); <<<<<<<<<<<<
RegisterClass(TTiffImage);
for i := 0 to high(PicturesExt) do
TPicture.RegisterFileFormat(PicturesExt[i],
PictureName(PictureClasses[i]),PictureClasses[i]);
end;
end;
Offline
I can do this into component, or i will need call manually into application when using the component?
Offline
Pages: 1