Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];

Вниз

Глюк у меня или где то еще?   Найти похожие ветки 

 
BOPOH   (2002-07-26 13:56) [0]

Вот код:
Rect.Left := 0;
Rect.Top := 10;
Rect.Right := 300;
Rect.Bottom := 30;
DrawCaption(Form1.Handle, Form1.Canvas.Handle, Rect, DC_ICON or DC_TEXT or DC_ACTIVE or DC_GRADIENT);

вроде должна нарисоватся строка заголовка, но рисуется почему-то только одна иконка, даже прямоугольник заданный в Rect не рисуется целиком. Если не указывать DC_ICON, то вообще ничего не рисуется, но функция говорит, что выполнелась нормально. Что я не правильно делаю?


 
Alx2   (2002-07-26 14:07) [1]

Попробуй так (у меня получилось):
DrawCaption(Form1.Handle, GetWindowDC(Form1.Handle), Rect, DC_ICON or DC_TEXT or DC_ACTIVE or DC_GRADIENT);
Только потом DC освободи.


 
Alx2   (2002-07-26 14:13) [2]

Нюанс:
Для рисования в клиентской части лучше так:
Rect.Left := 0;
Rect.Top := 10;
Rect.Right := 300;
Rect.Bottom := 30;
OffsetRect(Rect,ClientOrigin.X,ClientOrigin.Y); // Смещаемся к началу клиента.
dc := GetWindowDC(ClientHandle); // Handle для клиентскаой части
DrawCaption(Handle, dc, Rect, DC_ICON or DC_TEXT or DC_ACTIVE or DC_GRADIENT);
ReleaseDC(ClientHandle,dc); // освобождаем dc


 
Игорь Шевченко   (2002-07-26 14:16) [3]

Alx2 © (26.07.02 14:13)

ClientHandle - Provides access to the handle of the form’s internal MDI client window.

Имеет смысл только для MDI


 
Alx2   (2002-07-26 14:25) [4]

>Игорь Шевченко © (26.07.02 14:16)
блин, точно :)


 
BOPOH   (2002-07-26 14:57) [5]

Благодарю за помощь



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
8-24135
DEN[BRAGA]
2002-04-03 15:54
2002.08.08
программирование


3-23965
sanilo
2002-07-16 23:00
2002.08.08
Именованные каналы


14-24170
VS2001
2002-07-04 06:41
2002.08.08
У кого нибудь есть откомпилированные DesignEditors, DesignIntf ..


7-24239
limon
2002-05-22 11:11
2002.08.08
Вопрос о возможностях сервисов NT


3-23960
madmike
2002-07-19 03:20
2002.08.08
Помогите оптимизировать запрос, плз.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский