SB
Дмитрий
ну от indy есть куда отказываться, тот же synapse, а как от jedi отказаться ? Ну то есть что взамен, какая альтернатива ?
Из незаменимого в джедае только запись стектрейса в лог.
Size: a a a
2020 December 02
AS
У меня профессиональная деформация, косячить в программах для МВД опасно для здоровья. Это Беларусь, детка.
это не профессиональная, лично твоя деформация ))))
AS
По тем же причинам я отказался от Indy и Jedi - там вроде все хорошо, но как-то мутно, в одной версии работает, в другой не работает. Причем, хрен поймешь какая версия стабильная.
дык, система контроля версий помогает использовать только ту версию, которая уже известно, что она стабильная
GB
дык, система контроля версий помогает использовать только ту версию, которая уже известно, что она стабильная
за неимением банального менеджера зависимостей, разве что
AS
за неимением банального менеджера зависимостей, разве что
надо ж как-то выкручиваться..
A
Всем привет, как называется Button у корого видно нажат он или нет?
SB
TToggleBox или любой button, у которого назначен Action
VA
Alex
Всем привет, как называется Button у корого видно нажат он или нет?
TSpeedButton
A
Ок спасибо
z
на днях местные авторитеты подрывали мне пукан по поводу синхронного запроса координат мышки)) я еще раз хорошенько подумал и решил таки не послушать мнение большинства. Данный способ буду активно использовать и перенесу не него уже реализованные команды по возможности.
Вот пример законченной команды рисования линии:
Вот пример законченной команды рисования линии:
function DrawLine_com(operands:TCommandOperands):TCommandResult;ИМХО такой подход гораздо проще и лаконичней любых конечных автоматов и команд-классов.
var
pline:PGDBObjLine;
p1,p2:gdbvertex;
begin
{запрос первой координаты}
if commandmanager.get3dpoint(rscmSpecifyFirstPoint,p1) then
while true do
{запрос следующей координаты
с рисованием резиновой линии от базовой точки p1}
if commandmanager.Get3DPointWithLineFromBase(rscmSpecifyNextPoint,p1,p2) then begin
//создаем и инициализируем примитив
pline:=AllocEnt(GDBLineID);
pline^.init(nil,nil,LnWtByLayer,p1,p2);
//присваиваем текущие цвет, толщину, и т.д. от настроек чертежа
zcSetEntPropFromCurrentDrawingProp(pline);
//добавляем в чертеж
zcAddEntToCurrentDrawingWithUndo(pline);
//перерисовываем
zcRedrawCurrentDrawing;
p1:=p2;
end else
system.break;
result:=cmd_ok;
end;
VA
на днях местные авторитеты подрывали мне пукан по поводу синхронного запроса координат мышки)) я еще раз хорошенько подумал и решил таки не послушать мнение большинства. Данный способ буду активно использовать и перенесу не него уже реализованные команды по возможности.
Вот пример законченной команды рисования линии:
Вот пример законченной команды рисования линии:
function DrawLine_com(operands:TCommandOperands):TCommandResult;ИМХО такой подход гораздо проще и лаконичней любых конечных автоматов и команд-классов.
var
pline:PGDBObjLine;
p1,p2:gdbvertex;
begin
{запрос первой координаты}
if commandmanager.get3dpoint(rscmSpecifyFirstPoint,p1) then
while true do
{запрос следующей координаты
с рисованием резиновой линии от базовой точки p1}
if commandmanager.Get3DPointWithLineFromBase(rscmSpecifyNextPoint,p1,p2) then begin
//создаем и инициализируем примитив
pline:=AllocEnt(GDBLineID);
pline^.init(nil,nil,LnWtByLayer,p1,p2);
//присваиваем текущие цвет, толщину, и т.д. от настроек чертежа
zcSetEntPropFromCurrentDrawingProp(pline);
//добавляем в чертеж
zcAddEntToCurrentDrawingWithUndo(pline);
//перерисовываем
zcRedrawCurrentDrawing;
p1:=p2;
end else
system.break;
result:=cmd_ok;
end;
да на здоровье 🙂
AS
на днях местные авторитеты подрывали мне пукан по поводу синхронного запроса координат мышки)) я еще раз хорошенько подумал и решил таки не послушать мнение большинства. Данный способ буду активно использовать и перенесу не него уже реализованные команды по возможности.
Вот пример законченной команды рисования линии:
Вот пример законченной команды рисования линии:
function DrawLine_com(operands:TCommandOperands):TCommandResult;ИМХО такой подход гораздо проще и лаконичней любых конечных автоматов и команд-классов.
var
pline:PGDBObjLine;
p1,p2:gdbvertex;
begin
{запрос первой координаты}
if commandmanager.get3dpoint(rscmSpecifyFirstPoint,p1) then
while true do
{запрос следующей координаты
с рисованием резиновой линии от базовой точки p1}
if commandmanager.Get3DPointWithLineFromBase(rscmSpecifyNextPoint,p1,p2) then begin
//создаем и инициализируем примитив
pline:=AllocEnt(GDBLineID);
pline^.init(nil,nil,LnWtByLayer,p1,p2);
//присваиваем текущие цвет, толщину, и т.д. от настроек чертежа
zcSetEntPropFromCurrentDrawingProp(pline);
//добавляем в чертеж
zcAddEntToCurrentDrawingWithUndo(pline);
//перерисовываем
zcRedrawCurrentDrawing;
p1:=p2;
end else
system.break;
result:=cmd_ok;
end;
жалко нет ката (cut-а) тут
попросил бы спрятать такой код:
у меня бомбит от такого оформления )) и стиля именования
попросил бы спрятать такой код:
у меня бомбит от такого оформления )) и стиля именования
AS
на днях местные авторитеты подрывали мне пукан по поводу синхронного запроса координат мышки)) я еще раз хорошенько подумал и решил таки не послушать мнение большинства. Данный способ буду активно использовать и перенесу не него уже реализованные команды по возможности.
Вот пример законченной команды рисования линии:
Вот пример законченной команды рисования линии:
function DrawLine_com(operands:TCommandOperands):TCommandResult;ИМХО такой подход гораздо проще и лаконичней любых конечных автоматов и команд-классов.
var
pline:PGDBObjLine;
p1,p2:gdbvertex;
begin
{запрос первой координаты}
if commandmanager.get3dpoint(rscmSpecifyFirstPoint,p1) then
while true do
{запрос следующей координаты
с рисованием резиновой линии от базовой точки p1}
if commandmanager.Get3DPointWithLineFromBase(rscmSpecifyNextPoint,p1,p2) then begin
//создаем и инициализируем примитив
pline:=AllocEnt(GDBLineID);
pline^.init(nil,nil,LnWtByLayer,p1,p2);
//присваиваем текущие цвет, толщину, и т.д. от настроек чертежа
zcSetEntPropFromCurrentDrawingProp(pline);
//добавляем в чертеж
zcAddEntToCurrentDrawingWithUndo(pline);
//перерисовываем
zcRedrawCurrentDrawing;
p1:=p2;
end else
system.break;
result:=cmd_ok;
end;
но ты "не программист", да...
z
жалко нет ката (cut-а) тут
попросил бы спрятать такой код:
у меня бомбит от такого оформления )) и стиля именования
попросил бы спрятать такой код:
у меня бомбит от такого оформления )) и стиля именования
на нет и спроса нет))
GB
на днях местные авторитеты подрывали мне пукан по поводу синхронного запроса координат мышки)) я еще раз хорошенько подумал и решил таки не послушать мнение большинства. Данный способ буду активно использовать и перенесу не него уже реализованные команды по возможности.
Вот пример законченной команды рисования линии:
Вот пример законченной команды рисования линии:
function DrawLine_com(operands:TCommandOperands):TCommandResult;ИМХО такой подход гораздо проще и лаконичней любых конечных автоматов и команд-классов.
var
pline:PGDBObjLine;
p1,p2:gdbvertex;
begin
{запрос первой координаты}
if commandmanager.get3dpoint(rscmSpecifyFirstPoint,p1) then
while true do
{запрос следующей координаты
с рисованием резиновой линии от базовой точки p1}
if commandmanager.Get3DPointWithLineFromBase(rscmSpecifyNextPoint,p1,p2) then begin
//создаем и инициализируем примитив
pline:=AllocEnt(GDBLineID);
pline^.init(nil,nil,LnWtByLayer,p1,p2);
//присваиваем текущие цвет, толщину, и т.д. от настроек чертежа
zcSetEntPropFromCurrentDrawingProp(pline);
//добавляем в чертеж
zcAddEntToCurrentDrawingWithUndo(pline);
//перерисовываем
zcRedrawCurrentDrawing;
p1:=p2;
end else
system.break;
result:=cmd_ok;
end;
все хорошо, но while true там зачем?
AS
на нет и спроса нет))
*говорит админ и стирает неугодное сообщение... )))))
z
рисуем следующую линию с конца старой, пока пользователь каким либо образом не прервет команду. за один вызов команды можно обрисоваться
z
*говорит админ и стирает неугодное сообщение... )))))
попахивает 37 годом))
ДT
в 37 стирали людей, а не сообщения
АВ
жалко нет ката (cut-а) тут
попросил бы спрятать такой код:
у меня бомбит от такого оформления )) и стиля именования
попросил бы спрятать такой код:
у меня бомбит от такого оформления )) и стиля именования
mseide + msegui чуть более, чем полностью состоит из такого😂