Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   TImage в Delphi 6 (http://forum.oszone.net/showthread.php?t=29943)

LedWorm 07-03-2004 21:49 206453

Помогите пожалуйста разобраться со следующей проблемой.

У меня есть картинка 336*48 ( т.е 7 квадратиков по 48*48) как сделать так, чтобы в TImage ( Height = 48 , Width= 48)выводился например второй или третий квадратик, а не левая часть картинки.

Prisoner 08-03-2004 17:29 206454

Имхо только написав самому функцию которая будет вырезать нужный прямоугольник. Примерно так:
Код:

Function GetPart(Source: TImage; Part: Integer): TImage;
Part тут определяет какой прямоугольник брать, то есть его номер. А уж на основе ширины Source можно вычислить откуда и сколько из Source пикселей копировать в выходной TImage.


Время: 03:09.

Время: 03:09.
© OSzone.net 2001-