TB10.1 Example Applications: examples/AppFramework/txtshell/txtrich.cpp Source File

00001 // Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies).
-00002 // All rights reserved.
-00003 // This component and the accompanying materials are made available
-00004 // under the terms of "Eclipse Public License v1.0"
-00005 // which accompanies this distribution, and is available
-00006 // at the URL "http://www.eclipse.org/legal/epl-v10.html".
-00007 //
-00008 // Initial Contributors:
-00009 // Nokia Corporation - initial contribution.
-00010 //
-00011 // Contributors:
-00012 //
-00013 // Description:
-00014 //
-00015 
-00016 #include "txtexamp.h"
-00017 
-00018 #include <txtrich.h>
-00019 
-00020 CRichControl::~CRichControl()
-00021         {
-00022         delete iTextView; // text view
-00023         delete iLayout; // text layout
-00024         delete iRichText; // contained text object
-00025         delete iCharFormatLayer; // character format layer
-00026         delete iParaFormatLayer; // and para format layer
-00027         }
-00028 
-00029 
-00030 void CRichControl::UpdateModelL()
-00031         {
-00032         // Create all constant literal descriptors used in this function, 
-00033         // e.g. for message text
-00034         _LIT(KHamletSpeech, "To be, or not to be, that is the question; \
-00035 whether 'tis nobler in the mind to suffer the \
-00036 slings and arrows of outrageous fortune, or \
-00037 to stand against a sea of troubles, and by \
-00038 opposing end them."); 
-00039         _LIT(KPath,"\\richtxt.dat");
-00040         _LIT(KText1,"Rich text in bold. ");
-00041         _LIT(KText2,"Much larger rich text.");
-00042         _LIT(KText5,"New text has preserved formatting at insertion point. ");
-00043         _LIT(KText7,"New text has lost formatting at insertion point. ");
-00044         _LIT(KStatus0,"Initialised rich text object and text view");
-00045         _LIT(KStatus1,"InsertL() at position zero");
-00046         _LIT(KStatus2,"Inserted text with specific formatting applied");
-00047         _LIT(KStatus3,"Underlining applied to part of paragraph");
-00048         _LIT(KStatus4,"Deleted text, but preserved formatting ...");
-00049         _LIT(KStatus5,"... and inserted with same format");
-00050         _LIT(KStatus6,"Deleted text and forgot about formatting ...");
-00051         _LIT(KStatus7,"... and inserted with format before new text");
-00052         _LIT(KStatus8,"Added 2 new paragraphs with default formatting");
-00053         _LIT(KStatus9,"Set alignment for second paragraph");
-00054         _LIT(KStatus10,"Used StoreL() to store rich text and components");
-00055         _LIT(KStatus12,"Used RestoreL() to restore rich text and components");
-00056         _LIT(KStatusReset,"Reset();");
-00057         _LIT(KStatusDefault,"(overshot!!)");
-00058 
-00059         TBufC<28>   name(KPath);
-00060         
-00061         switch (Phase())
-00062                 {
-00063         case 0:
-00064                 {
-00065                 // Create text object, text view and layout.
-00066                 iParaFormatLayer=CParaFormatLayer::NewL(); // required para format layer
-00067                 iCharFormatLayer=CCharFormatLayer::NewL(); // required char format layer
-00068                 // Create an empty rich text object
-00069                 iRichText=CRichText::NewL(iParaFormatLayer, iCharFormatLayer);
-00070                 // prerequisites for view - viewing rectangle
-00071                 iViewRect=Rect();
-00072                 iViewRect.Shrink(3,3);
-00073                 // context and device
-00074                 CWindowGc& gc=SystemGc(); // get graphics context
-00075                 CBitmapDevice *device=(CBitmapDevice*) (gc.Device()); // device
-00076                 // Create the text layout, (required by text view),
-00077                 // with the text object and a wrap width (=width of view rect)
-00078                 iLayout=CTextLayout::NewL(iRichText,iViewRect.Width());
-00079                 // Create text view
-00080                 iTextView=CTextView::NewL(iLayout, iViewRect,
-00081                                 device,
-00082                                 device,
-00083                                 &Window(),
-00084                                 0, // no window group
-00085                                 &iCoeEnv->WsSession()
-00086                                 ); // new view
-00087                 // message to say what we did
-00088                 iFormObserver->NotifyStatus(KStatus0);
-00089                 break;
-00090                 }
-00091         case 1:
-00092                 // Set some character formatting
-00093                 iCharFormatMask.SetAttrib(EAttFontStrokeWeight);  
-00094                 
-00095                 iCharFormat.iFontSpec.iFontStyle.SetStrokeWeight(EStrokeWeightBold);
-00096 
-00097                 // apply formatting - pos and length are irrelevent
-00098                 iRichText->ApplyCharFormatL(iCharFormat,iCharFormatMask, 0,0);
-00099                 
-00100                 // Insert some text
-00101                 iRichText->InsertL(0,KText1);
-00102                 iFormObserver->NotifyStatus(KStatus1);
-00103                 break;
-00104         case 2:
-00105                 // Insert some more text with specific formatting
-00106                 {
-00107                 TCharFormat charFormat;
-00108                 TCharFormatMask charFormatMask;
-00109                 charFormatMask.SetAttrib(EAttFontHeight); // interested in font height
-00110                 charFormat.iFontSpec.iHeight=480; // (in twips) increase it from default to 1/3 inch
-00111                 TInt pos=iRichText->DocumentLength(); // insertion position = end of doc
-00112                 iRichText->SetInsertCharFormatL(charFormat, charFormatMask,pos);
-00113                         // Set formatting, when inserting at this position
-00114                 iRichText->InsertL(pos,KText2); // Insert text at this position
-00115                 iRichText->CancelInsertCharFormat(); // Cancel "insert pending" state
-00116                         // This is necessary before inserting anywhere else
-00117                 iFormObserver->NotifyStatus(KStatus2);
-00118                 break;
-00119                 }
-00120         case 3:
-00121                 {
-00122                 // Apply underlining to text which uses a mixture of formatting.
-00123                 TCharFormat charFormat;
-00124                 TCharFormatMask charFormatMask;
-00125                 charFormatMask.SetAttrib(EAttFontUnderline); // interested in underline
-00126                 charFormat.iFontPresentation.iUnderline=EUnderlineOn; // set it on
-00127                 iRichText->ApplyCharFormatL(charFormat, charFormatMask,13,10);
-00128                                 // apply this character formatting, from position 13, 10 characters
-00129                 iFormObserver->NotifyStatus(KStatus3);
-00130                 break;
-00131                 }
-00132         case 4:
-00133                 // delete text, then insert new text at same point to 
-00134                 // demonstrate preserving the deleted text's formatting.
-00135                 iRichText->DelSetInsertCharFormatL(19,(iRichText->DocumentLength()-19));
-00136                         // delete from pos 19, for rest of document; retain formatting at pos 19
-00137                 iFormObserver->NotifyStatus(KStatus4);
-00138                 break;
-00139         case 5:
-00140                 // ... and then insert with same format
-00141                 iRichText->InsertL(19,KText5);
-00142                         // inserted with old formatting
-00143                 iRichText->CancelInsertCharFormat(); // must cancel before inserting elsewhere
-00144                 iFormObserver->NotifyStatus(KStatus5);
-00145                 break;
-00146         case 6:
-00147                 // delete some text ... 
-00148                 iRichText->DeleteL(19,(iRichText->DocumentLength()-19));
-00149                         // DeleteL() deletes, and forgets formatting
-00150                 iFormObserver->NotifyStatus(KStatus6);
-00151                 break;
-00152         case 7:
-00153                 // ... then insert new text at that point to 
-00154                 // demonstrate how DeleteL() differs from DelSetInsertCharFormatL(). 
-00155                 iRichText->InsertL(19,KText7);
-00156                         // insert, inheriting current formatting from char before 10
-00157                         // (no need to cancel anything!)
-00158                 iFormObserver->NotifyStatus(KStatus7);
-00159                 break;
-00160         case 8:
-00161                 {
-00162                 // Rich text paragraph formatting.
-00163                 // Insert another 2 paragraphs using default formatting.
-00164                 // First remove specific formatting from final paragraph delimiter,
-00165                 // otherwise new paragraphs would pick up this formatting.
-00166                 iRichText->RemoveSpecificCharFormatL(iRichText->DocumentLength()-1,1);
-00167                 iRichText->InsertL(iRichText->DocumentLength(),
-00168                         CEditableText::EParagraphDelimiter); // new para
-00169                 for (TInt count=0;count<2;count++) // insert lots of text, twice over
-00170                         {       
-00171                         iRichText->InsertL(iRichText->DocumentLength(),KHamletSpeech); 
-00172                         iRichText->InsertL(iRichText->DocumentLength(),
-00173                                 CEditableText::EParagraphDelimiter); // end para
-00174                         };
-00175                 iFormObserver->NotifyStatus(KStatus8);
-00176                 break;
-00177                 }
-00178         case 9:
-00179                 {
-00180                 CParaFormat* paraFormat=CParaFormat::NewLC();
-00181                 TParaFormatMask paraFormatMask;
-00182                 // make para 1 right-aligned (numbering starts at 0)
-00183                 TInt pos, length;
-00184                 paraFormatMask.SetAttrib(EAttAlignment); // interested in alignment
-00185                 paraFormat->iHorizontalAlignment=CParaFormat::ERightAlign; // right-align
-00186                 pos=iRichText->CharPosOfParagraph(length,1); // start of para 2
-00187                 iRichText->ApplyParaFormatL(paraFormat,paraFormatMask,pos,1);
-00188                         // apply format to entire para - even 1 char will do
-00189                 iFormObserver->NotifyStatus(KStatus9);
-00190                 CleanupStack::PopAndDestroy();  // paraFormat
-00191                 break;
-00192                 }
-00193 // Storing and restoring
-00194         case 10:
-00195                 // set up a file store
-00196                 {
-00197                 RFs         theFs;
-00198                 CFileStore* theStore;
-00199                 TParse      filestorename;
-00200                 // Make a connection to the file server
-00201                 theFs.Connect();
-00202                 theFs.Parse(name,filestorename);
-00203                 theStore=CDirectFileStore::ReplaceLC(theFs,filestorename.FullName(),EFileRead|EFileWrite);
-00204                 theStore->SetTypeL(KDirectFileStoreLayoutUid);
-00205                 // store rich text to file store
-00206                 iStreamId=iRichText->StoreL(*theStore); 
-00207                 // close the store
-00208                 CleanupStack::PopAndDestroy(); // pop and destroy store
-00209                 // Disconnect from file server
-00210                 theFs.Close();
-00211                 iFormObserver->NotifyStatus(KStatus10);
-00212                 break;
-00213                 }
-00214         case 11:
-00215                 // reset document, clearing it of all content
-00216                 iRichText->Reset();
-00217                 iFormObserver->NotifyStatus(KStatusReset);
-00218                 break;
-00219         case 12:
-00220                 // open the store
-00221                 {
-00222                 RFs         theFs;
-00223                 CFileStore* theStore;
-00224                 TParse      filestorename;
-00225 
-00226                 theFs.Connect();
-00227                 theFs.Parse(name,filestorename);
-00228                 theStore=CDirectFileStore::OpenLC(theFs,filestorename.FullName(),EFileRead|EFileShareReadersOnly);
-00229                 if (theStore->Type()[0]!=KDirectFileStoreLayoutUid)
-00230                         User::Leave(KErrUnknown);
-00231                 // internalize from the store
-00232                 iRichText->RestoreL(*theStore,iStreamId);
-00233                 // close the store
-00234                 CleanupStack::PopAndDestroy(); // pop and destroy store
-00235                 theFs.Close();
-00236                 iFormObserver->NotifyStatus(KStatus12);
-00237                 break;
-00238                 }
-00239         case 13:
-00240                 //reset document
-00241                 iRichText->Reset();
-00242                 // message to say what we did
-00243                 iFormObserver->NotifyStatus(KStatusReset);
-00244                 break;
-00245         default:
-00246                 iFormObserver->NotifyStatus(KStatusDefault);
-00247                 break;
-00248                 }
-00249         }
-00250 
-00251 
-00252 void CRichControl::Draw(const TRect& aRect) const
-00253         {
-00254         // draw surround
-00255         CGraphicsContext& gc=SystemGc(); // context to draw into
-00256         TRect rect=Rect(); // screen boundary
-00257         gc.DrawRect(rect); // outline screen boundary
-00258         rect.Shrink(1,1);
-00259         gc.SetPenColor(KRgbWhite);
-00260         gc.DrawRect(rect);
-00261         rect.Shrink(1,1);
-00262         gc.SetPenColor(KRgbBlack);
-00263         gc.DrawRect(rect);
-00264         // draw editable text - will work unless OOM
-00265         TInt err;
-00266         TRAP(err,iTextView->FormatTextL());
-00267         if (err) return;
-00268         TRAP(err,iTextView->DrawL(aRect));
-00269 }
-00270 
-00271 
-