Tıklanılan Image'yi Android Galeride Açmak

[kajmerantime]

(06-10-2023, Saat: 06:06)emozgun Adlı Kullanıcıdan Alıntı: @kajmerantime resimleri kendi uygulaman ile düzenlemek istiyorsan önce bitmap olarak açman lazım. Delphi ile Android 11 SDK 30 Kapsamlı Depolama Scoped Storage : SAF & MediaStore API konusundaki bit eşlem / bitmap kod parçacığı, Bitmap URI'si verilen bir dosyanın nasıl açılacağını gösteriyor, ekindeki veya github'daki örnek proje ile ImageControl1'a aldıktan sonra düzenleme yapabilirsin

Hocam galeride açmak yerine uygulamanın kendi içinde düzenlemek için şöyle bir kod yazdım. Windowsta çalıştırdığım zaman çizim yapabiliyorum istediğim şekilde. Fakat Android cihazda çalıştırdığımda çizim yapmaya başladığım gibi fotoğraf gidiyor. Image kayboluyor bir anda. Destek aldım bir çok şey denedim fakat düzelmedi. Birde çizim işlemini yaptıktan sonra çizim görünüyor. Parmağımla senkronize olmuyor. İlginiz için tekrardan teşekkürler. 

---

unit Unit1;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Objects,
 FMX.Gestures;

type
 TForm1 = class(TForm)

   imgDrawing: TImage;
   PaintBox1: TPaintBox;
   GestureManager1: TGestureManager;
//    procedure imgDrawingGesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean);
   procedure FormCreate(Sender: TObject);
   procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Single);
   procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
     Y: Single);
   procedure PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Single);
   procedure PaintBox1Gesture(Sender: TObject;
     const EventInfo: TGestureEventInfo; var Handled: Boolean);

 private
   { Private declarations }
   IsDrawing: Boolean;
   LastX, LastY: Single;
   Bitmap: TBitmap;
   Canvas: TCanvas;
   Drawing: Boolean;
   FStartPoint: TPointF;
   DrawingBitmap: TBitmap;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 Drawing : Boolean;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Drawing := False;
 LastX := 0;
 LastY := 0;

 Bitmap := TBitmap.Create;
 Bitmap.SetSize(Round(imgDrawing.Width), Round(imgDrawing.Height));
 Bitmap.Clear(TAlphaColorRec.Null);
end;

procedure TForm1.PaintBox1Gesture(Sender: TObject;
 const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
 if EventInfo.GestureID = igiPan then
 begin
   imgDrawing.Visible := True;
   if EventInfo.Flags = [TInteractiveGestureFlag.gfBegin] then
   begin
      imgDrawing.Visible := True;
     // Pan hareketi başladığında çizim işlemini başlatın
     PaintBox1.Canvas.BeginScene;
     PaintBox1.Canvas.Stroke.Color := TAlphaColorRec.Yellow;
     PaintBox1.Canvas.Stroke.Thickness := 10;
   end
   else if EventInfo.Flags = [TInteractiveGestureFlag.gfEnd] then
   begin
     imgDrawing.Visible := True;
     // Pan hareketi bittiğinde çizim işlemini sonlandırın
     PaintBox1.Canvas.EndScene;
   end
   else
   begin
     imgDrawing.Visible := True;
     // Pan hareketi devam ederken çizim yapın
     PaintBox1.Canvas.DrawLine(EventInfo.Location, EventInfo.Location, 1);
   end;
   Handled := True;
 end;
end;

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Single);
begin
 Drawing := True;
 LastX := X;
 LastY := Y;
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Single);
begin
 if Drawing then
 begin
   imgDrawing.Canvas.BeginScene;
   try
     PaintBox1.Canvas.Stroke.Color := TAlphaColorRec.Yellow;
     PaintBox1.Canvas.Stroke.Thickness := 10;
     PaintBox1.Canvas.DrawLine(TPointF.Create(LastX, LastY), TPointF.Create(X, Y), 1);
   finally
     imgDrawing.Canvas.EndScene;
   end;
   LastX := X;
   LastY := Y;
 end;
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Single);
begin
 Drawing := False;
end;

end.