(02-10-2023, Saat: 11:50)kajmerantime Adlı Kullanıcıdan Alıntı: Selamlar, iyi forumlar.

    Geçen gün bir başlık açmıştım ama konuyu tam olarak anlatamadığım için istediğim sonucu alamadım. Öncelikle yaptığım şey, bir Button'a tıkladığımda TakePhotoFromCamera ile fotoğraf çekmek ve bu fotoğrafı bir Image içine atmak. İstediğim şey ise, bu Imageye tıkladığımda bana bu fotoğrafı Android Galeri uygulamasında açması.

    Bunu isteme sebebim şu, kullanıcı uygulamayı kullanırken bir fotoğraf çekecek ve bu fotoğrafta bir düzenleme yapması gerekecek. Bu düzenleme işlemini program içinden yaptırmak yerine direk android galerisine yönlendirirsem orada düzenleme işlemini yapar ve kaydeder. Düzenlemesi daha kolay olur.

Teşekkür ederim.

(05-10-2023, Saat: 06:14)emozgun Adlı Kullanıcıdan Alıntı: @kajmerantime yorumlarına bakınca önceki konu Fotoğraf Ekleme ve Düzenleme silinmiş görünüyor, buradan devam edebiliriz

Bu bağlantıları kullanabilirsin:

https://stackoverflow.com/questions/34558016/opening-the-image-with-the-external-gallery-using-delphi

[/url][url=https://stackoverflow.com/questions/42753164/delphi-firemonkey-select-multiple-pictures-from-gallery-at-the-same-time]https://stackoverflow.com/questions/42753164/delphi-firemonkey-select-multiple-pictures-from-gallery-at-the-same-time

https://en.delphipraxis.net/topic/3856-open-android-gallery-with-intent/

(05-10-2023, Saat: 09:07)kajmerantime Adlı Kullanıcıdan Alıntı:

(05-10-2023, Saat: 06:14)emozgun Adlı Kullanıcıdan Alıntı: @kajmerantime yorumlarına bakınca önceki konu Fotoğraf Ekleme ve Düzenleme silinmiş görünüyor, buradan devam edebiliriz

Bu bağlantıları kullanabilirsin:

https://stackoverflow.com/questions/34558016/opening-the-image-with-the-external-gallery-using-delphi

[/url][url=https://stackoverflow.com/questions/42753164/delphi-firemonkey-select-multiple-pictures-from-gallery-at-the-same-time]https://stackoverflow.com/questions/42753164/delphi-firemonkey-select-multiple-pictures-from-gallery-at-the-same-time

https://en.delphipraxis.net/topic/3856-open-android-gallery-with-intent/

İlginiz için teşekkür ederim. 

Tam olarak istediğim şey Imageyi düzenlemek. Bunun için Imageye tıkladığımda android galeride açarsa eğer galerinin içindeki editleme işlemlerini kullanabilirim diye düşündüm fakat pek bir sonuca ulaşamadım. Linklerde genel olarak tam ekran yapmayı vs. gösteriyor (veya ben öyle anladım). 

Dün çizim işlemini Paintbox ile yapmayı denedim ve windowsta çizim işlemini yaptım fakat androide geçtiğimde bu işlem olmadı. Paintbox ve GestureManager ile androidde çizim işlemi yapabilir miyim sizce? Yada bunu nasıl aratmalıyım çok bilmiyorum. Stackoverflowu yeterince verimli kullanamıyorum sanırım

(05-10-2023, Saat: 10:06)hi_selamlar Adlı Kullanıcıdan Alıntı:

(05-10-2023, Saat: 09:07)kajmerantime Adlı Kullanıcıdan Alıntı: İlginiz için teşekkür ederim. 

Tam olarak istediğim şey Imageyi düzenlemek. Bunun için Imageye tıkladığımda android galeride açarsa eğer galerinin içindeki editleme işlemlerini kullanabilirim diye düşündüm fakat pek bir sonuca ulaşamadım. Linklerde genel olarak tam ekran yapmayı vs. gösteriyor (veya ben öyle anladım). 

Dün çizim işlemini Paintbox ile yapmayı denedim ve windowsta çizim işlemini yaptım fakat androide geçtiğimde bu işlem olmadı. Paintbox ve GestureManager ile androidde çizim işlemi yapabilir miyim sizce? Yada bunu nasıl aratmalıyım çok bilmiyorum. Stackoverflowu yeterince verimli kullanamıyorum sanırım

https://www.delphican.com/showthread.php?tid=7449

(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

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.