Jump to content

limelect

Members
 View Profile  See their activity

  • Content Count

    924

  • Joined

  • Last visited

  • Days Won

    1

Posts posted by limelect

  1. Posted · Edited by limelect

    I have added 

      if Message.NotifyCode = (EN_VSCROLL {or EN_HSCROLL}) then
        SyncLink;
    if Message.NotifyCode =  EN_HSCROLL then
        SyncLink;
    OR did not work but still does not work

    I guess we need to catch the line character  position too

    TLinkMemo.SyncLink has to deal with line change and character position

  3. Posted

    @Anders Melander

    9 hours ago, Anders Melander said:

    It should be a fairly easy to determine the source of the problem if you run your application in the debugger. If you don't know how to do that then it's about time you learn.

    Why are you not polite? and besides the guy says he works for years

    Sorry it bothers me

  5. Posted · Edited by limelect

    Well sorry to say that my opinion is different. I have been with Delphi since #1 and before that (even with assembler)

    I still actively work with coding all day and I do not see myself getting code from a machine (computer)

    I love my work and enjoy coding which gives me a lot of satisfaction

    when I achieve my goal.

    Brean quizzing is the ultimate

     

  10. Posted · Edited by limelect

    It seems you don't read carefully

    still missing cbAppDataFmx

    Well I do not presume to be the debugger

     

    OK it seems you added the file later

    But now you use newer Delphi and mine is 10.2.3

    so good luck.

    There are out there even Delphi 5

    Stop guys using NEW  (above 10) as not everybody

    has the luxury of buying every year a new Delphi.

    P.S I have been with Delphi since #1

     

    • Haha 2

  21. Posted

    This is what I came up to now and I do not get the inside text

     

    function GetActivePageUrlFromChrome(Handle: HWnd; Param: LParam): Bool; stdcall;
    var
      List: TStrings;
      hWndChrome, hWndChromeChild: HWND;
      Buffer: array[0..255] of Char;
    begin
      List := TStrings(Param);

      hWndChrome := FindWindowEx(0, 0, 'Chrome_WidgetWin_1', 0);
      if hWndChrome <> 0 then
      begin
       hWndChromeChild := FindWindowEx(hWndChrome, 0, 'Chrome_RenderWidGetHostHWND', 0);
        if hWndChromeChild <> 0 then
        begin
          SendMessage(hWndChromeChild, WM_GETTEXT, Length(Buffer), integer(@Buffer));
          List.Add(Buffer);
        end;
      end;
      Result := True;
    end;
     

     

  23. Posted

    I want your help

    Chrome (google) stopped finding a search amount of 100

    As for that, I would like to make a small application  that adds &num=100

    to the search link. (I checked and it works).

    I would like some sources for

    1. find the active search link on my Chrome

    2. most importantly, write it back to the link after adding the above.

    3. I do not care for the others as I work only with Chrome

    Any idea?help?

×