|
Вопрос # 4 115/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Подскажите пож. как в Image вывести фрагмент рисунка jpeg, либо как этот рисунок заранее порезать на части чтоб потом эти фрагменты выводить в Image
 |
Вопрос задал: Камаев Виталий Иванович (статус: Посетитель)
Вопрос отправлен: 4 мая 2010, 15:34
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 8; последнее сообщение — 6 мая 2010, 15:04; участников в обсуждении: 4.
|
min@y™ (статус: Доктор наук), 4 мая 2010, 15:41 [#1]:
Есть класс TJpegImage. Воспользуйся им.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Камаев Виталий Иванович (статус: Посетитель), 4 мая 2010, 16:28 [#2]:
Я им пользуюсь, но могу вывести или рисунок целиком или его часть, ограниченную компонентом Image, но рисунок отображается с верхнего левого угла, а мне допустим надо с правого нижнего 1/10 рисунка отобразить в Image. Подскажите с помощью какого свойства или метода это можно сделать?
|
|
|
min@y™ (статус: Доктор наук), 5 мая 2010, 08:09 [#3]:
Canvas.CopyRect().
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
YaRuk (статус: Посетитель), 5 мая 2010, 11:11 [#4]:
Здравствуйте!!
Меня интересует вкладка ActiveX..работают не все компоненты в VtChart, в частности Surface в 3-D!!
Может вы когда-нибудь сталкивались с этим?! Какие библиотеки необходимо установить?!
Ну или может есть просто библиотеки для построения изолиний как в 2D так и в 3D
Заранее Спасибо!!
|
|
|
min@y™ (статус: Доктор наук), 5 мая 2010, 11:22 [#5]:
Цитата (YaRuk):
Здравствуйте!! Меня интересует вкладка ActiveX..работают не все компоненты в VtChart, в частности Surface в 3-D!! Может вы когда-нибудь сталкивались с этим?! Какие библиотеки необходимо установить?! Ну или может есть просто библиотеки для построения изолиний как в 2D так и в 3D
Заранее Спасибо!!
Что это было?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
SOA (статус: Посетитель), 5 мая 2010, 18:51 [#6]:
Кидаешь на форму Image и кнопку дальше копируешь код
Unit1.pas
----------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
SrcRect,DestRect:TRect;
Bitmap:TBitmap;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
SrcRect := Rect(0,0,100,100);//Прямоугольная область источника
DestRect := Rect(0,0,100, 100);//Прямоугольная область приемника
Bitmap :=TBitmap.Create;
Bitmap.LoadFromFile('c:\new.bmp');//?aaioaao oieuei n bmp
Image1.Canvas.CopyRect(DestRect,Bitmap.Canvas,SrcRect);
Bitmap.Free;
end;
end.
|
|
|
SOA (статус: Посетитель), 5 мая 2010, 18:57 [#7]:
P.S. работает только с bmp рисунками, так что вот код конвертации jpg в bmp
Unit1.pas
-----------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Image: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Image1:TBitmap;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1:=TBitmap.Create;
Image1.Assign(Image.Picture.Graphic);
Image1.SaveToFile('c:\n.bmp');
end;
end.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
