Как рисовать на заголовке формы? -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.142.96.146]

Правила раздела C/C++: Системное программирование и WinAPI

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются.
4. Используйте теги [ code=cpp ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Старайтесь формулировать свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной и более давности без веских на то причин.

Полезные ссылки:
user posted image

FAQ Сайта (C++) user posted image

FAQ Форума

Наши Исходники user posted image

Поиск по Разделу user posted image

MSDN Library Online (Windows Driver Kit) user posted image

Google

Ваше мнение о модераторах: user posted image

B.V.

Модераторы: B.V.

Новое голосование

Как рисовать на заголовке формы?

мыш	Сообщ. #1 , 13.04.03, 00:10
Эльф Профиль · PM Рейтинг (т): 42	subj

Shiru_Otaku	Сообщ. #2 , 13.04.03, 00:44
Unregistered	А зачем? Создай форму без заголовка, сделай зону перетаскивания и кнопки свернуть-развернуть-выход... Хотя, может есть и более простой способ, незнаю - я тем, что предложил пользуюсь:)

мыш	Сообщ. #3 , 13.04.03, 01:17
Эльф Профиль · PM Рейтинг (т): 42	Так я так и сделал! Но почему-то кажется, что это-кривое решение. Да и изменить размер формы нельзя мышкой..

Shiru_Otaku	Сообщ. #4 , 13.04.03, 01:46
Unregistered	Да, не очень прямое... Про изменение размера мышкой - это да, мне для моих целей оно просто не требовалось...

Song	Сообщ. #5 , 13.04.03, 06:41
Unregistered	WM_NCPAINT

мыш	Сообщ. #6 , 14.04.03, 04:22
Эльф Профиль · PM Рейтинг (т): 42	Ок, делаю так: <br>procedure TForm1.WM_NCPAINT(var m: tWMNCPAINT);<br>var<br>rgn1:hrgn;<br>PaintHandle:hdc;<br>canv:tcanvas;<br>begin<br>canv:=tcanvas.Create;<br>inherited;<br> PaintHandle:=GetWindowDC(m.RGN);<br> Canvas.Handle:= PaintHandle;<br> canv.Rectangle(0,0,11,11);<br> ReleaseDC (m.RGN,PaintedHandle);<br> canv.Free;<br> end;<br> Пишет, что canvas does not allow drawing

Testudo	Сообщ. #7 , 14.04.03, 04:33
Master Профиль · PM Рейтинг (т): 105	Кто же присваивает дискрипторы? : BitBlt() тебе в помошь... ;D

мыш	Сообщ. #8 , 14.04.03, 04:40
Эльф Профиль · PM Рейтинг (т): 42	Как это "дескрипторы присваивает"? Попроще можно, чтоб я понял, где лажаю? :)

Testudo	Сообщ. #9 , 14.04.03, 04:49
Master Профиль · PM Рейтинг (т): 105	Canvas.Handle:= PaintHandle;

мыш

Сообщ. #10 , 14.04.03, 04:50

Эльф

Профиль · PM

Рейтинг (т): 42

Так тоже не работает:

procedure TForm1.WM_NCPAINT(var m: tWMNCPAINT); var PaintedHandle,Src:hdc; canv:tcanvas; begin canv:=tcanvas.Create; inherited; PaintedHandle:=GetWindowDC(m.RGN); Src:=GetDC(image1.Picture.Bitmap.Canvas.Handle); Canvas.Handle:= PaintedHandle; bitblt(paintedhandle,0,0,11,11,src,0,0,MERGECOPY); ReleaseDC (m.RGN,PaintedHandle); ReleaseDC (image1.Picture.Bitmap.Canvas.Handle,src); canv.Free; end;

Ошибок правда нет, но эффекта ноль.

мыш	Сообщ. #11 , 14.04.03, 04:54
Эльф Профиль · PM Рейтинг (т): 42	Цитата Testudo, 14.04.03, 08:49:40 Canvas.Handle:= PaintHandle; А это я взял из первого номера хакера, где на дельфе программить учили, года полтора назад. Там на рабочем столе рисовали, все работало.

Testudo

Сообщ. #12 , 14.04.03, 05:06

Master

Профиль · PM

Рейтинг (т): 105

Извиняюсь за наезд. Держи рабочий сырец:

*** procedure WM_NCPAINTP(var msg:TMessage); message WM_NCPAINT; *** procedure TForm1.WM_NCPAINTP(var msg:TMessage); var tc:TCanvas; begin inherited; tc:=TCanvas.Create; tc.Handle:=GetWindowDC(Handle); tc.Lock; tc.Pen.Style:=psSolid; tc.Pen.Color:=clRed; tc.MoveTo(0,0); tc.LineTo(Form1.Width,20); tc.Unlock; end;

мыш	Сообщ. #13 , 14.04.03, 22:59
Эльф Профиль · PM Рейтинг (т): 42	Вай, спасибо!

мыш	Сообщ. #14 , 14.04.03, 23:07
Эльф Профиль · PM Рейтинг (т): 42	testudo, а зачем ты заменил tmwncpaint сообщение на обычное tmessage ?

Testudo	Сообщ. #15 , 15.04.03, 04:18
Master Профиль · PM Рейтинг (т): 105	Да просто procedure (var msg:TMessage); message ; - стандартный вариант, работающий со всеми мессагами. Так зачем извращаться? ;D

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

Страницы: (3) [1] 2 3 все

[ Script execution time: 0,0320 ] [ 16 queries used ] [ Generated: 3.05.24, 02:21 GMT ]