Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=443857&view=findpost&p=3902103 Tue, 26 Mar 2024 03:41:18 +0000 Почему я не могу использовать ModifyWorldTransform на двух квадратах? https://forum.sources.ru/index.php?showtopic=443857&view=findpost&p=3902103 MBo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=443857&view=findpost&p=3902101 Mon, 25 Mar 2024 21:30:25 +0000 Почему я не могу использовать ModifyWorldTransform на двух квадратах? https://forum.sources.ru/index.php?showtopic=443857&view=findpost&p=3902101 img1.jpg (, : 66)
Как использовать ModifyWorldTransform с разными значениями?
Код:
    procedure TForm1.FormCreate(Sender: TObject);
    var HDC:THandle;
    M:TXFORM;
    a:Double;
    begin
       hDc := Image3.Canvas.Handle;
       SetGraphicsMode(hDc, GM_ADVANCED);
     
       fillChar(M, sizeOf(M), 0);
       M.eM11 := 1;
       M.eM12 := 0;
       M.eM21 := 0;
       M.eM22 := 1;
       M.eDx := 50;
       M.eDy := 150;
       ModifyWorldTransform(hDc, M, MWT_LEFTMULTIPLY);
     
     
        Image3.Canvas.Pen.Color:=clBlue;
        Image3.Canvas.Pen.Width := 4;
        Image3.Canvas.Brush.Color:=clGreen;
        Image3.Canvas.Rectangle(0,0,50,50);
     
      // hDc := Image3.Canvas.Handle;
      // SetGraphicsMode(hDc, GM_ADVANCED);
       fillChar(M, sizeOf(M), 0);
       M.eM11 := 1;
       M.eM12 := 0;
       M.eM21 := 0;
       M.eM22 := 1;
       M.eDx := 250;
       M.eDy := 150;
       ModifyWorldTransform(hDc, M, MWT_LEFTMULTIPLY);
     
        Image3.Canvas.Pen.Color:=clRed;
        Image3.Canvas.Pen.Width := 4;
        Image3.Canvas.Brush.Color:=clGreen;
        Image3.Canvas.Rectangle(0,0,50,50);
    end;


Добавлено
Походу дела нужно как-то сохранять значения и возвращать их. В HTML5 для этого существуют функции save и restore, а здесь не знаю как это сделать.]]> Katerina1993 Delphi: Общие вопросы