home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2003 July / PCpro_2003_07.ISO / vollvers / edhtml / EdHTMLv5.0.exe / Main / Przyklad3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-05-14  |  680 b   |  39 lines
  1. {        ..::EdHTML::..      }
  2. {     System Plug-In v1.0    }
  3. { Autor: Karol Wierzcholowski}
  4.  
  5.  
  6. // Przyklad: Operujemy na edytorze
  7.  
  8. unit Edytorek;
  9.  
  10. interface
  11.  
  12. uses Windows, Messages, Forms,Classes;
  13.  
  14. implementation
  15.  
  16. function main: string;
  17. var
  18.   Ed : TSynEdit;
  19. begin
  20.        //zmiany w oknie edytora pierwszego dokumentu
  21.        Ed:=_FindComponent('OknoEdytor1');
  22.        
  23.        //dodanie nowej linii
  24.        Ed.Lines.Add('Nowa linia');
  25.        
  26.        {
  27.          Zastapienie zaznaczonego tekstu, albo dodanie nowego
  28.          Ed.SelText:='EdHTML';
  29.        }
  30.  
  31.  
  32.        Ed.CaretY:=10;   //kursor Y
  33.        Ed.CaretX:=10;   //kursor X
  34.        
  35.  
  36. end;
  37.  
  38. end.
  39.