Задание размера 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;

без ; do ессно

как говорит великий и ужасный 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.

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