Chip 2003 November

home *** CD-ROM | disk | FTP | other *** search

/ Chip 2003 November / Chip_2003-11_cd1.bin / program / delphi / kompon / DIHtmlLabel.exe / Demos / DIHtmlLabel / InfoStrings.pas < prev next >

Wrap

Pascal/Delphi Source File | 2003-09-01 | 27.0 KB | 466 lines

{------------------------------------------------------------------------------- The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for the specific language governing rights and limitations under the License. The Original Code is: InfoStrings.pas, released 2002-01-05. The Initial Developer of the Original Code is David Polberger <dpol@swipnet.se> Portions created by David Polberger are Copyright (C) 2002 David Polberger. All Rights Reserved. Contributor(s): Ralf Junker <delphi@zeitungsjunge.de> You may retrieve the latest version of this file at The Delphi Inspiration home page, located at http://www.zeitungsjunge.de/delphi/ -------------------------------------------------------------------------------} unit InfoStrings; interface const NmrOfScreens = 14; Headings: array[0..NmrOfScreens - 1] of AnsiString = ('Introduction', 'Origins', 'What''s New', 'Unicode Examples I', 'Unicode Examples II', 'Formatting Text', 'Supported Tags', 'Color Names A - L', 'Color Names L - Y', 'Handling Links', 'Dynamic Tags', 'Play!', 'Source Code', 'Read More'); HEAD_COLOR = '#00529C'; ALT_COLOR = '#00203E'; COLOR_INTRO = '' + 'This is a list of supported color names (case-insensitive). ' + 'Hexadecimal color values (prefixed by a hash mark ''#'') are also supported: ' + '#FF0000 #00FF00 ' + '#0000FF #FF800.'; COLOR_OUTRO = '' + 'Please note: Some colors are not clearly visible against the white background.'; Info: array[0..NmrOfScreens - 1] of AnsiString = ( // Introduction ' Introduction' + '' + 'Welcome to TDIHtmlLabel! Have you ever wanted to include ' + 'formatted text and links that flow with the rest of the text in your ' + 'applications? TDIHtmlLabel is a fast, light-weight replacement for ' + 'Delphi''s TLabel, that handles all this. In fact, the text you''re ' + 'reading right now, is displayed by the TDIHtmlLabel.' + '' + 'TDIHtmlLabel is licensed under the ' + '<A href=http://www.mozilla.org/MPL/MPL-1.1.html>Mozilla Plublic License ' + '(MPL)</A>, which basically means that if you alter the component ' + 'and distribute an application incorporating it, you must make your changes ' + 'to the component public. Note, though, that this doesn''t affect your ' + 'application. Thus, you can safely use TDIHtmlLabel in applications ' + 'whose source code you want to remain private.' + '' + 'Have you seen the source code of a HTML document? This component uses ' + 'the same technique to format text. <A href=Next>Read on</A> to find out ' + 'more!', // Origins 'Origins' + '' + 'TDIHtmlLabel originates from TJvLinkLabel. TJvLinkLabel was ' + 'written by David Polberger, but he has withdrawn from its active ' + 'development and has donated his code to the ' + '<A href="http://jvcl.sourceforge.net">JEDI VCL</A>, JVCL in short.' + '' + 'To get hold of the original files, you need to download the JEDI VCL. ' + 'The TJvLinkLabel files are located in the Source sub-folder and do all ' + 'start which with "JvLinkLabel...".' + '' + 'To read about the improvements of TDIHtmlLabel compared to the original ' + 'TJvLinkLabel, <A href=Next>click here</A>.', // What's New 'What''s New' + '' + 'Unicode Support, the main new feature of TDIHtmlLabel, has become ' + 'possible by applying <A href=http://www.zeitungsjunge.de/delphi/>' + 'DIHtmlParser</A> as the underlying HTML parsing engine. Therefore ' + 'TDIHtmlLabel is able to display characters from different languages ' + 'right next to each other even on Win95 – provided the font applied supports ' + 'the used characters. DIHtmlLabel reads Unicode by converting ' + 'all common Html entities, both named and numeric, to Unicode WideStrings internally.' + '' + 'α = α – β = β – γ = γ' + ' ' + 'A = A – B = B – C = C' + '' + 'TDIHtmlLabel reads all Html data assigned to its Caption property ' + 'as Latin1. Additional character sets can easily be added if there is demand for it.' + '' + 'Attribute Values for the <A href=MyValue> and <DYNAMIC id=MyValue> ' + 'tags, which are passed to the OnLinkClick and the OnInitDynamicNode events.' + '' + 'Many internal optimizations which boost performance and decrease memory requirements.', // Unicode Examples I 'Unicode Examples I' + '' + 'Esperanto: "Laŭ Ludoviko Zamenhof bongustas freŝa ĉeĥa manĝaĵo kun spicoj."' + 'La Angla: "The quick brown fox jumps over the lazy dog."' + 'La Estona: "Ma võin klaasi süüa, see ei tee mulle midagi."' + 'La Finna: "Pystyn syömään lasia. Se ei koske yhtään."' + 'La Franca: "Le cœur déçu mais l'' â me plutô t naï ve, Louÿ s rê va de crapaü ter en canoë au delà des î les, prè s du mä lströ m où brû ' + 'lent les novæ."' + 'La Germana: "Falsches Üben von Xylophonmusik quält jeden größeren Zwerg."' + 'La Greka: "Μπορώ να φάω σπασμένα γυαλιά χωρίς να πάθω ' + 'τίποτα."' + 'La Hispana: "El pingüino Wenceslao hizo kilómetros bajo exhaustiva lluvia y frío, añoraba a su querido cachorro."', // Unicode Examples II 'Unicode Examples II' + '' + 'La Islanda: "Kæmi ný öxi hér ykist þjófum nú bæði víl og ádrepa."' + 'La Latva: "Es varu ēst stiklu, tas man nekaitē."' + 'La Nederlanda: "We zaten met zĳn drieën in een bootje op het Ĳsselmeer."' + 'La Norvega: "Jeg kan spise glas. Det gjør meg ikke vondt."' + 'La Pola: "Pchnąć w tę łódź jeża lub ośm skrzyń fig."' + 'La Rumana: "Pot să mănânc sticlă şa ea nu mă răneşte."' + 'La Rusa: "Съешь ещё этих же мягких французских ' + 'булок, да выпей чаю."' + 'La Sveda: "Jag kan äta glas, det skadar mig inte."' + 'La Turka: "Cam yiyebilirim, bana zararı dokunmaz."', // Formatting Text 'Formatting Text' + '' + 'We''ll start off with an example:' + '' + 'This text is bold, and italic' + ', and includes a <link>' + 'link</link>!' + '' + 'Simply enter this text in the Caption property of the TDIHtmlLabel, ' + 'just as you usually do with the TLabel component. The result looks ' + 'something like this:' + '' + 'This text is bold, and italic, and includes a ' + '<A href=Next2>link</A>!' + '' + 'For example, to start a section to be displayed as bold text, ' + 'you''ll need to insert a "tag", in this case . End the ' + 'bold section with .' + '' + 'For a full listing of supported tags, <A href=Next>go on to the next ' + 'page!</A>', // Supported Tags 'Supported Tags' + '' + 'For Html tags, case does not make a difference throughout TDIHtmlLabel. ' + 'You could use just as well as .' + '' + 'Basic text formatting:' + '' + ' – Bold text style ' + ' – Italic text style ' + '<S> – <S>strike-through text style</S> ' + ' – Underlined text style ' + ' – Colored text style' + '' + 'Line and paragraph breaks:' + '' + ' – Line break (no end tag required) ' + ' – Paragraph break (no end tag required)' + '' + 'Special features:' + '' + '<LINK> – <A href=Next3>Hypertext links</A> ' + '<DYNAMIC> – Text whose contents change <A href=Next4>dynamically</A> (no end tag)', // Color Names I 'Color Names A – L' + COLOR_INTRO + '' + 'aliceblue antiquewhite aqua aquamarine azure beige bisque black blanchedalmond blue blueviolet brown burlywood cadetblue chartreuse chocolate coral cornflowerblue cornsilk ' + 'crimson cyan darkblue darkcyan darkgoldenrod darkgray ' + 'darkgreen darkkhaki ' + 'darkmagenta darkolivegreen darkorange darkorchid ' + 'darkred darksalmon ' + 'darkseagreen darkslateblue darkslategray darkturquoise darkviolet deeppink deepskyblue dimgray dodgerblue firebrick floralwhite forestgreen ' + 'fuchsia gainsboro ghostwhite gold goldenrod gray green greenyellow honeydew hotpink indianred indigo ivory khaki lavender lavenderblush ' + 'lawngreen lemonchiffon lightblue ' + 'lightcoral lightcyan ' + 'lightgoldenrodyellow lightgreen lightgrey lightpink lightsalmon ' + 'lightseagreen lightskyblue lightslategray' + COLOR_OUTRO, // Color Names II 'Color Names L – Y' + COLOR_INTRO + '' + 'lightsteelblue lightyellow lime limegreen linen ' + 'magenta maroon ' + 'mediumaquamarine mediumblue mediumorchid ' + 'mediumpurple mediumseagreen mediumslateblue mediumspringgreen mediumturquoise mediumvioletred midnightblue mintcream ' + 'mistyrose moccasin' + 'navajowhite navy ' + 'oldlace olive olivedrab orange orangered orchid palegoldenrod palegreen ' + 'paleturquoise palevioletred papayawhip peachpuff peru pink plum ' + 'powderblue purple red rosybrown royalblue saddlebrown ' + 'salmon sandybrown seagreen seashell sienna silver skyblue slateblue slategray snow springgreen steelblue ' + 'tan teal thistle tomato turquoise violet wheat white whitesmoke yellow yellowgreen' + COLOR_OUTRO, // Handling Links 'Handling Links' + '' + 'What happens when a user clicks a link? The OnLinkClick event ' + 'handler fires, making it easy for you to perform any action you want. ' + 'You may, for instance, open the user''s web browser, displaying a web ' + 'page, or you can bring up a dialog window in your application, or ' + 'something entirely different.' + '' + 'The LinkHref parameter tells you which link the user ' + 'clicked, while the LinkText tells you the contents of the ' + 'link (with any tags removed).' + '' + 'Click <A href=Show>here</A> to trigger the following Html link: ' + '' + '<A href=Show>here</A>' + '' + 'It is implemented to display a messagebox with the OnLinkClick parameters. ' + '' + 'You can, however, use the OnLinkClick for other link implementations ' + 'as demonstrated in this demo application.', // Dynamic Tags 'Dynamic Tags' + '' + 'Dynamic content is used for content which may not be known when ' + 'you design the form, or content that changes during the course of ' + 'time, such as a label reporting memory usage. While you could simply ' + 'assign a new string to the Caption property, you''d have to ' + 'store the information both in the form file, and in the code itself ' + '(or only the latter). To add insult to injury, the entire string would ' + 'have to be reparsed, negatively impacting performance. Also, this ' + 'solution is awkward at best, and hard to maintain.' + '' + 'Enter dynamic tags. Specify which content changes dynamically by ' + 'replacing the text itself with <DYNAMIC>. You''ll need to ' + 'handle the OnInitDynamicTag event to give these tags default ' + 'values. At run-time, simply call FMyLinkLabel.UpdateDynamicTag ' + 'to update the contents of the dynamic tag at will!' + '' + 'Type into the edit box below to change the following line coded as ' + '<DYNAMIC id=Edit>.' + '' + '<DYNAMIC id=Edit>', // Play! 'Play!' + '' + '<A href=Play>Click here</A> to open a separate window, where you can test ' + 'the TDIHtmlLabel interactively! Feel free to edit the text in the edit ' + 'box (or replace it completely), to see how TDIHtmlLabel renders your ' + 'input. On the right, you''ll see a tree representation of the contents ' + 'of the edit box.' + '' + 'Note: I believe that the text in the separate window is used in ' + 'various desktop publishing products as placeholder text – this copy ' + 'was found on the Internet. As I don''t speak Latin, I have no idea ' + 'what it means, if anything.', // Source Code 'Source Code' + '' + 'TDIHtmlLabel''s source code is clearly written and mostly easy ' + 'to follow. Feel free to contribute!' + '' + 'TDIHtmlLabel consists primarily of the component itself, a parser ' + 'which tries to make sense of the contents of the Caption ' + 'property and returns a tree representation of this data, and a ' + 'renderer, which renders the output to your screen.' + '' + 'Please read the <A href=Next>full documentation</A> for pointers on ' + 'features I''d like to see implemented in the future, and any bugs ' + 'which I would love to see squashed. You''ll also find comments ' + 'pertaining to areas where performance could be improved, and areas of ' + 'the code that could be more modular. In short, if you''d like to hack ' + 'the code, see this document for useful tips!', // Read More 'Read More' + '' + 'At this time, the documentation is maintained as a standard text file, ' + 'although we plan to provide it either as XHTML/CSS or as a help file ' + 'in the future. Look for it in the TDIHtmlLabel directory!' + '' + 'Thanks for using TDIHtmlLabel!' + '' + 'Ralf Junker'); Lorem = 'Lorem ipsum dolor sit amet, consectetuer adipiscing elit, ' + 'sed diam nonummy nibh euismod <A>tincidun' + 't ut laoreet</A> dolore magna aliquam erat volutpat. Ut wisi ' + 'enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit ' + 'lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum ' + 'iriure dolor in hendrerit in vulputate velit esse molestie ' + 'consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et ' + '<A>accumsan et iusto odio dignissim qui blandit praesent ' + 'luptatum zzril delenit augue duis dolore te feugait nulla facilisi. ' + 'Lorem ipsum dolor sit</A> amet, consectetuer adipiscing elit, ' + 'sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam ' + 'erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci ' + 'tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo ' + 'consequat.' + { Uncomment to test GB18030 Character Set} { '' + '<META http-equiv=content-type content=charset=GB18030>' + '╤í│÷╒²╚╖╡─┤≡░╕íú" ' + '░í ░ó ▀╣ ' + ' |▌═|╝╥| Γ╝░╦╡├≈ú ╤í│÷╒²╚╖╡─┤≡░╕íú"' + } '' + '<META http-equiv=content-type content=charset=Latin1>' + 'Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse ' + 'molestie consequat, vel illum dolore eu feugiat nulla facilisis ' + 'at vero eros et accumsan et iusto odio dignissim qui blandit praesent ' + 'luptatum zzril delenit augue duis dolore te feugait nulla ' + 'facilisi. Nam liber tempor cum soluta nobis eleifend option congue ' + 'nihil imperdiet doming <A>id quod mazim</A> placerat facer possim ' + 'assum.' + '' + 'Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam ' + 'nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat ' + 'volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ' + 'ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. ' + 'Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse ' + 'molestie consequat, vel <A>illum dolore eu feugiat nulla ' + 'facilisis at vero eros et </A>accumsan et iusto odio dignissim qui ' + 'blandit praesent luptatum zzril delenit augue duis dolore te ' + 'feugait nulla facilisi. Lorem ipsum dolor sit amet, consectetuer ' + 'adipiscing elit, sed diam nonummy nibh euismod tincidunt ut <A>' + 'laoreet dolore</A> magna aliquam erat volutpat.' + '' + 'Ut wisi enim ad minim veniam, quis nostrud exerci <A>tation ' + 'ullamcorper suscipit</A> lobortis nisl ut aliquip ex ea commodo ' + 'consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate ' + 'velit esse molestie consequat, vel illum dolore eu feugiat ' + 'nulla facilisis at vero eros et accumsan et iusto odio ' + 'dignissim qui blandit praesent luptatum zzril delenit augue duis ' + 'dolore te feugait nulla facilisi. Lorem ipsum dolor sit amet, ' + 'consectetuer adipiscing elit, <A>sed diam nonummy </A>' + 'nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat.' + '' + 'Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper ' + 'suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem ' + 'vel eum iriure dolor in hendrerit <A>in vulputate velit' + '</A> esse molestie consequat, vel illum dolore eu feugiat nulla ' + 'facilisis at vero eros et accumsan et iusto odio dignissim qui ' + 'blandit praesent luptatum zzril delenit augue duis dolore te ' + 'feugait nulla facilisi. ' + '' + 'Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam ' + 'nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam ' + 'erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ' + 'ullamcorper <A>suscipit lobortis</A> nisl ut aliquip ex ea ' + 'commodo consequat. Duis autem vel eum iriure dolor in hendrerit in ' + 'vulputate velit esse molestie consequat, vel illum dolore eu ' + 'feugiat nulla facilisis at.' + '' + 'Vero eros et accumsan <A>et iusto</A> odio dignissim qui blandit ' + 'praesent luptatum zzril delenit augue duis dolore te feugait nulla ' + 'facilisi. Lorem ipsum dolor sit amet, consectetuer adipiscing ' + 'elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna ' + 'aliquam erat volutpat. Ut wisi enim ad minim veniam, quis ' + 'nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ' + 'ea commodo consequat.' + '' + 'Autem vel eum iriure dolor in hendrerit in vulputate velit esse ' + 'molestie consequat, <A>vel illum</A> dolore eu feugiat nulla ' + 'facilisis at vero eros et accumsan et iusto odio dignissim qui ' + 'blandit praesent luptatum zzril delenit augue duis dolore te ' + 'feugait nulla facilisi.'; implementation end.