🚀 go-pugleaf

W dniu 08-11-2017 o 22:01, rusiecki.neptuntech@gmail.com pisze:
> Cześć
> 
> Mam starą aplikację, którą przepisuję, mam tam ImageList z glyphami część z nich jest do przyjęcia większość nie.
> Mogę z ImageList zrobić eksport do jednego klocka, potem jakimś narzędziem powydłubywać sobie to co chcę. Ale to jest żmudna robota.
> Pamiętam, że był kiedyś taki programik który rozrzucał klocka z eksportu na pojedyncze obrazy, i nawet robił coś w rodzaju prezentacji jak by to wyglądało na poszczególnych przyciskach.
> 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.

>> 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

> 
> Roland

Tak, dzięki, tylko jak sobie skopiujesz z np. delphi7 do xe 5 to wszysztko idzie ładnie, problem jest kiedy zaczynasz przypisywać id dla disabledImages i enabledIimigase, bo jak jest jakaś luka to musisz kombinować.
Pamietam, że na torry był taki programik,co  to ogarniał, a jak nie to wstawiał główki lenina.
Ja mam nieforunny przykład z ponad (300 glyphami, w wersiji normal, hot,disabled, dlatego szukam pomocy, bo stracę na to co tydzien, jak założę "ręczne grzebanie".


Roland

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.