Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2003-09

Patch for win32

5 messages · 3 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Mattias Gaertner
to pascalive: Here's a patch that: - fixes Checked property of (TCheckBox/TRadioButton) - fixes an…
Show quoted text 9 lines
Here's a patch that: - fixes Checked property of (TCheckBox/TRadioButton) - fixes an Invalid Type Cast error (THintWindow -> TForm) - changes THintWindow border to none - removes unused and buggy code : csMainForm -> It looks that is not used in LCL

Thanks. Applied.

Show quoted text 6 lines
About THintWindow, Shouldn't it be descendant of CustomControl? Currently it inherits a lot of not useful not necessary properties/ functions of TCustomForm (potential bugs)

Right. This is only for historical reasons when the lcl was very limited. Before we can change it, we have to check all "is TCustomForm" statements. Some functions need to know, if a control is a top level window. Because you can't check this with "Parent=nil" many functions use "Control is TCustomForm". I think, the easiest way is to add a "IsTopLevelControl" function to TWinControl.

Mattias

Reply by email

Tony Maro
to pascalive: Here's a patch that: - fixes Checked property of (TCheckBox/TRadioButton) - fixes an…

Well, I dunno if everyone was getting bounce notices from my account while I had my server turned off, but here's what I've done.

At the peak of the storm my server was receiving 4000 emails per minute from about 30 different IP addresses, mostly located in China, Korea, Taiwan, Brazil and Germany.

I have now blocked every class A address used by the Asian Pacific network from communicating with my server, in addition to 2 class A addresses in Germany and one in Brazil. I don't think it will affect people sending mail to this list, but some of you may not be able to send me e-mail directly anymore. It's tough-love, but since the ISP's had no intention of assisting with the problem (in fact every IP had no DNS associated with it,) it was my last resort short of disabling my e-mail entirely.

-Tony

Reply by email

pascalive

Here's a patch that:
- fixes Checked property of
(TCheckBox/TRadioButton)
- fixes an Invalid Type Cast error
(THintWindow -> TForm)
- changes THintWindow border to none
- removes unused and buggy code :
csMainForm -> It looks that is not
used in LCL

About THintWindow,
Shouldn't it be descendant of
CustomControl?
Currently it inherits a lot of not
useful not necessary properties/
functions of TCustomForm (potential bugs)

Thanks

karl

__________________________________________________________________________ Acabe com aquelas janelinhas que pulam na sua tela. AntiPop-up UOL - � gr�tis!
http://antipopup.uol.com.br/

-------------- next part --------------
A non-text attachment was scrubbed...
Name: bin00066.bin
Type: application/octet-stream
Size: 1220 bytes
Desc: "hint.zip"
Url : http://localhost/pipermail/lazarus/attachments/20030906/7e461134/bin00066.bin

Reply by email

pascalive

Mattias wrote

Show quoted text 6 lines
Right. This is only for historical reasons when the lcl was very limited. Before we can change it, we have to check all "is TCustomForm" statements. Some functions need to know, if a control is a top level window. Because you can't check this with "Parent=nil" many functions use "Control is TCustomForm". I think, the easiest way is to add a "IsTopLevelControl" function to TWinControl.

I think it should be an interface
function, so we'll not need to
typecast to TWinControl. Furthermore
the implementation will be intf denpendent

Karl Brandt

__________________________________________________________________________ Acabe com aquelas janelinhas que pulam na sua tela. AntiPop-up UOL - � gr�tis!
http://antipopup.uol.com.br/

Reply by email

Mattias Gaertner
to pascalive
Show quoted text 12 lines
Mattias wrote > Right. This is only for historical reasons when the lcl was very > limited. Before we can change it, we have to check all "is TCustomForm" > statements. Some functions need to know, if a control is a top level > window. Because you can't check this with "Parent=nil" many functions > use "Control is TCustomForm". I think, the easiest way is to add a > "IsTopLevelControl" function to TWinControl. I think it should be an interface function, so we'll not need to typecast to TWinControl. Furthermore the implementation will be intf denpendent

Maybe we are talking about different things.
I guess, you mean a function, that tells, if a handle is a floating window. But I ment, we need a function to tell the intf, if a control needs a floating window or a child window.
It is not up to intf to decide wether a control needs a floating window or not.
For example: A form asks the intf to create a handle. Currently the intf will always create a floating window. But eventually we will have docking and then the handle can be a child window. What type to create is stored in the LCL.

Mattias

Reply by email