Jump to content

limelect

Members
  • Content Count

    894
  • Joined

  • Last visited

  • Days Won

    1

limelect last won the day on April 15 2022

limelect had the most liked content!

Community Reputation

51 Excellent

Recent Profile Visitors

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

  1. https://www.habarisoft.com/scroogexhtml/9.2.1/ScroogeXHTMLDemo.zip does not work wants resources
  2. limelect

    Has the toolbar problem been fixed?

    @Uwe Raabe Since I have been with Delphi since #1, History proved that there are a few stable versions. In my D10.2.3, GetIt does not work, but that does not impair work, for example And I am not alone on this matter
  3. limelect

    Has the toolbar problem been fixed?

    Sorry, I do not want to move to the newer Delphi after seeing all those problems I know Embaecadero hase to make money, but my stable Delphi is more important to me.
  4. limelect

    Realy ?

    Are we in the wrong business? https://www.tiobe.com/tiobe-index/ https://www.tiobe.com/tiobe-index/python/ https://www.tiobe.com/tiobe-index/delphi-object-pascal/
  5. limelect

    Realy ?

    https://readwrite.com/the-nsa-list-of-memory-safe-programming-languages-has-been-updated/ The US government says it would be better for them if you ceased using C or C++ when programming tools In no particular order, the NSA suggests these memory-safe programming languages Go Rust C# Swift Java Ruby Python Delphi/Object Pascal <<<<<<<<<<< waaaa Ada
  6. limelect

    My D10.2.3

    This time I have a solvable one. It took me a whole day to figure it out, and I had no solution. It all started when my Delphi stopped working. It loads and then closes itself with errors. Very often rtl.bpl What I did. All took a whole day. First, I thought it was the main bin. So I brought it from my backup. Every time I had to start Delphi or start my computer. It did not help Then I thought of sources. Got the backup, but it did not help. Every time it closed, I had to use the task manager too. As the almost last resort, I have an Expert directory. I renamed it did not help. Then I renamed the BPL directory to BPL! It did help with success. Now what? I moved all the BPL directory to the temp dir and returned half of it to BPL. The way I found the last BPL, I used C4DWizard.bpl It has the last projects used great, And now to what's going on. This BPL worked for many days !!!!! It seems that the developer did not encounter such a problem. Well, I just wanted to give you a day of a professional. My thought is how much I rely on Delphi to work. It is my life even after 30 years.
  7. New one // Console.SetWindowSize(200,60); Console.SetWindowSize(150,48); Now Ok, but stack does nothing What is supposed to do? turned endlessly while true do Sleep(200);
  8. Same as above D10.2.3 window 7
  9. limelect

    Creating an app to play Youtube videos

    Can you show what you did for embedding? With a few lines of code, if possible
  10. limelect

    Richedit

    @dwrbudr This is the demo of TRichView with mixed Hebrew and English but the PDF is PDF24 But as I wanted the PDF to be built within I used AdvRichEditor maybe I will consider it too P.S. I suspect one can take PDF basic of AdvRichEditor and use it for TRichView
  11. limelect

    Richedit

    @peterbelow I had to fix the same problem for PDF ALSO ONLY FOR HEBREW The only problem on the same line ONLY the same language function TAdvPDFGraphicsLibOutputWriter.ConvertStringToHex(AValue: UnicodeString): String; var I: integer; v: Integer; idx: integer; begin Result := ''; {$IFDEF DELPHI_LLVM} for I := 0 to Length(AValue) - 1 do {$ENDIF} {$IFNDEF DELPHI_LLVM} for I := 1 to Length(AValue) do {$ENDIF} begin v := Ord(AValue); if (v >= 32) then begin if not FontCharArrayContainsValue(v) then FontCharArrayAddValue(v); idx := FontCharArray.IndexOf(v); if idx > -1 then //shlomo Result := Result + AddHex4(FontCharWidths[idx].g);<< original Result := AddHex4(FontCharWidths[idx].g)+Result ;change for Hebrew end; end; end;
  12. limelect

    Richedit

    @peterbelow I hope I fixed it on this procedure TRTFEngine.AddInternal(S: String; KWCode: Integer); for i := 1 to length(S) do begin ch := CharInStr(S,i); {$IFNDEF LCLLIB} if ord(ch) > 127 then {$ENDIF} {$IFDEF LCLLIB} if ch > #127 then {$ENDIF} //shlomo enc := enc + '\u' + IntToStr(ord(ch))+ 'G' <<<<< the original enc := '\u' + IntToStr(ord(ch))+ 'G'+enc <<< I changed the order else enc := enc + ch; end; But this is good ONLY for HEBREW obviously other languages are different problems. The saving was the problem
  13. limelect

    Richedit

    @PeterBelow I am deep in understanding the reverse of text in TAdvRichEditorBase.GetContentAsRTF(UseSelection: boolean): string; P.s the text comes OK to this point
  14. limelect

    Richedit

    Ok some research this is rtf string {\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil Segoe UI;}}{\colortbl \red0\green0\blue0;}\viewkind4\uc1\f0\cf0\f0\fs20 \u1513G\u1500G\u1502G\u1492G\par abcd\par} On the screen my name is OK but in the rtf saving is backward Underneath there is abcd 2 lines of text 1513 is my first Unicode letter of my name. On the screen, it is the fourth charter What is going on? and finally, if I write English Hebrew English text it still revers the Hebrew {\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil Segoe UI;}}{\colortbl \red0\green0\blue0;}\viewkind4\uc1\f0\cf0\f0\fs20 abcd \u1513G\u1500G\u1502G\u1492G cdef\par}
×