(11-01-2018, Saat: 23:57)Paranoyaq Adlı Kullanıcıdan Alıntı:

FmxExpress'in yaptığı DrawApp uygulamasında ( çizim ) çizilenleri kaydetme olayında resimde görünen hata meydana geliyor kaydetme işlemi olmuyor.
Konu ile ilgili pek fazla döküman yok bilen de ayrıntılı anlatırsa uygun olur teşekkürler 
uygulama http://dosya.co/wmslh3lbx40s/DrawApp.rar.html

// Yapsın mı? Evet, Hayır (true - false döner)
function AIMessageDlg(Question: String): Boolean;
var
 Res: Boolean;
begin

 MessageDlg(Question, System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0,
   procedure(const AResult: TModalResult)
   begin
     case AResult of
       mrYes:
         Res := true;
       mrNo:
         Res := False;
     end;

   end);

 Result := Res;

end;

// Yukarıda bir TProcedure çalışır. Yanıt evet olması durumunda tetiklenir.
procedure AIMessageDlgV2(Question: String; ExecuteProcedure: TProcedure);
begin

 MessageDlg(Question, System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0,
   procedure(const AResult: TModalResult)
   begin
     case AResult of
       mrYes:
         ExecuteProcedure;
       mrNo:
         Exit;
     end;

   end);

end;

// Doğru yanıt verilmesi durumunda 2. parametredeki action aktif edilir.
procedure AIConfirmBox(Question: String; Action: TAction);
begin

 MessageDlg(Question, System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0,
   procedure(const AResult: TModalResult)
   begin
     case AResult of
       mrYes:
         Action.Execute;
       mrNo:
         Exit;
     end;

   end);
end;

// TActionList'te iki farklı eylem denetlenir. Dönüş metodları 2. ve 3. parametreler.
procedure AIMsgDlgYesNo(Question: String; YesAction: TAction; NoAction: TAction);
begin
 MessageDlg(Question, System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0,
   procedure(const AResult: TModalResult)
   begin
     case AResult of
       mrYes:
         YesAction.Execute;
       mrNo:
         NoAction.Execute;
     end;

   end);
end;

uses 
 FMX.DialogService;

procedure Tdrawmaindemo1frm.SpeedButton1Click(Sender: TObject);
var
 sfile: string;
 fs: TFileStream;
begin
 TDialogService.InputQuery('Dosya Kaydetme İşlemi', ['Dosya Adı'],
   ['Deneme.jpg'],
   procedure(const AResult: TModalResult; const AValues: array of string)
   begin
     case AResult of
       mrOK:
         begin
           if (AValues[0].Trim <> '') then
           begin
             sfile := System.IOUtils.TPath.Combine
               (System.IOUtils.TPath.GetDocumentsPath(), AValues[0]);
             fs := TFileStream.Create(sfile, fmCreate);
             try
               fdrawbox.SaveToJPEGStream(fs);
             finally
               fs.DisposeOf;
             end;
           end;
         end;
     end;
   end);
end;