lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Lista Forumurilor Pe Tematici
lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat. 		Nou pe simpatie:
Mayyy 23 ani
Femeie
23 ani
Brasov
cauta Barbat
23 - 60 ani
lisp2arx / Delphi , InnoPascal / Delphi32 - RichText inside TNoteBook isInside Tforms  
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 14 ani
Postari: 517
Why  two  layouts display same  source  of last RichEdit?

Code:

with Notebook1 do
 begin
  if (ctab='.gif') then ctab:=ExtractFileName(OpenDialog1Gif.FileName)
                   else ctab:=ExtractFileName(ctab);
  inc(kQvLayoutpin);
  Case LAYOUTREGENCTL of
    kVpRegenType_nam:;
    kVpRegenType_lwr:ctab:=lowercase(cTab);
    kVpRegenType_upr:ctab:=Uppercase(ctab);
     else
   End;
  ctab:=concat(ctab,'.',kTwoDigitLookup[kQvLayoutpin]);
  Pages.Add(cTab);
  IMAGEHLT.Parent := AScrollBox;
  IMAGEHLT.OnMouseMove := Notebook1MouseMove;
  AScrollBox.Parent := Pages.Objects[PageIndex] as TPage;
  IndexCtl := Pages.IndexOf('Default');
  if IndexCtl<>-1 then Pages.Delete(IndexCtl);
  TabSet1.Tabs := Pages;
  TabSet1.TabIndex := Pages.Count - 1;
 end;

I use  mutiple RichEdit,always You open   and create    a  New RichEdit

Code:

WordP := TRichEdit.Create(Self);
   with WordP do
    begin
       Align:=AlClient;
       Visible := True;
       PopupMenu := PopupMenu1;
    end;
    vla_rtf_ActiveLayout(kVpRegenType_upr+10,fnam,WordP);



delphi32 richtext inside tnotebook isinside tforms why  two  layouts display same 

49.9KB

_______________________________________
pus acum 3 ani
   
Pagini: 1  

Mergi la