/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Problem med TImage
Fra : NB


Dato : 14-07-04 16:26

Jeg har et problem med nedenstående kode. Sidste linje gør, at billedet
ikke bliver vist, men jeg får ingen fejlmeddelelse. Nogen som kan
forklare mig hvad jeg gør galt?

Det skal nævnes, at jeg har tilføjet GIFImage (TGIFImage) under uses for
at få GIF-understøttelse på TImage.

var
Image: TImage;
begin
Image := TImage.Create(nil);
Image.AutoSize := True;
Image.Parent := MainForm;
Image.Left := 0;
Image.Top := 0;
Image.Visible := True;
Image.Picture.LoadFromFile('images\picture.gif');
Caption := IntToStr(ColorToRGB(Image.Picture.Bitmap.Canvas.Pixels[0,
0]));


 
 
Ukendt (15-07-2004)
Kommentar
Fra : Ukendt


Dato : 15-07-04 07:58

"NB" <nej@tak.dk> wrote in message
news:MPG.1b5f6eefee272319896c7@news.inet.tele.dk...

<snip>
Det skal nævnes, at jeg har tilføjet GIFImage (TGIFImage) under uses for
at få GIF-understøttelse på TImage.

var
Image: TImage;
begin
Image := TImage.Create(nil);

</snip>

Skal du så ikke anvende TGIFimage?


Harald (17-07-2004)
Kommentar
Fra : Harald


Dato : 17-07-04 07:29

>"NB" <nej@tak.dk> skrev i en meddelelse
news:MPG.1b5f6eefee272319896c7@news.inet.tele.dk...
>Jeg har et problem med nedenstående kode. Sidste linje gør, at billedet
>ikke bliver vist, men jeg får ingen fejlmeddelelse. Nogen som kan
>forklare mig hvad jeg gør galt?

>Det skal nævnes, at jeg har tilføjet GIFImage (TGIFImage) under uses for
>at få GIF-understøttelse på TImage.

>var
> Image: TImage;
>begin
> Image := TImage.Create(nil);
> Image.AutoSize := True;
> Image.Parent := MainForm;
> Image.Left := 0;
> Image.Top := 0;
> Image.Visible := True;
> Image.Picture.LoadFromFile('images\picture.gif');
> Caption := IntToStr(ColorToRGB(Image.Picture.Bitmap.Canvas.Pixels[0,
>0]));

Jeg har lavet følgende, men om det er helt korrekt ved jeg ikke. Når du
loader andet end en BMP så gemmes dataene ikke i Image.Picture.Bitmap så
derfor kan du ikke uden videre hente info fra denne, du er nød til først
manuelt at kopiere billede dataene over i Image.Picture.Bitmap således.

var
Image: TImage;
Temp : TBitmap; // NY
begin
Image := TImage.Create(nil);
Image.AutoSize := True;
Image.Parent := MainForm;
Image.Left := 0;
Image.Top := 0;
Image.Visible := True;
Image.Picture.LoadFromFile('images\picture.gif');

// NYT
Temp:=TBitmap.Create;
Temp.Width:=Image.Picture.Graphic.Height;
Temp.Height:=Image.Picture.Graphic.Width;
Temp.Canvas.Draw(0,0,Image.Picture.Graphic);
Image.Picture.Bitmap.Assign(Temp);
Temp.Free;
// SLUT PÅ NYT

Caption := IntToStr(ColorToRGB(Image.Picture.Bitmap.Canvas.Pixels[0,0]));

Jeg har testet det med en jpg og der virker det.

Mvh
HK



Søg
Reklame
Statistik
Spørgsmål : 177559
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste