Results 1 to 7 of 7

Thread: imagelist importeren & exporteren

  1. #1
    kuntao
    Guest

    Question imagelist importeren & exporteren

    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

  2. #2
    Senior Member McTinus's Avatar
    Join Date
    May 2001
    Location
    Hoek van Holland
    Posts
    389
    Hoi, bedoel je zoiets?

    Code:
    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;
    Groeten

    Tinus

  3. #3
    kuntao
    Guest

    Thumbs up

    Hoi

    Ik denk dat je me hier inderdaad het antwoord hebt gegeven
    Thnx

  4. #4
    kuntao
    Guest
    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?

  5. #5
    Senior Member McTinus's Avatar
    Join Date
    May 2001
    Location
    Hoek van Holland
    Posts
    389
    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

  6. #6
    kuntao
    Guest
    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

  7. #7
    kuntao
    Guest
    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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Image (uit ImageList) weergeven op SpeedButton
    By jdinge48 in forum Algemeen
    Replies: 4
    Last Post: 25-Jun-04, 21:16
  2. imagelist - treeview bitmap toevoegen
    By kurtz in forum Algemeen
    Replies: 3
    Last Post: 17-Feb-03, 16:14
  3. ImageList afdrukken?
    By Davec in forum Algemeen
    Replies: 16
    Last Post: 24-Oct-02, 18:16
  4. Dll , componenten exporteren, implementeren?
    By kuntao in forum Algemeen
    Replies: 24
    Last Post: 09-Apr-02, 00:08
  5. System ImageList + TreeView
    By PsychoMark in forum Algemeen
    Replies: 3
    Last Post: 14-Dec-01, 11:52

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •