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

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

Изменение размера bmp. [D6, WinXP]

Handle ©   (2006-03-08 17:51:00) 

Уважаемые Мастера такой вопрос.
При загрузке, иконки 16х16  отображаются нормально, с большим разрешением  не так как надо.
Как програмно уменьшить размер иконки или как решить эту проблемму.

var
 Form1: TForm1;

 Bit: TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
Bit := TBitmap.Create;
Bit.LoadFromFile('c:\bmp.bmp');
ListBox1.Items.Add('Caption')
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
var
 cc: TCanvas;
begin
 cc:=(Control as TListBox).Canvas;
 cc.FillRect(rect);
 cc.Draw(Rect.Left,Rect.Top,Bit);
 cc.TextOut(Rect.Left + 17,Rect.Top,ListBox1.Items[index]);
end;

---

Handle   (2006-03-09 21:06:00) [1]

> Rouse_ ©   (08.03.06 20:50) [2]

Да bmp, сам не пойму почему написал иконки,заработался наверное.

---

Rouse_   (2006-03-08 20:50:00) [2]

1. Где у тебя загрузка иконки?
2. StretchBlt
3. Зачем банальный вопрос задаешь в тематической конференции?

---

grisme   (2006-03-08 19:08:00) [3]

Ищи описание быстрого векторного преобразования(как во Flash):) поисковик-твой друган форева!:)

---

Наверх