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: Profil papiota55
| Femeie 23 ani Bucuresti cauta Barbat 24 - 54 ani |
|
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); |
49.9KB
_______________________________________
|
|
pus acum 3 ani |
|