david
ef415fa856
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.FastReport@9 475b051d-3a53-6940-addd-820bf0cfe0d7
79 lines
1.8 KiB
ObjectPascal
79 lines
1.8 KiB
ObjectPascal
|
|
{******************************************}
|
|
{ }
|
|
{ FastReport v3.0 }
|
|
{ Hi-color buttons }
|
|
{ }
|
|
{ Copyright (c) 2004 }
|
|
{ by Alexander Fediachov, }
|
|
{ Fast Reports, Inc. }
|
|
{ }
|
|
{******************************************}
|
|
|
|
unit frxHiButtons;
|
|
|
|
interface
|
|
|
|
{$I frx.inc}
|
|
|
|
implementation
|
|
|
|
uses Windows, Classes, SysUtils, Graphics, frxGZip, frxClass, frxRes;
|
|
|
|
{$R frxHiButtons.res}
|
|
|
|
var
|
|
bmp: TBitmap;
|
|
stm: TMemoryStream;
|
|
res: TResourceStream;
|
|
|
|
initialization
|
|
stm := TMemoryStream.Create;
|
|
try
|
|
bmp := TBitmap.Create;
|
|
res := TResourceStream.Create(hInstance, 'HiDesgnButtons', RT_RCDATA);
|
|
try
|
|
stm.Clear;
|
|
frxDecompressStream(res, stm);
|
|
stm.Position := 0;
|
|
bmp.LoadFromStream(stm);
|
|
frxResources.SetButtonImages(bmp, True);
|
|
finally
|
|
bmp.Free;
|
|
res.Free;
|
|
end;
|
|
|
|
bmp := TBitmap.Create;
|
|
res := TResourceStream.Create(hInstance, 'HiObjectButtons', RT_RCDATA);
|
|
try
|
|
stm.Clear;
|
|
frxDecompressStream(res, stm);
|
|
stm.Position := 0;
|
|
bmp.LoadFromStream(stm);
|
|
frxResources.SetObjectImages(bmp, True);
|
|
finally
|
|
bmp.Free;
|
|
res.Free;
|
|
end;
|
|
|
|
bmp := TBitmap.Create;
|
|
res := TResourceStream.Create(hInstance, 'HiPreviewButtons', RT_RCDATA);
|
|
try
|
|
stm.Clear;
|
|
frxDecompressStream(res, stm);
|
|
stm.Position := 0;
|
|
bmp.LoadFromStream(stm);
|
|
frxResources.SetPreviewButtonImages(bmp, True);
|
|
finally
|
|
bmp.Free;
|
|
res.Free;
|
|
end;
|
|
|
|
finally
|
|
stm.Free;
|
|
end
|
|
|
|
end.
|
|
|
|
|
|
//<censored> |