Форум: "KOL";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
ВнизShowModal Must Close Twice? Найти похожие ветки
← →
azsd © (2003-11-22 04:43) [0]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.
← →
Gandalf © (2003-11-22 11:24) [1]RTFM! Read FAQ about Modal Forms!
← →
SPeller © (2003-11-22 11:29) [2]Я давно отослал Владимиру решение проблем с модальными формами практически вне зависимости от наличия Аплета. Только, всё никак не получается у них попасть в КОЛ.
← →
azsd © (2003-11-22 14:49) [3]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)...
:_(
← →
Gandalf © (2003-11-22 15:03) [4]2azsd
Are you create the form after free, and before again show?
2Speller
Can you... т.е. можешь и мне послать у меня тоже FAQ есть :)
← →
azsd © (2003-11-22 15:34) [5]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
← →
SPeller © (2003-11-22 16:23) [6]
> 2Speller
> Can you... т.е. можешь и мне послать у меня тоже FAQ есть
> :)
:))
Я уже чёрт пойми сколько сижу на версии 1.77, потому что у меня есть изменения, которые всё никак не могут попасть в текущий КОЛ. Сижу вот и жду, когда же они появятся, чтобы обновиться.
← →
Vladimir Kladov (2003-11-22 20:21) [7]Я давно отослал Владимиру решение проблем с модальными формами практически вне
зависимости от наличия Аплета. Только, всё никак не получается у них попасть в КОЛ.
и это все потому, что
1. мне сейчас некогда переводить на асм, а без асма вставлять это смысла нет.
2. проще добавить апплет
3. затрагивает основы, и значит нуждается в долгой и тщательной проверке, на что у меня сейчас нет ни времени ни сил. И кто там ратовал за то, чтобы ifdef"ами повыбрасывать лишнее из ядра? По-моему, как раз то случай. Проще и не вставлять.
Сорри.
← →
SPeller © (2003-11-22 20:45) [8]
> 1. мне сейчас некогда переводить на асм, а без асма вставлять
> это смысла нет.
Да я и не тороплюсь особо. Можно и подождать.
> 2. проще добавить апплет
Лишний код. И не выход это - глюки модальности исправлять дополнительными объектами, которые ещё и побочные эффекты проявляют по отношению к программе.
> 3. затрагивает основы, и значит нуждается в долгой и тщательной
> проверке, на что у меня сейчас нет ни времени ни сил. И
> кто там ратовал за то, чтобы ifdef"ами повыбрасывать лишнее
> из ядра? По-моему, как раз то случай.
Я и не против чтобы кому не надо не включали нормальную поддержку модальности. Надо - включил, не надо - ни кто не заставляет включать.
← →
Gandalf © (2003-11-26 12:32) [9]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.
← →
azsd © (2003-11-26 16:23) [10]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 21:56) [11]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-28 12:44) [12]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
← →
SPeller © (2003-11-28 13:21) [13]I can. Send your message to me: speller_at_mail.primorye.ru and I will try to send message to him.
← →
Gandalf © (2003-11-28 14:36) [14]I"ve send mail to him with bug report.
← →
azsd © (2003-11-28 15:12) [15]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.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.04 c