Pascal の初心者用の質問・相談所

Pascal の初心者用の質問・相談所 at TECH

143:デフォルトの名無しさん
02/02/04 22:49
さて、>>139の方法はあまりにも無理やりで作法としてよくありません。
そこで、コンソールアプリからBMPファイルを作成して表示させる方法を説明します

まず、新規作成でコンソールアプリを新しく作った後

uses
windows, //WindowsのAPIを使います
ShellApi, //ShellExecuteを使う為に
Graphics, //TBitMapを使う為に
SysUtils;
var bmp:TBitmap;
begin
　bmp:=TBitmap.Create;
　with bmp do try
　　Width :=100;
　　Height:=100;
　　PixelFormat:= pf1bit;
　　Canvas.Ellipse(1,1,100,100);//円を描く
　　Canvas.TextOut(5,5,'こんにちは');
　　SaveToFile('temp.bmp');
　finally free;end;
　ShellExecute(0,'Open','temp.bmp',nil,nil,SW_SHOW);
end.
として実行してみて下さい
このコードはコンソールを使用していませんから、コンソールアプリである必要もありませんから
{$APPTYPE CONSOLE} も取り去って大丈夫です

次ページ

続きを表示

1を表示