Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.11;
Скачать: CL | DM;

Вниз

чем еще можно рисовать   Найти похожие ветки 

 
zxc   (2005-11-13 18:18) [0]

dc:=getDC(Panel1.Handle);
polyline(dc,...,
какой 3-й аргумент?
и чем еще можно рисовать
кроме эллипсов и квадратиков


 
PAVIA ©   (2005-11-13 18:48) [1]

чем еще можно рисовать
Всем тем же, чем и в TCanvas. Только немного подругому.
какой 3-й аргумент?
Напиши windows.polyline() и высвитится подсказка. А вообще F1.


 
Zeqfreed ©   (2005-11-13 19:55) [2]

zxc   (13.11.05 18:18)

> какой 3-й аргумент?

cPoints
[in] Specifies the number of points in the array. This number must be greater than or equal to two.



>и чем еще можно рисовать
> кроме эллипсов и квадратиков

Рисовать можно только контурами (pen) и кистями (brush)


 
stef ©   (2005-11-13 20:11) [3]

Ты уже несколько дней пытаешься добится как сделать на одном и том же объекте вывод видео и рисование графики.
При выводе каждой новой картинки видео на экран, она будет перерисовывать весь экран - это очевидно.
попробуй так и все поймешь:
Помести этот обработчик по нажатию кнопки

With MediaPlayer1 do begin
    Filename := sWinDir + "\Clock.avi"; //specify video file
    DeviceType := dtAVIVideo; //set Device compatibility to AVI
    Display := form1; //Set display device to a TPanel
    Open;
    Play;
end;

(с)Это из хелпа.

А это по событию OnMouseDown для form1

form1.canvas.pen.color:=clwhite;
form1.canvas.brush.color:=clwhite;
form1.canvas.rectangle(x-4,y-4,x+4,y+4);


Переменная sWinDir хранит путь к проигрываемому файлу.
DeviceType хранит тип устройства, резервируемого для проигрывания файла.
Кстати, тут можешь поэкспериментировать.

Я также попробовал поместить над формой (где в это время проигрывается фильм) Image  и рисовать на нем - не помогло.



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

Текущий архив: 2005.12.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
1-1132075178
Кирилл_
2005-11-15 20:19
2005.12.11
Вставка в ListBox


2-1132428043
Officeman
2005-11-19 22:20
2005.12.11
Edit1.text как запретить вводить буквы и разрешить цифры


14-1132659449
Quadro
2005-11-22 14:37
2005.12.11
Требуется довести до ума небольшую программу на Дельфи 7


3-1130492504
NewProg
2005-10-28 13:41
2005.12.11
Помогите с исключающим запросом


4-1129138447
Конст
2005-10-12 21:34
2005.12.11
FormatMessage и освобожение буфера