| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
динамическое создание пиктограммы [WinXP]
skeef © (2010-11-28 11:25:00)Стоит задача исходя из данных в строке 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. Получается\ какая-то фигня. Вроде как метафайл, но внутри скорее всего бмп-шка, потому как присутствует фон. :( Наверное криво конвертирует касара (сейчас качаю корел, чтобы убедиться)
Кто что посоветует?
Может есть решение попроще?
Дмитрий Белькевич (2010-11-29 10:52:00) [1]В этом ксаре, кстати, ole нету случаем? Что бы через буфер не гонять данные?
Дмитрий Белькевич (2010-11-29 10:51:00) [2]
> Clipboard := TClipBoard.Create;
Не скажу, насчет глюка, скажу только, что так делать не нужно. Clipboard - глобальный объект, создаётся сам во время доступа к нему.
skeef (2010-11-28 11:30:00) [3]Забыл: Delphi 2010
| |
