Beiträge von Wiii

Ach, ich glaube, das ist es: wpTableOneCellResizing=true und wpTableColumnResizing= true !! Ist vermutlich widersprüchlich, oder?

Ich verwende 9.2.

Aber egal, wie ich es versuche (ganze Spalte vorher selektieren), es funktioniert nicht. Ich erwische immer nur die aktuelle Zelle, in der der Cursor ist. Meine Testtabelle hat noch die ursprüngliche Form - direkt nach dem Einfügen als neue Tabelle.

Frage zur Handhabung (WPTools 9): Füge ich eine Tabelle mit mehreren Spalten ein und möchte ich für eine markierte Spalte die linke oder rechte Zellenbegrenzung mit der Maus ändern, so ist immer nur die aktuelle Zelle betroffen. Wie erreiche ich, dass auch alle Zellen der markierten Spalte mitgeändert werden?

Der Punkt hat sich gerade erledigt: PasteFromClipboard() funktioniert wie gewünscht, die Fehlerursache lag in der fehlerhaften Rückgabe des vorangegangenen ModalResult.

Vielen Dank an den Support.

Einsatz ist wie folgt: Aus der Textverarbeitung kann ich einen kleinen selbstgebauten Grafikeditor aufrufen (quasi als ToolWindow). Im Grafikeditor kann der Anwender zu Dokumentationszwecken eine Bitmap-Grafik erstellen: Hintergrundbild (z.B. Skelett) plus farbige Markierungen für diagnostische Zwecke. Das Ergebnis wird über die Zwischenablage in die Textverarbeitung zurückgereicht, wo es dann - so der Wunsch - automatisch an der Cursorposition eingefügt werden soll. Inhalt ist tatsächlich ein Bitmap.

Ein Versuch mit

if EditGraf.ShowModal = mrOk then RT_Text.PasteFromClipboard();

funktioniert nicht ?! Das Einfügen mittels <ctrl> V dagegen schon.

Wie füge ich ein Bitmap aus der Zwischenablage in den Text an der aktuellen Cursorposition programmgesteuert ein?

Mittels <Paste> bzw. Ctrl V geht es. Nun möchte ich diesen Vorgang automatisieren.

Wie erkenne ich beim Aufschalten eines PopupMenüs, ob das aktuell selektierte Objekt tatsächlich ein Grafikobjekt ist (RT_Text.SelectedObject is ???)?

1. How can I avoid the generation of a second label, when one textline in the first label becomes too long?

2. How can I avoid the printing of the (sender) addressline of the last empty labels on the page ?

I found my error:
In my code:

RT_TLabel.FastAppendText(RT_TLabelWork,False,[wpCreateNewPage]);

I have to set the 2nd parameter "AsNewSection" to False - then it works. Otherwise the switching to the new page doesn't work properly.

Yes - if I set active to false, then 142 pages are produced. That works fine...

When I print 142 labels (3 x 8 pieces on one sheet) it has to be 6 pages (2 labels left). But in preview and on paper only 4 pages are produced - and the 2nd and the 3rd page are used 2 times.

Is this a mistake of me ??!

This is my code:

procedure TEditEtik.PrintPatiLabels(PKSt_Filename: string);
var
    LSt_PatiKz: PatiKrzKey_Typ;
    LB_FirstTime: boolean;
begin
    LB_FirstTime := true;
    RT_TLabelWork := TWPRichText.create(self);
    RT_TLabelWork.LoadFromFile(PKSt_Filename);
    RT_TLabelWork.OnMailMergeGetText := RT_TLabelMailMergeGetText;
    if not LstEmpty(GP_List) then
    begin
        LstGoFirst(GP_List);
        while not LstOffPos(GP_List) do
        begin
            LstGetVal(GP_List, Lst_PatiKz);
            D.ReadDB(D.DA_Pati, LSt_PatiKz, 'TEditEtik.PrintLabels');
            RT_TLabelWork.MergeText;
            if LB_FirstTime then
            begin
              LB_FirstTime := false;
              RT_TLabel.AsString := RT_TLabelWork.AsString;
            end
            else
            begin
              RT_TLabel.CPPosition := MaxInt;
              RT_TLabel.FastAppendText(RT_TLabelWork,True,[wpCreateNewPage]);
            end;
            LstGoNext(GP_List);
        end;
    end;
    RT_TLabel.InsertpointAttr.Hidden := True;
    RT_TLabel.ShowMergeFieldNames := false;
    RT_TLabel.Refresh(False);
    ShowModal;
end;

I could show you the result of this code as a pdf-file, but I don't know how to upload this to you.

Hi Julian - thank you for your tip - that works fine

When I try to produce several labels on one sheet with mailmerging, the program always works only on the first label. Even if I try to append a page break (using inputstring(#12)). I have no idea how to get the program using more than one label. :?