17. januar 2001 - 13:39Der er
12 kommentarer og 1 løsning
Timagelist Transparent
Ja... Jeg troede egentligt det ville være så let (det er det måske også)... Jeg har nogle små bitmaps i nogle Timages som via en procedure bliver kopier over i en Timagelist for senere at blive fremvist i en Ttabcontrol. Det fungere også fint, men uanset hvad jeg har prøvet kan jeg ikke få baggrunden på de små søde billeder gjort transparent. Her er min kode:
curdir := getcurrentdir; for Drive := \'A\' to \'Z\' do begin case getdrivetype(Pchar(drive + \':\\\')) of
DRIVE_REMOVABLE: begin tabcontrol1.tabs.add(drive+\':\'); imagelist1.add(image1.picture.bitmap,image1.picture.bitmap); end;
DRIVE_FIXED: begin tabcontrol1.tabs.add(drive+\':\'); imagelist1.add(image2.picture.bitmap,image2.picture.bitmap); end;
DRIVE_CDROM: begin tabcontrol1.tabs.add(drive+\':\'); imagelist1.add(image3.picture.bitmap,image3.picture.bitmap); end;
DRIVE_RAMDISK: begin tabcontrol1.tabs.add(drive+\':\'); imagelist1.add(image4.picture.bitmap,image4.picture.bitmap); end;
Jeg har prøvet at ændre Timagelist.drawingstyle til dstransparent, ændret bkcolor, ændret blendcolor og endda prøvet at gøre dem transparent i Timage inden de blev kopieret over i Timaglisten men intet har ændret sig.... Hvad er det lige jeg gør galt....
AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
Sorry, jeg misforstod dig, du skal nok lege lidt med at sætte din bkcolor på din imagelist, hvis du prøver at tilføje dem designtime kan du se der er nogle farve parametre der kan ændres, så prøv om du kan få det til at virker den vej først, for så kan du helt sikkert også få det til at \"funke\" runtime. Prøv evt. at sætte bkcolor på imglisten til Image.Pixel[1,1]
Det har jeg prøvet... pixel[0,0] på alle mine bitmaps har farven clfuchsia og det første jeg prøvede var at ændre bkcolor og blendcolor til clfuchsia men det virkede ikke...
Martinlind >> bruger du Delphi 5, for når jeg jeg vil åbne den projekt du har sendt mig dukker en række fejlmedelelser op på min skærm... Nå, men det er der jo ikke noget at gøre ved... 1000 tak for din ihærdige indsats og her er så dine velfortjente points...
Yes, men du kan åbne projectet i notepad, så kan du se det meste, det er bare en form med en imgliste og en listview-control der er kædet sammen, og så har jeg loadet dit bitmap ind i img listen og lavet et item i listview\'et, og så kørte det uden prob., så måske det er en fejl i delphi4 imgliste, jeg synes faltisl jeg kan huske det var nogle der skrev om at den var fejl behæftet
/MArtin
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.