Hallo ,
ik heb een vraag,
ik heb een imagelist en die will ik
in runtime kunnen manipuleren.
mijn vraag is dan hoe ik in runtime
de imagelist kan importeren en exporten ?
Grtzz Kuntao
Hallo ,
ik heb een vraag,
ik heb een imagelist en die will ik
in runtime kunnen manipuleren.
mijn vraag is dan hoe ik in runtime
de imagelist kan importeren en exporten ?
Grtzz Kuntao
Hoi, bedoel je zoiets?
GroetenCode:var ImportBitmap, ExportBitmap : TBitmap; ImageList : TImageList; BitmapIndex : integer; begin ImageList := TImageList.Create(self); ImageList.Height := 256; //Pixels ImageList.Width := 256; ImportBitmap := TBitmap.Create; ImportBitmap.LoadFromFile('c:\temp\import.bmp'); BitmapIndex := ImageList.Add(ImportBitmap, nil); ImportBitmap.Free; ExportBitmap := TBitmap.Create; ImageList.GetBitmap(BitmapIndex, ExportBitmap); ExportBitmap.SaveToFile('c:\temp\export.bmp'); ExportBitmap.Free; ImageList.Free; end;
Tinus
Hoi
Ik denk dat je me hier inderdaad het antwoord hebt gegeven
Thnx
Ik neem aan dat deze code voor 1 bitmap uit de image list geld?
Maar kan ik ook de complete imagelist importeren & exporten
met 1 bitmap zoals delphi dat doet?
Die laatste begrijp ik niet helemaal.
Ik geloof dat de imagelist alle bitmaps als 1 grote bitmap opslaat, maar of je die kan importeren/exporteren???
Je kan natuurlijk wel alle images die in de imagelist staan exporteren, of een aantal importeren, de property count geeft aan hoeveel images er zijn, met een loopje kan ze zo exporteren.
Groeten
Tinus
hoi ,
ik heb de code al uitgezocht
procedure ImportImageList(filename:string;imagelist:TImageli st);
begin
imagelist.Clear;
imagelist.FileLoad(rtBitmap,filname,clNone);
end;
procedure exportimagelist(filename:string;imagelist:TImageLi st);
var bitmap:TBitmap;
begin
bitmap := TBitmap.Create;
bitmap.Handle := imagelist.GetImageBitmap;
bitmap.SaveToFile(filename);
bimtap.Destroy;
end;
grtzz kuntao
Ik heb de ExportImageList aangepast zodat
de bitmap in het juiste format wordt opgeslagen
procedure ExportIconImages(imagelist:timagelist;filename:str ing);
var Icon,Bitmap:Tbitmap;
x,y,i,c,w,h:integer;
begin
w := 16;
h := 16;
y := 0;
x := 0;
c := imagelist.Count-1;
imagelist.CreateSize(w,h);
bitmap := tbitmap.Create;
bitmap.Width := c*w;
bitmap.Height := h;
bitmap.Transparent := true;
for i := 0 to c do
begin
Icon := TBitmap.Create;
Icon.Width := w;
Icon.Height := h;
Icon.Transparent := true;
Imagelist.GetBitmap(i,icon);
bitmap.Canvas.Draw(x,y,Icon);
Icon.Destroy;
x := x+w;
end;
bitmap.SaveToFile(filename);
bitmap.Destroy;
end;
Zoja kan je em correct inlezen met importimagelist
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks