MetaFileCanvas

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
DarkEternal
Üye
Mesajlar: 158
Kayıt: 19 Eki 2005 11:00

MetaFileCanvas

Mesaj gönderen DarkEternal »

Kod: Tümünü seç

procedure MetaGetir;
var
MetaFile:TMetaFile;
MetaFileCanvas:TMetaFileCanvas;
begin
  MetaFile := TMetafile.Create;
  MetaFile.LoadFromFile('c:\autocad.wmf');
  MetaFileCanvas := TMetafileCanvas.Create(MetaFile,0);
ile wmf (MetaFile) dosyasını açıyorum.Örneğin

Kod: Tümünü seç

MetaFileCanvas.Pixels[10,10] := clRed;
ile de pixel olarak atama yapabiliyorum.

Fakat

Kod: Tümünü seç

MetaFileCanvas.Pixels[10,10]
az önce atama yapmama rağmen siyah döndürüyo.
Sadece [10,10] noktasında değil tüm pixeller siyah döndürüyo.
Bir fikri olan var mıdır?
kısa kısa yazılım...
http://TKorhan.blogspot.com/
Cevapla