Резиновая линия до курсора

[Vova777]

Сообщение от Stilet

мне кажется это будет сложнее... Изображение может сильно моргать

и даже двойная буферизация не поможет?

[Stilet]

Мне не помогла... Впрочем я особо не вникал. Так ради интереса пробовал когда-то. Убедился что пожалуй Делфийские компоненты всетки устарели существенно.

[3D Hunter]

А как вы себе представляете перерисовку линии при любом изменении положения курсора без перерисовки изображения в Image так, чтобы это было просто и в пару строчек кода? Тогда уж легче всего поставить поверх имаджа с картинкой такой же пустой имадж и на нем рисовать и стирать линию. Тогда и моргать ничего не будет.

[Vova777]

Сообщение от 3D Hunter

А как вы себе представляете перерисовку линии при любом изменении положения курсора без перерисовки изображения в Image так, чтобы это было просто и в пару строчек кода? Тогда уж легче всего поставить поверх имаджа с картинкой такой же пустой имадж и на нем рисовать и стирать линию. Тогда и моргать ничего не будет.

Скорее всего, этот вариант более всего мне подходит.

[Vova777]

Сообщение от Stilet

Мне не помогла... Впрочем я особо не вникал. Так ради интереса пробовал когда-то. Убедился что пожалуй Делфийские компоненты всетки устарели существенно.

По поводу того, что они устарели - на мой взгляд, разработчикам давно пора бы взяться за исправление своих косяков и выпустить более адаптированную на современного программиста программную среду. Но с другой стороны - Делфи, это среда позволяющая любому здравомыслящему написать свой компонент, если его не устраивает стандартный, или это просто такая возможность предоставить программисту начинать с т.н. "нуля", чтобы как сказал один древний скульптор, "отсекать от камня все лишнее".

[3D Hunter]

Да ничего там не устаревало знать надо особенности VCL, а чего не хватает, то написать самому. Отсекать не получится, скорее прилепливать лишнее)

[s-andriano]

Сообщение от Vova777

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

Можно вопрос?
А современный программист - это кто?
Тот, кто сам ничего не способен написать и единственной своей задачей видит найти подходящий ему по всем параметрам компонент?

[Vova777]

Сообщение от s-andriano

Можно вопрос?
А современный программист - это кто?
Тот, кто сам ничего не способен написать и единственной своей задачей видит найти подходящий ему по всем параметрам компонент?

Нет, это не так. Даже если найти подходящий компонент, как можно используя только его и не написав ни строчки кода сделать программу?

Здесь я имею ввиду, что благодаря VCL, Делфи позволяет в короткие сроки написать программу, не вникая в особенности низкоуровневого программирования. Или вы считаете, что VCL значительно не упрощает программирование? Вынужден с вами не согласится, потому что если вы так считаете, то вы не правы. Именно используя VCL большинство программистов пишут свои программы.

Я не хочу сказать, что на низком уровне программы не пишут, потому что это не так, т.к. существует огромное множество примеров, я имею ввиду, что большинство современных программистов, все же, использует VCL, потому что это значительно сокращает затраты времени и код упрощается.

Для примера сравнить две программы на VCL и на низком уровне. Объем написанного кода будет значительно отличаться, не в пользу низкого уровня. А в чем плюс низкоуровневого программирования? Что при его использовании уменьшается вес программы? С современными многотерабайтными носителями экономия в несколько десятков мегабайт кажется просто смешным.

Будущее за VCL и объектно-ориентированным программированием.

[3D Hunter]

Давайте не будем уходить во флуд иначе теме придет капздец. Вот вы, ТС, скажите, вы сейчас ищете компонент или уже пробуете реализовать сами то, что вам подсказали?

[Vova777]

Сообщение от 3D Hunter

скажите, вы сейчас ищете компонент или уже пробуете реализовать сами то, что вам подсказали?

Я буду работать в сторону дополнительного TImage2 следующим образом: при событии OnMouseDown (xa, ya) на TImage1 будет появляться TImage2 с размерами TImage1, разумеется, расположенный своей нулевой точкой в нулевой точку первого компонента:

Image2.DoubleBuffered;
Image2.Left:= Image1.Left; //*
Image2.Top:= Image1.Top; //*
Image2.Width:= Image1.Width;
Image2.Height:= Image1.Height;
Image2.Transparent:= True; //*
Image2.BringToFront;
Image2.Visible:= True;

(* - помеченное возможно сразу задам в свойствах компонента)
Затем в событии OnMouseMove (x, y) на TImage2 будет рисоваться линия средствами GDI, а старая будет стираться перед появлением новой:

Image2.Canvas.Picture:= nil;
Image2.Canvas.MoveTo(xa, ya);
Image2.Canvas.LineTo(x,y);

Ну, и что соответственно, при втором событии OnMouseDown, но уже по TImage2, данный компонент будет исчезать:

Image2.Picture:= nil;
Image2.Visible:= False;
Image2.SendToBack;

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