Beiträge von toki

Hi Julian,

a table row continues on nextpage and nextnext page.

1) if I set WPAT_ParKeep=1 to this table row, the border on next page is not painted.

2) Sometimes it is painted twice or painted over an other table row. This is unreadable.

Please hepl!

toki

Hallo Julian,

seit neuestem wird die Breite von Bildern in Tabellenzellen nicht richtig berechnet, wenn diese Zellen indentleft oder indentright haben.
Sie stehen nach rechts über.

WPTools V 6.07
Bild = wmf

Gruß

Yes I still get it with your Wordpad5-Demo. Do you test your fixes?

Hallo Julian, warte seit Wochen auf eine Antwort.
Bei jeder neuen Version muss ich den Quelltext anpassen.

Hello

Any reply on this one?

Hi Julian,

Use your Wordpad5-Demo
Insert a table (2 rows, 2 columns)
cursor into first cell
place a tab at 1,5 and 7,5
press ctrl+tab -->> ok, th cursor moves to the first tab
press ctrl+tab -->> the cursor does not move to the next tab

and now something interesting:
press 4 times space
press ctrl+tab -->> the cursor moves to the next tab

the same happens if you load a rtf-File with tabs in table-cells

delphi 2010, wptools 6.06

toki

More then 1 tabulator in a table cell do not work anymore.
Version 6.06

besser ist:

else begin
                          if indentleft = 0 then
                            LastLineData.txoff := (xoff - x + paddl)
                          else
                            LastLineData.txoff := (xoff - x + indentleft);
                        end;

toki

Hallo Julian,

folgendes Problem:

Text#9      Text nach Tab (Softbreak #10)                  2. Zeile (Softbreak #10)                  3. Zeile

aber so sollte es sein:

Text#9      Text nach Tab (Softbreak #10)               2. Zeile (Softbreak #10)               3. Zeile

2. und 3. Zeile sind um PaddingLeft nach rechts verschoben

Ich habe an folgender Stelle eine Korrektur vorgenommen:
WPRTEDefs
Zeile 45393:

else LastLineData.txoff := (
                            xoff - x + 
                                {paddl +} indentleft);

also "paddl" auskommentiert. Ist die Korrektur an dieser stelle korrekt?

Gruß toki

Hi Julian,

procedure TWPOImage.PaintEx(toCanvas: TCanvas; BoundCanvas: TRect;  ParentTxtObj: TWPTextObj; PaintMode: TWPTextObjectPaintModes;  xres, yres: Integer);  begin    FPaintOptions := [wpPaintObj_AutoScreenOptimation];    if not Transparent then include(FPaintOptions,wpPaintObj_AutoAntialias);    inherited PaintEx(toCanvas,BoundCanvas,ParentTxtObj,PaintMode,xres, yres);  end;

FPaintOptions := [wpPaintObj_AutoScreenOptimation];

does not work with WMF-Images.

Greetings Toki

Hallo Julian,

Auch in Version 6.02 ist das Problem nicht behoben.

Viele Grüße
toki

Hi Julian,

in the topic from Jul 12, 2007 "Properties of paragraph within table" you wrote:

Zitat

Hi,

In WPTools 5 this is impossible since the objects are identical. WPTools 6 will use a special mode which use the cell paragraph as the outer box with all paragraphs beeing the children.

WPTools 5 is RTF centred and so stores the text directly in the cells, this makes programming usually simpler and reduces the memory consumption.

Julian

I have analysid the table-structure of Version 5 and 6. Nothing has changed. The first paragraph in a cell is the cell-paragraph !with text! and the others are subparagraphs of the first. This is very strange and very complicate to understand and for programming too. There isn't no "outer box" as cell-paragraph. See in your code how complicate it is to handle paragraphs in a cell and the cell-paragraph him-self.

A very important reason for me to get Version 6 was even this new structure: table/row/cell/all paragraphs.

Have I something misunderstood? Are there switchis, wich I don't know?

Greetings ToKi

Im Inhaltsverzeichnis kommt es mitunter vor, dass ein Eintrag über mehrere Zeilen lang ist.
Das würde dann so aussehen:

Das ist ein kurzer Eintrag.............................................2

Das ist ein Eintrag über mehre Zeilen weil er sehr lang
ist und dann dabei quasi die Seitenzahl verschluckt das
sieht nicht so gut aus..................................................3

Schöner wäre:

Das ist ein kurzer Eintrag.............................................2

Das ist ein Eintrag über mehre Zeilen weil
er sehr lang ist und dann dabei quasi die
Seitenzahl verschluckt das sieht nicht so
gut aus .......................................................................3

In Word kann man das erreichen, in dem man indentright auf z.B. 3cm setzt und einen Rechts-Tabstop rechts von indentright plaziert.

Gibt es eine Möglichkeit dies auch in WPTools umzusetzen - ohne Tabellen?

Kann ich im Druckdialog "aktuelle Seite" anzeigen lassen?

Beim Einlesen von rtf-Dateien gehen alle MergeFields verloren. Sind dann nur noch vom Typ wpobjTextObject.

Hallo Julian,

wie ich in diesem Forum gelernt habe, muss "wpcoPasteHTMLWhenAvailable" eingeschaltet sein, um die URL eines Bildes zu erhalten.

Dann jedoch sind die Texte mit Umlauten nicht mehr zu gebrauchen, die jedoch mit ausgeschaltetem "wpcoPasteHTMLWhenAvailable" ganz normal aussehen.

Was tun?
Welches ist der richtige Weg, um brauchbare Resultate zu erhalten wenigstens mit dem IE?

Gruß
toki

