function GetObjectRenderedStrokePattern(Index: Integer): TBitmap;
| Index | Integer. 0 .. ObjectCount - 1 aralığında, sıfır tabanlı sayfa nesnesi indeksi |
| Result | TBitmap. Yeni oluşturulmuş, sahipliği çağırandaki olan ve serbest bırakılması gereken bir bitmap; nesne bir tiling deseniyle konturlanmıyorken, yerel dışa aktarım eksikken ya da işleme başarısız olurken nil |
Kontur renk uzayı /Pattern olan ve PatternType 1 (tiling) deseni kullanan bir yol nesnesi, çizgisini düz bir renk yerine tekrarlanan bir hücreyle boyar. Bu yöntem o hücreyi yerel FPDFPageObj_GetRenderedStrokePattern dışa aktarımı üzerinden tek başına işler; böylece çağıran, tüm sayfayı render etmeden deseni inceleyebilir, dışa aktarabilir ya da önizleyebilir
Yerel çağrı boyunca işleme kilidi tutulur; böylece aynı bileşen üzerindeki eşzamanlı işleme karşı güvenlidir. Yerel bitmap döndürülmeden önce dönüştürülür ve yok edilir; ortaya çıkan TBitmap çağırana aittir
Çağrı, geçerli sayfanın etkin olmasını gerektirir. Yol olmayan nesneler, düz renkle ya da bir shading deseniyle konturlanan yollar ve yalnızca dolgusu olan desenler, istisna fırlatmak yerine nil döndürür; nedeni öğrenmek için PageObjectInfo ya da PathInfo'a bakın
Renkli tiling desenleri (PaintType 1) kendi renkleriyle işlenir; renksiz desenler (PaintType 2), content stream'in seçtiği kontur rengiyle işlenir
nil sonucun "desen yok" mu yoksa "dışa aktarım yok" mu olduğunu söyler
var
I: Integer;
Bmp: TBitmap;
begin
for I := 0 to Pdf1.ObjectCount - 1 do
begin
Bmp := Pdf1.GetObjectRenderedStrokePattern(I);
if Bmp <> nil then
try
Bmp.SaveToFile(Format('stroke-pattern-%d.bmp', [I]));
finally
Bmp.Free;
end;
end;
end;