| Автор
| Сообщение |
ORMADA
Постоянный участник
Возраст: 31
Знак зодиака: 
Зарегистрирован: 03.04.2003
Сообщения: 103
Откуда: ОРМАДИЯ
|
|
|
Цитата |
|
Всем привет!
Посмотрел в мсдн примеры но не пойму чё я сейчас неправильно написал ...
| Код: |
var
CompatibleDC: HDC;
hdcScreen: HDC;
AndMask: HBitmap;
XOrMask: HBitmap;
IconInfo: TIconInfo;
Rec: TRect;
begin
hdcScreen := CreateDC('DISPLAY', nil, nil, nil);
CompatibleDC := CreateCompatibleDC(hdcScreen);
SetTextColor(CompatibleDC, RGB(255, 255, 255));// устанавливаем цвет текста
AndMask := CreateCompatibleBitmap(CompatibleDC, 16, 16);// создаём bitmap
SelectObject(CompatibleDC, AndMask);// заносим AndMask в CompatibleDC
Rec := Rect(0, 0, 16, 16);// делаем прямоугольник
DrawText(CompatibleDC, '12', 2, Rec, DT_LEFT);// пишем текст на CompatibleDC
BitBlt(AndMask, 0, 0, 16, 16,CompatibleDC , 0, 0, SRCCOPY);// копируем в AndMask из CompatibleDC
//по идее сейчас в AndMask должно быть тоже что и в CompatibleDC
XOrMask := LoadBitmap(HInstance, PAnsiChar('DOFW' + IntToStr(DayOfWeek(Now))));
IconInfo.fIcon := True;
IconInfo.hbmMask := AndMask;
IconInfo.hbmColor := XOrMask;
Result := CreateIconIndirect(IconInfo);// создаём иконку
|
иконка создаёт но AndMask пустая  [/code]
_________________
ORMADA Forever! comp |
|
| В начало |
|
 |
|
|
 |
 Evgeny
Постоянный участник
Возраст: 51
Знак зодиака: 
Зарегистрирован: 26.06.2005
Сообщения: 152
Откуда: Омск
|
|
|
Цитата |
|
| Цитата: | | hdcScreen := CreateDC('DISPLAY', nil, nil, nil); |
hdcScreen := GetDC(0);
| Цитата: | | AndMask := CreateCompatibleBitmap(CompatibleDC, 16, 16);// создаём bitmap |
AndMask := CreateCompatibleBitmap(hdcScreen, 16, 16);
_________________
Здесь Вы там не найдете |
|
| В начало |
|
|
|
