Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Вниз

Работа с графикой 


Alex500   (2002-03-02 13:54) [0]

Подскажите, как сделать так, чтобы в моей программе картинка большого размера отображалась частично в небольшом окне, и чтобы можно было ее просматривать, передвигая мышью картинку, наподобие того, как это сделано в ACDSee. Заранее спасибо.



Nikolay   (2002-03-02 14:44) [1]

обрабатывай onMouseDown и onMouseMove.



vbazik   (2002-03-02 16:14) [2]

1.Создаешь окно
2.Находишь положение мыши на основном окне
3. Определяешься с прямоугольником, который хочешь отображать
3. Копируешь посредством copyrect() из одного bitmap в другой



Набережных С.   (2002-03-02 20:18) [3]

Положи на форму TPanel, на нее - TImage.

var
StartPoint:TPoint;

procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.DoubleBuffered:=true;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
StartPoint:=Panel1.ScreenToClient(Image1.ClientToScreen(Point(x-Image1.Left,y-Image1.Top)));
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
NewPoint:TPoint;
begin
if ssLeft in Shift then
begin
NewPoint:=Panel1.ScreenToClient(Image1.ClientToScreen(Point(x, y)));
with NewPoint do
if
(x < 0)or(x > Panel1.Width)or
(y < 0)or(y > Panel1.Height)
then
Exit;
Dec(NewPoint.x, StartPoint.x);
Dec(NewPoint.y, StartPoint.y);

if NewPoint.x > 0 then NewPoint.x:=0
else if NewPoint.x <(Panel1.Width - Image1.Width)then
NewPoint.x:= Panel1.Width - Image1.Width;

if NewPoint.y > 0 then NewPoint.y:=0
else if NewPoint.y <(Panel1.Height - Image1.Height)then
NewPoint.y:= Panel1.Height - Image1.Height;

with Image1, NewPoint do SetBounds(x, y, Width, Height);
end;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
1-57430           дикое Кенгуру         2002-02-27 08:38  2002.03.18  
Как можно шифровать текст в Memo ListBox RichEdit перед сохранением на диск. А при чтении расшифровывать. Чтоб никто не читал его. Желательно чтобы было быстро и просто.


1-57353           Gayrus                2002-03-04 16:57  2002.03.18  
To


7-57538           Svit                  2001-12-15 15:21  2002.03.18  
Форматирование дискеты


3-57329           Dim                   2002-02-18 09:18  2002.03.18  
Нет сортировки по Order by field


3-57275           grab                  2002-02-16 18:49  2002.03.18  
сохранение данных в .dbf файл