Patent alert! This method of drawing cursors is petended. Daft, but it is. Daft, because there are lots of other ways of doing it (like copy bitmap before cursor is put on, and replace).

I don't care which way its done, but thought I'd point it out.

Sam

OK, I updated CVS with my latest AGAIN.
Now you can open a file.

Can someone look into a way to do an XOR on a pixel color on the form.

I need to be able to do this in order to display the cursor correctly. I can't simply draw it and erase it like I'm doing now, I need to xor it with itself to erase it.

and Canvas.SetPixel. This was the way I was going to GET the pixel color, but it crashes. I was using it in editor.pp's DrawCursor and EraseCursor but I commented them out.

Pelase, someone
Shane

I see trackbar was updated to remove the scaledigits. I was updating at the same time so this may have cuased a problem, but I had to comment a line out in gtkobject.inc that contained the variable scaledigits. It was undefined.

As for the editor, you can not type stuff and it appears, you can click and the cursor shows up pretty close to where it should, and you can backspace over characters.

I added invalidaterect to gtkobject.inc and it works pretty cool, but not perfectly. I need to only redraw the TRECT portion of the screen, but I end up re-drawing everything because of a redraw in the FORMPAINT after I do a colorize. When I took the Canvas.AutoReDraw := true (which forces a redraw) it didn't appear correctly.

Not sure how to get around that yet, so I commented most of the code in the invalidaterect out. Would like to get it to work though.

Soon, you will be able to save files in the editor.....should be easy.....should....

------------------------------------------------------------ Shane Miller

Get paid to surf the net!
http://alladvantage.com/go.asp?refid=DEX-870

Home page : http://www.lakefield.net/~smiller

Auto-IP Publisher : http://www.lakefield.net/~smiller/autoip

Advanced Clipboard : http://www.lakefield.net/~smiller/advclipboard

Lazarus : http://www.miraclec.com/lazarus
----------------------------------------------------------

This exact thing was just discussed on the GTK mailing list (working with single pixels and pixel colors) over the last couple days. I deleted all the messages because I didn't need them. I will look back through the archives over the last 2 or 3 days and see if I can find that thread for you.

Curtis

I added my last changes of TCustomImageList to CVS. Most implementations except stream/resource handling and all methods concerning TIcon, should be finished. For these I'll wait till TBitmap or TIcon is implemented.

Marc

OK, Some othe controls to do ?

Patent alert! This method of drawing cursors is petended. Daft, but it

is.

I heard that too. I guess IBM owns the patent, but may not defend it yet. Not sure what to do now.

XOR'ing it is best because it won't overwrite the text that's there then.

------------------------------------------------------------ Shane Miller

Get paid to surf the net!
http://alladvantage.com/go.asp?refid=DEX-870

Home page : http://www.lakefield.net/~smiller

Auto-IP Publisher : http://www.lakefield.net/~smiller/autoip

Advanced Clipboard : http://www.lakefield.net/~smiller/advclipboard

Lazarus : http://www.miraclec.com/lazarus
----------------------------------------------------------

Hi,
I don't know who to ask this, so... can I get access to CVS to update my changes in TImageList

Marc

I needed to make a few changes to CVS.

I changed the OPenFileDialog to be called OPenDialog and the SaveFileDialog to be called SAveDialog.

I changed the example and will commit that soon too.

I also changed the editor.pp and added a "fake" InvalidateRect to TWinControl. All it currently does is calls Invalidate.

I finally got to my work and pulled my latest editor.pp. I committed it now, but it doesn't display any text when you open a file. Pressing the keys now works, but of course, nothing changes.

I will look into this of course.

Shane

Hi,
while debugging I needed TControl.Controls[], so I added it. Then I found that our TContol has a FWInControls and a FControls collection. Whats the meaning of this. (FWInControls is only referenced on Insert and Delete). Furter I saw that Self is a member of FControls. Is this correct. I thought that FControls only contained Child controls.

Marc

Ok, after putting loads of debug messages at several places, I found some interesting things, you'll hear from me later.
First the notebook. I managed to create one. It only disappears after I added one page. I'll find that tomorrow

Marc

If it in't finished 'll try second

Otherwise, look at the TNotebook. I seem to be having trouble with it. I added some code in Main.pp to display the tabbed notebook but it's not showing up.......It may be because I was trying to add the canvas to it and possible messed it up....

I'll look at this first.

Marc

Parent in TForm has only meaning if the form is an MDIChild. Setting the FormStyle of a Form to fsMDICHILD sets the Parent property to Application.MainForm, otherwise Parent is always NIL

Gertjan

Actually, there is a trick that allows you to set parent to an arbitrary form. it's documented in Charlie Calvert's book on Delphi.

Michael.

use 'cvs rdiff'. See 'cvs rdiff --help' for help.

Peter

Ah, thats what thought as well. Only the code now just split's them up. If FControls should contain all of then I'll remove the 'else'

