| |
|
|
- 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 |
|
|
| 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? |
|
|
| 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 so functions But correct CompileMarkSeparationtext $=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? |
|
|
| 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
|
|
|
| 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 ▲ |
|
|
|