Class TForm1 (unit uRIchOle1)

Inherits from

TForm

sharemem,

Constructors



Functions

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

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;