извлечь координаты из pixels

@esaul123 · Регистрация: 05.07.2011

есть например код:

Delphi

1	Image1.Canvas.Pixels[20,115]:=121211;

а как присвоить какой нибудь целочисленной переменной эти самые координаты? которые в данном случае 20 и 115.

@Петррр · 05.07.2011, 22:41

А может использовать:

Delphi

1	point: TPoint;

@esaul123 · 05.07.2011, 23:00 **[ТС]**

я думал об этом, но я не знаю как передать.
p.x:=???

@Mawrat · 05.07.2011, 23:07

Delphi

uses
  Types;
...
var
  P : TPoint;
...
begin
...
  P.X := 20;
  P.Y := 115;
...
end;

deathNC · 06.07.2011, 02:13

Delphi

var
  X, Y: Word;
  point: Cardinal;
begin
  x := 123;
  y := 10;
  point := X + (Y shl 2);
end;

Число разбито надвое по 2 бита - в первых двух одна координата, во вторых двух - другая. Но это глупость

так не советую хранить координаты...

Не по теме:

Mawrat: Бывают ситуации, когда такое может понадобиться. :)
deathNC: Ну, в принципе, ты прав, Mawrat: :)

@esaul123 0 / 0 / 0 Регистрация: 05.07.2011 Сообщений: 4
	05.07.2011, 23:00 [ТС]	3
	я думал об этом, но я не знаю как передать. p.x:=??? 0

	06.07.2011, 02:13