Jump to content

limelect

Members
  • Content Count

    924
  • Joined

  • Last visited

  • Days Won

    1

limelect last won the day on April 15 2022

limelect had the most liked content!

Community Reputation

52 Excellent

1 Follower

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. limelect

    D12 sdk and Android

    @Dave NottageWell, you might be right, but as a professional using Pascal even before Delphi, I do not have the strength to use failing products. For Android, I will stick with Android Studio even though Delphi is better in that area and wait for a new version Maybe I will give it one more shot
  2. limelect

    D12 sdk and Android

    I will wait for Delphi 13, maybe it will be better
  3. limelect

    D12 sdk and Android

    The error saise Cannot locate sdk api level in this path..... I geuss it is not 32 bit
  4. limelect

    D12 sdk and Android

    yes on 32
  5. limelect

    D12 sdk and Android

    Yes, I started by checking the Java path, but on the 32 it does not allow me to change Furthermore, I tried to compile to 64, but it wants to update. I say ye,s it fails with no reason
  6. limelect

    D12 sdk and Android

    @Dave Nottage It is a mess; most directories are bad On Java 32-bit, it does not allow me to change it Maybe because I put both 32 and 64 as the same directory? The adb.exe does not exist and so on Up to today, I have bought all the Delphi. Should I buy now? Is this a Delphi joke
  7. limelect

    D12 sdk and Android

    No SDK in the directory after installation of D12 C:\Users\Public\Documents\Embarcadero\Studio\23.0\CatalogRepository\AndroidSDK-2525-23.0.51961.7529 On my d10.2.3, there are a few exe files, including AVD Manager.exe C:\Users\Public\Documents\Embarcadero\Studio\19.0\CatalogRepository\AndroidSDK-2433_19.0.27659.1188 SDK base path I did choose Android during the installation Can I copy my d10 to my d12 ? or what On compiling, I get initialization of VM error D12 community edition P.S I have seen this
  8. limelect

    D12 java and Android

    @Cristian Peța Sdk and Java it is not the same problem SDK is ok, but the link to Java is false Now the error is initialization of VM after putting Java at bin directory
  9. limelect

    D12 java and Android

    Cannot deploy the application All Java should be in c:\bin, why? Ok, I put Java in bin Now it need c:\bin\ client\jvm.dll So I made this directory with jvm.dll I have jvm.dll in the server directory Lastly, I have this error during the initialization of VM Obviously, D12 did not initialize its Java during installation Any help?
  10. limelect

    Some open sourced tools for Delphi developers

    Nice answer, but they are given for you to use and advertise So be aware that the source in that case is not OPEN SOURCE.
  11. limelect

    Some open sourced tools for Delphi developers

    You are using some paid components. Is it advertising or free source?
  12. limelect

    Listview data problem

    @Remy Lebeau To begin, thank you for helping a lot I cannot put here what I did, as it has too many places fixed. those 2 lines PListItemData(lvClip.Selected.Data).ThePicture.Free; Dispose(PListItemData(lvClip.Selected.Data)); were added in many places, and more my software closes nicely without any leaks So thanks again
  13. limelect

    Listview data problem

    Ok, I did a very simple test One line of text and delete then if ListItemData.ThePicture.empty then exit ;<<<<<<<<<<<< error cannot check ListItemData.ThePicture.Free; If I check with nil ListItemData.ThePicture is NOT nil I will keep checking to find what's going on.
  14. limelect

    Listview data problem

    Surely I followed your suggestion, which works OnDeletion is not done only if I want to delete Only if I delete a line in the list, unless I do not understand you This is why I have a form onclose. From the source New(ListItemData); try ListItemData.theString := s.Text; if ContainsText(s.Text, 'Picture') then begin ListItemData.ThePicture := nil; BlobField := FDQuery2.FieldByName('Image') as TBlobField; Stream := FDQuery2.CreateBlobStream(BlobField, bmRead); ListItemData.ThePicture := TBitmap.Create; ListItemData.ThePicture.LoadFromStream(Stream); FreeAndNil(Stream); end; ClipItem.Data := ListItemData; except ListItemData.ThePicture.Free; Dispose(ListItemData); end; lvClip.Items.EndUpdate; FDQuery2.Next; end; s.Free; That's it, nothing else Ok, let me explain the application. Sometimes you have text only, and at times text and Bitmap on the same line So I check for bitmap nill, but something fishy is that beside the above
  15. limelect

    Listview data problem

    @Remy Lebeau Obviously, it works, but using this, free gives an error D10,2,3 procedure TMyForm.lvClipDeletion(Sender: TObject; Item: TListItem); var ListItemData: PListItemData; begin ListItemData := PListItemData(Item.Data); if ListItemData <> nill then begin ListItemData.ThePicture.Free; <<<<<<<<<<<<<<<< error Dispose(ListItemData); end; end; On vcl.control procedure TWinControl.MainWndProc(var Message: TMessage); begin try try WindowProc(Message); finally FreeDeviceContexts; FreeMemoryContexts; end; except Application.HandleException(Self); <<<<<<<<<<<< error end; end; I wanted to add this to the program close procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); var i: Integer; ListItemData: PListItemData; begin for i := 0 to lvClip.Items.Count - 1 do // if lvClip.Items.Data <> nil then begin ListItemData := PListItemData(lvClip.Items.Data); if ListItemData <> nil then begin // PListItemData(lvClip.Items.Data).ThePicture.Free; ListItemData.ThePicture.Free; <<<<<<<<<< Error and // Dispose(ListItemData); <<<<<<<<<<< I cannot use this as it gives many more errors end; end; end; Any Idea ?
×