Recent

Author Topic: PowerPDF  (Read 4292 times)

arwen

  • Full Member
  • ***
  • Posts: 101
    • http://freeflow.awardspace.com
PowerPDF
« on: October 12, 2007, 11:54:25 am »
I am using power PDF but in debugging the application stops, even without brek point, at the point below in PReport.pas

WHY ??

If I run tha application out of Lazarus it works fine .

Code: [Select]

// Paint
procedure TPRRect.Paint;
var
  ARect: TRect;
begin
  ARect := ClientRect;
  with ARect, Canvas do
  begin
    if self.Height > 1 then
      Bottom := Bottom - 1;
    if self.Width > 1 then
      Right := Right - 1;

    if FillColor <> clNone then
    begin
      Brush.Color := FFillColor;
      Brush.Style := bsSolid;
      FillRect(ARect);
    end
    else
      Brush.Style := bsClear;

    if LineColor <> clNone then
    begin
---->      Pen.Style := FLineStyle;  <----
      Pen.Width := Round(FLineWidth);
      Pen.Color := FLineColor;
      Polygon([Point(Left,Top), Point(Right,Top),
        Point(Right,Bottom), Point(Left,Bottom)]);
    end;
  end;
end;  


Thanks to all

Marc

  • Administrator
  • Hero Member
  • *
  • Posts: 2496
RE: PowerPDF
« Reply #1 on: October 12, 2007, 12:17:23 pm »
if you look at debugwindows - breakpoints, is there any shown ?
//--
{$I stdsig.inc}
//-I still can't read someones mind
//-Bugs reported here will be forgotten. Use the bug tracker

arwen

  • Full Member
  • ***
  • Posts: 101
    • http://freeflow.awardspace.com
PowerPDF
« Reply #2 on: October 12, 2007, 02:12:40 pm »
:shock:  :shock:
Yes but I nerver set any !!

 :oops:    
Excuse me, I deleted all and now work fine

But why on the editor they aren't show ?

Thanks Marc

Marc

  • Administrator
  • Hero Member
  • *
  • Posts: 2496
PowerPDF
« Reply #3 on: October 12, 2007, 02:18:30 pm »
same file through different path ?

somehow breakpoints can be "inherited" form previous projects.
//--
{$I stdsig.inc}
//-I still can't read someones mind
//-Bugs reported here will be forgotten. Use the bug tracker