Vielen Dank, ich werde mal testen ob das so passt.
Ciao
Stefan
Vielen Dank, ich werde mal testen ob das so passt.
Ciao
Stefan
Hallo,
ich versuche, ein WPRichtext "echt" transparent zu bekommen, leider ohne Erfolg...
Das "Papier" (PaperColor) bleibt leider undurchsichtig.
Mache ich einen Fehler oder geht es gar nicht, das WPRichText so aussehen zu lassen wie ein transparentes WPRichTextLabel?
Ciao
Stefan
Danke!
Es ist so dass es für die gesamten Spalten je ein Padding geben soll, dazu für eine einzelne Zelle aber noch einen Indent.
(ich baue einen Tabelleneditor nach, der die gleichen Möglichkeiten haben soll)
Das Spacing schaue ich mir an, ob es als "Ersatz für Padding" einsetzbar ist.
Ciao
Stefan
Hallo,
ich benötige, um ein prozentuales WPAT_PaddingRight einer Tabellenspalte einstellen zu können, die "echte" Breite der Tabellenspalte in Twips.
Leider erhalte ich bei der Abfrage der Spaltenbreite immer den Wert der prozentualen Breite:
tbl.cols[0].ASetColumnWidthPC(3500);
tbl.cols[0].AGet(WPAT_COLWIDTH_PC, b); //b = 3500
tbl.cols[0].AGet(WPAT_COLWIDTH, b); //b ebenfalls 3500
Ich möche ein WPAT_PaddingRight von 10% der Spaltenbreite einstellen, nur wie errechne ich das?
Ciao
Stefan
Hallo,
ich habe ein kleines Handlingproblem bei verbundenen Tabellenzellen:
Ich setze z.B. ein WPAT_PaddingRight für Spalte 1 um einen generellen Abstand zur Spalte 2 zu bekommen.
Das funktioniert auch, bis ich z.B. in Zeile 1 die Zellen der Spalten 0 und 1 merge.
Diese verbundene "Doppelzelle" hält nun keinen Abstand mehr zur Spalte 2 ein...
Irgendeine Einstellung habe ich da bestimmt noch übersehen, oder?
Ciao
Stefan
Hallo,
ich bekomme WPT-Dokumente mit Mailmerge-Feldern und diese enthalten eine Kennzeichnung, was da gefüllt werden soll.
(Im Namen enthalten ist der Typ des Feldes, so z.B. Textfeld_15)
Im WPRichText1MailMergeGetText passiert nun in etwa folgendes:
var
type:integer;
if copy(inspname, 1, 8) = 'Textfeld' then
begin
type := StrtoInt(copy(inspname, pos('-', inspname) + 1, 10));
case type of
1: Contents.StringValue := Adressen.Strasse;
2: Contents.StringValue := Adressen.PLZ;
3: Contents.StringValue := Adressen.Ort;
....
15: Contents.StringValue := Format('%d / %d', [(Page + 1), Pages]);
16: Contents.StringValue := IntToStr(Page + 1);
....
end;
end;
Alles anzeigen
Wie aber komme ich an die Seitennummer des Feldes?
Ciao
Stefan
ZitatOder mit WPTools 9.1
Code
- https://www.wpcubed.com/forum/board/in…deLine_1_c54e68WPRichTextLabel1.Assign(WPRichText1)
Vielen Dank!
Ich denke wir werden doch auf 9 umsteigen, mal sehen was die Entscheider dazu meinen.
Ciao
Stefan
Ich benutze in einem Designer ein WPRichTextLabel (wpLayNormal) um Texte anzuzeigen und ein WPRichText um sie zu bearbeiten.
Das Label mit wplayNormal weil sonst transparent nicht funktioniert.
Um den Text vom WPRichText ins Label zu kopieren verwende ich folgenden Code:
procedure TMyPanel.CopyRTFtoLabel;
var
ms: TMemorystream;
begin
// ins Label umkopieren
ms := TMemorystream.Create;
WP.ReformatAll(true, true);
WP.SaveToStream(ms, 'WPT');
ms.position := 0;
WL.LoadFromStream(ms, false, 'WPT');
ms.Free;
end;
Alles anzeigen
Bei der Erzeugung wird folgendes initialisiert:
WP.automatictextattr.BackgroundColor := clSilver;
WP.automatictextattr.UseBackgroundColor := true;
WL.RTFData.SpecialTextAttr[wpFieldTextObjects].BackgroundColor := clSilver;
WL.RTFData.SpecialTextAttr[wpFieldTextObjects].UseBackgroundColor := true;
Trotzdem werden die Felder im WPRichTextLabel nicht silbern hinterlegt.
Was fehlt noch an Einstellungen?
Ciao
Stefan
OK, Denkfehler meinerseits, danke
Ciao
Stefan
Hallo,
ich versuche gerade eine Markierung (ein TShape) über einem WPRichText anzuordnen.
Leider wird dieses immer vom WPRichText überdeckt, egal ob ich
Bei allen anderen Controls geht das problemlos, was habe ich an Einstellmöglichkeiten des WPRichText übersehen um auch da ein Control drüberlegen zu können?
Ciao
Stefan
Danke, die fehlende Auflösung war's...
Ciao
Stefan
Hallo,
ich habe ein TWPRichTextLabel und möchte vergleichen, ob dessen Text hineinpasst.
WPRichTextLabel1.Memo.Textheight hat aber irgendeine andere Dimension (in der Hilfe leider nur als Integer angegeben) wie WPRichTextLabel1.Height und ich habe alle möglichen Umrechnungen Twips / Pixel / Inch probiert, bin aber auf keinen grünen Zweig gekommen...
Grundsätzlich soll folgendes passieren:
if WPRichTextLabel1.Memo.Textheight > WPRichTextLabel1.Height then
ShowMessage('Text zu hoch!');
Wie kann die Umrechnung (unter Berücksichtigung des Zooming vom Label) erfolgen?
Ciao
Stefan
Danke, so funktioniert das nun wie gewünscht ...
Ciao
Stefan
leider gibt es nur
wpHiddenText, wpFootnote, wpInsertpoints, wpHyperlink, wpSPANStyle, wpAutomaticText, wpProtectedText, wpBookmarkedText, wpInsertedText, wpDeletedText, wpWordHighlight, wpFieldTextObjects, wpTableOfContents
ich habe mal mit wpFieldTextObjects (schien am naheliegendsten zu sein) versucht, bin aber zu keinem brauchbaren Ergebnis gekommen.
Ciao
Stefan
Hallo
ich muss den Thread nochmal wiederbeleben...
Mit beiden Varianten kann ich das WPRichText ins WPRichTextLabel umkopieren und die Feldkennzeichen sind wie gewünscht verschwunden.
Nun habe ich im WPRichText
WP.automatictextattr.BackgroundColor := TextFieldBGColor;
WP.automatictextattr.UseBackgroundColor := true;
und möchte diese Hintergrundfarbe für die Felder auch im WPRichTextLabel haben nach dem Kopiervorgang, nur finde ich dazu keinen Weg...
Schon mal danke für Tips.
Ciao
Stefan
Alles klar, danke, dann steige ich auf das RTFLabel um.
Ciao
Stefan
Hallo,
ich möchte an ein transparentes TWPRichText direkt nebenan rechts ein TShape zeichnen.
Ist das RichText CTL3D = true, gibt es noch rechts neben ihm eine dünne weiße Linie (vom 3D-Effekt) welche nicht übermalt werden kann.
So dachte ich, schalte Ctl3D doch einfach aus, aber dann gibt es gar kleinen Rahmen mehr...
Kann man das WPRichtext transparent machen ohne den Rahmen zu verlieren (ohne Ctl3D)?
Ciao
Stefan
Vielen Dank!
Ob ich die Vielzahl der Optionen des WPRichtext jemals alle durchschaue?
Ciao
Stefan