FWinControls contains only child objects derived from TWinControl.

OK

This also determines the z-order of the controls, non windowed controls never appear before windowed controls. f.e. a TBevel can never overlap a TEdit control.

Thats clear.

> Insert and Delete). Furter I saw that Self is a member of FControls. Is > this correct. I thought that FControls only contained Child controls. It should contain only child controls.

Hmmm... I think for forms, the form is added as well. I can remember some discussion on this.
Somebody ?

Marc

Hi!

I did a little debugging on this tonight and found out the following thinks:

1. I tried to figure out the relevant changes between current gtkobject.inc (v1.55) and v1.46 but these did'nt do the trick.

2. Although not absolutely sure I still think that somewhere between v1.46 and 1.52 of gtkobject.inc some changes in that file were lost. If you made changes between those versions you should check them all out again.

3. The crash happens when the following code is processed the second time (index = 1).

<<

      procedure TNBPages.Put(Index: Integer; const S: String);
      var
      //Msg: TLMTabSetText;
        Msg: TLMNotebookEvent;
      begin

+-> TPage(fPageList[Index]).Caption := S;
| >>
|
|
| TO be more precise: The crash really happens in TControl.SetText when |
| fCaption := Value;
|
| is executed. Since Value is correct at that time, |
+---- fPageList[Index] seems to return be invalid pointer

hope this helps,

Stefan

I use this trick when building active x controls with delphi also. You cannot pop up a form unless it is modal so I just do some reparenting of forms at run time.

Cliff

And got lots of others :-)

I can't reach CVS tonight so I might be able to update it tomorrow. (And if not tomorrow... I'll be on a holliday for 3 weeks)

Basic problem was that a notebook page already had a notebook as parent. gtk does not like that.

Modifications: A few
- Removed some debug messages
+ Added some others
* changed fixed widged of TPage. Code is still broken.
+ TWinControls are also added to the Controls collection
+ Added TControl.Controls[] property

Problems:
* The way Owner and Parent are used is not correct. lcl components have owners. GTK objects have (lcl) parents.

A construction (in say MyForm.Create) like:

  TButton.Create(Self).Parent := NoteBook1.Page[0];

should create a button on page0. This is however not the case (its created on MyForm)

* The CreateComponent and AddControl methods shouldn't be used in the way it is used now. Like ik was in TPage, you get very unpredictable results. IMHO AddControl should be called after assigning/changing parent. and Create component the first moment we need a visible/touchable part.

* A control should never be part of its own controls collection. In my debugmessages I see constructions like:
[TWinControl.Remove] TBUTTON --> Remove: TBUTTON () [TWinControl.Insert] TPAGE --> Insert: TBUTTON ()
and it looks like the parent of TBUTTON was TBUTTON itself. Something similar: A form has no parent and while looping through the controls collection, you'll find the form as Controls[0]

Marc

Hi, while debugging I needed TControl.Controls[], so I added it. Then I found that our TContol has a FWInControls and a FControls collection. Whats the meaning of this. (FWInControls is only referenced on

FControls contains all child objects which have been derived from TControl, including all TWinControl objects. FWinControls contains only child objects derived from TWinControl.

This also determines the z-order of the controls, non windowed controls never
appear before windowed controls. f.e. a TBevel can never overlap a TEdit control.

Insert and Delete). Furter I saw that Self is a member of FControls. Is this correct. I thought that FControls only contained Child controls.

It should contain only child controls.

Gertjan.

What about TScrollBar. That's not finished is it? I know Cliff was going to do it but got stuck on other things....I don't think it ever got finished.

Otherwise, look at the TNotebook. I seem to be having trouble with it. I added some code in Main.pp to display the tabbed notebook but it's not showing up.......It may be because I was trying to add the canvas to it and possible messed it up....

------------------------------------------------------------ Shane Miller

Get paid to surf the net!
http://alladvantage.com/go.asp?refid=DEX-870

Home page : http://www.lakefield.net/~smiller

Auto-IP Publisher : http://www.lakefield.net/~smiller/autoip

Advanced Clipboard : http://www.lakefield.net/~smiller/advclipboard

Lazarus : http://www.miraclec.com/lazarus
----------------------------------------------------------

I am also still trying to figure out what happened to the Notebook component and the example. Both were working and now neither one works. It is probably something very simple that I am just overlooking. But it sure is giving me trouble finding it.

I think I will try checking out the LCL from about 2 versions back when I know it was working. Then I can compare customnotebook.inc and also gtkobject.inc from both versions and see if I can figure out what is different. But if someone else finds the problem first, that will also be wonderful. Then I can get back to the clipboard component :-)

Curtis

----------------------------------
Curtis White
Curtis White
http://www.teleport.com/~osiriz/
----------------------------------

At 01:54 30-09-99 +0200, I wrote:

Added chenges to CVS

Marc