Thank you sir, det var lige det jeg havde brug for! ;)
Mvh
Magnus
"Sven Storm" <Sven.Storm@Skolekom.dk> skrev i en meddelelse
news:3baa623b$0$243$edfadb0f@dspool01.news.tele.dk...
> Jeg er snublet over dette på
>
http://www.danish-shareware.dk/delphi/index.html - skrevet at Finn Ekberg
> Christiansen. Håber du kan bruge det.
>
>
> Find farvedybde i bitmaps:
>
> procedure etEllerAndet;
> begin
> Image1.Picture.LoadFromFile(OpenP.Filename); file://indlæs billede
> LabelWidth.Caption := 'Width: ' + inttostr(Image1.Width) + ' pixels';
> LabelHeight.Caption := 'Height: ' + inttostr(Image1.Height) + '
> pixels';
> LabelNumOfColors.Caption := 'Number of colors: ' +
FarveDybde(Image1);
> file://kalder funktionen herunder
> Image1.Picture.Bitmap := nil; file://fjern billedet
> end;
>
> function TForm1.FarveDybde(image: TImage): String;
> begin
> result := '?';
>
> case image.Picture.Bitmap.PixelFormat of
> pfDevice: result :='?'; file://Device
> pf1bit: result :='2'; file://1-bit
> pf4bit: result :='16'; file://4-bit
> pf8bit: result :='256'; file://8-bit
> pf15bit: result :='32,768'; file://15-bit
> pf16bit: result :='65,536'; file://16-bit
> pf24bit: result :='16,777,216'; file://24-bit
> pf32bit: result :='4,294,967,296'; file://32-bit
> pfCustom: result :='?'; file://Custom
> end;
> end;
>
>
> "Magnus Högfeldt" <magnus@hodclub.dk> skrev i en meddelelse
> news:3b9fc8c6$0$4793$ba624c82@nntp01.dk.telia.net...
> > Hejsa,
> >
> > Jeg sidder her med et mindre problem... Jeg skal åbne et bitmap billede,
> for
> > så at kunne markere en del af billedet med clRed. Problemet består i, at
> det
> > billede jeg åbner åbenbart har en farvetabel af en slags, så den vil
altså
> > ikke male med clRed - det bliver noget brunt sjask istedet...
> >
> > Hvordan stiller jeg farvedyben, så jeg kan bruge clRed på billedet??
> >
> > (Jeg bruger en komponent som hedder JanDraw - det er en udbygning af
> Timage,
> > så den bruger nok samme procedure)
> >
> > Mvh
> > Magnus
> >
> >
> >
>
>