Habe noch "wptblAllowNestedTables" vergessen, macht aber keinen Unterschied.

Gruß ToKi

Eine Tabelle mit Kopfzeile enthält eine oder mehrere Tabellen.

Leider wird die Kopfzeile nur auf der ersten Seite angezeigt.
WPTools5 Version 5.36

Hier ein kleines reproduzierbares Beispiel:

procedure TForm1.Button1Click(Sender: TObject);
var cell : TParagraph;
    T, R, C, p : TParagraph;
    i : integer;
begin
  WPR.ActiveText := WPR.BodyText;
  cell := WPR.TableAdd(1, 1, [wptblActivateBorders, wptblCreateHeaderRow], nil, nil);
  cell := cell.nextcell;


  T := cell.AppendNewTable;
  R := T.AppendNewRow;
  C := R.AppendNewCell;
  C.ASetColor(WPAT_BGColor, clYellow);
  C.Append('das ist ein ganz langer Text');
  for i  := 0 to 100 do p := C.AppendNewPar;
  p.Append('Ende des Textes auf Seite irgendwo');


end;

Was mache ich falsch bzw. was kann ich tun.

Hi Julian,

my last Version is 5.36. You mean in the next Version this is fixed?

Thanks for prompt answere.

toki

Here I added some code to get the right things.

procedure TWPComboBox.UpdateSel;
var i: Integer; r : Boolean; s : Single; f : TFontName;
label search;
begin
    if Parent is TWPToolPanel then exit;
    if (FRTFEdit <> nil) and not FLockUpdate then
    begin
      if (FComboBoxStyle = cbsStyleNames) or
         (FComboBoxStyle = cbsStyleNamesEx) then
      begin
        Items.Clear;
        if FRtfEdit <> nil then 
        begin
          ItemIndex := FRtfEdit.Memo.RTFData.RTFProps.ParStyles.GetStringList(
              Items, not FNoEditItemsInStyleList, FRTFEdit.ActiveStyleName);
        end;
      end
      else if FComboBoxStyle = cbsParAlignment then
      begin
      // ItemIndex := StrToIntDef(StrPas(PChar(Message.LParam)),0);
      end
      else if FComboBoxStyle = cbsColor then
      begin
        if not FRTFEdit.IsSelected then
              r := FRTFEdit.CurrentCharAttr.GetColorNr(i)
        else  r := FRTFEdit.SelectedTextAttr.GetColorNr(i);
        if not r then
          ItemIndex := -1
        else
          WPUpdateNumberCombo(Self, i);
      end
      else if FComboBoxStyle = cbsBKColor then
      begin
        if not FRTFEdit.IsSelected then
              r := FRTFEdit.CurrentCharAttr.GetBGColorNr(i)
        else  r := FRTFEdit.SelectedTextAttr.GetBGColorNr(i);
        if not r then
          ItemIndex := -1
        else
          WPUpdateNumberCombo(Self, i);
      end
      else if FComboBoxStyle = cbsParColor then
      begin
        r := FRTFEdit.AGet(WPAT_BGColor,i);
        if not r then
          ItemIndex := -1 else
          WPUpdateNumberCombo(Self, i);
      end
      else if FComboBoxStyle = cbsFontSize then
      begin
        if not FRTFEdit.IsSelected then
              r := FRTFEdit.CurrentCharAttr.GetFontSize(s)
        else  r := FRTFEdit.SelectedTextAttr.GetFontSize(s);


{toki - Begin}
        if not FRTFEdit.IsSelected then begin
          if FRTFEdit is TWPCustomRichText then begin
              r := true;
              s := TWPCustomRichText(FRTFEdit).CurrAttr.Size;
          end;
        end;
{toki- End }
        if (s<=0) or not r then ItemIndex := -1
        else
        begin 
          if Items.IndexOf(#32 + FloatToStr(s)) < 0 then
          begin
            i := Items.IndexOf(#32 + IntToStr(Trunc(s)));
            Items.Insert(i + 1, #32 + FloatToStr(s));
          end;
          ItemIndex := IndexOf(FloatToStr(s));
        end;
      end
      else if FComboBoxStyle in [cbsPrinterFonts, cbsScreenFonts, cbsAnyFonts, cbsTrueTypeFonts] then
      begin


        if (FRTFEdit is TWPCustomRichText) then
        begin
           f := TWPCustomRichText(FRTFEdit).CurrAttr.FontName;
           r := true;
        end
        else


        if not FRTFEdit.IsSelected then
              r := FRTFEdit.CurrentCharAttr.GetFontName(f)
        else  r := FRTFEdit.SelectedTextAttr.GetFontName(f);


{toki - Begin}
        if not FRTFEdit.IsSelected then begin
          if FRTFEdit is TWPCustomRichText then begin
              r := true;
              f := TWPCustomRichText(FRTFEdit).CurrAttr.FontName;
          end;
        end;
{toki- End }
        if not r or (f='') then ItemIndex := -1
        else
        begin


         search:
            i := 0;
            while i <Items>= Items.Count then
            begin
              Items.Add(f);
              goto search;
            end else if ItemIndex <> i then ItemIndex := i;


        end;
      end;
    end;
end;

There are a lot of functions making the same or should make the same, but do not do it.

Irgendwie sehe ich keinen roten Faden. Viele Sachen kann man so oder so machen. Am Ende sollte dann das gleiche rauskommen. Tut es oft, manchmal aber eben nicht. Dann biste am Suchen und Gucken.
Bei so vielen Funktionen sollte ein "empfohlener Weg" beschrieben werden. Den kann ich nicht finden.

Viele Grüße