#1 2021-12-10 15:50:55

Dicki
Member
Registered: 2012-11-28
Posts: 7

VCLCanvas and ExtCreatePen

I would like to define a line style using "ExtCreatePen". Why can't I add this "VCLCanvas"?
Is this even possible?
Here is an excerpt of my code, i work with Delphi 10.4:
fWritePDF := TPdfDocumentGDI.Create(false, 0, true, NIL);
fWritePDFPage := fWritePDF.AddPage;
// ...
LType := '03B013';
// ----------
fPenWidth := StrToFloat(RightStr(LType, 3));
fPenWidth := Trunc(0.5 + Screen.PixelsPerInch * fPenWidth / PDF_MMPI);
fWritePDF.VCLCanvas.Pen.Width := Trunc(fPenWidth);
// ---------
        fStyleNr := StrToInt(LeftStr(Trim(LType), 2));
        IF (fStyleNr > 1) AND (fStyleNr <= 15) THEN
        BEGIN

fWritePDF.VCLCanvas.Pen.Width := 1;
fWritePDF.VCLCanvas.Pen.Style := TPenStyle.psUserStyle;
// ----------
fPDF_LogBrush.lbStyle := BS_Solid;
fPDF_LogBrush.lbColor := fWritePDF.VCLCanvas.Pen.Color;
fPDF_LogBrush.lbHatch := 0;
// ----------
CASE fStyleNr OF
   2:
     BEGIN
       // ...
     end;
   4:
     BEGIN
       // LONG DASHED DOTTED
       // 24;3;0.5;3
       SetLength(fPDF_Pen, 4);
       fPDF_Pen[0] := Trunc(0.5 + fPenWidth * 24 * fScale);
       fPDF_Pen[1] := Trunc(0.5 + fPenWidth * 4 * fScale);
       fPDF_Pen[2] := Trunc(0.5 + fPenWidth * 0.5 * fScale);
       fPDF_Pen[3] := Trunc(0.5 + fPenWidth * 4 * fScale);
     END;
   // ...
END;
// -----
fPDF_NewPen := ExtCreatePen( { PS_USERSTYLE or } PS_Dash OR
PS_GEOMETRIC OR PS_JOIN_ROUND OR PS_ENDCAP_ROUND, Trunc(fPenWidth),
fPDF_LogBrush, HIGH(fPDF_Pen) + 1, fPDF_Pen);
// -----
IF fPDF_NewPen <> 0 THEN
BEGIN
   // ShowMessage('fPDF_NewPen <> 0');
   fPDF_OldPen := SelectObject(fWritePDF.VCLCanvas.Pen.Handle,fPDF_NewPen);
END;
// ===>> fPDF_OldPen = 0 !!! ???
IF (fPDF_OldPen <> 0) THEN
BEGIN
   // ShowMessage('fPDF_OldPen <> 0');
   fWritePDF.VCLCanvas.Pen.Style := TPenStyle.psDash;
END;
// ================
// ...
fWritePDF.VCLCanvas.MoveTo(fXA, fYA);
fWritePDF.VCLCanvas.LineTo(fXE, fYE);
// ...
fWritePDF.SaveToFile(fSaveFileName); // +'.pdf');

Offline

#2 2021-12-10 16:19:47

ab
Administrator
From: France
Registered: 2010-06-21
Posts: 13,504
Website

Re: VCLCanvas and ExtCreatePen

Please follow the forum rules, and don't post such extensive code snippets in the forum itself.

My guess is that if it is not rendered, this is because the SynPdf VCL/EMF to PDF interpreter does not support this command.

Offline

#3 2022-06-13 11:21:44

MtwStark
Member
From: Italy
Registered: 2016-01-05
Posts: 27

Re: VCLCanvas and ExtCreatePen

Dicki wrote:

I would like to define a line style using "ExtCreatePen". Why can't I add this "VCLCanvas"?
Is this even possible?


Hi Dicki, I have slight expanded the support for the ExtCreatePen, you can try my code PDFEngine Clipping Implementation + Output stream optimizations and see if it solves your problems.

Offline

Board footer

Powered by FluxBB