Эта страница создавалась 90,5 секунд(ы).
Выполнено запросов к базе данных: 23
Сжатие GZIP включено (8860 / 8856) : Debug Mode

unit strtoicon;

interface
uses Windows;

function StringToIcon (const st : string;textcolor:dword) : HIcon;
procedure GetMaskBitmaps(hSourceBitmap:HBITMAP;clrTransparent:dword;
             var hAndMaskBitmap:HBitmap;var hXorMaskBitmap:HBitmap);
function CreateIconFromBitmap(hSourceBitmap:HBITMAP;clrTransparent:DWORD):HICON;

implementation

procedure GetMaskBitmaps(hSourceBitmap: HBITMAP;
  clrTransparent: dword; var hAndMaskBitmap, hXorMaskBitmap: HBitmap);
var dc:HDC;
    hMainDC:HDC;
    hAndMaskDC:HDC;
    hXorMaskDC:HDC;
    bm:BITMAP;
    hOldMainBitmap:HBitmap;
    hOldAndMaskBitmap:HBitmap;
    hOldXorMaskBitmap:HBitmap;
    MainBitPixel:DWORD;
    x,y:longint;
begin
        DC:=GetDC(0);
        hMainDC:=CreateCompatibleDC(DC);
        hAndMaskDC:=CreateCompatibleDC(DC);
        hXorMaskDC:=CreateCompatibleDC(DC);

        GetObject(hSourceBitmap,sizeof(BITMAP),@bm);

        hAndMaskBitmap  := CreateCompatibleBitmap(DC,bm.bmWidth,bm.bmHeight);