Jump to content

mmurgas

uniGUI Subscriber
 View Profile  See their activity

  • Posts

    108

  • Joined

  • Last visited

  • Days Won

    2

 Content Type 

Posts posted by mmurgas

    ShowModal and MessageDlg, I have disabled form

    in General

    Posted

    Dear, it happens when opening a Form ShowModal and then create a MessageDlg message, I have the completed form disabled on some occasions, at what should it be?
     
    example

Open form
FormXXX.Showmodal;
-
-
-
MessageDlg ('? Save info?', MtConfirmation, mbYesNo, OkSave);

...
completed form disabled

    Thanks in advance for your help

     

    mmurgas

    UniScreenMask Questions

    in General

    Posted

    I answer to myself

     

     
    MessageDlg('mbYesNo', mtConfirmation, mbYesNo,
    procedure(Res: Integer)
    begin
      case Res of
        mrYes : UniMemo1.Lines.Add('DResult: YES');
        mrNo : UniMemo1.Lines.Add('DResult: NO');
        mrOK : UniMemo1.Lines.Add('DResult: OK');
        mrCancel : UniMemo1.Lines.Add('DResult: CANCEL');
      end;
    end
  );

    Can not open file

    in General

    Posted

    for me this code is correct, but I broke my head trying to export my data :blink:

     

      // Database 
      if NOT dmArtist.Artist.Active then
         dmArtist.Artist.Active:=TRUE;

      // Excel export 
      scExcelExport.DataSet:=dmArtist.Artist;
      scExcelExport.WorksheetName:='Artiesten';
      scExcelExport.HeaderText.text:='Artiesten per ' +DateToStr(Date) ;
      scExcelExport.ExcelVisible:=false;
      try
        scExcelExport.ExportDataset;
        ExportFile:='Artiesten per ' +FormatDateTime('hhmmss', Time) ;
        scExcelExport.SaveAs(UniServerModule.FilesFolderPath+ExportFile,ffXLS)
      finally
        scExcelExport.Disconnect;

        // Save export
        UniSession.SendFile(UniServerModule.FilesFolderPath+ExportFile+'.xls', 'Artiesten.xls');
      end;
   end;

    Can not open file

    in General

    Posted

    Estimates, and had the same problem for some time, I could indicate if this problem had a solution? , Is used to export to excel so your help would be very valuable  :)

     

    greetings and thanks

     

    mmurgas

    Object XXXX not found in session list.

    in General

    Posted

    Dear Farshad, this is a message previously known, but still I get the message ... Is it possible not to show the user?  
     
    I take the comment that indicates the link of the forum
     
    "In new version  you can disable" Object Not Found "warnings." 
      http://forums.unigui.com/index.php?/topic/831-object-o5cf-not-found-in-session-list-it-could-be-timed-out-refresh/?hl=object+not+found&do=findComment&comment=2215

     

     

    Regards, 

     

    mmurgas

    make a screenshot

    in General

    Posted

    Thanks Farshad, indeed I want to make a local pc screen is running the website and pressing a button to display the recording server ... in my path (UniServerModule.StartPath + 'Image \ pict.jpg')

     

    Greetings and Thanks

    make a screenshot

    in General

    Posted

    Hello, I'm trying to make a screenshot of an area of my application (map) and leave it in a directory on the server, it works correctly in my local environment (localhost), but when I go to the actual server ... as I can make it work there? show the code.
     
    Greetings and thanks in advance
     
    mmurgas
     
    procedure capturar_area_pantalla_a_bitmap_temporal(ABitmap: TBitmap);
var
  vDesktopDC: HDC; //contendrá el device context handle del escritorio actual
begin
  vDesktopDC := GetWindowDC(GetDesktopWindow);
  try
      ABitmap.PixelFormat := pf24bit;
      ABitmap.Height := Screen.Height;
      ABitmap.Width := Screen.Width;
      BitBlt(ABitmap.Canvas.Handle, 0, 0, ABitmap.Width, ABitmap.Height, vDesktopDC, 0, 0, SRCCOPY); 
  finally
    ReleaseDC(GetDesktopWindow, vDesktopDC);
  end;
