динамическое создание пиктограммы

← →
skeef (2010-11-28 11:25) [0]

Стоит задача исходя из данных в строке 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. Получается\ какая-то фигня. Вроде как метафайл, но внутри скорее всего бмп-шка, потому как присутствует фон. :( Наверное криво конвертирует касара (сейчас качаю корел, чтобы убедиться)
Кто что посоветует?
Может есть решение попроще?

← →
skeef (2010-11-28 11:30) [1]

Забыл: Delphi 2010

← →
Дмитрий Белькевич (2010-11-29 10:51) [2]

> Clipboard := TClipBoard.Create;

Не скажу, насчет глюка, скажу только, что так делать не нужно. Clipboard - глобальный объект, создаётся сам во время доступа к нему.

← →
Дмитрий Белькевич (2010-11-29 10:52) [3]

В этом ксаре, кстати, ole нету случаем? Что бы через буфер не гонять данные?

динамическое создание пиктограммы Найти похожие ветки