Class TForm1 (unit uRIchOle1) |
Inherits from
TForm
sharemem,
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
f:=TForm1.
procedure BitBtn3Click(Sender: TObject);
TOLE NE DELA
f:=TFont.
procedure btAdviseChangeClick(Sender: TObject);
we do not need object anymore.
procedure btClearClick(Sender: TObject);
procedure btDbgCommentClick(Sender: TObject);
we do not need this anymore.
procedure btNewToRichClick(Sender: TObject);
procedure btnNewToRich2Click(Sender: TObject);
procedure btRIDataClick(Sender: TObject);
procedure btSetCallBackClick(Sender: TObject);
dobi IData z GetClipboardData oz QueryInterface(IData)
in ga podtakni TMyOle, ko te sprasuje za IData interafce
Potem bi moral delati drag and drop
Zanimivo:
Ce izberes poleg svojega objekta se kaj teksta (ali pa kar ves tekst)
pri drag and drop sploh ne klice nobene tvoje funkcije, ampak te mirno
ignorira in pri drop vstavi tekst brez svojega objekta
Ali slucajno kej gleda v registry, isce kaken factory ali kaj???
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
na koncu klici releaseObject
procedure Button3Click(Sender: TObject);
lahko karkoli? navaden tekst?
procedure Button4Click(Sender: TObject);
na koncu klici releaseObject
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
ce hocese spreminjati privatno spremenljivko
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
debug2(self,'Removing component.
procedure cbVisibleClick(Sender: TObject);
dropOnMe.
procedure DropOnMeClick(Sender: TObject);
ce je tule 0 -> default, dela OK classId:=.
procedure FormCreate(Sender: TObject);
naslednja vrstice zahteva poseben skompajlan olecnt oleContainer1.
procedure PaintBox1Paint(Sender: TObject);
RichEditWithOle1.
procedure RichEditWithOle1ResizeRequest(Sender: TObject; Rect: TRect);
circle ne dela drag and drop
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
BitBtn3 : TBitBtn;
btAdviseChange : TButton;
btClear : TButton;
btDbgComment : TButton;
btNewToRich : TButton;
btnNewToRich2 : TButton;
btRIData : TButton;
btSetCallBack : TButton;
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button5 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
Button9 : TButton;
cbVisible : TCheckBox;
DropOnMe : TButton;
edDbgComment : TEdit;
Edit1 : TEdit;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Memo1 : TMemo;
OleContainer1 : TOleContainer;
PaintBox1 : TPaintBox;
RichEdit1 : TRichEdit;
RichEdit2 : TRichEdit;
RichEditWithOle1 : TRichEditWithOle;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
f:=TForm1.Create(Application);
f.SHow;
f.Free;
procedure BitBtn3Click(Sender: TObject);
TOLE NE DELA
f:=TFont.create;
f.Handle:=RichEditWithOle1.Font.Handle;
richEdit1.Font.Assign(f);
f.Free;} // richedit1.font.handle:=RichEditWithOle1.Font.Handle; { form2.Close;
debug2(self,'zdej jo se unicim...');
form2.Destroy;
procedure btAdviseChangeClick(Sender: TObject);
we do not need object anymore. RichEdit has already called AddRef
procedure btClearClick(Sender: TObject);
procedure btDbgCommentClick(Sender: TObject);
we do not need this anymore. RichEdit already holds on it
procedure btNewToRichClick(Sender: TObject);
procedure btnNewToRich2Click(Sender: TObject);
procedure btRIDataClick(Sender: TObject);
procedure btSetCallBackClick(Sender: TObject);
dobi IData z GetClipboardData oz QueryInterface(IData)
in ga podtakni TMyOle, ko te sprasuje za IData interafce
Potem bi moral delati drag and drop
Zanimivo:
Ce izberes poleg svojega objekta se kaj teksta (ali pa kar ves tekst)
pri drag and drop sploh ne klice nobene tvoje funkcije, ampak te mirno
ignorira in pri drop vstavi tekst brez svojega objekta
Ali slucajno kej gleda v registry, isce kaken factory ali kaj???
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
na koncu klici releaseObject
procedure Button3Click(Sender: TObject);
lahko karkoli? navaden tekst?
procedure Button4Click(Sender: TObject);
na koncu klici releaseObject
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
ce hocese spreminjati privatno spremenljivko
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
debug2(self,'Removing component...');
RemoveComponent(RichEditWithOle1);
debug2(self,'Freeing....');
richEditWithOle1.Free;
richEditWithOle1:=nil;
procedure cbVisibleClick(Sender: TObject);
dropOnMe.handle
procedure DropOnMeClick(Sender: TObject);
ce je tule 0 -> default, dela OK classId:=...unused..
procedure FormCreate(Sender: TObject);
naslednja vrstice zahteva poseben skompajlan olecnt oleContainer1._CHANGEOLEOBJECT(myOle,false);
procedure PaintBox1Paint(Sender: TObject);
RichEditWithOle1.BoundsRect := Rect;
procedure RichEditWithOle1ResizeRequest(Sender: TObject; Rect: TRect);
circle ne dela drag and drop
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
BitBtn3 : TBitBtn;
btAdviseChange : TButton;
btClear : TButton;
btDbgComment : TButton;
btNewToRich : TButton;
btnNewToRich2 : TButton;
btRIData : TButton;
btSetCallBack : TButton;
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button5 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
Button9 : TButton;
cbVisible : TCheckBox;
DropOnMe : TButton;
edDbgComment : TEdit;
Edit1 : TEdit;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Memo1 : TMemo;
OleContainer1 : TOleContainer;
PaintBox1 : TPaintBox;
RichEdit1 : TRichEdit;
RichEdit2 : TRichEdit;
RichEditWithOle1 : TRichEditWithOle;