名前
題名
▼ 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)
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link