Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Сентябрь 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
25.09.2004
09:17:24
13:47:46
26
27
28
29
30
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 20.09.04 09:18

Лучшее из нашего FAQ   |x|
В некоторых видео режимах прозрачная часть glyph'а стандартного TBitBtn становится видной. Как этого избежать?
В примере используется техника закраски прозрачной части glyph'а цветом кнопки на которой он находится - таким образом glyph кажется прозрачным.
Пример:

function InitStdBitBtn(BitBtn : TBitBtn; kind : TBitBtnKind) : bool;
var
    Bm1 : TBitmap;
    Bm2 : TBitmap;
begin
    Result := false;
    if Kind = bkCustom then exit;
    Bm1 := TBitmap.Create;
    case Kind of
        bkOK : Bm1.Handle := LoadBitmap(hInstance, 'BBOK');
        bkCancel : Bm1.Handle := LoadBitmap(hInstance, 'BBCANCEL');
        bkHelp : Bm1.Handle := LoadBitmap(hInstance, 'BBHELP');
        bkYes : Bm1.Handle := LoadBitmap(hInstance, 'BBYES');
        bkNo : Bm1.Handle :=
LoadBitmap(hInstance, 'BBNO');
        bkClose : Bm1.Handle := Lo
 adBitmap(hInstance, 'BBCLOSE');
        bkAbort : Bm1.Handle := LoadBitmap(hInstance, 'BBABORT');
        bkRetry : Bm1.Handle := LoadBitmap(hInstance, 'BBRETRY');
        bkIgnore : Bm1.Handle := LoadBitmap(hInstance, 'BBIGNORE');
        bkAll : Bm1.Handle := LoadBitmap(hInstance, 'BBALL');
    end;
    Bm2 := TBitmap.Create;
    Bm2.Width := Bm1.Width;
    Bm2.Height := Bm1.Height;
    Bm2.Canvas.Brush.Color := ClBtnFace;
    Bm2.Canvas.BrushCopy(Rect(0, 0, bm2.Width, bm2.Height), Bm1,
                    Rect(0, 0, Bm1.width, Bm1.Height),
    Bm1.canvas.pixels[0,0]);
    Bm1.Free;
    LockWindowUpdate(BitBtn.Parent.Handle);

   BitBtn.Kind := kind;
    BitBtn.Glyph.Assign(bm2);

     LockWindowUpdate(0);
    Bm2.Free!
 ;
 &n
bsp;  Result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    InitStdBitBtn(BitBtn1, bkOk);
end;



Источник: Дельфи. Вокруг да около.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • Компиляция на FPC
    А можно компилировать код собранный на KOL (с помощью MCK) на FPC? Кто нибудь пробовал? В том числе используя ...
  • opengl
    Здравзтвуте мастера !!!! Я хачу забацать игрушку, хотябы как quake3 из каторой потом можно будет зделать игру как доом3 ...
  • Как найти последний день месяца?
    Здравствуйте уважаемые эксперты! Подскажите, есть ли какие-нибудь функций на Delphi для нахождения последнего дня ...
  • будет ли это работать для ANSI кодировки ?
    Пользуюсь функций GetFontUnicodeRanges для извлечения число символов из шрифта. Как говорит название функций и его ...
  • Создание SQL-запроса
    Уважаемые мастера! Не судите строго. Помогите составить запрос. Структура таблицы Код наименования Дата Код места (...
  • Экономия трафика ложь или быль? (IdHTTP)
    Можно ли сэкономить трафик при получении ответа на запрос? Можно ли получить вместо полного исходного кода страшицы ...

У нас большой выбор статей   |x|
Локализация встроенных констант
Данная статья показывает, как можно перевести на русский язык строки, заголовки которых недоступны для “простого присваивания”, например заголовки окна функции MessageDlg.
Новинки книжного рынка   |x|
Технологии разработки программного обеспечения. Учебное пособие. 2-е изд.
Учебник посвящен систематическому изложению принципов, моделей и методов, используемых в инженерном цикле разработки сложных программных продуктов. Изложены классические основы программной инженерии, показаны последние научные и практические достижения, характеризующие динамику развития этой области; продемонстрирован комплексный подход к решению наиболее важных вопросов, возникающих в больших программных проектах. В основу материала положен двенадцатилетний опыт преподавания автором соответствующих дисциплин.
Автор: Орлов С. А.
Опрос населения :)
Какой раздел сайта вам больше нравится?
»»» FAQ
»»» Статьи
»»» Новости мира компонент
»»» Форумы
»»» Компоненты
»»» База по другим сайтам
Для души

Хокку дня
Вот и пришел Hовый Год
Hынче жена расстаралась
Зажарив собаку в сметане...

Афоризмы
Не создавайте себе чужих проблем.

Фраза дня
Сложно совмещать неприятное с бесполезным.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Дюранго в Колорадо (США) считается преступлением появиться на улице в одежде, присущей другому полу.
В городе Лехай в Небраске (США) издано блестящее по идиотизму распоряжение, официально запрещающее продавать дырки от бубликов.

И на закуску коротенький анекдот
- А когда кончатся патроны - что будешь делать?
- Зубами их, гадов, буду...
- И ты думаешь, твои зубы влезут в автомат?

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=16

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (merlin@delphimaster.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.mdelphi		 Отписаться
В избранное