Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Динамическое создание пиктограммы

Автор: skeef 28.11.2010, 11:28

Стоит задача исходя из данных в строке Excel-таблицы собирать из кусочков изображения готовую пиктограмму и загонять ее в буфер обмена, для последующей вставки уже руками на карту в ксаре (xara - векторный редактор, типа Corel).
Пробовал использовать pngimage - все классно друг на друга накладывается, но библиотека не работает с буфером обмена :( т.е. в клипборд передается обычная bmp-шка и на белом фоне.
(Конечно же пиктограммы круглые :( )
Далее решил попробовать использовать метафайлы. Вроде разобрался, получается такой код (без аналитики экселя):

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  GetDir(0, ImgPath);
  ImgPath := ImgPath + '\img\';
end;

procedure TForm1.btnCreateClick(Sender: TObject);
var
  pic1, pic2: TMetafile;
  mc : TmetaFileCanvas;

begin
  pic1 := TMetafile.Create;
  pic1.LoadFromFile(ImgPath + 'lCircGR.wmf');
  pic2 := TMetafile.Create;
  pic2.LoadFromFile(ImgPath + 'sCircB.wmf');

  picRes := TMetafile.Create;
  picRes.Height := 100;
  picRes.Width := 100;
  mc := TMetafileCanvas.Create(picRes, 0);
  mc.Draw(0, 0, pic1);
  mc.Draw(30, 0, pic2);
  mc.Free;
end;

procedure TForm1.btnCBClick(Sender: TObject);
begin
  Clipboard := TClipBoard.Create;
  Clipboard.Assign(picRes);
end;

вроде что-то получается, но есть 2 проблемы:
1. Если я в процедуре btnCreateClick загоняю созданную картинку в Clipboard.Assign(picRes); - вылетает ошибка доступа к памяти, поэтому пришлось сделать дополнительно кнопку btnCBClick. Как-то странно
2. Когда я пробовал виндовские метафайлы, те что лежат в офисе, - все классно получалось - в ксару вставляется вектор. Теперь же, когда я начал писать подпрограммы для размещения частей в нужных координатах, сами эти части конвертировал из той-же ксары в .wmf. Получается\ какая-то фигня. Вроде как метафайл, но внутри скорее всего бмп-шка, потому как присутствует фон. :( Наверное криво конвертирует касара (сейчас качаю корел, чтобы убедиться)
Кто что посоветует?
Может есть решение попроще?

Delphi2010, WinXP