15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту

Borland C++ Builder FAQ
Составлен по материалам форума на Исходниках.Ru
Содержание Последнее обновление: 14.02.2004

Как рисовать на рабочем столе и других окнах?

Автор: OlegGG
Исходная ссылка: - - -

Пример:
TCanvas * DeskTop = new TCanvas;
if (DeskTop)
        {
        DeskTop->Handle = GetDC(HWND_DESKTOP);
        DeskTop->Brush->Style = bsClear;
        DeskTop->Font->Size = 36;
        DeskTop->Font->Style = TFontStyles() << fsBold;
        DeskTop->Font->Name = "Lucida Console";

        int count = DeskTop->Font->Size*3;
        int Xit_st = -1;
        int Yit_st = -1;
        int X = 50;
        int Y = 50;
        for (int y=count;y>0;y--)
                {
                int cv = 255-255/y;
                DeskTop->Font->Color = (TColor)RGB(cv,cv,cv);
                DeskTop->TextOut(X+Xit_st*y,Y+Yit_st*y,"www.sources.ru");
                }
        ReleaseDC(0, DeskTop->Handle);
        }
delete DeskTop;