Hi, some changes

From myself:
Fixed focussing problem.
LM-FOCUS was bound to the wrong signal
Added GetKeyState api func.
Now LCL knows if shift/trl/alt is pressed (might be handy for keyboard selections ;-)

Did some cleanup.
Moved some general gtk functions to gtkproc.inc
Removed obsolete code

From Hans (HJO)
A new list.

Marc

Sorry about the global.inc file missing. I hate when others do that and here I go doing it. I won't be able to do it until Monday. I appologize. I should have done a checkout on it and made sure I had committed everything but I was beat.

I will do it first thing Monday.
---------------------------------------
Shane Miller
Take a look at other product/projects of mine below!

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

Get paid to surf the net by clicking here too!!!
http://epipo.com/sine.asp?dex870

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
some changes:

Added SetSysColors
Since we now have GetSysColor, you must be able to set them

Fixed TEdit text bug (thanks to hans-joachim ott ) On creation the wrong caption was read

Finished GetKeyState
Added support for extended and toggle keys
Made a differens between left and right shift/control/alt

BTW does anyone know the GDK values for the windows keys ??

Added changes from Peter Dyson
- a new GetSysColor
- some improvements on ExTextOut

Known problems:
On the new editor the backcolor turnst into black. For some reason the clWindow color isn't read.

Marc

did you change the last line in function ColorToRGB(Color: TColor): Longint;
from
Result := Color and $FFFFFF;
to
Result := Result and $FFFFFF;

This would cause the problem you are seeing, $80000005 And $FFFFFF = 5 which is just about black and not white as $80000005 is by default

Peter

+ From: Peter Dyson

+ did you change the last line in function
+ ColorToRGB(Color: TColor): Longint;
+ from
+ Result := Color and $FFFFFF;
+ to
+ Result := Result and $FFFFFF;
Yes.
  if Color < 0
  then Result := GetSysColor(Color and $000000FF)
  else Result := Color;
  Result := Result and $FFFFFF;

marc

----- Original Message -----
From: Marc Weustink

<snip>

hmmm... I'll update later on and do some diffs to see if I changed anything else.
It works ok here, I'll also try to get the win32 sorted in the mwedit.

Peter

Hi,

some changes:

+ Added LM_Paint on expose
GTK doesn't emit a draw event upon show, so our non window controls didn't get painted

+ Added forced creation of gdkwindow if needed
GetDC fails if the GTKWidget is created and the
GDKWindow isn't. Is is now realized through gdk_realize... Sideeffect is that the list isn't resized correctly. I'll investigate that (and maybe rollback the change)

~ Modified DrawFrameControl
Changed nested if to case statement.
Changed drawing (why draw top-left and bottom-right separately)

+ Added BF_ADJUST support on DrawEdge
This one was missing (as Shane commented)

- Commented out LM_IMAGECHANGED in TgtkObject.IntSendMessage3 (It did not compile)

Marc

Marc Weustink wrote

- Commented out LM_IMAGECHANGED in TgtkObject.IntSendMessage3 (It did not compile)

It does now, so I removed the comments

Marc

I have updated CVS with my initial Speedbutton code.

If you compile and run Lazarus you need to click on the Project RUN to set the two speedbutton's visible. I can't seem to get it to work if I set them visible in the FORM's create because it crashes after getting a bunch of errors in getdc.

Also, I need the ability to draw an image to these speedbutton's yet. Currently I don't have that ability. I would appreciate it if someone would modify TBITMAP or CANVAS to allow drawing of an image to it.

Functions I added but may not have implemented 100% are:

DrawFrameControl
BeginPaint
EndPaint
PaintWindow (TWinControl)
Savedc
ExcludeClipRect
RestoreDC
MoveWindowOrg
IntersectClipRect
PaintControls (TWinControl)

Feel free to look at these and finish them/fix them if needed.

Shane

Hi,

latest changes:

Finished hide caret
Now the caret background is restored and the caret is only drawn if the control has focus. In the old editor this results in a caret which is initial not visible (only after the first pressed key). In the new editor, the behaviour is as expected.

Marc

Shane Miller wrote

The unit SPLASH is there. Did you get it working then? I know I committed it....

??? I checked at the CVS webinterface and it is indeed there. Somehow a cvs update lazarus didn't get it. A cvs get did the trick (didn't have to use this before).

BTW nice splash, however we might want to reduce the amount of colors it uses. All images turn reddish.

Marc

Hi, some changes

Changed splashscreen loading/colordepth
Added reduced 64 color lazarus logo, the logo is now part of the splashscreen. Changed the moment of show (it's the first thing now)

Changed Save/RestoreDC to platform dependent, since they are relative to a DC.

Marc

HI

I just committed some XPM stuff. I created a TPixmap to support this. An example is provided in examples/speedtest.pp

Marc

Fixed & Committed

Marc

:-) :-) the difference between Bounds and Rect:

Bounds(X, Y, W, H) <=> Rect(X, Y, X + W, Y + H)

(So your drawing area was way to large)

Marc

The unit SPLASH is there. Did you get it working then? I know I committed it....
---------------------------------------
Shane Miller
Take a look at other product/projects of mine below!

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

Get paid to surf the net by clicking here too!!!
http://epipo.com/sine.asp?dex870

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 have updated CVS. I added the images to the speedbuttons. There appears to be some problem with the way they are drawn though.

Even though I send the Stretchblt function the coord's 0,0,16,16 it seems to write more than that. In other words it overwrites the right button border and bottom button border. Can you look at this Marc and give me an idea why?

Thanks
Shane

>> 03/17/00 08:22AM >>>

No problem. I can't complian about it. The last 2 times it occured were my fault. :-(

Shane

>> 03/17/00 08:14AM >>>

+ From: Shane Miller

+ Pixmap.inc is missing...

Woops, it was late yesterday. It's in CVS now

Marc

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

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

Shane wrote

I have updated CVS. I added the images to the speedbuttons. There appears to be some problem with the way they are drawn though.

Seems te be popular lately ;-)

Compiling main.pp
Fatal: Can't find unit SPLASH
marc:~/fpc/lazarus$

Marc

Hello guys,

I just commited some changes to CVS :

- implemented MessageBox
- implemented Application.MessageBox

I tested it, it works, no icons, though. Someone could take a look at the proper sizing of the dialog, or I'll do that later.

I commented out Shane's old code, maybe it could be deleted.

Have fun,

Michal Bukovjan

Hi, there changed a lot. I tested it all (Linux) and for me it worked.

An overview:
* Changed structure of the cvs
After Shane started moving, all interface code is moved to lcl/interfaces/gtk

* Changed makefile.fpc
to reflect cvs changes, this should be changed to include the right platform, so we can get rid of the ifdefs in our code.

+ Applied improvements for TMEMO from Hans-Joachim Ott

+ Added some general functions to Get/Set the Main/Fixed/CoreChild widget

+ Started with graphic scalig/depth stuff.
This is way from finished, but since we started moving interface stuff I had to commit.

TODO:
Move inc files
Change makefiles so that the correct platform libs are included

Marc