strechdraw -haster lidt-

prøv sådan...

Image1.Width := SpinEdit1.Value;
Image1.Height := SpinEdit2.Value;
Image1.Stretch := True;

/ZIRON

det hjalp ikk

hvad er dit billed??? er det ikke en image komponet???

/ZIRON

joda

det ændrede overhoved ikk noget i billedet

du har et image komponet og et billed på og så prøv at lægge mit ind på en knaponclick og du skal også huske at ændre navnet på spinedit1.value og på 2\'eren...

/ZIRON

så virker det, prøver mig lige lidt frem kommer tilbage senere

hmmm okay :-)

/ZIRON

Image1.Picture.bitmap.Width := SpinEdit1.Value;
Image1.Picture.bitmap..Height := SpinEdit2.Value;
Image1.Stretch := True;
Image1.repaint;

Måske dette hjælper.

Det var lige akkurart det der skulle til :-)

*S*

eller nu er jeg ikk sikker fordi den skær bare noget af eller tilføjer noget tomt den skulle sammenpresse det

ja det er det som mit gør :-)

på min ihvertfald...

/ZIRON

ja men den skulle ÆNDRE billedet ikk kun så image1 ser sår\'n ud

er der hjælp eller er jeg nød til at lave nyt sp. for at få dig  til at svare??

jooo 2 sek...

/ZIRON

:-)

????? lange sekunder :-)

hmm undskyld... kommer nu...

/ZIRON

cautoo >> håber det går men det bliver lidt senere skal lige ud og løbe... hvis ikke så må du lige oprette et nyt spg....?

/ZIRON

Image1.Picture.Width := SpinEdit1.Value;
Image1.Picture.Height := SpinEdit2.Value;
Image1.Stretch := True;
Image1.repaint;

Du kan også prøve dette hjælper.

cautoo >> har du fundet ud af det???

/ZIRON

Nej desværre ikk

Hvad er det HELT præcist der ikke \"funker\" ??

dit eks. strækker/vrider ikk i billedet men skærm bare det overskydende af eller tilføjer noget ingenting ziron\'s gør som det skal med at strække billedet men det er ikk nok at image1 bliver strykket det er meningen at senere når jeg flytter image1.picture.bitmap over i et array så skal billedet være strukket/vredet så det har den bredde som form22.spinedit1.value indeholder og
den højde som form22.spinedit2.value indeholder

Så skal du sætte den størelse du vil havde på den TBitmap du har i dit array, og derefter tegne det over fra dit image,

Billed[x].Height := 117;
Billed[x].width  := 17;
Billed[x].strectdraw(0,0,Image.Picture);

/Martin

        billeder[antalbilleder - 1].strectdraw(0,0,Image1.Picture.bitmap); virker ikk

den vil ikk godtage stretchdraw selvom jeg har prøvet at skrive det på mange måder

ka du hjælp??

VAR
  Billeder : array of TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
VAR
  Cnt : Integer;
begin
  SetLength(Billeder,10);
  for Cnt := Lo(Billeder) to Hi(Billeder) do
    Billeder[Cnt] := TBitMap.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Billeder[X].Canvas.StretchDraw(Rect(0,0,Billeder[X].Width,Billeder[X].Height),Billeder[X]);
end;

En lille fejl :

  for Cnt := Lo(Billeder) to Hi(Billeder) do

Rettes til :

  for Cnt := Low(Billeder) to High(Billeder) do


/Martin

tak for hjælpen det virkede :-)