Beiträge von JSchwaab

procedure TStRtfToEntity.OutputTableGrid(aText: TWPRichText; aSaveBox: TSaveBox);
var
   par: PTParagraph;
   lin: PTLine;
   Area: TRect;
   r: integer;
   c: integer;
begin
   par := aText.FirstPar;
   Area.Left := 0;
   Area.top := 0;
   while par <> nil do begin
      if (paprIsTable in par^.prop) and (par^.celldef <> nil) then begin

         aText.ActivePar := par;
         //Area.Right := Area.Left+aText.TableCellWidth;

         if (aText.TableRowCount > 0) and (aText.TableColCount > 0) then begin
            lin := par^.line;
            Area.top := lin^.y_start;
            for r := 0 to aText.TableRowCount - 1 do begin
               aText.TableRowNumber := r;
               Area.Left := 0;
               for c := 0 to aText.TableColCount - 1 do begin
                  aText.TableColNumber := c;
                  if aText.TableColNumber <> c then begin
                     //wptools-Fehler: TableColCount bei 1-spaltiger Tabelle ist 2!
                     continue;
                  end;
                  Area.Right := Area.Left + aText.TableCellWidth;
                  lin := aText.ActiveLine; //  par^.line;
                  Area.bottom := {Area.Top+} lin^.y_start;
                  repeat
                     Area.bottom := Area.bottom + lin^.Height;
                     // Area.bottom := Area.bottom + lin^.b_xtra;
                     lin := lin^.next;
                  until lin = nil;

                  SaveRectangle(aText, Area, aSaveBox, par); //^.border);
                  Area.Left := Area.Right;
                  par := par^.next;
                  aText.ActivePar := par;
               end;
               Area.Top := Area.bottom;
            end;
         end
         else begin
            par := par^.next;
         end;
      end
      else begin
         par := par^.next;
      end;
   end;
end;

   par := aText.FirstPar;
   Area.Left := 0;
   Area.top := 0;
   while par <> nil do begin
      if par.ParagraphType = WpIsTable then begin
         par := par.next;
         aText.ActiveParagraph := par;
         while
            Assigned(par)
            and (par.ParagraphType = WpIsTableRow)
            //and Assigned(par.ParentPar)
            //and (par.ParentPar.ParagraphType = WpIsTable)
         do begin
            par := par.next;
            while assigned(par) and (par.ParagraphType = WpIsStdPar)
               and assigned(par.ParentPar) and (par.ParentPar.ParagraphType = WpIsTableRow) do begin

               par := par.next;
            end;
         end;
      end
      else begin
         par := par.next;
      end;
   end;

procedure ScanLine(aPar: PTParagraph; aLin: PTLine);
   var
      i: integer;
      pt: TPoint;
      IncX: integer;
      str: string;
      pc: PChar;
      pa: PTAttr;
      ax, ay, h: Longint;
   begin
      pa := alin^.pa;
      pc := aLin^.pc;
      update(pa);
      if LineNo <= 1 then begin
         aRichText.GetXYFromPosition(ax, ay, h, MyCp, 0, 0, 0);
         IncX := ax;
      end
      else begin
         aRichText.GetXYFromPosition(ax, ay, h, MyCp + 1, 0, 0, 0);
         IncX := ax - pa^.width;
      end;

      pt.x := IncX + 1;
      pt.y := alin^.y_start + alin^.Base;
      str := '';
      i := 0;
      entdat.seperator := 0;

      //frei nach function TWPRTFTextPaint.Get_LineWidth(lin: PTLine): Integer;:
      while i < alin^.plen do begin
         if (pa^.width > 1) or not (afsHidden in pa^.style) then begin
            if (pc^ = TABCODE) or (pc^ = #32) and (aPar.align = paralBlock) then begin
               //inc(spc, pa^.width)
               if length(str) > 0 then begin
                  entdat := EntityDataFromAttr(aRichText, FOldAttr, pt, IncX, str);
                  aSaveEnt(entdat);
                  str := '';
               end;
               // IncX erhaelt Position des naechsten Zeichens nach tab oder blank
               aRichText.GetXYFromPosition(ax, ay, h, MyCp + i + 1, 0, 0, 0);
               IncX := ax;
               //inc(IncX, pa^.width);
               pt.x := IncX + 1;
            end
            else if pc^ = NEWLINECODE then begin
            end
            else begin
               if pa^.width > 0 then begin
                  if (*true or jedes Zeichen *)
                      (*(pc^=' ') or jedes Wort (automatisch bei Blocksatz s.o.) *)
                  Changed(pa) (* jede Formataenderung *) then begin
                     entdat := EntityDataFromAttr(aRichText, FOldAttr, pt, IncX, str);
                     aSaveEnt(entdat);
                     Update(pa);
                     pt.x := IncX + 1;
                     str := '';
                  end;
                  inc(IncX, pa^.width);
                  str := str + pc^;
               end;
            end;
         end;
         inc(i);
         inc(pc);
         inc(pa);
      end;
      MyCp := MyCp + i;
      if length(str) > 0 then begin
         entdat := EntityDataFromAttr(aRichText, FOldAttr, pt, IncX, str);
         entdat.seperator := 1;
         aSaveEnt(entdat);
      end;
   end;