Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Нужны глифы с изображениями IE и Word

Автор: NiJazz 11.3.2004, 13:20

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

Автор: z-END 11.3.2004, 13:29

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

Автор: NiJazz 11.3.2004, 14:23

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

Автор: z-END 11.3.2004, 16:54

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

кстати нетока иконы можно, еще встроенные картинки avi и т.д.

так что если нужно обращайся

Автор: z-END 11.3.2004, 19:18

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

в формате *.bmp если надо пиши, скину

Автор: cot 12.3.2004, 07:04

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

Автор: NiJazz 12.3.2004, 08:23

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

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

Автор: Cashey 12.3.2004, 09:34

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

Автор: z-END 13.3.2004, 20:04

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

Автор: z-END 13.3.2004, 20:40

эта функция служит для перевода числа в строку вида 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
Если чесно код прямо здесь правил, так что могут быть ошибки... если они есть - ругайте, тока несильно

Автор: TheAviator 14.3.2004, 15:39

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

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

Автор: Jey_k 14.3.2004, 17:45

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

Автор: varra 15.3.2004, 14:55

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

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

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

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