Ответ на »сообщение 1840« (Иван Горячев)
___________________________
Модуль выгрузить нельзя, так как ЧЯ зависает после его запуска. Сам ЧЯ выключаю вызовом окна завершения программ. И после этого он больше не запускается. При кликании на его ехе файл или ничего не происходит, или выскакивает окошко с надписью - ошибка кодового файла. Со вновь установленным ЧЯ происходит та же история. Сам модуль должен был считывать небольшую информацию с файла.

Ответ на »сообщение 1839« (Ирина)
___________________________

Скорее всего модуль нужно выгрузить из памяти (Dev\Unload). Это если сам ЧЯ не перезапускали. Хотя не совсем понятно, что за "окно ошибки кодового файла". А что сам модуль делал?

Возникла странная проблема. После компиляции и запуска нового модуля ЧЯ завис. Прервав аварийно его работу, следующий раз включить его больше не смогла, так как выдавалось окно ошибки кодового файла. В чем может быть причина?

Можно ли в ЧЯ использовать свои курсоры? Как?

Спасибо. Помогло.

Ответ на »сообщение 1835« (Ирина)
___________________________

Как в ЧЯ отловить нажатие правой клавиши мышки?

CONST
MouseLeftButton = 16; MouseMiddleButton = 17; MouseRightButton = 18;

PROCEDURE (self: GraphicsView) OnMouseDown (IN msg: Controllers.TrackMsg), NEW, EXTENSIBLE;
BEGIN
self.md_x := msg.x; self.md_y := msg.y; self.md_beg := self.beg; self.md_scale := self.scale;
END OnMouseDown;

PROCEDURE (self: GraphicsView) OnMouseMove (IN msg: Controllers.PollCursorMsg), NEW, EXTENSIBLE;
BEGIN
IF MouseLeftButton IN msg.modifiers THEN
self.beg := self.md_beg - (msg.x - self.md_x) / self.scale;
IF self.beg < 0.0 THEN self.beg := 0.0 END;
END;
IF MouseRightButton IN msg.modifiers THEN
self.scale := self.md_scale * Math.Exp( 0.01*self.invdot*(msg.x - self.md_x));
IF self.scale < 1.0 THEN self.scale := 1.0 END;
END;
IF (MouseLeftButton IN msg.modifiers) OR (MouseRightButton IN msg.modifiers) THEN Views.Update(self, FALSE) END
END OnMouseMove;

PROCEDURE (self: GraphicsView) HandleCtrlMsg* (f: Views.Frame; VAR msg: Views.CtrlMessage; VAR focus: Views.View), EXTENSIBLE;
BEGIN
WITH
| msg: Controllers.TrackMsg DO self.OnMouseDown(msg)
| msg: Controllers.PollCursorMsg DO self.OnMouseMove(msg)
ELSE END
END HandleCtrlMsg;

Как в ЧЯ отловить нажатие правой клавиши мышки?

Так что скажут специалист по поводу Zonnon?

http://www.o3-software.de/en/Philosophie.html
As an expression of our convictions of the stability of BlackBox and Component Pascal we give every customer our so-called »O? Champagne-Guarantee«.  Thus, every customer who sends us a reproducable »general protection fault« caused by an O? software product based on Blackbox will receive a free bottle of champagne.