junior103

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.

Olá. No VCL o listBox tem a propriedade TopIndex, e no FMX qual seria ? Desde já agradeço.

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?

Solução android e ios https://stackoverflow.com/questions/27020930/how-to-get-application-idpackage-modulename-delphi-xe5-xe6-xe7

Boa trde. Eu preciso do nome da Aplicativo compilado pra android. Tem algum exemplo de como. Estou usando delphi berlin

Bom dia . Como faço para obter o nome da minha aplicação pelo delphi berlin firemonkey?

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.

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).

Bom dia. Nesse link funciona em VCL mas em FMX não funciona.

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;

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;

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.

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.

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

Boa tarde. Obrigado pelo retorno. Esse exemplo funciona no VCL e eu preciso que rode em FMX. Você teria alguma ideia como?

Boa tarde. Estou desenvolvendo em Delphi berlin firemonkey, preciso retornar o tamanho do papel disponível na impressora. Por exemplo A4. Como fazer isso em Delphi FMX.Printer? Fico no aguardo. Obrigado.

Dessa forma não funcionou. Eu fiz o seguinte. Printer.BeginDoc; DestRect := TRectF.Create(0, 0, Printer.PageWidth, Printer.PageHeight); Printer.Canvas.Font.Size:= 80; Printer.Canvas.FillText(DestRect,sTexto,True,1,textFill,align,align); Printer.EndDoc; Obrigado pelo retorno.

Boa tarde. Como mandar um impressão direto para impressora e se caso a impressora tiver guilhotina acionar o mesmo? OBS(Preciso fazer isso em FMX). Fico no aguardo. Obrigado.

Resolvido :). Na propriedade StyleName do popupmenu coloquei StayOnTop. Após ter fieto isso voltou a funcionar.

Isso funciona, mas não pode ser assim. Teria que funcionar como no VCL.

Eu fiz seguindo o exemplo. Como pode ver na imagem, o menu esta ficando atrás da bandeja de ícones. Por que será? Obs: estou desenvolvendo em Multi-Device Aplicattion - delphi.

OK. Mas como faço para usar o popupMenu com esse exemplo?

Não deu certo.... Estou desenvolvendo em Multi device aplicanttion com firemonkey, então tive a necessidade de estar usando tray icon mas o mesmo não tem como no VCL. Peguei exemplos na net para usar o trayicon no firemonkey e encontrei poucos exemplos e os que encontrei esta com esse problema que foi citado. Testei o executável no windows 7 e comportou da mesma forma...

Tentei com os exemplos... mas não deu certo. :(

No vcl funciona normal. O que eu quero é no Multi-DeviceApplication. No Multi-DeviceApplication não tem o componente Trayicon, mas peguei um exemplo na net fiz e funcionou normal... Acontece que quando clico no ícone criado ele abre o popumenu em baixo da gaveta de ícones ao lado do relógio, o correto seria em cima. Não encontrei nenhuma solução ainda pra isso :( Segue o código fonte: //------------------------------------------------------------------------------ //Cria icone do form na bandeja de notificações //------------------------------------------------------------------------------ procedure TForm3.CriaIcone; begin criado := True; with NotifyIconData do begin cbSize := SizeOf; Wnd := AllocateHWnd(WMTrayIcon); uID := 0; uCallbackMessage:= WM_TRAYICON; uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; hIcon := GetClassLong(FmxHandleToHWND(Form3.Handle),GCL_HICONSM); szTip := 'Teste TrayIcon'; end; Shell_NotifyIcon(NIM_ADD, @NotifyIconData); end; //------------------------------------------------------------------------------ //Função que aguarda mensagem. Por exemplo: Pega o ponto cricado da janela //------------------------------------------------------------------------------ procedure TForm3.WMTrayIcon(var Msg: TMessage); var Pt: TPoint; begin //PopupBringToFront; if(criado)then begin MostrarEsconderTaskBar(False); end; if (Msg.LParam = WM_RBUTTONDOWN) then begin if Assigned(PopupMenu) then begin GetCursorPos(Pt); SetForegroundWindow(FmxHandleToHWND(Form3.Handle)); PopupMenu.Popup(Pt.X, Pt.Y); PostMessage(FmxHandleToHWND(Form3.Handle), WM_NULL, 0, 0); end; end else if (Msg.LParam = WM_LBUTTONDBLCLK) then begin end; end; //------------------------------------------------------------------------------ //Função que aguarda mensagem. Por exemplo: se o form foi minimizado //------------------------------------------------------------------------------ function WndProc(Code: integer; WParam, LParam: LongInt): LRESULT; stdcall; var msg: TCWPRetStruct; begin; if (Code >= HC_ACTION) and (LParam > 0) then begin msg := PCWPRetStruct(LParam)^; if (msg.Message = WM_SIZE) and (msg.WParam = SIZE_MINIMIZED)then begin if not criado then begin Form3.CriaIcone; end else begin Form3.Visible:= True; Form3.MostrarEsconderTaskBar(False); end; end; end; result := CallNextHookEx(WndProcHook, Code, WParam, LParam) end; //------------------------------------------------------------------------------ initialization WndProcHook := SetWindowsHookEx(WH_CALLWNDPROCRET, @WndProc, 0, GetCurrentThreadId); finalization UnhookWindowsHookEx(WndProcHook); end