Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизОпять с иконками проблемы! Найти похожие ветки
← →
Creecker Dikar (2002-03-25 21:31) [4]
Вот полный код:
procedure TForm12.Button1Click(Sender: TObject);
var
Bitmap, BTMP : TBitmap;
RECT: TRECT;
begin
Bitmap := TBitmap.Create;
//Cоздание объектов
BTMP := TBitmap.Create;
Bitmap.LoadFromFile("d:\IconFile.bmp");
//Загрузка Bitmap
Btmp.Width := 16;
//Hазначение размеров
Btmp.Height := 16;
// Rect - это переменная, вообще, не нужна!
BTmp.Canvas.StretchDraw(RECT, BITMAP);
BTmp.SaveToFile("d:\IconFileMini.bmp");
BTmp.Free;
Bitmap.Free;
//Уничтожение объектов!
end;
Что еще?
Заранее благодарен!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c