Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ShowModal Must Close Twice? [Delphi, KOL, Windows]

azsd © (2003-11-22 04:43:00)
For a example,in Form1,Use Form2.Form.showModal,You must close twice form2,the first you click closeicon,It's only "switch back" under form1.
Drag form2 out of form1's rect you will see the strange windows clearly.
I guess is it the Showmodal methods,it's attach the form2 to WndProcShowModal,When this process end,the second close cause PostMessage( CurForm.Handle, WM_ACTIVATE, WA_ACTIVE, 0 );
I am try to fix it,I change some code but it seems no effect.

azsd (2003-11-28 15:12:00) [1]
Hi speller,but I think my mail server are list in the world anti spam list.thanks all the same.
To Gandalf,Thx
By the way,Is your VMHSyntaxEdit and VMHpasHighlighter only works for D5/7?
Or I haven't correct methods to use them?
My Delphi version is 6.0,after I install the two compents I put both them in form and has selected SyntaxEdit's Highter,
But after I use syntaxedt.lines.loadfromfile,only black rects displayed.
I try change highlighter's xxxxAttri colors,It take no effect.
it's only cause when I try the serial packages which pre-MH,I havent use it in actual codes.

Gandalf (2003-11-28 14:36:00) [2]
I've send mail to him with bug report.

SPeller (2003-11-28 13:21:00) [3]
I can. Send your message to me: speller_at_mail.primorye.ru and I will try to send message to him.

azsd (2003-11-28 12:44:00) [4]
Hi,Gandalf
his Mailbox Always spam my Mail Server's IP.
<dimaxx@atnet.ru>: host relay0.atnet.ru[80.82.180.7] said: 550 5.0.0 Spam from 202.129.120.51 25 Apr 2003 00:53:17+0400

I use some differents mail server to send my bugreport mail,it has same result:reject as spam by his server.
Could you,or someone help me to contact him?

Azsd ae 2003 11 28

Gandalf (2003-11-26 21:56:00) [5]
Glad to help ;)

If you know address contact with author if don't wrote to Kladov. All bug's must be fixed - KOL not VCL.

azsd (2003-11-26 16:23:00) [6]
Thanks Grandalf,
Yes,I Commented these Codes in KOLRarBar.pas 's NewTRarInfoBar Function:
// AOwner.Add2AutoFree(P); // AOwner.Add2AutoFree(C);
then add
P.Free; C.Free;
in TRarBar.Destroy,Surely I Move the
var P: PRarBar;
C: PControl;
to The end to Type,Then my same code with Form.free works Fine.
The RarProgressBar has same small bug.
I don't know whether my change is make other unknown bugs,
and I don't know Is it necessary to contact author to report the bugs.
Azsd Ae 2003 11 26

Gandalf (2003-11-26 12:32:00) [7]
2Azsd - "Free" never set variable to nil, you must do it by your hands.

About InfoBarZip.zip - as I can see - all OK in you code - but RarInfoBar - incorrect. It's uses old style for Visula component writing and make so errors. I am too lazy but why it used AutoFree in New - it's MCK feature and some wild manipulations with WND_PROC may be incorrect.

SPeller (2003-11-22 20:45:00) [8]

> 1. мне сейчас некогда переводить на асм, а без асма вставлять
> это смысла нет.

Да я и не тороплюсь особо. Можно и подождать.

> 2. проще добавить апплет

Лишний код. И не выход это - глюки модальности исправлять дополнительными объектами, которые ещё и побочные эффекты проявляют по отношению к программе.

> 3. затрагивает основы, и значит нуждается в долгой и тщательной
> проверке, на что у меня сейчас нет ни времени ни сил. И
> кто там ратовал за то, чтобы ifdef'ами повыбрасывать лишнее
> из ядра? По-моему, как раз то случай.

Я и не против чтобы кому не надо не включали нормальную поддержку модальности. Надо - включил, не надо - ни кто не заставляет включать.

Vladimir Kladov (2003-11-22 20:21:00) [9]
Я давно отослал Владимиру решение проблем с модальными формами практически вне
зависимости от наличия Аплета. Только, всё никак не получается у них попасть в КОЛ.

и это все потому, что
1. мне сейчас некогда переводить на асм, а без асма вставлять это смысла нет.
2. проще добавить апплет
3. затрагивает основы, и значит нуждается в долгой и тщательной проверке, на что у меня сейчас нет ни времени ни сил. И кто там ратовал за то, чтобы ifdef'ами повыбрасывать лишнее из ядра? По-моему, как раз то случай. Проще и не вставлять.

Сорри.

SPeller (2003-11-22 16:23:00) [10]

> 2Speller
> Can you... т.е. можешь и мне послать у меня тоже FAQ есть
> :)

:))

Я уже чёрт пойми сколько сижу на версии 1.77, потому что у меня есть изменения, которые всё никак не могут попасть в текущий КОЛ. Сижу вот и жду, когда же они появятся, чтобы обновиться.

azsd (2003-11-22 15:34:00) [11]
To Gandalt,It is my code:
procedure TForm1.Button1Click(Sender: PObj); begin NewForm2(Form2,Applet); Form2.Form.ShowModal; Form2.Form.Free; end;
I Create The form and show it.
There only a RarinfoBar on Form2.
I try to Change the code to
procedure TForm1.Button1Click(Sender: PObj); begin if Form2=nil then NewForm2(Form2,Applet); Form2.Form.ShowModal; Form2.Form.Free; end;
Then The strange things a hollow Form2 popuped,
It is means the Form2 is not completely Destoryed?
the Object.pas get from hxxp://bonanzas.rinet.ru 's KOLObject.zip
Or I uploaded one project zip on my website,
http://dangban.nyist.net/pub/gamerip/InfoBarDemo.zip

Azsd Ae 2003 11 12

Gandalf (2003-11-22 15:03:00) [12]
2azsd
Are you create the form after free, and before again show?

2Speller
Can you... т.е. можешь и мне послать у меня тоже FAQ есть :)

azsd (2003-11-22 14:49:00) [13]
What a shamed am I....
Yes,I add the Form2.form.Free after Form2.form.ShowModal.
The Form2Close correctly,
mm,But When the second time I showmodal the form2,
Delphi Popup Message "'Read of address at '00165394'"
and Debug Cursor Stop at Object.pas's this line:
[code]
InstFreeList := Instance^.Next;
[/code]
I have a RarInfoBar placed on Form2.
I get the control from http://bonanzas.rinet.ru/e_visual.htm
If I Comment the source line Form2.form.Free,my application can still work,surly I know There are more and more Form2 to be created.
Or put RarProgressBar in a modalform can cause that problem samely.
Is the problem caused by Rarinfobar or Object.pas is little old for Newer KOL?
I click the English Forum link in http://bonanzas.rinet.ru,But that Forum's latest post are 20002 years....
a RTFM(is it means Really True Foolish Men)...
:_(

SPeller (2003-11-22 11:29:00) [14]
Я давно отослал Владимиру решение проблем с модальными формами практически вне зависимости от наличия Аплета. Только, всё никак не получается у них попасть в КОЛ.

Gandalf (2003-11-22 11:24:00) [15]
RTFM! Read FAQ about Modal Forms!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »