|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
нанесение на рисунок перемещаемых эелементов
На рисунок необходимо нанести один или несколько элементов (стрелки, кольца), указывающих положение, например, дефекта.
Планируется, что на форме будет несколько кнопок, при нажатии на одну из них на поле рисунка выводится, допустим, стрелка на прозрачном фоне. Затем с помощью мышки стрелка перемещается в конкретное место. Подскажите, как реализовать эту задачу. Спасибо. |
#2
|
||||
|
||||
Ставь на форму дополнительные Imag'ы.
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#3
|
|||
|
|||
Цитата:
Я, оказывается, рано обрадовался. При сохранении рисунка - дополнительный сохраняется на белом фоне, хотя фон у него прозрачный. procedure TForm1.Button2Click(Sender: TObject); var jpg: TJpegImage; v: TRect; BufRct: Trect; // BackRct: Trect; // begin jpg := TJpegImage.Create; Image2.Transparent := True; // BufRct := Bounds(Image2.Left, Image2.Top, 36, 36); // BackRct := Bounds(Image1.Left, Image1.Top, 36, 36); // Image1.Canvas.CopyRect(BufRct, Image2.Canvas, BackRct); // ... jpg.Assign(image1.picture.graphic); jpg.CompressionQuality := 95; jpg.Compress; jpg.SaveToFile(Edit1.Text+'.jpg'); jpg.free; end; Где у меня ошибка? Все, что связано с дополнительным рисунком Image2 помечено двумя слэшами. Спасибо. Последний раз редактировалось cadil, 29.05.2008 в 12:18. |