Форум: "Начинающим";
Текущий архив: 2007.06.24;
Скачать: [xml.tar.bz2];

Вниз

Задание размера TMetafile   Найти похожие ветки 

← →
Gydvin ©   (2007-06-01 09:36) [0]

Не пойму, что за ерунда. Делаю так

var
 wmf: tmetafile;
....

 wmf := TMetafile.Create;

 wmf.Transparent := true;
 wmf.Enhanced := true;
 wmf.Height := 35;
 wmf.Width := 35;

with TMetafileCanvas.Create(wmf, 0) do
 try
//рисую
 finally
   Free;
 end;

Размеры у wmf не изменяются.

А если так то все работает.

var
 wmf: tmetafile;
....

 wmf := TMetafile.Create;

 wmf.Transparent := true;
 wmf.Enhanced := true;
 wmf.Height := 35;
 wmf.Width := 35;

with TMetafileCanvas.Create(wmf, 0) do
 try
//пустой
 finally
   Free;
 end;

with TMetafileCanvas.Create(wmf, 0) do
 try
//рисую
 finally
   Free;
 end;

Почему? И как лечить

---

← →
Desdechado ©   (2007-06-01 12:48) [1]

А почему они должны меняться?
Ты думаешь, что при рисовании за границей указанных размеров они будут растягиваться? Нет, не будут.
Помню, были какие-то проблемы при создании полотна без примечаний, поэтому всегда создаю с примечаниями.
var
 oMeta: TMetafile;
 oCanv: TMetafileCanvas;
begin
 oMeta := TMetafile.Create();
 oMeta.Height := 250;
 oMeta.Width := 470;
 oCanv := TMetafileCanvas.CreateWithComment( oMeta, 0, s1, s2 );

---

← →
Gydvin ©   (2007-06-01 13:59) [2]

> Ты думаешь, что при рисовании за границей указанных размеров
> они будут растягиваться?

Нет недумаю. Мне нужно именно задать размеры полотна. Тоесть размеры
указанные метафайлу не применяются с первой попытки к созданной канве. Только со второй, как показанно в [0] пример 2.

CreateWithComment( oMeta, 0, "qw", "qw" );

Тоже самое.

---

← →
Desdechado ©   (2007-06-01 14:06) [3]

Версия дельфей какая?
У меня на 5-ке проблем не было, да и на 7-ке не замечал.

---

← →
Gydvin ©   (2007-06-01 14:28) [4]

D7

пробовал так

with TMetafileCanvas.CreateWithComment( wmf, 0, "qw", "qw" ); do
try
   ...

finally
  Free;
end;

---

← →
Gydvin ©   (2007-06-01 14:29) [5]

без ; do ессно

---

← →
umbra ©   (2007-06-01 15:23) [6]

как говорит великий и ужасный F1 о TMetaFileCanvas.Create :

Create sets the size of the TMetafile object from ReferenceDevice if it does not already have the MMHeight and MMWidth properties set.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.06.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.045 c