Ластик для имиджа image1

[mutabor]

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

Что в книге понятно,но вот в какой?Вездесущий гугль какие-то всегда глупости, не по запросу выдает!А насчет ластика ладно,сам разберусь!

ну негде почитать >>>

[Карась]

А почему ты из отладчика ее не грохнул (Run > Program Reset)?
Что дельфи тоже зависла и ты ее тоже из диспетчера убил вместе со своей прогой? Тогда понятно почему проект нерабочим стал.
Возьми файлы со значком ~ и поубирай этот значок, перед этим удали (лучше скинь куда-то) файлы проекта с теми же именами но без этого значка, правда потеряешь последние изменения. И запусти Дельфи. Если не сработает, то придется из исходника новый проект делать.

Я просто незнал что её можно из отладчика грохнуть.. Я особо неразбирался ещё с ним.. Делфи независла, я только запущенный исходник грохнул )) Я некоторые циклы боюсь ещё с VB ибо в VB6 падал и отладчик что недавало вообще никак востановить наработанное если несохранил

Не то и не другое...хотя...=).Вот что я хотел узнать:где читать про динамические массивы,и главное какие функции и процедуры отвечает за создание инстр.ластика?

http://programmersforum.ru/showthread.php?t=11890

[Marsik]

Все сейчас прочту и объязательно сделаю!Спасибо вам,с наступающим!

[Marsik]

Сейчас обрабатываю событие нажимания на имидж1.Все бы хорошо только косит!Тоесть я делаю 4 переменные.Присваиваю им место положения курсора и по ним рисую круг:
a:=mouse.create.cursorpos.x;
b:=a+20;
c:=mouse.create.cursorpos.y;
d:=c+20;
image1.canvas.create.ellipse(a,c,b, d);
по идее должно было так что при нажатии на любое место имиджа1 там бы на месте нажатия появлялся круглешок.Но вместо этого круг смещается куда-то далеко направо и вниз!Почему?

[Карась]

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

Сейчас обрабатываю событие нажимания на имидж1.Все бы хорошо только косит!Тоесть я делаю 4 переменные.Присваиваю им место положения курсора и по ним рисую круг:
a:=mouse.create.cursorpos.x;
b:=a+20;
c:=mouse.create.cursorpos.y;
d:=c+20;
image1.canvas.create.ellipse(a,c,b, d);
по идее должно было так что при нажатии на любое место имиджа1 там бы на месте нажатия появлялся круглешок.Но вместо этого круг смещается куда-то далеко направо и вниз!Почему?

Ты смотрел мой корявый исходник? Чтобы понять почему он рисуется со смещением надо смотреть на картинку...



Я изучил исходники примитивного редактора на Си и пришёл к выводу что надо делать примерно так.... пока ещё правдо непридумал я как избавится от мерцания:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if PressLM = True then begin
Image1.Canvas.Pen.Color := CLWhite;
Image1.Canvas.Ellipse(x - 10, y - 10, x + 10, y + 10);
End;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
PressLM := True;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
PressLM := False;
end;

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

Задавал переменную: SaveP : TBitmap;
Сохранялся туда: SaveP := Image1.Picture.Bitmap;
и также позвращал его: Image1.Picture.Bitmap := SaveP;

Всё компилится а работать нехочет......

[Jeni]

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

Сейчас обрабатываю событие нажимания на имидж1.Все бы хорошо только косит!
a:=mouse.create.cursorpos.x;
b:=a+20;
c:=mouse.create.cursorpos.y;
d:=c+20;
image1.canvas.create.ellipse(a,c,b, d);

Не нужно каждый раз создавать переменную Mouse с помощью конструктора Create - она создается автоматически при запуске программы (один раз), дальше её нужно только использовать.

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

по идее должно было так что при нажатии на любое место имиджа1 там бы на месте нажатия появлялся круглешок.Но вместо этого круг смещается куда-то далеко направо и вниз!Почему?

Потому что функция CursorPos возвращает абсолютные экранные координаты (т.е. относительно верхнего левого угла экрана), а нужны относительные координаты (т.е. относительно верхнего левого угла компонента). Для такого преобразования служит функция ScreenToClient. Попробуй такой код в обработчике движения мыши на имидже:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  P: TPoint;
begin
  P := Mouse.CursorPos;
  //P := Image1.ScreenToClient(P);
  Caption := IntToStr(P.X) + '  ' + IntToStr(P.Y);
end;

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

P.S. Не знаю как конкретно ты делаешь, но вообще-то, проще напрямую использовать переменные X и Y, которые передаются в обработчик.

[Jeni]

Сообщение от Карась

Кстати я так и несмог создать пременную кудабы я мог сохранять рисунок чтоб потом его возвратить.
Задавал переменную: SaveP : TBitmap;
Сохранялся туда: SaveP := Image1.Picture.Bitmap;
и также позвращал его: Image1.Picture.Bitmap := SaveP;
Всё компилится а работать нехочет......

SaveP := Image1.Picture.Bitmap - это не сохранение картинки, а просто копирование значения одной переменной в другую, т.е. в SaveP в данном случае записывается лишь указатель на Bitmap.
Чтобы реально записать информацию из одного объекта в другой используется метод Assign, т.е.
Сохранить картинку: SaveP.Assign(Image1.Picture.Bitmap) ;
Восстановить картинку: Image1.Picture.Bitmap.Assign(SaveP) ;

Конечно перед использованием нужно выполнить SaveP.Create;

[Карась]

Спасибо ещё немножко, ещё чуть чуть.....
Сделал как тут советовали выше, создать массив... дабы можно было много раз отменять

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
k := k + 1;
if k = 6 then k := 1;
SaveP[k] := TBitmap.Create;
SaveP[k].Assign(Image1.Picture.Bitmap);
PressLM := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if k = 0 then k := 1;
Image1.Picture.Bitmap.Assign(SaveP[k]);
k := k - 1;
end;

[Jeni]

Сообщение от Карась

Сделал как тут советовали выше, создать массив... дабы можно было много раз отменять

Не совсем понял, в чем именно заключается вопрос. Единственно, что могу дополнительно посоветовать, так это проверять SaveP на наличие перед повторным использованием:

if Assigned(SaveP[k]) then SaveP[k].Free;
SaveP[k] := TBitmap.Create;

Иначе при новом присвоении, "старая" копия уйдет в небытие - это называется "утечка памяти". А так как картинки занимают немало места, то быстро начнутся проблемы с памятью (хотя при закрытии программы даже эти "потерянные" копии удалятся).

[Marsik]

Джени что-то не идет твой код у меня .Карась а какого типа presslm а то типа undeclared identifer?