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

Вниз

Рисование на форме поверх всех компонентов   Найти похожие ветки 

← →
QuestionX   (2004-08-03 01:21) [0]

Собственно как осуществить сабж.

---

← →
KSergey ©   (2004-08-03 07:16) [1]

См. последние посты из http://delphimaster.net/view/1-1091397868/&web=1

---

← →
QuestionX   (2004-08-04 18:44) [2]

Посмотрел, вот только как эти посты относятся к сабжу ?

---

← →
KSergey ©   (2004-08-04 19:37) [3]

Внимательнее перечитайте по поводу окна поверх всего... И поверьте - это единственный 100% вариант.

---

← →
QuestionX   (2004-08-04 21:10) [4]

> KSergey ©   (04.08.04 19:37) [3]
> Внимательнее перечитайте по поводу окна поверх всего...
> И поверьте - это единственный 100% вариант.

Возможно я чего - то не понимаю, но как сделать это окно, которое будет поверх всего прозрачным ? Т.е. чтобы компоненты, которые лежат под ним были видны. Стиль WS_EX_TRANSPARENT не помогает. А если вместо TCustomControl (наследника TWinControl) использовать TGraphicControl то он не ресует поверх компонент.

Что я делаю не так, что этот 100% вариант не работает ?

---

← →
QuestionX   (2004-08-04 21:27) [5]

AlphaBlend тоже не подходит - потому как программа должна работать не только под Win2k и выше, но и под Win9X

---

← →
Алхимик ©   (2004-08-05 00:11) [6]


procedure TForm1.Button1Click(Sender: TObject);
var
 DC : THandle;
 Canvas : TCanvas;
 SaveIndex : integer;
begin
 DC := GetWindowDC(Handle);
 try
   Canvas := TControlCanvas.Create;
   with Canvas do
   try
     SaveIndex := SaveDC(DC);
     try
       Handle := DC;
    {Рисуем что надо}      
     finally
       Handle := 0;
       RestoreDC(DC, SaveIndex);
     end;
   finally
     Canvas.Free;
   end;
 finally
   ReleaseDC(Handle, DC);
 end;
end;

Выдрано из VCL. Не разбирался как, но работает. :)

---

← →
KSergey ©   (2004-08-05 09:13) [7]

> [6] Алхимик ©   (05.08.04 00:11)

Если я ничего не путаю - так нарисует только по одному окну.
В частности, по двум рядом стоящим кнопкам одновременно - нифига, разумеется.

> [4] QuestionX   (04.08.04 21:10)

Ну напрячься чтоли лень? ;)

http://z-ol.chat.ru/cmp.htm

TStretchHandles Прозрачный компонент, применяемый для перемещения визуальных элементов формы и изменения их размеров во время работы программы. Во время работы от визуально очень напоминает редактор Delphi

Вот здесь можно посмотреть как умные люди делают ;)

---

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

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

Наверх

Память: 0.46 MB
Время: 0.037 c