Лупа

← →
VasRog © (2004-03-09 23:16) [0]

Подскажите, пожалуйста,есть ли готовый компонент или хотя бы почитать бы где про то, как сделать лупу для увеличения части картинки.

← →
Mihey © (2004-03-09 23:22) [1]

Лупа в разрезе:
http://www.efg2.com/Lab/ImageProcessing/Magnifier.htm

← →
Gero © (2004-03-09 23:30) [2]

Canvas.StretchDraw

← →
Mihey © (2004-03-09 23:43) [3]

2 Gero:

На такиз основах замучаешься делать...

← →
Gero © (2004-03-09 23:56) [4]

Делал. И не замучился.

← →
Mihey © (2004-03-10 00:20) [5]

Гонишь. Не делал!

← →
Gero © (2004-03-10 00:22) [6]

Под что спорим? ;)

← →
Mihey © (2004-03-10 00:39) [7]

Ну ты выложи куда-нибудь (народ.ру - это не куда-нибудь, так что отпадает), я заценю, если ок - то увАжу.

← →
Gero © (2004-03-10 00:53) [8]

Вот огрызок кода.
Здесь - работающая программа: http://www.reactorsoft.chat.ru/crgb212.exe
Исходники всей проги дать не могу.

var
...
B : TBitmap;
W, H : Integer;
W12, H12 : Integer;
ZV, ZV12 : Integer;
begin
...
if ZoomOn.Checked then
begin
B := TBitmap.Create;
try
ZV := StrToInt(Copy(ZoomBy.Text, 1, Length(ZoomBy.Text) - 1));
ZV12 := ZV div 2;
W := Zoom.Width div ZV;
H := Zoom.Height div ZV;
W12 := W div 2;
H12 := H div 2;
B.Width := W;
B.Height := H;
with Mouse.CursorPos do
B.Canvas.CopyRect(Rect(0, 0, W, H), Pic, Rect(X - W12, Y - H12, X + W12, Y + H12));
W := Zoom.Width;
H := Zoom.Height;
W12 := W div 2;
H12 := H div 2;
with Zoom.Canvas do
begin
StretchDraw(Rect(-ZV, 0, Zoom.Width - 1, Zoom.Height - 1), B);
Pen.Color := clRed;
MoveTo(0, H12); LineTo(W12 - ZV12, H12);
MoveTo(W12, 0); LineTo(W12, H12 - ZV12);
MoveTo(W - 1, H12); LineTo(W12 + ZV12, H12);
MoveTo(W12, H - 1); LineTo(W12, H12 + ZV12);
end;
finally
B.Free;
end;
end
else
Zoom.Repaint;
...
end;

← →
Mihey © (2004-03-10 01:08) [9]

Не совсем то, что представлял, но чем не лупа. Респект, прога тоже приятная.

← →
Александр1 © (2004-03-10 20:57) [10]

И чем вам лупа стандартная в Windowsе не устраивает

← →
Mihey © (2004-03-10 23:27) [11]

>И чем вам лупа стандартная в Windowsе не устраивает

Собственно, программы можно тоже не писать - всё уже написано. Лупа есть, плеер есть, чё программировать то?

А я вот например практически стараюсь не писать такие стандартные вещи, как плеер. Я в основном пишу программы которых ни где не найдёшь.
Вот например: "Программа по расчёту аэродинамики системы вентиляции" (ну это по моей специальности). Ну вот назовите мне хоть один сайт, где я бы мог её скачать? Я знаю, где её можно купить. В Москве есть проф центр занимающийся написанием таких программ. Они стоят 30000-5000р. Такие деньги на дороге не воляются. А если я скажем напишу своему клиенту такую прогу за 10000р, то разумеется он купит её у меня, а не в московском центре.
Конкренные программы для конкретных расчётов писать лучше всего!
Ну вообщето в принципе в лупе ничего плохого нет. Для тренировки пойдёт.

Объясните,plz,что есть StretchDraw и само свойство Stretch.

> Объясните,plz,что есть StretchDraw и само свойство Stretch

StretchDraw - метод TCanvas.
"Хочешь знать больше? Нажми F1!" (с)

2 Александр1:

По вашей же логике, ваша программа расчёта выдаст пользователю данные и формулу, которую нужно самому расчитать, потому что есть ведь стандартный калькулятор - зачем программе самой считать?

К тому же, ведь не устроил кого-то Windows Media Player - юзаем теперь Winamp, Sonique, JetAudio, ещё что-нибудь. Много программ, весьма профессионально выглядящих, написаны простыми людьми и стали классикой в своём жанре не смотря на то, что их идея не нова.

Ребята, качайте компонент JCL (Jedi-project) и все без гемора!!!

Лупа Найти похожие ветки