Re: ImageList przenoszenie glyphów

Article View: pl.comp.lang.delphi

Article #346166

Back to pl.comp.lang.delphi Previous Next

#346166

From: konsul41
Date: Mon, 13 Nov 2017 07:06

31 lines
1763 bytes

W dniu 09-11-2017 o 19:21, mmm pisze:
> 
>>> 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
Właśnie o takim eksporcie myślałem, nie o klikaniu.

Technical Details

Message-ID: <oubg9r$iij$1@portraits.wsisiz.edu.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!wsisiz.edu.pl!.POSTED.jue163.internetdsl.tpnet.pl!not-for-mail

References:

<7fde748f-01d6-48f4-bcae-ca1145428625@googlegroups.com> <ou10m6$j01$1@portraits.wsisiz.edu.pl> <ou26cm$lg4$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.jue163.internetdsl.tpnet.pl!not-for-mail
From: "konsul41@wp.pl" <konsul41@wp.pl>
Newsgroups: pl.comp.lang.delphi
Subject: Re: ImageList przenoszenie glyphów
Date: Mon, 13 Nov 2017 08:06:36 +0100
Organization: http://www.wit.edu.pl
Message-ID: <oubg9r$iij$1@portraits.wsisiz.edu.pl>
References: <7fde748f-01d6-48f4-bcae-ca1145428625@googlegroups.com> <ou10m6$j01$1@portraits.wsisiz.edu.pl> <ou26cm$lg4$1@portraits.wsisiz.edu.pl>
Mime-Version: 1.0
Injection-Date: Mon, 13 Nov 2017 07:06:35 -0000 (UTC)
Injection-Info: portraits.wsisiz.edu.pl; posting-host="jue163.internetdsl.tpnet.pl:95.48.160.163"; logging-data="19027"; mail-complaints-to="abuse@wsisiz.edu.pl"
User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:52.0) Gecko/20100101 Thunderbird/52.4.0
In-Reply-To: <ou26cm$lg4$1@portraits.wsisiz.edu.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message