Текущий архив: 2006.09.10;
Скачать: CL | DM;

Вниз

Где взять иконку Excel я?   Найти похожие ветки 

← →
fast2   (2006-08-19 15:31) [0]

---

← →
KilkennyCat ©   (2006-08-19 15:37) [1]

орех.

---

← →
Lamer@fools.ua ©   (2006-08-19 15:37) [2]

Видимо, в Excel.exe. Хотя и не факт, может в какой-нить DLL Офиса быть.

---

← →
SerJaNT ©   (2006-08-19 15:45) [3]

PrintScreen + Paint + конвертация bmp в ico на Delphi.

BMP2ICO

procedure TForm1.Button1Click(Sender: TObject);
var
 IconSizeX: integer;
 IconSizeY: integer;
 AndMask: TBitmap;
 XOrMask: TBitmap;
 IconInfo: TIconInfo;
 Icon: TIcon;
begin
 {Get the icon size}
 IconSizeX := GetSystemMetrics(SM_CXICON);
 IconSizeY := GetSystemMetrics(SM_CYICON);
 {Create the "And" mask}
 AndMask := TBitmap.Create;
 AndMask.Monochrome := true;
 AndMask.Width := IconSizeX;
 AndMask.Height := IconSizeY;
 {Draw on the "And" mask}
 AndMask.Canvas.Brush.Color := clWhite;
 AndMask.Canvas.FillRect(Rect(0, 0, IconSizeX, IconSizeY));
 AndMask.Canvas.Brush.Color := clBlack;
 AndMask.Canvas.Ellipse(4, 4, IconSizeX - 4, IconSizeY - 4);
 {Draw as a test}
 Form1.Canvas.Draw(IconSizeX * 2, IconSizeY, AndMask);
 {Create the "XOr" mask}
 XOrMask := TBitmap.Create;
 XOrMask.Width := IconSizeX;
 XOrMask.Height := IconSizeY;
 {Draw on the "XOr" mask}
 XOrMask.Canvas.Brush.Color := ClBlack;
 XOrMask.Canvas.FillRect(Rect(0, 0, IconSizeX, IconSizeY));
 XOrMask.Canvas.Pen.Color := clRed;
 XOrMask.Canvas.Brush.Color := clRed;
 XOrMask.Canvas.Ellipse(4, 4, IconSizeX - 4, IconSizeY - 4);
 {Draw as a test}
 Form1.Canvas.Draw(IconSizeX * 4, IconSizeY, XOrMask);
 {Create a icon}
 Icon := TIcon.Create;
 IconInfo.fIcon := true;
 IconInfo.xHotspot := 0;
 IconInfo.yHotspot := 0;
 IconInfo.hbmMask := AndMask.Handle;
 IconInfo.hbmColor := XOrMask.Handle;
 Icon.Handle := CreateIconIndirect(IconInfo);
 {Destroy the temporary bitmaps}
 AndMask.Free;
 XOrMask.Free;
 {Draw as a test}
 Form1.Canvas.Draw(IconSizeX * 6, IconSizeY, Icon);
 {Assign the application icon}
 Application.Icon := Icon;
 {Force a repaint}
 InvalidateRect(Application.Handle, nil, true);
 {Free the icon}
 Icon.Free;
end;


---

← →
KilkennyCat ©   (2006-08-19 16:02) [4]

дважды орех...

---

← →
SerJaNT ©   (2006-08-19 16:18) [5]

или любым граббером иконок просканить всю папку с офиса.
А вообще, вот:

http://forum.sources.ru/index.php?showtopic=145140
http://oreon.com.ru/2005/11/11/print:page,1,_______Excel_Icons.html

---

← →
Marser ©   (2006-08-19 17:16) [6]

> [4] KilkennyCat ©   (19.08.06 16:02)
> дважды орех...

Ага. Спасибо унтеру, порадовал :-))

---

Страницы: 1 вся ветка

Текущий архив: 2006.09.10;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.067 c