| [6336] 火猿ミニテスト 1 | 返信 削除 |
| 2012/9/9 (日) 14:53:26 Mr.XRAY |
|
火猿，FMX, FireMonkey はやらないといいましたが， ちょっとしたテスト 最近UPまたは更新したサンプルに関係したやつで， テキスト文書の中に画像を表示するものです． 下の図は，設計時に画像を埋め込んでいます． TImageControl の親を TMemo としています． もちろん，スクロールも同時にします．保存も可能です． VCL では，面倒くさいインターフェイスを実装する必要がありましたが， 非常に簡単に実現できます． テキストの回りこみの制御はしていません． //================================================================== // TMemoの内容をディスクに保存 //================================================================== procedure TForm1.Button1Click(Sender: TObject); var AStream : TMemoryStream; begin AStream := TMemoryStream.Create; try Memo1.SaveToStream(AStream); AStream.Position := 0; AStream.SaveToFile('Test.stm'); finally AStream.Free; end; end; //================================================================== // TMemoの内容をクリア //================================================================== procedure TForm1.Button2Click(Sender: TObject); begin ImageControl1.Free; ImageControl1 := nil; Memo1.Lines.Clear; end; //================================================================== // TMemoの内容をディスクから読み込んで表示 //================================================================== procedure TForm1.Button3Click(Sender: TObject); var AStream : TMemoryStream; begin if Assigned(ImageControl1) then exit; AStream := TMemoryStream.Create; try AStream.LoadFromFile('Test.stm'); AStream.Position := 0; Memo1.LoadFromStream(AStream); finally AStream.Free; end; end; EXEの作成は，Windows 7 U64(SP1) + Delphi XE2(UP4)  |
