| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как hicon переделать в hbitmap и при этом увеличить или уменьшить [Delphi]

Nikfel ©   (2007-06-11 16:01:00) 

Пожалуйста помогите переделать алгоритм:
procedure TForm1.Button1Click(Sender: TObject);
var
       TheBitmap : TBitmap;
begin
       TheBitmap := TBitmap.Create;
       TheBitmap.Width := Application.Icon.Width;
       TheBitmap.Height := Application.Icon.Height;
       TheBitmap.Canvas.Draw(0, 0, Application.Icon);
       Form1.Canvas.StretchDraw(Rect(0,0,TheBitmap.Width * 3,TheBitmap.Height * 3),
                  TheBitmap);
       TheBitmap.Free;
end;

---

Vladimir Kladov   (2007-06-13 20:48:00) [1]

Для масштабирования в меньшую сторону всегда полезно вызывать SetStretchBltMode( dc, halftone ) перед StretchBlt (или тем, что его вызовет). В большую - разницы не замечал, при кратном увеличении. Но если не кратное, то может, и поможет. Да, работает вроде как только в NT, в 9х не дает особого эффекта.

---

SergeR   (2007-06-13 16:21:00) [2]

Использовать масштабирование из сторонних библиотек.
Я, например, Strecth(var Src,Dst: PBitmap; Filter: TFilterProc; FWidth: single) из
KOLjanFXcut использую.

---

Nikfel   (2007-06-13 16:06:00) [3]

Спасибо за помощь. Вот правильный код:
procedure TForm1.Button1Click(Sender: PObj);
var
     TheIcon: Picon;
     R:TRect;
begin
TheIcon:= kol.NewIcon;
TheIcon.Handle:=applet.Icon;
R:= MakeRect(0,0,64,64);
TheIcon.StretchDraw(form.Canvas.Handle,R);
TheIcon.Free;
end;
Жаль только изображение немного искажается, как исправить.

---

Thaddy   (2007-06-11 17:17:00) [4]

Something like this, UNTESTED:

Procedure TForm1.ButtonClick(Sender: PObj);
var
      TheBitmap: PBitmap;
      R:TRect;
begin
      TheBitmap: = NewBitMap(Applet.Icon.width,Applet.Icon.Height);
      R := MakeRect(0,0,TheBitmap.Width * 3.TheBitmap.Height * 3));
     TheBitmap.StretchDraw(Form1.Canvas.Handle,R);
     TheBitmap.Free;
end;


---

Наверх