English
Units

RTFHandling.pcu

 
- Page 1 -



Dieter
Zornow
here my zweiter Wettbewerbsbeitrag

Download

I have me time with the Richedit befasst and a PCU written, The the whole Handling
heavy vereinfachen should. there are 99 functions include, with many Features How zoomen, the complete
Handling including the dialogs for Search and Search and supplant as well as different Bullets
Line break, one Context menu and print, hope that the Print everywhere functions, I only with
the PDF-Printer tested have
thereby is a, How I mean, good Documentation and a Beispielprogramm as prf the The functions run
shows, so that it dead easy his ought to tappt im dunkeln To benefit.
I have worth hereon laid always the to integrate complete handling of a function, so that the meiste
with a appeal abgedeckt is, as well as The Number of Parameter so lowly as can be To hold, usually becomes
only the lever the Richedits transfer.
its no Subclassing present, I The PCU ex XProfan 8.0 run make wished.
Since I no 8 it Version installs have, must Tests show whether it me been successful is.
too in the Beispielprogramm have I ready only command the 8.0 Version To benefit, know but
whom Befehlsumfang not very. under Version 11 runs but everything.
Images insert is ditto not yet integrate, there me from Zeitgründen the hoisted To big was.
comes but yet, as my Time allows.
Proposals and review to Weiterentwicklung are Welcome.

in the pkg include are

demonstration.prf, One Demonstartionsprogramm for Opportunities the PCU
Documentation.chm, The Documentation the 99 functions.
Documentation.rtf, The Documentation as RTF-File
MinitextPad.zipper, One small editor whom I to Demonstartion written have (as Exe)
RTFHandling.def, The of XPSE begot Definationsdatei,
RTFHandling.pcu, The PCU
RTFHandling.html The of XPSE begot Help.

Greeting

Dieter

139 kB
Kurzbeschreibung: Version 1.0.5 - 07.09.2009
Hochgeladen:09/07/09
Downloadcounter270
Download
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
11/24/08  
 



 
- Page 4 -



Dieter
Zornow
Hello Thomas,

UTF-8. can't functions. has already some vastly differences To Unicode,

Unicode: here go The characters always with 2 Bytes displayed and at the beginning the Textdatei stand
two Bytes (FF FE), The mark, that it itself circa a Unicode-File deals.

UTF-8: with UTF-8 verbrauchen The characters different many Bytes.

If you but UTF-8 normal as Ansi and not as Unicode load becomes everything except for The Sonderzeichen normal displayed
means probably, that The normalen Ansizeichen in UTF-8 too only one byte big are and only The Sonderzeichen from several Bytes consist.
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
09/08/09  
 




Thomas
Freier
Hello Dieter,
I had now a small RTF-application on The RTFHandling.pcu umgestellt.
unfortunately I get whom Line break (comes too soon) not How desired there.
where lying my trouble?

567 kB
Hochgeladen:02/21/10
Downloadcounter91
Download
 
Gruß Thomas
Windows XP SP2, XProfan X2
02/21/10  
 




Dieter
Zornow
Hello Thomas,

I stand in the momentum on the Hose, must I first time schlau make, if I what find login I.
Perhaps could you one Richedit without Scrolling use. would be but horizontales and vertikales Scrolling prevent

ed& = Control("Richedit","",$54011004,10,40,360,362,%hwnd,9000,%hinstance,$0)

your Program is me as Prf abgestürzt, there the image not stored go could. can his, that the a problem of XProfan 12 is, because your Exe runs Yes correct, too by me under Win 7.
so How You it stored have, has it in the Interpreter not functions, it coming one Image the Size 0 out.
CompileMarkSeparation
text$=new_file$+"\Bild.png"
FileMode 1
Assign #1,text$
OpenRW #1
BlockWrite #1,mem#,0,2736
CloseRW #1

so functions But correct
CompileMarkSeparation
text $=new_file$+"\Image.png"
BlockWrite Text$,mem#,0,2736
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
02/21/10  
 




Thomas
Freier
Dieter,
is really not so important. having it at optischen Aufpeppen once over The PCU attempts.
can but again How before applied, from Pascals example (RTF-Edit with fester Höhe and wide), The wide determine.
 
Gruß Thomas
Windows XP SP2, XProfan X2
02/22/10  
 




Dieter
Zornow
Hello Thomas,

have The Solution found, I have a solid Multiplikator installed the whom Text always on a solid Size relatively to Controlgröße setting. Since I the only to that reading überlanger Texts virtual having, functions it with so special Applications, where it very very his must, not zufriedenstellend. I must probably the Function to a Parameter to that take on the Multiplikators strain, then can The Relative Size to that Control take on.
I have 12 as standard tuned, with you should it 15 his circa very The desired Size to obtain
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
02/23/10  
 




Thomas
Freier
Hello Dieter,
THANK YOU for trouble. goes now, and will be it yet with whom Etiketten testing, if You Please The function Change Font markierter Text to there strain would, that in the Fontdialog same manner, Höhe, colour, etc. the marked Textes pretended go.
 
Gruß Thomas
Windows XP SP2, XProfan X2
02/23/10  
 




