Скачать: CL | DM;

Icon -> BitMap   Найти похожие ветки 

← →
Steep ©   (2007-04-05 15:08) [0]

Как загрузить иконку в BiMap?

---

← →
clickmaker ©   (2007-04-05 15:14) [1]

проще всего Bmp.Canvas.Draw(0, 0, Icon)

---

← →
Steep ©   (2007-04-05 15:23) [2]

Рисую так
var
 ico: TIcon;
...
ico := TIcon.Create;
ico.LoadFromFile( LE_IconPath.Text );
Glyph.Canvas.Draw(0, 0, ico );
ico.Free;
На кнопке ничего не появляется...

---

← →
clickmaker ©   (2007-04-05 15:34) [3]

и иконка точно грузится?
Glyph - это у кнопки? если сказать Button.Refresh?

---

← →
Steep ©   (2007-04-05 15:39) [4]

> Glyph - это у кнопки?

Да ;)


> если сказать Button.Refresh?

Все равно не хочет...

Ошибок никаких не выдает.. кнопка создается..

> и иконка точно грузится?

Ну я загружаю ImageIcon.Picture.LoadFromFile(OpenDialog.FileName); //в Image
нормально..

---

← →
clickmaker ©   (2007-04-05 15:48) [5]

Ico := TIcon.Create;
Bmp := TBitmap.Create;
try
 Ico.LoadFromFile("..");
 Bmp.Width := Ico.Width;
 Bmp.Height := Ico.Height;
 Bmp.Canvas.Draw(0, 0, Ico);
 Button.Glyph := Bmp;
finally
 Ico.Free;
 Bmp.Free;
end;

---

← →
Ega23 ©   (2007-04-05 15:57) [6]

А вот это чей код? Может быть наконец этот от MBo ©? :)

function BitmapToIcon(Bitmap: TBitmap): TIcon;
var
 IconSizeX, IconSizeY : integer;
 IconInfo: TIconInfo;
 IconBitmap, MaskBitmap: TBitmap;
 x, y: Integer;
 TransparentColor: TColor;
begin
 IconSizeX := GetSystemMetrics(SM_CXICON);
 IconSizeY := GetSystemMetrics(SM_CYICON);
 IconBitmap:= TBitmap.Create;
 IconBitmap.Width:= IconSizeX;
 IconBitmap.Height:= IconSizeY;
 IconBitmap.Canvas.StretchDraw(Rect(0, 0, IconSizeX, IconSizeY), Bitmap);
 IconBitmap.TransparentColor:= Bitmap.TransparentColor;
 TransparentColor:= IconBitmap.TransparentColor and $FFFFFF;
 MaskBitmap:= TBitmap.Create;
 MaskBitmap.Assign(IconBitmap);
 for y:= 0 to IconSizeY - 1 do
   for x:= 0 to IconSizeX - 1 do
     if IconBitmap.Canvas.Pixels[x, y] = TransparentColor then
       IconBitmap.Canvas.Pixels[x, y]:= clBlack;
 IconInfo.fIcon:= True;
 IconInfo.hbmMask:= MaskBitmap.MaskHandle;
 IconInfo.hbmColor:= IconBitmap.Handle;
 Result:= TIcon.Create;
 Result.Handle:= CreateIconIndirect(IconInfo);
 MaskBitmap.Free;
 IconBitmap.Free;
end;


---

← →
Steep ©   (2007-04-05 15:58) [7]

Пасип большой clickmaker ©  !!!!!
ico := TIcon.Create;
ico.LoadFromFile( LE_IconPath.Text );
Glyph.Width := Ico.Width;
Glyph.Height := Ico.Height;
Glyph.Canvas.Draw(0, 0, ico );
ico.Free;

Сделал так ;)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c