Линия на мониторе без формы

[Nub83]

Нужно чтоб на мониторе отображалась линия и ее можно было бы перемещать и вращать вокруг оси. Ну допустим линия и посередине кружок либо квадратик чтоб можно было перемешать. Если потянуть за концы то линия бы вращалась вокруг этого квадратика/ Вопросов много как это все организовать. Как вывести изображение прямой без формы

[raxp]

эт вам OSD модуль...
с регионами сталкивались?

...кроме того у формы есть свойство - transparenrcolor, ставите в true, цвет фона соответсвующий и скажем Tpanel в качестве вашей линии, чтоб перемещать обрабатывайте координаты мышки по левой кнопке когда нажали чтоб ее взять, ну а при подводе к краям опять по-нажатию левой считывайте координаты курсора от текущей позиции и удлиняйте свою линию...

пы-сы: а зачем таке надо, уж не в контре стрелять?

[Вадим Буренков]

Тебе надо рисовать прям на экране? Я читал "Михаил Краснов: OpenGL. Графика в проектах Delphi", там в начале книги про это есть. По поводу поворотов линии то это рассчитывается с помощю формул при знании геометрии.

[Nub83]

Нет на экране рисовать не надо. Линия уже должна быть

[Вадим Буренков]

Как вывести изображение прямой без формы

Линия уже должна быть

Где она должна быть, кроме как на форме?

[raxp]

вот вам простейший osd...

а по-поводу- "Линия на мониторе без формы"
- переформулируйте вопрос, где, в чем, на чем... можно действительно в opengl или на directx заюзать

[Nub83]

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

вот вам простейший osd...

Вот это то что нужно. Еще нужно чтоб можно было брать за края и вертеть мышкой. Ну типа мельницы. Самая линия просто чтоб была по верх всех окон.

[raxp]

Вот это то что нужно. Еще нужно чтоб можно было брать за края и вертеть мышкой. Ну типа мельницы. Самая линия просто чтоб была по верх всех окон.

- чтоб брать за края, добавьте обработку mousemove и координат курсора, как токо доходит до края, ну +-5px, то меняйте вид курсора на другой для удобства и обрабатывайте зажатие левой кнопки, це в вас будет начало растягивания-стягивания, а потом по move курсора змiнюйте размер формы...
что касается поверх всех, то почитайте тут http://www.programmersforum.ru/showthread.php?t=65246
(там выкладывал пример для этого случая)

[Nub83]

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

- чтоб брать за края, добавьте обработку mousemove и координат курсора, как токо доходит до края, ну +-5px, то меняйте вид курсора на другой для удобства и обрабатывайте зажатие левой кнопки, це в вас будет начало растягивания-стягивания, а потом по move курсора змiнюйте размер формы...

Что то не вертиться она у меня....Не обязательно чтоб во круг оси крутилось. Можно так чтоб один край допустим перемешать вверх вниз другой чтоб стоял на точке.
p.s Не вижу где плюсик ставить..

[raxp]

плюсик поставить- весы слева на пользователе...

...чтоб вертелась, нужно поступить иначе изначально- нужно просто рисовать линию на форме, лучше на TImage, а потом регионами обрезать форму по фоновому цвету, линия и останется... как пример - http://raxp.radioliga.com/cnt/s.php?p=cl.zip

function Tosdf.BitmapToRegion(Bitmap: TBitmap; TransColor: TColor): HRGN;
var X, Y, XStart: smallint;
    temp:integer;
begin
 Result := 0;
 with Bitmap do
 for Y := 0 to Height - 1 do
  begin
   X := 0;
   while X < Width do
    begin
     while (X < Width) and (Canvas.Pixels[X, Y] = TransColor) do
      Inc(X);
      if X >= Width then Break;
      XStart := X;
      while (X < Width) and (Canvas.Pixels[X, Y] <> TransColor) do
       Inc(X);
      if Result = 0 then
       Result := CreateRectRgn(XStart, Y, X, Y + 1)
      else temp:=CreateRectRgn(XStart, Y, X, Y + 1);
      CombineRgn(Result, Result,temp, RGN_OR);
      DeleteObject(Temp);
    end
  end
end;
//
procedure Tosdf.rgn(cb:Tcolor);
var Rgn: integer;
begin
 Rgn:= BitmapToRegion(img.Picture.Bitmap,cb);
 SetWindowRgn(Handle, Rgn, True);
 DeleteObject(Rgn)
end;
- image отрисовываейте заранее, а потом обновляйте rgn по-завершении рисования, обработка перемещения такая-же