Re: ImageList przenoszenie glyphów

Article View: pl.comp.lang.delphi

Article #346165

Back to pl.comp.lang.delphi Previous Next

#346165

From: mmm
Date: Thu, 09 Nov 2017 18:21

28 lines
1558 bytes

>> Niestety nie mogę się dogrzebać. Mam prośbę o pomoc, jeżeli ktoś kojarzy.
>>
>> Roland
>>
> Po co Ci taki program skoro możesz wyeksportować grafiki jedna po 
> drugiej do katalogu.

Alternatywne  podejście do klikania w export:
1) Kopiujemy ImageList
2) Wklejamy do nowego projektu
3) Kawałkiem kodu zapisujemy kazda BMP

procedure TForm51.Button1Click(Sender: TObject);
var
   I: Integer;
   b:TBitmap;
begin
   b:=TBitmap.Create;
   for I := 0 to TreeImages.Count - 1 do
   begin
     TreeImages.GetBitmap(i,b);
     b.SaveToFile(IntToStr(i)+'.bmp');
   end;
   b.Free;
end;

M

Technical Details

Message-ID: <ou26cm$lg4$1@portraits.wsisiz.edu.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!wsisiz.edu.pl!.POSTED.host-89-228-249-226.dynamic.mm.pl!not-for-mail

References: <7fde748f-01d6-48f4-bcae-ca1145428625@googlegroups.com> <ou10m6$j01$1@portraits.wsisiz.edu.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!wsisiz.edu.pl!.POSTED.host-89-228-249-226.dynamic.mm.pl!not-for-mail
From: mmm <mmm@mm.pl>
Newsgroups: pl.comp.lang.delphi
Subject: Re: ImageList przenoszenie glyphów
Date: Thu, 9 Nov 2017 19:21:34 +0100
Organization: http://www.wit.edu.pl
Message-ID: <ou26cm$lg4$1@portraits.wsisiz.edu.pl>
References: <7fde748f-01d6-48f4-bcae-ca1145428625@googlegroups.com> <ou10m6$j01$1@portraits.wsisiz.edu.pl>
Mime-Version: 1.0
Injection-Date: Thu, 9 Nov 2017 18:22:14 -0000 (UTC)
Injection-Info: portraits.wsisiz.edu.pl; posting-host="host-89-228-249-226.dynamic.mm.pl:89.228.249.226"; logging-data="22020"; mail-complaints-to="abuse@wsisiz.edu.pl"
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:52.0) Gecko/20100101 Thunderbird/52.4.0
In-Reply-To: <ou10m6$j01$1@portraits.wsisiz.edu.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message