Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Лупа [D7, NT4]

VasRog © (2004-03-09 23:16:00)
Подскажите, пожалуйста,есть ли готовый компонент или хотя бы почитать бы где про то, как сделать лупу для увеличения части картинки.

ИЛЕЙ (2004-04-01 12:26:00) [1]
Ребята, качайте компонент JCL (Jedi-project) и все без гемора!!!

Mihey (2004-03-11 20:14:00) [2]
2 Александр1:

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

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

Gero (2004-03-11 17:43:00) [3]
> Объясните,plz,что есть StretchDraw и само свойство Stretch

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

VasRog (2004-03-11 09:44:00) [4]
Объясните,plz,что есть StretchDraw и само свойство Stretch.

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

Mihey (2004-03-10 23:27:00) [6]
> И чем вам лупа стандартная в Windowsе не устраивает

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

Александр1 (2004-03-10 20:57:00) [7]
И чем вам лупа стандартная в Windowsе не устраивает

Mihey (2004-03-10 01:08:00) [8]
Не совсем то, что представлял, но чем не лупа. Респект, прога тоже приятная.

Gero (2004-03-10 00:53:00) [9]
Вот огрызок кода.
Здесь - работающая программа: 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 00:39:00) [10]
Ну ты выложи куда-нибудь (народ.ру - это не куда-нибудь, так что отпадает), я заценю, если ок - то увАжу.

Gero (2004-03-10 00:22:00) [11]
Под что спорим? ;)

Mihey (2004-03-10 00:20:00) [12]
Гонишь. Не делал!

Gero (2004-03-09 23:56:00) [13]
Делал. И не замучился.

Mihey (2004-03-09 23:43:00) [14]
2 Gero:

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

Gero (2004-03-09 23:30:00) [15]
Canvas.StretchDraw

Mihey (2004-03-09 23:22:00) [16]
Лупа в разрезе:
http://www.efg2.com/Lab/ImageProcessing/Magnifier.htm

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »