Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.09.2009, 16:12   #1
AnTe
Форумчанин
 
Регистрация: 25.09.2008
Сообщений: 209
По умолчанию Скопировать часть из метафайла

блин, наверное уже просто голова к ночи опухла, не могу найти ответ

в общем так, имеется процедура, которая рисует на огромном (21000*29700) метафайле свою картину

нужно в Timage вывести часть этой картинки

после мытарств сделал отдельную тестовую программку, на форму положил Timage, при нажатии на кнопу в метафайле такого же размера рисуется эллипс, и делается попытка отображения его четвертины

Код:
procedure TfmTest.btnGoClick(Sender: TObject);
var
  MF: TMetafile;
  MC: TMetafileCanvas;
begin
  MF := TMetafile.Create;
  try
    MF.Width := 800;
    MF.Height := 1000;
    MC := TMetafileCanvas.Create(MF, 0);
    try
       MC.Ellipse(0,0,800,1000);
//1.       MC.CopyRect(Rect(0,0,800,1000),MC,Rect(0,0,400,500));
//2.      Image1.Canvas.CopyRect(Rect(0,0,800,1000),MC,Rect(0,0,400,500));
    finally
      MC.Free;
    end;
    Image1.Canvas.StretchDraw(Image1.ClientRect , MF);
//3.    Image1.Canvas.CopyRect(Rect(0,0,800,1000),Image1.Canvas,Rect(0,0,400,500));
  finally
    MF.Free;
  end;
end;
Вариант 1 - нет реакции
Вариант 2 - нет реакции
Вариант 3 - реакция есть, нужная (отрисовывается четверть эллипса), но, т.к. копирование происходит не с метафайла, а с самого эллипса - качество изображения соответственно плохое

Есть ли возможность на TImage отрисовать часть метафайла?
AnTe вне форума Ответить с цитированием
Старый 05.10.2009, 06:52   #2
AnTe
Форумчанин
 
Регистрация: 25.09.2008
Сообщений: 209
По умолчанию

Отрисовал, преобразовав координаты у канвы Image, на которою выводил
AnTe вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отрисовка метафайла средствами OpenGL -=CHIP=- Мультимедиа в Delphi 3 20.09.2009 13:12
Скопировать выделенную часть ячейки! nikolai_P Microsoft Office Excel 8 05.05.2009 12:27
как скопировать часть объединенной ячейки? Азамат Microsoft Office Excel 20 14.07.2008 22:50
Часть фона одним цветом а другая часть другим (без таблиц). Lanselot HTML и CSS 4 25.04.2008 18:41
как скопировать? zetrix Microsoft Office Excel 0 30.10.2006 18:52