Shane Miller wrote

I am adding TToolbar to the FCL. I wanted to add it because I wanted to use it for the notebook pages on the main dialog to hold the components.

I suppose you meant LCL here :-) No GUI in FCL :-)

I would really love to, but there is too much low-level stuff that still needs to be done in the FCL and RTL of the compiler... :(

And as if that wasn't enough, my boss is giving me mountains of work also. Climbing the Everest is nothing compared to what I have to put up with =-)

Michael.

I am adding TToolbar to the FCL. I wanted to add it because I wanted to use it for the notebook pages on the main dialog to hold the components.

It's very involved (at least more than I though it was) and I am trying to get it to work perfectly the first time so it may be a while.

Marc, I am hoping that you can get the text displaying to the editor. I am going to concentrate of TToolBar, then I want to clean up the events. I think it's quite a mess right now and that we are missing quite a few of them that should be firing.

Again, anyone willing to join in and help would be greatly appreciated... Shane

Can I select a COLOR using that API? I just glanced at it but didn't see you changing color at all....

I have to create a DRAWEDGE function (easy) so I'll maybe use that....

Shane

>> 12/09/99 03:12PM >>>

Shane wrote

I am adding TToolbar to the FCL. I wanted to add it because I wanted to

use it for the notebook pages on the main dialog to hold the components.

It's very involved (at least more than I though it was) and I am trying to

get it to work perfectly the first time so it may be a while.

Shane, as an adition to earlier mail, If you want to draw things without canvas, you can do it also using the new api routines. For an example look at the of rev 1.5

http://cvs.freepascal.org/cgi-bin/cvsweb/fpc/lazarus/testform.pp?rev=1.5

They copy to mwEdit1.Handle but it should also work if you use Self.Handle

Marc

_________________________________________________________________ To unsubscribe: mail with
"unsubscribe" as the Subject
archives at http://www.miraclec.com/list_archives/lazarus

you wrote

Can I select a COLOR using that API? I just glanced at it but didn't see

you changing color at all....

Yes. You can use CreatePenIndirect for pens, CreateBrushIndirect for brushes.

I have to create a DRAWEDGE function (easy) so I'll maybe use that....

If you look at the MoveToEx and LineTo functions, you can add the api:

function TgtkObject.DrawEdge(hdc: HDC; var Rect: TRect; edge: UINT;
grfFlags: Cardinal): Boolean;
begin
  WriteLN(Format('[TgtkObject.DrawEdge] DC:0x%x, X:%d, Y:%d', [DC, X, Y]));
  Result := IsValidDC(DC);
  if Result
  then with PDeviceContext(DC)^ do
  begin
    if GC = nil
    then begin
      WriteLn('[TgtkObject.DrawEdge] Uninitialized GC');
      Result := False;
    end
    else begin
      // your routines to select the proper lines.....
      // your call to select a color here
      gdk_draw_line(Drawable, GC, a.X, a.Y, b.X, b.Y);
      // your call to select a color here
      gdk_draw_line(Drawable, GC, a.X, b.Y, b.X, a.Y);
      //Etc ....
      Result := True;
    end;
  end;
end;

Or something like that.

Marc

Shane wrote

I am adding TToolbar to the FCL. I wanted to add it because I wanted to

use it for the notebook pages on the main dialog to hold the components.

It's very involved (at least more than I though it was) and I am trying to

get it to work perfectly the first time so it may be a while.

Shane, as an adition to earlier mail, If you want to draw things without canvas, you can do it also using the new api routines. For an example look at the of rev 1.5

http://cvs.freepascal.org/cgi-bin/cvsweb/fpc/lazarus/testform.pp?rev=1.5

They copy to mwEdit1.Handle but it should also work if you use Self.Handle

Marc