生成したTImageの幅と高さを設定するには？ (ID:20678)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

自力で解決できました！

TImage.Picture.Bitmap.Widthを設定すればよいのですね。
お騒がせしてしまい、申し訳ありませんでした。

次の形でできました。ありがとうございました。
-----
//動的に生成したTImageのサイズを変更する20060324 by デル太  
//TImage.Widthだと、中身のTPictureのサイズがかわらない
//TPicture.Bitmap.Widthを変更する必要があった

//フォームに３つボタンを配置しています
//テスト用に１つボタンを作って削除したためButton2からになっています
//usesにExtCtrlsが必要です

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;
  MyImage: TImage;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  MyImage := TImage.Create(Form1);
  MyImage.Transparent := True;
  MyImage.Parent := Form1;
  MyImage.Width := 200;
  MyImage.Height := 200;
  MyImage.Canvas.Brush.Color := clWhite;
  MyImage.Canvas.FillRect(ClientRect);
  MyImage.Canvas.LineTo(200,200);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  MyImage.Width := 400;
  MyImage.Height := 400;
  MyImage.Canvas.Brush.Color := clWhite;
  MyImage.Canvas.FillRect(ClientRect);
  MyImage.Canvas.MoveTo(0,0);
  MyImage.Canvas.LineTo(200,400);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  MyImage.Picture.Bitmap.Width := 400;
  MyImage.Picture.Bitmap.Height := 400;
  MyImage.Canvas.Brush.Color := clWhite;
  MyImage.Canvas.FillRect(ClientRect);
  MyImage.Canvas.MoveTo(0,0);
  MyImage.Canvas.LineTo(400,200);
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る