Beiträge von PatBeck

  • PDF Version

    Hi,

    we are creating pdf file with Version 1.4

    Code
    %PDF-1.4
%âãÏÓ
% +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
% modified by WPCubed PDFWorkBench SDK - www.PDFControl.com
% 2.281
% +++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    One of our big customer creates a signature for the pdf, and the pdf-version must be 1.5 or greater!

    Is it possible, to create such pdf's?

    Thanks,
    Patrick

  • WPPDFR1 Delphi 7

    Hi Julian,

    i use Delphi 7 and wpdf 3 Vesion 3.30 (12.11.2008)

    in WPPDFR1 in line 1424:

    Code
    {$IFDEF UNICHAR}    if not wchars or FInfo.FIsUTF8  then    begin         WPPDF_SetSProp(pdf_env, WPPDF_Author, PAnsiChar(FInfo.FAuthor));         WPPDF_SetSProp(pdf_env, WPPDF_Producer, PAnsiChar(FInfo.FProducer));         WPPDF_SetSProp(pdf_env, WPPDF_Title, PAnsiChar(FInfo.FTitle));         WPPDF_SetSProp(pdf_env, WPPDF_Subject, PAnsiChar(FInfo.FSubject));         WPPDF_SetSProp(pdf_env, WPPDF_Keywords, PAnsiChar(FInfo.FKeywords));         WPPDF_SetSProp(pdf_env, WPPDF_ExcludedFonts, PAnsiChar(FExcludedFonts.CommaText));         WPPDF_SetSProp(pdf_env, WPPDF_InputFile, PAnsiChar(FInputFile));         if FInfo.FAdditionalStrings.Count > 0 then           WPPDF_SetSProp(pdf_env, WPPDF_OtherInfoTexts, PAnsiChar(FInfo.FAdditionalStrings.Text));    end;    else     {$ENDIF}    begin         WPPDF_SetSPropW(pdf_env, WPPDF_Author, PWideChar(FInfo.FAuthor));   ----------------------------------------------------> AV here         WPPDF_SetSPropW(pdf_env, WPPDF_Producer, PWideChar(FInfo.FProducer));         WPPDF_SetSPropW(pdf_env, WPPDF_Title, PWideChar(FInfo.FTitle));         WPPDF_SetSPropW(pdf_env, WPPDF_Subject, PWideChar(FInfo.FSubject));         WPPDF_SetSPropW(pdf_env, WPPDF_Keywords, PWideChar(FInfo.FKeywords));         WPPDF_SetSPropW(pdf_env, WPPDF_ExcludedFonts, PWideChar(FExcludedFonts.CommaText));         WPPDF_SetSPropW(pdf_env, WPPDF_InputFile, PWideChar(FInputFile));         if FInfo.FAdditionalStrings.Count > 0 then           WPPDF_SetSPropW(pdf_env, WPPDF_OtherInfoTexts, PWideChar(FInfo.FAdditionalStrings.Text));    end;


    I think, you must change the code between the two begin /end the other way round, like this:


    Now it is possible for me to create PDF's again...

    Thanks,
    Patrick[/b]

  • First Character invisible in Editfields in Tables

    To reproduce the problem :

    User your TBX-Demo and load the following RTF:


      {\rtf1\ansi\deff0\uc1\ansicpg1252\deftab720{\fonttbl{\f0\fnil\fcharset1 Times New Roman;}{\f1\fnil\fcharset2 Wingdings;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;}\wpprheadfoot1\paperw11904\paperh16836\margl1882\margr1882\margt1440\margb1440\headery720\footery720\ftnbj\sftnbj\sftnrstcont\nocolbal\sftnnar\saftnnar\fet0\endnhere\sectdefaultcl{\*\generator WPTools_5.370-PRM;}{\plain\fs24{\formfield{\*\fldinst{MERGEFIELD FELD1}}{\*\wpfldparam{FELD1}}{\fldrslt{- Name -}}}\par
      \pard\plain\plain\fs24\par
      \tblstart1{\trowd\trleft0\trftsWidth2\trwWidth5000\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clftsWidth2\clwWidth1250\clvertalt\cellx2028\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clftsWidth2\clwWidth1250\clvertalt\cellx4056\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clftsWidth2\clwWidth1250\clvertalt\cellx6084\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clftsWidth2\clwWidth1250\clvertalt\cellx8107\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\plain\fs24{\formfield{\*\fldinst{MERGEFIELD FELD2}}{\*\wpfldparam{FELD2}}{\fldrslt{Name}}}\cell\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\plain\fs24\cell\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\plain\fs24\cell\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\plain\fs24\cell\row}{\trowd\trleft0\trftsWidth2\trwWidth5000\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clftsWidth2\clwWidth1250\clvertalt\cellx2028\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clftsWidth2\clwWidth1250\clvertalt\cellx4056\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clftsWidth2\clwWidth1250\clvertalt\cellx6084\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clftsWidth2\clwWidth1250\clvertalt\cellx8107\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\plain\fs24{\field{\*\fldinst{MERGEFIELD FIELD1}}{\*\wpfldparam{FIELD1}}{\fldrslt{Vorname}}}\cell\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\plain\fs24\cell\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\plain\fs24\cell\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\plain\fs24\cell\row}{\trowd\trleft0\trftsWidth2\trwWidth5000\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clftsWidth2\clwWidth1250\clvertalt\cellx2028\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clftsWidth2\clwWidth1250\clvertalt\cellx4056\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clftsWidth2\clwWidth1250\clvertalt\cellx6084\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clftsWidth2\clwWidth1250\clvertalt\cellx8107\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\plain\fs24{\field{\*\fldinst{MERGEFIELD }}{\fldrslt{- Abteilung -}}}\cell\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\plain\fs24\cell\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\plain\fs24\cell\pard\intbl\itap1\li0\fi0\ri0\sb0\sa0\ql\plain\fs24\cell\row}\tblend1\pard\plain\plain\fs22\par
      }}


    Note :
    - View -> Mailmerge Codes OFF
    Character "-" is invisible ("x Abteilung -")

    WPTools Version 5.43.2 / Delphi 7

    Thanks,
    Patrick

  • Appending RTF's files and creating one PDF File

    Hi,

    There are two or more RTF's with always one header (only on first page) and one header (on all pages). The goal is to append them and build a pdf.

    How can i convert header to normal text?
    After that there will be no problems to get one rtf file!
    Or is it possible to tell your pdf component to append pages to a existing pdf?

    Any idea or suggestion?

    Thanks
    Patrick

  • SaveAs and DefautlIOFormat

    Hi Julian,

    please do the following steps to reproduce:

    1. New Project
    2. TWPRichText and TButton on Form
    3. WPRichText1.DefaultIOFormat := 'RTF'
    4. ButtonOnClick : WPRichText.SaveAs();
    5. Some Text in WPRichText
    6. ButtonClick
    7. Save in txt format.
    8. Open file with notepad, format is RTF...

    I think problem starts in WPCTRRich at line 3098

    Code
    if DefaultIOFormat <> '' then def := DefaultIOFormat
    else def := TextSaveFormat;

    Thanks
    Patrick

  • Addict and WPTools

    Hi Julian,

    a few month ago we did this :

    now this "1.2" "1,3" is also misspelled....

    Can you please tell me what to do?

    Thanks

    Patrick

  • PrinterName in PrintParameter

    Hi Julian,

    What about a new property "PrinterName" in PrintParameter or new
    paramter in print method

    setting this property (parameter) can do some work for us:

    1. keep in mind current printer
    2. setting new printer
    3. after print switch to printer in mind
    .....

    Thanks
    Patrick

  • AV after change of Field.EmbeddedText

    Hi Julian,

    doing this, "sometimes" an AV occured:

    Hope this callstack can help


      date/time : 2007-07-26, 09:13:07, 110ms
      computer name : ...
      user name : ...
      registered owner : ...
      operating system : Windows XP Service Pack 2 build 2600
      system language : German
      system up time : 6 days 1 hour
      program up time : 40 minutes 15 seconds
      processors : 2x Intel(R) Pentium(R) 4 CPU 3.00GHz
      physical memory : 536/1535 MB (free/total)
      free disk space : (C:) 26,92 GB (P:) 2,96 GB
      display mode : 1280x1024, 32 bit
      process id : $c2c
      allocated memory : 32,25 MB
      executable : ifms.EXE
      current module : ifms.exe
      module date/time : 2007-07-26 08:28
      version : 1.0.0.179
      compiled with : Delphi 7
      callstack crc : $c6c5c3f8, $e5b3ebc2, $e5b3ebc2
      exception number : 1
      exception class : EAccessViolation
      exception message : Zugriffsverletzung bei Adresse 06CB1B7C in Modul 'ifms.exe'. Lesen von Adresse 6F522085.

      main thread ($b34):
      06cb1b7c +0298 ifms.exe WPCTRMemo 7167 +62 TWPCustomRtfEdit.MouseMove
      06bad33a +006e ifms.exe Controls TControl.WMMouseMove
      06bace24 +0188 ifms.exe Controls TControl.WndProc
      06bafe83 +0157 ifms.exe Controls TWinControl.WndProc
      06cbb492 +000a ifms.exe WPCTRMemo 13413 +4 TWPCustomRtfEdit.WndProc
      06bafb00 +002c ifms.exe Controls TWinControl.MainWndProc
      06b465dc +0014 ifms.exe Classes StdWndProc
      7e3696c2 +000a USER32.dll DispatchMessageA
      06b9c477 +0083 ifms.exe Forms TApplication.ProcessMessage
      06b9c4ae +000a ifms.exe Forms TApplication.HandleMessage
      06b98f2d +015d ifms.exe Forms TCustomForm.ShowModal
      070852e1 +02f5 ifms.exe IfmsWord 695 +37 WordShow

    Thanks

    Delphi 7 WPTools 5.07.2007 V5.0 Release 24.3a

    Patrick

  • Problem with selected text alignmet left

    Hi Julian,

    please take the following rtf and try it in your TBX Demo.
    Select the par with the word "Exzisionsstelle" and next one with
    "Text" and the following which is empty.

    They alignment is left. Try to make it right and and left again...
    Only if you justify the selected text it will return to left

    Any idea?

    Thanks
    Patrick