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

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

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

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

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

←   Август 2001   →
 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
26
27
28
29
30
31
Автор
Сергей

Статистика

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

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


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 05.08.01 09:04

Новые компоненты   |x|
Кое-что из нашей кладовки   |x|
  • Интерпретатор PASCALC 1.02 Алексей Бойко alexboiko@yahoo.com   (01.03.01 10:43)
    Интерпретатор Pascal-подобного языка для Delphi (в виде DCU для D3,D4,D5). С его помощью в программе можно выполнять скрипты, вычислять значения формул и выражений. Поддерживаются числовые и стороковые переменные, функции (можно задать неограниченное количество функций с переменным набором параметров), стандартные математические операции, скобки, операторы ВEGIN ...END, IF ... THEN ... ELSE, FOR ... TO/DOWNTO ... DO, WHILE ... DO, REPEAT ... UNTIL, GOTO, BREAK, EXIT.
    »»» Скачать: исходные тексты (47кб)
  • Tetris Classic 2000 Alexx Alexx@geocom.ru   (03.08.01 11:14)
    Классический Тетрис с классическими правилами. Неплохо оформлен. Даже скины можно менять.
    »»» Скачать: исходные тексты (15кб) демонстрационный EXE файл (678кб)
Лучшее из нашего 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 := LoadBitmap(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;    Result := true;
end;

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



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

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
А СОБСТВЕННО ЗАЧЕМ? Немного об пользовательских интерфейсах. Часть 3.
Термин юзабилити становится все более модным. Его начинают склонять все кому не лень. Не удивлюсь если в скором времени, они будут зазывать пользователей слоганами вроде: "В нашей программе самое лучшее юзабилити. Покупайте только у нас!"... И возникает резонный вопрос, помимо этой своеобразной моды на юзабилити, существуют ли другие основания, для того чтобы программисты дружною толпой кинулись в дебри проектирования интерфейсов и эргономики?
Другие сайты о DELPHI   |x|
Delphi - ресурсы
Ресуры по Delphi.
Опрос населения :)
Как вы нашли наш сайт?
»»» Поисковая система
»»» Рассылка
»»» Ссылка с другого сайта
»»» Через каталог сайтов
»»» Друг посоветовал
»»» Случайно
Для души

Хокку дня
Бабочка в траве
Открывает тишину
Мира без меня.

Афоризмы
Если не знаешь, чем заняться на работе - работай....

Фраза дня
Позвольте Вас, мадам, немного пингануть...

И на закуску коротенький анекдот
Забрели как-то ребята на сайт "Плейбоя". Идет длинный ряд моделей с их "ТТХ", вдруг кто-то озадачивается: бюст 34 дюйма - это как, много или не очень? После напряженной тишины один с просветленным лицом восклицает:
- Да это ж как два 17-дюймовых монитора!

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

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться Рейтингуется SpyLog
В избранное