end;

procedure capturar_pantalla_a_disco_formato_JPG(const fichero:string);
var
  vJpg: TJpegImage;
  vBmp: TBitmap;
begin
  vBmp := TBitmap.Create;
  try
    capturar_area_pantalla_a_bitmap_temporal(vBmp);
    vJpg := TJpegImage.Create;
    try
      vJpg.Assign(vBmp);
      vJpg.CompressionQuality := 85; //calidad JPG 85%
      vJpg.SaveToFile(fichero); //save format JPG
    finally
      vJpg.Free;
    end;
  finally
    vBmp.Free;
  end;
end;

     

     

    Query help

    in General

    Posted

    I personally prefer the querys with parameters, have never given me my mistake and order code

     

        DM.TablaX.Close;

        DM.TablaX.SQL.Clear;

        DM.TablaX.SQL.Add ('SELECT *');

        DM.TablaX.SQL.Add ('FROM mytabla');

        DM.TablaX.SQL.Add ('WHERE Cod LIKE: param1');

        DM.TablaX.Parameters.ParamByName ('param1'). Value: = '%' + trim (edit.Text) + '%';

        DM.TablaX.Open;

     

    regards

    UniScreenMask Questions

    in General

    Posted


    My question is with a UniScreenMask ... I want to use it after asking the user if they are sure to make a trade, but leave the dialog mesagge screenmask takes me ...

     

    steps

    1. MessageDlg ('Are you sure?', MtConfirmation, mbYesNo, OkSave);

    2. UniScreenMask1 ....

    3. ShowMessage ('The recording is ok');

     

    Thank you in advance

     

    mmurgas


     

     

    -----------------------------------------------------------------------------

    Mi consulta a es con un UniScreenMask ... lo quiero usar después de preguntarle al usuario si esta seguro de hacer una operación, pero al salir el mensaje de dialogo me saca el screenmask...

     

    pasos

    1.  MessageDlg('¿Estas seguro ?', mtConfirmation, mbYesNo, OkSave);

    2 . UniScreenMask1

    3. showmessage('La grabación esta ok');

     

    de antemano, Gracias

     

    mmurgas

    Charts: Gradient, Color, Animate Using unigui

    in Sample Projects

    Posted

    Interesting chart type, good presentation, ... my question, how you can show other types of graphs, bar type, stack, etc ... or is this just the bar,

     

    thanks and congratulations                                                   by google translator

    ----------------------------------------------------------------------------

     

    Interesante tipo de grafico, buena presentación, ...mi pregunta, ¿como se puede mostrar otros tipos de graficos, tipo barra , stack , etc...o sólo se debe usar este de barra, 

     

    gracias y felicitaciones 

    Pintar Iconos en el UNIDBGRID

    in Spanish

    Posted

    Guillermo , Muchas gracias por tu ayuda y por sobre todo tomarte tu tiempo para enseñarnos esta genial herramienta.........ahora si me funciona!!    

     

    Cordiales Saludos, 

     

    -------------

     

    William, Thank you for your help and most of all take time to teach this great tool ......... now if I work!

     

    Best Regards,

    Pintar Iconos en el UNIDBGRID

    in Spanish

    Posted

    disculpen, se que estoy cerca de la solución ..¿como muestro mi icono X ? me imagino que va en "text := '<img src="' + Sender.AsString + '" />';"

     

    en Sender.AsString ....pero no se como cargarlo.... favor su apoyo

     

    Gracias

    MM

    cant create dll

    in General

    Posted

    Thanks ...

     

    //{$define UNIGUI_VCL} // Comment out this line to turn this project into an ISAPI module'

     

    "I solve commenting the line and reopen the project, do the same when compiled in exe... wink.gif "

×
×
  • Create New...