image forsvinder når størrelsen ændres?

Sæt koden på onchange eventen i spinedit

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
image1.Width := strtoint(spinedit1.text);
end;

Stoney

Jeg har indsat følgende:

procedure TSetting.SpinEdit2Change(Sender: TObject);
begin
lay.image1.height:=spinedit2.value;
lay.image1.width:=spinedit1.value;
end;

Det virkede hellere ikke

Det skal virke

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    procedure FormCreate(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
spinedit1.Value := image1.Height;
spinedit2.Value := image1.Width;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
image1.Height := spinedit1.Value;
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
image1.Width := spinedit2.Value;
end;

end.

Stoney

du er vel ikke ved en fejl kommet til at sige freeimage under vejs?

Nej, jeg har ikke brugt freeimage.

Jeg har prøvet at lege rundt med følgende simple eksemple. Jeg kan godt ændre størrelsen på min image component men kun til en vis størrelse. Jeg har derudover sat image constraints til var der svare til min skærm opløsning.


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Button1: TButton;
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
image1.width:=spinedit1.value;
image1.height:=spinedit2.value;
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
image1.width:=spinedit1.value;
image1.height:=spinedit2.value;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.canvas.Rectangle(0,0,spinedit1.value,spinedit2.value);
end;

end.

Jeg har fundet ud af det åbenbart er nogle problemer ved at reskalere image component under runtime (Delphi 5). Jeg løste mit problem ved at ved at oprette et image under runtime som jeg så kunne definere størrelsen på. Jeg takker for hjælpen.