12.12.2012 Views

Teach Yourself Borland C++ in 14 Days - portal

Teach Yourself Borland C++ in 14 Days - portal

Teach Yourself Borland C++ in 14 Days - portal

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

258 Day 7<br />

List<strong>in</strong>g 7.2. cont<strong>in</strong>ued<br />

109: //------------------------------------------------------------<br />

110: void __fastcall TScratchPad::FileExitClick(TObject *Sender)<br />

111: {<br />

112: //<br />

113: // All done. Close the form.<br />

1<strong>14</strong>: //<br />

115: Close();<br />

116: }<br />

117: //------------------------------------------------------------<br />

118: void __fastcall TScratchPad::EditUndoClick(TObject *Sender)<br />

119: {<br />

120: //<br />

121: // TMemo doesn’t have an Undo method so we have to send<br />

122: // a W<strong>in</strong>dows WM_UNDO message to the memo component.<br />

123: //<br />

124: SendMessage(Memo->Handle, WM_UNDO, 0, 0);<br />

125: }<br />

126: //------------------------------------------------------------<br />

127: void __fastcall TScratchPad::EditSelectAllClick(TObject *Sndr)<br />

128: {<br />

129: //<br />

130: // Just call TMemo::SelectAll().<br />

131: //<br />

132: Memo->SelectAll();<br />

133: }<br />

134: //------------------------------------------------------------<br />

135: void __fastcall TScratchPad::EditCutClick(TObject *Sender)<br />

136: {<br />

137: //<br />

138: // Call TMemo::CutToClipboard().<br />

139: //<br />

<strong>14</strong>0: Memo->CutToClipboard();<br />

<strong>14</strong>1: }<br />

<strong>14</strong>2: //------------------------------------------------------------<br />

<strong>14</strong>3: void __fastcall TScratchPad::EditCopyClick(TObject *Sender)<br />

<strong>14</strong>4: {<br />

<strong>14</strong>5: //<br />

<strong>14</strong>6: // Call TMemo::CopyToClipboard().<br />

<strong>14</strong>7: //<br />

<strong>14</strong>8: Memo->CopyToClipboard();<br />

<strong>14</strong>9: }<br />

150: //---------------------------------------------------- -- -- -- --<br />

151: void __fastcall TScratchPad::EditPasteClick(TObject *Sender)<br />

152: {<br />

153: //<br />

154: // Call TMemo::PasteFromClipboard().<br />

155: //<br />

156: Memo->PasteFromClipboard();<br />

157: }<br />

158: //------------------------------------------------------------<br />

159: void __fastcall TScratchPad::EditWordWrapClick(TObject *Sender)<br />

160: {<br />

161: //

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!