Jump to content

limelect

Members
  • Content Count

    781
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by limelect

  1. limelect

    Right To Left Components

    @Serge_G Thank you for your help The link in your answer did the TRICK. I had many weeks of search for the answer
  2. limelect

    Right To Left Components

    @John Kouraklis It works. I used this link http://arabteam2000-forum.com/applications/core/interface/file/attachment.php?id=159065 1. with Delphi 10.2.3 i used the berlin version 2. My test project is fmx+memo 3. I added THE 3 pas files 4. i added FMX.Canvas.GPU.pas from the Delphi fmx source 5. I added path of Delphi source fmx to my project 6. compiled 7. apk to my samsung s6 phone 8. DID NOT CHANGE NOTHING IN THE SOURCE !!!! 9. AND IT WORKS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 10-. in my case it is HEBREW !! P.S 4 not needed as you have 5
  3. @mawg I did try a wile ago open street map it was too slaw. I did not like the result. I think the only good way is google map. There are a few VCL components . just Google. https://sourceforge.net/projects/gmlibrary/
  4. limelect

    Arab in iOS

    @Francisco see and https://serge-girard.developpez.com/tutoriels/Delphi/Livebindings/Grilles/#LVII-C-1
  5. limelect

    Right To Left Components

    @John Kouraklis For now RTL is working in Android Studio where i developed a few applications. Delphi FMX Android is good , now a days , only for English.
  6. limelect

    Right To Left Components

    @Serge_G This is for WIN project or IOS (not tested) BUT not for Android. No solution yet. No TStringColumn in Android.
  7. limelect

    Right To Left Components

    @John Kouraklis What did you do with the solution ? alcinoe has no solution. Is FMXRTL is the only solution?
  8. limelect

    IDE addin for project-wide uses clause report?

    http://pasdoc.sourceforge.net/ and it is free It has sources
  9. limelect

    Forgot IDE add-on

    which Delphi you use? I do not know CE? i have above for 7 and 10.2 it will not suit you. I cannot give sources. sorry
  10. Delphi 10.2.3 I had a problem. On my Vcl program i had ImageList with 250 bitmaps. When making the same project for Android (fmx) ImageList is not the same.To transfer all bitmaps to fmx ImageList i made this program. 1. Make a VCL project with a button. Close the project. 2. Make new>Multi-Device form. 3. place on it a button and ImageList. 4. Make sure both forms have different name. 5. Save and close. 7. Open Vcl project. 8. Add Fmx Form to the VCL project. 9. Disregard ERRORS !! 10. Add below program to fmx uses Unit2; procedure TForm1.Button1Click(Sender: TObject); var FileStream: TFileStream; MemStream: TMemoryStream; w, h, scale, iPos: Integer; btBitmap: tbitmap; si: TCustomSourceItem; d: TCustomDestinationItem; Layer: TLayer; begin for iPos := 0 to Form2.ImageList1.Count - 1 do begin btBitmap := tbitmap.create; btBitmap.PixelFormat := pf32bit; btBitmap.AlphaFormat := afIgnored; Form2.ImageList1.GetBitmap(iPos, btBitmap); MemStream := TMemoryStream.Create; btBitmap.SaveToStream(MemStream); si := ImageList1.Source.Add; si.Name := 'Source' + inttostr(iPos); scale := 1; si.MultiResBitmap.LoadItemFromStream(MemStream, scale); W := si.MultiResBitmap.Bitmaps[scale].Width; //Get width from scale H := si.MultiResBitmap.Bitmaps[scale].Height; //Get height from scale // Destination d := ImageList1.Destination.Add; Layer := d.Layers.Add; Layer.SourceRect.Rect := TRectF.Create(0, 0, W, H); // Create rect W x H Layer.Name := si.name; MemStream.Free; btBitmap.Free; end; MemStream := nil; FileStream := TFileStream.Create('MyList.DAT', fmCreate); try MemStream := TMemoryStream.Create; MemStream.WriteComponent(Form1); MemStream.Position := 0; ObjectBinaryToText(MemStream, FileStream); finally MemStream.Free; FileStream.Free; end; end; 11. On vcl add uses Unit1; procedure TForm2.Button1Click(Sender: TObject); begin Form1.ShowModal; end; 12. Execute vcl. 13. Press button. Open fmx form. 14. Press fmx button. 15. MyList.DAT file is created which is realy an fmx form with all bitmaps populated in in fmx ImageList1. 16. To end rename MyList.DAT > Unit1.fmx so you end up with Unit1.pas and unit1.fmx. 17. Close the project. 18. Open your FMX project. 19. Open UNIT1 in the project 20. Copy ImageList1 from unit1 to your project. I hop it will help some one . And happy coding.
  11. @David Heffernan This is all about
  12. @David Heffernan This is all about
  13. @David Heffernan Well i understand but in my case integer is what i use. I have 250 "bitmap flags" associated to 2 constant lists all arranged in order of bitmap against name against number. with integer it is very easy to get bitmap+name+number all at once.
  14. @David Heffernan You mite be right but in my case this is what i did. I do no see the difference (and i mite be wrong ) between resources and dfm since the program behavior will not change. What is the added value in your case ? At the time when i did the VCL project i was not thinking of FMX.
  15. limelect

    Forgot IDE add-on

    which Delphi you use?
  16. limelect

    Forgot IDE add-on

    This is my addon for inserting Glyph. Never put it on the NET. It was done over 20 years ago and go with me on every Delphi. May be it is a good idea to make money from it. Sorry.
  17. limelect

    Right To Left Components

    @John Kouraklis Sorry It was long ago. I do not know where the demo is. I think i had a BPL specific to Delphi.
  18. limelect

    Right To Left Components

    @John Kouraklis I had very bad experience with the demo it did not work.
  19. I need your attention to my program. I recently was wandering how do I find the class of a component in order to know what it is doing. After all I have more than 3000! Who remember the fine differences be twin them and even if I had only 100. The PE program did not help. So I started writing an investigating program. I came up with this program. For what is worth I put it on my Dropbox for you to download. It will be there for a while. So now can you have an idea how to solve my main curiosity? Going through all the pas files will be crazy and need to search them on the whole computer. Is this my only option ? Wile printing pas files there mite be some errors. See my HELP. My program https://www.dropbox.com/s/ns5ntzpd0kiiolg/Help.zip?dl=0
  20. limelect

    Find all your components

    @Gary Mugford Thanks You seem to work on the same idea of mine. But i took out of the BPL the pascal files used in it. That is my starting point. What i wanted to achieve is to know all the USE of the components on my pallet. I thought if a new component is relaying on a BASE class derived from EMBARCADERO (Delphi) component i mite find the added property and that way know its use. Since i have huge amount of components i do not remember most of there use and on a new project i mite miss some nice features. BUT it seem to be a huge effort . My next step is i added a search of disk for PAS files so i will have them cataloged. Will see how it will be developed. Now i will have on one side all my pas files and on the other the BPL PAS files. Since i have 3 Delphi's on my disk i will have a problem in the future. P.S as a side value while loading a BPL to my program i had some ERRORS that i was NOT AWARE of. see Pas files To HTML on my program. VERY USEFUL. AND lastly the registry section for the different Delphi which make this program only for my Delphi and similar.
  21. limelect

    registering D6

    At a time i got D7 for free with a license from Embarcadero\Borland I do not know if it still available. As for your problem delete all except the dpr and source and try to open\compile. If the dfm is as text look if it has information in it. If dfm is OK there should not be any problem opening the form unless the component are not in the IDE. Then i suggest another way. First see if the component can be installed on D2007. Usually no problem only translate to ANSI mostly. And one more possibility fetch from DFM the initialization of a component in the form move the component declaration to private and on form oncreate put the DFM initialization. Hopefully the component can be compiled without errors. All said if you got the components source !!!
  22. limelect

    Restart the same App?

    @David Heffernan sorry that not an answer when a guy needs help coding. Give him a piece of code, this is his need.
  23. limelect

    Best delphi so far?

    Since i am a Delphi developer since #1 and before I am in favor D7 and D10.2.3. Delphi is stable unless you add on some staff that make it erratic. For example closing D7 give an error that i never bothered to fix (i know which add on dose it). Some times D10.2.3 dose the same on closing. But on a days work i did not experience any problem unless the components do a problem. If one uses Delphi with nothing added no problem experience.
  24. limelect

    Passing back a string from an external program

    I used on D6 ,many years ago , mdMailSlot https://torry.net/authorsmore.php?id=152 It communicated between 4 computers (programs) maid with Delphi 6. Excellent
  25. limelect

    No TEMSProvider on my component pallet

    Delphi 10.2.3 I do not have TEMSProvider on my component pallet. Although i have the source. How to add it to component pallet ?
×