| Class TForm1 (unit uRIchOle1) |
TForm
sharemem,
| Constructors |
| Functions |
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure btAdviseChangeClick(Sender: TObject);
procedure btClearClick(Sender: TObject);
procedure btDbgCommentClick(Sender: TObject);
procedure btNewToRichClick(Sender: TObject);
procedure btnNewToRich2Click(Sender: TObject);
procedure btRIDataClick(Sender: TObject);
procedure btSetCallBackClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure cbVisibleClick(Sender: TObject);
procedure DropOnMeClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure RichEditWithOle1ResizeRequest(Sender: TObject; Rect: TRect);| Properties |
| Events |
| Variables |
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;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
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;