junior103

Membros
  • Content Count

    30
  • Joined

  • Last visited

Community Reputation

0 Neutro

About junior103

  1. Primeiramente obrigado pelo retorno. Você tem ideia de como fazer isso Listbox.TopIndex := 2; no Delphi FMX? Esse trecho é do Delphi VCL e preciso usar no FMX.
  2. Olá. No VCL o listBox tem a propriedade TopIndex, e no FMX qual seria ? Desde já agradeço.
  3. junior103

    Insert tabela EF

    Saudações. Estou querendo inserir dados usando EF muitos para muitos. Tenho as seguintes tabelas. namespace WebServerDeliveryADR.Models { [Table("vendas", Schema = "public")] public class Vendas { [Key] [Column("id_vendas")] public int IdVendas { get; set; } public DateTime DataHoraVenda { get; set; } public int StatusVenda { get; set; } public virtual Lojas Loja { get; set; } public virtual Clientes Clientes { get; set; } public virtual ICollection<ItensPedidos> ItensPedidos { get; set; } } } public class Produtos { [Key] [Column("id_produto")] public int IdProduto { get; set; } public string Produto { get; set; } public double ValorUnitario { get; set; } public virtual Lojas Loja { get; set; } public virtual Categorias Categorias { get; set; } public virtual ICollection<ItensPedidos> ItensPedidos { get; set; } } public class ItensPedidos { [Key, Column(Order = 0)] public int Vendas_IdVendas { get; set; } [Key, Column(Order = 1)] public int Produtos_IdProduto { get; set; } public float Qtde { get; set; } public float Valor { get; set; } public float ValorTotal { get; set; } public virtual Vendas Vendas { get; set; } public virtual Produtos Produtos { get; set; } } public class Clientes { [Key] [Column("id_cliente")] public int IdCliente { get; set; } public string NomeCliente { get; set; } public string EnderecoCliente { get; set; } public string NumeroEnderecoCliente { get; set; } public string MunicipioCliente { get; set; } public string CepCliente { get; set; } public string UfCliente { get; set; } public string FoneCliente { get; set; } } Como faço para inserir produtos e clientes na venda usando entity framework?
  4. Solução android e ios https://stackoverflow.com/questions/27020930/how-to-get-application-idpackage-modulename-delphi-xe5-xe6-xe7
  5. Boa trde. Eu preciso do nome da Aplicativo compilado pra android. Tem algum exemplo de como. Estou usando delphi berlin
  6. Bom dia . Como faço para obter o nome da minha aplicação pelo delphi berlin firemonkey?
  7. Link da solução http://www.activedelphi.com.br/forum/viewtopic.php?p=488447#488447 Obrigado pela ajuda. A solução que desejava esta no link que postei.
  8. Não estou conseguindo. Estou usando: Delphi berlin. Projeto criado em "Multi-Device application". (Se fosse em VCl os exemplo passado funciona normal, mas em Multi-Device application que estou tendo dificuldades).
  9. Bom dia. Nesse link funciona em VCL mas em FMX não funciona.
  10. Esse exemplo são uteis para quem precise trabalhar com fastReport. Mas no meu caso não deu certo ainda. Preciso Migrar de vcl para fmx o seguinte trecho Printer.PrinterIndex := -1; For I := 0 to Printer.printers.Count-1 do begin If LowerCase(Printer.Printers[i]) = Lowercase(PrinterName) then begin //Altera a classe printer padrão if ( Printer.PrinterIndex <> i ) then begin Printer.PrinterIndex := i; end;
  11. Esse exemplo são uteis para quem precise trabalhar com fastReport. Mas no meu caso não deu certo ainda. Preciso Migrar de vcl para fmx o seguinte trecho Printer.PrinterIndex := -1; For I := 0 to Printer.printers.Count-1 do begin If LowerCase(Printer.Printers[i]) = Lowercase(PrinterName) then begin //Altera a classe printer padrão if ( Printer.PrinterIndex <> i ) then begin Printer.PrinterIndex := i; end;
  12. Primeiramente obrigado pelo retorno. Esse exemplo não serve pra mim. Referente o fonte Printer.PrinterIndex := -1; For I := 0 to Printer.printers.Count-1 do begin If LowerCase(Printer.Printers[i]) = Lowercase(PrinterName) then begin //Altera a classe printer padrão if ( Printer.PrinterIndex <> i ) then begin Printer.PrinterIndex := i; end; //Altera a classe printer do FastReport frxPrinters.FillPrinters; frxPrinters.PrinterIndex := frxPrinters.Printers.IndexOf(PrinterName); exit; end; End; eu preciso que funcione em FMX(Firemonkey). A ideia é o seguinte. Na minha maquina possui varias impressoras instalada(IMP1,IMP2 e IMP3), Nessa procedure passo nome de qual impressora desejo imprimir... No VCL esse fonte acima funciona normal mas em FMX(Firemonkey) não funciona, preciso "migrar para FMX". Você tem alguma solução? Fico no aguardo. Obrigado.
  13. Bom dia. Em VCL com essa rotina seta outra impressora passando o nome como parâmetros. Printer.PrinterIndex := -1; For I := 0 to Printer.printers.Count-1 do begin If LowerCase(Printer.Printers[i]) = Lowercase(PrinterName) then begin //Altera a classe printer padrão if ( Printer.PrinterIndex <> i ) then begin Printer.PrinterIndex := i; end; //Altera a classe printer do FastReport frxPrinters.FillPrinters; frxPrinters.PrinterIndex := frxPrinters.Printers.IndexOf(PrinterName); exit; end; End; Preciso fazer o mesma rotina só que em FMX. Algum exemplo de como fazer isso? Fico no aguardo. Obrigado.
  14. Não, me manda um exemplo por favor. Fiz o seguinte e funcionou. Segue o código: Código: Printer.ActivePrinter.SelectDPI(1200, 1200); Printer.Title:= 'Documento do Sistema'; Printer.Canvas.Fill.Kind := TBrushKind.Solid; Printer.BeginDoc; DestRect := TRectF.Create(0, 0, Printer.PageWidth, Printer.PageHeight); Printer.Canvas.Font.Size:= 80; Printer.Canvas.FillText(DestRect,Lista.GetText,True,1,textFill,align,align); Printer.EndDoc; Resposta dada no Forum Activedelphi 28/07/2017
  15. Boa tarde. Obrigado pelo retorno. Esse exemplo funciona no VCL e eu preciso que rode em FMX. Você teria alguma ideia como?