Delphi XE5: Android рисовалка

@lamer811 · Регистрация: 10.12.2009

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток.
Пытаюсь потихоньку осваивать Delphi XE5 под Android
Встала задача нарисовать простенькую рисовалку, но проблема начинается уже с простой установки точки
Решил использовать компонент: TImage

Pascal

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Single);
begin
if drawingNow = True then
    Image1.Canvas.LineTo(x, y);
end;

"TCanvas" does not contain a member named 'Line To'

Чем заменить LineTo в FireMonkey?

@volvo · 21.11.2013, 17:16

TCanvas.DrawLine

@lamer811 · 21.11.2013, 17:55 **[ТС]**

Однозначно, большое спасибо
Нашёл еще аналогичную тему с вашим ответом, НО пробую создать FireMoney приложение, что для ПК, что для Android с указанными примерами
И всегда только пустая форма

А также аналогично ругается на:

Код

Image1.Bitmap.BitmapChanged;

"TBitmap" does not contain a member named 'BitmapChanged'

[dcc32 Error] Unit2.pas(64): E2361 Cannot access private symbol TBitmap.BitmapChanged

@Aleksey665 · 16.01.2014, 22:04

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

А также аналогично ругается на: Код Code1
Image1.Bitmap.BitmapChanged; "TBitmap" does not contain a member named 'BitmapChanged' [dcc32 Error] Unit2.pas(64): E2361 Cannot access private symbol TBitmap.BitmapChanged

Была аналагичная проблема. Отталкивался от примера Code Examples: FMXTCanvasDrawFunctions (Delphi)
Однако, рисует и без BitmapChanged

Delphi

var AOpacity :Single;
BEGIN
with Image1 do begin
  Bitmap := TBitmap.Create(400, 100);
  Bitmap.Canvas.Clear(TAlphaColors.Yellow);
end;
AOpacity := 255;
with Image1.Bitmap.Canvas do
   begin
      BeginScene;
         DrawLine( TPointF.Create(10, 10),
                   TPointF.Create(30, 10),
                   AOpacity,
                   TStrokeBrush.Create(TBrushKind.bkSolid, TAlphaColors.Red)
                 );
      EndScene;
   end;
//Image1.Bitmap.BitmapChanged;
END;

при AOpacity = 0 линии не видно, однако, другая проблема: и при AOpacity = 1 и при AOpacity = 255 получается линия оранжевая, но никак не красная.

@Aleksey665 · 16.01.2014, 22:28

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

линия оранжевая, но никак не красная.

1 - Ожидание; 2 - Реальность (и при 1 и при 255)
Причём, при значениях AOpacity от 1 до 0 - ещё более бледнее, что, вообщем-то, ожидаемо.

@volvo Супер-модератор 32949 / 21269 / 8166 Регистрация: 22.10.2011 Сообщений: 36,535 Записей в блоге: 8
	21.11.2013, 17:16	2
	TCanvas.DrawLine 1

@lamer811 0 / 0 / 0 Регистрация: 10.12.2009 Сообщений: 59
	21.11.2013, 17:55 [ТС]	3
	Однозначно, большое спасибо Нашёл еще аналогичную тему с вашим ответом, НО пробую создать FireMoney приложение, что для ПК, что для Android с указанными примерами И всегда только пустая форма А также аналогично ругается на: Код Image1.Bitmap.BitmapChanged; "TBitmap" does not contain a member named 'BitmapChanged' [dcc32 Error] Unit2.pas(64): E2361 Cannot access private symbol TBitmap.BitmapChanged 0

@Aleksey665 0 / 0 / 0 Регистрация: 16.01.2014 Сообщений: 3
	16.01.2014, 22:28	5
	Сообщение от Aleksey665 линия оранжевая, но никак не красная. 1 - Ожидание; 2 - Реальность (и при 1 и при 255) Причём, при значениях AOpacity от 1 до 0 - ещё более бледнее, что, вообщем-то, ожидаемо. Изображения 0