Если есть у кого графические файлики со значками MS Word, Internet Explorer и прочих программ, пожалуйста, киньте на мыло (см. профиль).
Спасибо.

а иконку сложно что-ли из них выудить? там они все есть от 16х16 до 48х48 16-256 цветов

nJIaKca.spb
где именно?

я тебе отпрваил по почте, если еще че-нить захочешь сдыбать из иконок могу прогу выслать кстати нетока иконы можно, еще встроенные картинки avi и т.д. так что если нужно обращайся

NiJazz если у тебя нужда еще не пропала, то я нашел свою старую прогу, которая из файлов высасывает иконы, причем в 256 цветов и сохраняет их сразу все чтобы не мучаться в формате *.bmp если надо пиши, скину

nJIaKca.spb
У меня есть такая-же прога на основе API ExctractIcon.

nJIaKca.spb
cot
Кидайте!

И спасибо всем, кто скинул!

nJIaKca.spb
cot
Может вам их выложить для всеобщего обозрения.

Cashey
да несложно выложить. а куда? здесь?

эта функция служит для перевода числа в строку вида 0001

Код

Function ItS (num,len:Integer):String; begin Result := inttostr(num);  while length (Result) < len do Result := '0'+Result; end;

FName - файл в котором содержатся значки
OutFile - название файла в который будут сохранены картинки
Border - кайма у картинки (очень часто имеет смысл)
nColor - цвет фона значка;

Код

procedure GoGo (FName, OutFile:String; Border:Integer; nColor:TColor); var x,Img_H:Integer; Img:TBitmap; Res:TImage; begin x := 0; Img := TBitmap.create; Res := TImage.Create; {} Repeat  Inc (x);  Res.Picture.Icon.ReleaseHandle;  Img_H := ExtractIcon (0,Pansichar (FName), x);  if Img_H = 0 then Final := True else begin  Res.Picture.Icon.Handle := Img_H;  Img.PixelFormat := pf8bit;  Img.Width := Res.Picture.Icon.Width + border*2;  Img.Height := Res.Picture.Icon.Height + border*2;  Img.Canvas.Brush.Color := nColor;  Img.Canvas.FillRect (Bounds (0, 0,Img.Width,Img.Height));  Img.Canvas.Draw (border, border, Res.Picture.Graphic);  If not Res.Picture.Icon.Empty then Img.SaveToFile (OutFile + ItS(x,4) + '.bmp');  Img.FreeImage;  Application.ProcessMessages; end; Until Final; Img.Free; Img:=nil; Res.Free; Res:=nil; end;

1911 все типа ©copyleft
Если чесно код прямо здесь правил, так что могут быть ошибки... если они есть - ругайте, тока несильно

Это сообщение отредактировал(а) nJIaKca.spb - 13.3.2004, 20:44

Народ, подскажите где достать иконки в стиле WinXP (16bit color) - типа красивые, нового образца... Ато в комплекте с Дельфи полный ацтой..
Мне нужны для таких кнопок:
1) Графики (тренды)
2) Таблицы
3) Com-порт настройки
4) Настройки (Settings)
5) Лог
6) Помощь
7) Пароль (типа ключи и т.п.)
8) Печать
9) Прокрутка графика назад/ вперед << >>
10) Обновить
11) Выход
12) Найти
13) Удалить
14) Ввести значение

Часть, канеш, мона из прог типа IE выудить, у меня даже дет прога была - если найду, подкину сюда...
Но может кто-нить знает толковый ресурс на эту тему в инете..?

А не пробовал через поисковик пошарить типа " иконки WIN XP"?

Цитата(TheAviator @ 14.3.2004, 07:39)

Народ, подскажите где достать иконки в стиле WinXP

посмотри на http://www.foood.net/

а для кнопок Печать, Обновить, Найти, Удалить есть выдернутые из IE. могу выслать (или у Spawn'а спроси).