Dieter
Zornow
Hello Thomas,

I know now not what you mean. Meinst You SETMARKEDTEXTFONT The Fontdialog is Yes not in the PCU present. here becomes Yes only the name the Fonts as String transfer. whom dialog moreover must You Yes self create. in the demonstration is it too outside. or Dou you mean what other.
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
02/24/10  
 




Thomas
Freier
Yes, the Fontdialog is extern. have the example time extended. One GETGetMarkedTextSize(), ists BIG, ITALIC, etc., can I not find or How have you got the realized have.
whether The Solution for Höhe and colour universally valid is???
let the others Settings too yet over a GetMarkedTextSize(ed&)-request release?

8 kB
Hochgeladen:02/24/10
Downloadcounter165
Download
 
Gruß Thomas
Windows XP SP2, XProfan X2
02/24/10  
 




Dieter
Zornow
Hello Thomas,

the Reading whether a Font Big etc is, isn't include, these functions have I only as Umschalter drin. If something big is becomes it when calling normal and inverse. would be but no trouble something like incorporate, I at switch indeed whom jeweiligen status detect must. will be the into next Meet install.
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
02/24/10  
 




Thomas
Freier
the reads itself well. next to the Fontdialog can itself Yes then too with markiertem or with Curserposition in the Text, The statement the suitable Button steer. THANK YOU!
 
Gruß Thomas
Windows XP SP2, XProfan X2
02/25/10  
 




Thomas
Freier
Hello Dieter,

before I whom Objects zuwende, have I another trouble.
To dato be I with the Creation, edit, etc. the RTF very pleased. now, through chance discover, introduce Rechtsklick in the RTF to a Speicherverletzung.
could you, or whoso on it Fun has, Please once on the heavy eingekürzten Script see, what wrong runs.
CompileMarkSeparation
 $U RTFHandling.pcu = R_'TRF-PCU einbinden
 $U objects.pcu = R_
cls
Bilder_Rep
WaitInput
end
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Bilder Report ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Proc Bilder_Rep

    Declare RichEdit&,rtf_dll&,rtf_hdc&,linebreak&
    rtf_dll& =  R_INTITFORCREATERTF()'DLL laden mit PCU
    WINDOWSTYLE 538
    var B_dlg& = @Create("Window",%hwnd,"  Bilder-Report " ,80,10,900,720)
    rtf_dll& =  R_INTITFORCREATERTF()'DLL laden mit PCU
    RichEdit& = R_CREATERICHEDIT(B_dlg&,"",9000,60,750,580)' Richedit erstellen mit PCU
    rtf_hdc& = R_PREPAREFORLINEBREAK(RichEdit&)' Device Context erzeugen mit PCU
    R_Init_object(RichEdit&)'Zum Bildempfang vorbereiten
    R_SETMARKEDTEXTSIZE(RichEdit&,18)
    R_SETMARKEDTEXTFONT(RichEdit&,"Sheffield")
    R_RTFREPLACE(RichEdit&,"SAV Pliete e.V. Lübeck")
    SendString(RichEdit&,"^{ENTER}")
    R_SETMARKEDTEXTSIZE(RichEdit&,14)
    R_SETMARKEDTEXTFONT(RichEdit&,"Sheffield")
    R_RTFREPLACE(RichEdit&,"Bilder vom Bootsplatz")
    SendString(RichEdit&,"^{ENTER}")
    R_GotoEnd(Richedit&)
    R_SETMARKEDTEXTSIZE(RichEdit&,12)
    R_SETMARKEDTEXTFONT(RichEdit&,"Verdana")

    WhileLoop 3

        SendString(RichEdit&,"^{ENTER}")

    EndWhile

    R_GotoEnd(Richedit&)
    SetWindowPos RichEdit&=60,60
    R_RTFMarkAll(Richedit&)
    R_SETTEXTCENTER(RichEdit&)
    R_RTFSetCaretPosition(RichEdit&,0,0)
    setfocus(B_Dlg&)

    While 1

        WaitInput
        case %key=2:BREAK

    wend

    R_DEINITRTF(RichEdit&,rtf_hdc&,RTF_DLL&)'RTF-Aufräumen
    R_DeInit_object()
    DestroyWindow(B_dlg&)
    setfocus(%hwnd)

ENDPROC


540 kB
Hochgeladen:12/09/10
Downloadcounter168
Download
 
Gruß Thomas
Windows XP SP2, XProfan X2
12/09/10  
 




Thomas
Freier
Hello Dieter,
have whom Error einkreisen can:
R_GETRIGHTCLICKMENU(ed&) 'Rechtsklickabfrage must present his, even if RTFMenu(ed&) not staid is. is in the example DEMO.rtf nachzuvollziehen.
unfortunately opens itself then too without RTFMenu(ed&) the Menu, what me not disturbing would, but unfortunately is with of my Images-RTF the pressure then unvollständig.
 
Gruß Thomas
Windows XP SP2, XProfan X2
12/10/10  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

44.455 Views

Untitledvor 0 min.
Georg Teles10/19/22
H.Brill02/08/22
RudiB.09/06/21
Jürgen Strahl08/29/21
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie