Jump to content

Fritzew

Members
 View Profile  See their activity

  • Content Count

    83

  • Joined

  • Last visited

  • Days Won

    1

Posts posted by Fritzew

  2. Posted

    I have updated today and done a Build.
    Version 1.3.24 build 4222

    My Settings are

    1. Monitor  2560 x 1440 96 dpi

    2. Monitor 5120 x 2880 working on 200% (tested also with 175 and 225 %)


    I can confirm the "Grep Results" is working on HighDpi
    but on first start it will be always on the "Main Screen" in my case my 96 Dp Screen. For me no problem

    the "Procedure List" works on High Dpi but on 96 Dpi the List is to big.

  6. Posted

    The Documentation :

     

    #define DEVICE_NAME_LEN 128

    int i=1;

    DWORD dwResult;

    char pcDevName[DEVICE_NAME_LEN]="";

    while ((dwResult = MTMICRGetDevice(i,(char*) pcDevName)) != MICR_ST_DEVICE_NOT_FOUND)

    {

    // Device found, increment the device number

    i++;

    }

     

    so you van to use buffer not a String:

    function TfraExcellaChequeScanner.SetupOptions: Integer;
    var
      DeviceName : Array[0..127] of Char;
      
    begin
      Result := MTMICRGetDevice(1,@DeviceName);
    end;

     

  7. Posted

    4 hours ago, Brian Evans said:

    Calling it a glitch was everybody being polite. Do you really want to hear the non-polite version(s)?

    You are using it for free. What ever they decide to do with her work is only up to them. Why do you think there are rights on your side?
    For sure the communication could be better. But... use a commercial version and be a customer and not a consument....
     

    • Like 2

  8. Posted

    I have purchased a new Sign-certificate from K-Software 5 weeks ago....
    they have billed my card but no answer from support or sales afterward.
     

    Does anybody know something?
    Do i need a lawyer or just whine?

  13. Posted

    I'm testing it at Moment with VCL, so a FMX Canvas is out

    Another Question: How thread save is SKIA?   We prepare a lot oaf Drawing-Layers in Threads and put it together after finished. Works well with Cairo.
     

    At Moment I check first the Speed of Drawings to decide if it is worth to switch

  15. Posted

    I don't think there will be an Emulation on M1 for running x86 Windows. So as Delphi Developer the latest 2019 MPro will be the latest.
    I would like to see an option but without a ARM Windows with a fast Emulation? no hope. I have here a a 2019 MacBook Pro 16" with I9 from last year so I think there is time to wait.
    But the "want have" is so "BIG". 

  17. Posted

    Look at this:

      

    program Project20;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils;
type
  TVectorD3 = record
    x, y, z: Double;
  end;
  TDirection = type TVectorD3;
{$WARN UNSAFE_CAST ON}
procedure Test;
var
  V: TVectorD3;
  D: TDirection;
begin
  V := default (TVectorD3);
  D := TDirection(V);
end;
begin
  try
    Test;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

    Will also produce a Warning. So if you enable UNSAFE_CAST there will be a lot of Warnings.

    And every place surround with a {$WARN UNSAFE_CAST OFF} is a bad Idea
    But  I'm with Stefan here. A new Warning for Pointer Assignment would be fine.

     

     

    • Like 1

  19. Posted

     I would declaree it all as types so  
    t 

    type  
Pmedia_track_t = libvlc_media_track_t^;   
PPmedia_track_t = ^Pmedia_track_t;

    and then  
      

    function libvlc_media_tracks_get(p_md : libvlc_media_t_ptr; var tracks : PPmedia_track_t) : LongWord; cdecl;   
procedure libvlc_media_tracks_release(tracks : PPmedia_track_t; i_count : LongWord ); cdecl;    

     

    use as:    
      

    var   
  LTracksPtr : PPmedia_track_t;   
  LTrackUse :  Pmedia_track_t;   
  LTracks : libvlc_media_track_t;  // a record   
  LCount : int32; 
begin  
LCount := libvlc_media_tracks_get( FVLCMIntf, LTracksPtr );  // FVLCMIntf is just (an initialised) pointer   
LTrackUse := LTracksPtr^;   
LTracks := LTrackUse^ ;  
// The above will point to the first record you can increment for the following or use a Array[0..0] of Pmedia_track_t
libvlc_media_tracks_release( LTracksPtr, LCount );  // should work
end;

     

  25. Posted

    33 minutes ago, Guba said:

    Hey Friend, do you really think that this kind of posts maybe of any usefulness ?
    FRANLKY?
    1. If you reply to a request you must make who asks in the position to find what you describe.

    2. you must read what the poster (me) writes in his replays, because it is important. this thing you talk about cannot be found anywhere, not here, nor on google.

    3. if you can't understand these simple rules please avoid to make the others to loose their time searching for something that is only in your head. EGO is of no usefulness in this place. What you want to demonstrate with such behavior ? That you can solve my probblem while I cannot ? We're all technician here, and if you want to speak technic, do it well.

    4. avoid such kind of behaviour in the future, because it is unethical, useless and time wasting. If you want to help, do it right.

    Regards.

     

    What are you smoking?
    Maybe you as technician should lern to read the docs?
    http://docwiki.embarcadero.com/Libraries/Rio/en/FMX.Grid.TStringGrid_Properties

×