/ 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
Farvedybde
Fra : Magnus Högfeldt


Dato : 12-09-01 21:41

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




 
 
Sven Storm (20-09-2001)
Kommentar
Fra : Sven Storm


Dato : 20-09-01 22:38

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
>
>
>



Magnus Högfeldt (24-09-2001)
Kommentar
Fra : Magnus Högfeldt


Dato : 24-09-01 10:51

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
> >
> >
> >
>
>



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

Månedens bedste
Årets bedste
Sidste års bedste