---

Hej alle...

Jeg har 3 TImages: Image1, Image2 & Image3.
Image1 og Image2 har samme bredde og højde, men Image3s bredde og højde
skal så også sættes til at være de samme som Image1 & 2s.

Det fungerer sådan her:
Jeg har to TEdits, hvor der skal stå to forskellige stier på to .BMPer
med samme bredde og højde. De bliver loaded ind i Image1 og Image2, og
så skal Image3, som stadig er tom, have samme bredde og højde. Det
virker bare ikke. Min procedure ser sådan her ud:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
I: Integer;
I2: Integer;
I3: Integer;
I4: Integer;
begin
Label1.Caption := 'Arbejder...';
Image1.Picture.LoadFromFile(Edit1.Text);
Image1.AutoSize := True;
Image2.Picture.LoadFromFile(Edit2.Text);
Image2.AutoSize := True;
Image3.Canvas.Pen.Width := 1;
If (Image1.Width <> Image2.Width) Or (Image1.Height <> Image2.Height)
Then
MessageDlg('Hovsa! Width & Height ikke ens!', mtError, [mbOK], 0)
Else Begin
Image1.Visible := True;
Image3.Width := Image1.Width;
Image3.Height := Image1.Height;
Image1.Visible := False;
[...]

Hvad er der galt?

Pfh tak

--
Mvh. Mathias | @: mathias *der* *bor* *på* mrside *i* dk 1
http://www.vitoo.dk/ - alle tiders community site 2
1234567890123456789012345678901234567890123456789012345678901234567890 3

---

"Mathias" <nntp@mrside.dk> skrev i en meddelelse
news:gZYVc.39755$Vf.2055674@news000.worldonline.dk...
> Hej alle...
>
> Jeg har 3 TImages: Image1, Image2 & Image3.
> Image1 og Image2 har samme bredde og højde, men Image3s bredde og højde
> skal så også sættes til at være de samme som Image1 & 2s.
>
> Det fungerer sådan her:
> Jeg har to TEdits, hvor der skal stå to forskellige stier på to .BMPer
> med samme bredde og højde. De bliver loaded ind i Image1 og Image2, og
> så skal Image3, som stadig er tom, have samme bredde og højde. Det
> virker bare ikke. Min procedure ser sådan her ud:
>
> procedure TForm1.BitBtn1Click(Sender: TObject);
> var
> I: Integer;
> I2: Integer;
> I3: Integer;
> I4: Integer;
> begin
> Label1.Caption := 'Arbejder...';
> Image1.Picture.LoadFromFile(Edit1.Text);
> Image1.AutoSize := True;
> Image2.Picture.LoadFromFile(Edit2.Text);
> Image2.AutoSize := True;
> Image3.Canvas.Pen.Width := 1;
> If (Image1.Width <> Image2.Width) Or (Image1.Height <> Image2.Height)
> Then
> MessageDlg('Hovsa! Width & Height ikke ens!', mtError, [mbOK], 0)
> Else Begin
> Image1.Visible := True;
> Image3.Width := Image1.Width;
> Image3.Height := Image1.Height;
> Image1.Visible := False;
> [...]

Prøv at indsætte en Image3.Canvas.LineTo(0,0); lige før du sætter Width og
Height, og så bruge Image3.Picture.Bitmap.Width og
Image3.Picture.Bitmap.Height i stedet.

/HK

---

Harald wrote:
> Prøv at indsætte en Image3.Canvas.LineTo(0,0); lige før du sætter Width og
> Height, og så bruge Image3.Picture.Bitmap.Width og
> Image3.Picture.Bitmap.Height i stedet.

Tak for det!
Det virker :)

--
Mvh. Mathias | @: mathias *der* *bor* *på* mrside *i* dk 1
http://www.vitoo.dk/ - alle tiders community site 2
1234567890123456789012345678901234567890123456789012345678901234567890 3