TIcon SetSize

← →
SIV5000 (2010-12-11 09:19) [0]

Народ привет. Подскажите, вот нужно нарисовать иконку размером 128 х 128, если такой размер присутствует в иконке (не растягивать).
Усли сделать так:

var
TI:TIcon;
begin
/////////
TI.LoadFromFile("D:\1.ico"); если загружаю иконку с файла
ICon.SetSize(128, 128); тогда возможно установить размер
Form1.Canvas.Draw(100,100, BI); и рисуеться иконка нужного размера

а если получить HICON
TI.Handle:= GetIconHandle("D:\1.mp3");
ICon.SetSize(128, 128); тогда здесь выбивает

Почему так? Как ето обойти?
Пробовал создавать еще одну TIcon и потом
эту TempIcon.Assign(TI);
TempIcon.SetSize(128, 128);
но результат тот же;

← →
SIV5000 (2010-12-11 09:21) [1]

Извените там немного не правильно написал :)

var
TI:TIcon;
begin
/////////
TI.LoadFromFile("D:\1.ico"); если загружаю иконку с файла
TI.SetSize(128, 128); тогда возможно установить размер
Form1.Canvas.Draw(100,100, TI); и рисуеться иконка нужного размера

а если получить HICON
TI.Handle:= GetIconHandle("D:\1.mp3");
TI.SetSize(128, 128); тогда здесь выбивает

Почему так? Как ето обойти?
Пробовал создавать еще одну TIcon и потом
эту TempIcon.Assign(TI);
TempIcon.SetSize(128, 128);
но результат тот же;

← →
Anatoly Podgoretsky © (2010-12-11 10:27) [2]

Выбивать можно дурь, мозги, а что у тебя выбивает?

← →
Плохиш © (2010-12-11 12:37) [3]

> тогда здесь выбивает
>

Больно слышать (c) ИШ

← →
SIV5000 (2010-12-12 00:57) [4]

> Выбивать можно дурь, мозги, а что у тебя выбивает?

Ага, а еще может свет выбить, и еще много чего!!!
Подсказываю... Ну ошибку выбивает. Какую?
Скомпилируй и узнаешь...

← →
Германн © (2010-12-12 01:01) [5]

> Подсказываю... Ну ошибку выбивает. Какую?
> Скомпилируй и узнаешь...

А нам это нужно или мы обязаны?

← →
Andy BitOff © (2010-12-12 01:02) [6]

> SIV5000 (12.12.10 00:57) [4]
> Ну ошибку выбивает. Какую?
> Скомпилируй и узнаешь...

Аха-ха-ха-ха!!! Моя плакаль =))))

← →
SIV5000 (2010-12-12 01:53) [7]

Блин, народ, при чем тут нужно и обязан? Никто ни кого не заставляет. Просто не нужно придераться к словам. Ну если логично подумать, что может выбыть при виполнении процедуры, которая, судя с вопроса, работает не правильно??? Вот ответьте!!!
Если уже решили помочь, то посмотрите сначала пример "не рабочего кода". Если вы увидели ошибку, то можете сразу указать на нее. Если же все кажеться нормальным, то ЛОГИЧНО будет скомпилировать у себя этот код и посмотреть что же там не так.
Разве не так???
Видимо Anatoly Podgoretsky так и сделал, и у него при выполнении процедуры Дельфи выбило мозги.
Так что же заставляет эту процедурку выбивать мозги? :)

> SIV5000 (12.12.10 01:53) [7]
>
> Блин, народ, при чем тут нужно и обязан? Никто ни кого не
> заставляет. Просто не нужно придераться к словам. Ну если
> логично подумать, что может выбыть при виполнении процедуры,
> которая, судя с вопроса, работает не правильно???
> !!

А нам это нужно или мы обязаны?

Ты не представил нам тестовый проект, который можно скомпилировать и увидеть ошибку. Ты не представил сообщение об ошибке, которое можно было бы понять. Ты представил только несколько строчек кода. А ты уверен что проблема именно в них?

Короче.
Учись задавать вопросы.

> TI.Handle:= GetIconHandle("D:\1.mp3");

в mp3 есть иконки?

TIcon SetSize Найти похожие ветки