[===AAA===]

Добрый день всем!

Напомните, плиз, какое поле нужно использовать
для создания DCL-окна для ввода текстовых данных,
(что-то типа edit_box ), но только чтобы это был ещё
и раскрывающийся список.

Т.е. хочешь - вводи свои данные, хочешь - выбирай
из предварительной наборки.

[Кулик Алексей aka kpblc]

list_box ?

----- добавлено через 9 сек. -----
popup_list ?

[koMon]

не бывает такого

[Кулик Алексей aka kpblc]

А, точно, не бывает... Забыл уже (

[===AAA===]

В смысле - "не бывает" ?

Autodesk, если мне склероз не изменяет, декларирует,
что все стандартные окна Автокада написаны на DCL.

Команда: _DSETTINGS

Далее вкладка "Отслеживание", "Полярные углы", "Шаг углов".

Вот такое поле и нужно.

[skkkk]

Сообщение от ===AAA=== Autodesk, если мне склероз не изменяет, декларирует, что все стандартные окна Автокада написаны на DCL

Где это он такое, интересно, декларирует? Это явно не так.

[Do$]

Сообщение от ===AAA=== Autodesk, если мне склероз не изменяет, декларирует, что все стандартные окна Автокада написаны на DCL.

Возможно, когда-то давно так и было.
Сейчас это не так, конечно же.

[===AAA===]

Ну, как вариант, просто два поля edit_box и popup_list зрительно расположены рядом.

И при выборе чего-нибудь в popup_list этот выбор ставится в edit_box .

Упс! Хотел одной строкой обойтись…

Не, не получается.

Список всё равно не в виде единичной стрелочки,
а в виде широкого поля выглядит.

[Сергей812]

Offtop:

Сообщение от skkkk Где это он такое, интересно, декларирует? Это явно не так.

ну если посмотреть в википендии

Написана на AutoLISP[d], Visual Basic и C++

[Кулик Алексей aka kpblc]

===AAA===, по-моему, заставить код реагировать на ввод символа в текстовое поле dcl-диалога невозможно. Хотел бы ошибиться.

[===AAA===]

Не, идея в другом.

Сперва выбираешь из раскрывающегося списка, оно в качестве
значения по-умолчанию подставляется в текстовое поле рядом.
Хочешь - оставляешь, хочешь - заменяешь на любое своё.

Но, видимо, овчинка выделки не стоит...

[koMon]

так можно, легко

[Do$]

Если использовать DCL, то можно как-то так:

[Кулик Алексей aka kpblc]

Do$, в чем рисовал? )))

[Семёныч]

Сообщение от Сергей812 Offtop: Цитата: Сообщение от skkkk Где это он такое, интересно, декларирует? Это явно не так. ну если посмотреть в википендии Цитата: Написана на AutoLISP[d], Visual Basic и C++

Где здесь упоминание про язык DCL?

[Сергей812]

Offtop:

Сообщение от Семёныч Где здесь упоминание про язык DCL?

в AutoLisp есть другие встроенные технологии создания диалогов?)
По факту, думаю, что ядро изначально писалось на С/С++, а вот интерфейсная часть сначала неизвестно на чем.. WTL, MFC, Windows Forms, WPF появились позже первых версий акада.

[ShaggyDoc]

Сообщение от Сергей812 думаю, что ядро изначально писалось на С/С++, а вот интерфейсная часть сначала неизвестно на чем.

Известно на чем - на том же языке. Никаких "вижуальных" средств ведь не было, в теле программы надо было описывать всё - позиционирование, рамки элементов, цвета, движения мыши, обработку нажатия клавиш и вообще всё.

И даже если в названии присутствовало "Vision" никакой визуализации не было. Просто можно было использовать заранее заготовленные формы в модулях. И так во времена DOS работали на всех языках - C, C++, Pascal, Clipper, Basic. Пока не произошел переход на Windows и не появились визуальные редакторы.

Появление DCL в R12 для Автолиспа было весьма прогрессивным делом, до этого диалоговые окна приходилось делать в других системах. Но средства DCL весьма примитивны и все это безнадежно устарело.

Нет никакого смысла за них держаться.

[Семёныч]

Если уж вспомнили древние версии AutoCAD, то не мешало бы вспомнить и файлы acad.dcl и base.dcl.
Конечно, все это безнадежно устарело. Как и сам AutoCAD. IMHO.

[Сергей812]

Сообщение от ShaggyDoc позиционирование, рамки элементов, цвета, движения мыши, обработку нажатия клавиш и вообще всё.

за движение мыши драйвер мыши отвечал, наверно, все таки.. а вот взаимодействие низкоуровневое с драйвером мыши через регистры было полностью на совести программиста... Зато программист фактически полностью управлял ресурсами напрямую в MS-DOS, а сейчас в современных языках типа того же .Net его пускают резвиться в выделенной песочнице управляемого кода за счет увеличения потребляемых ресурсов - зато безопасно для других приложений.

[ShaggyDoc]

Сообщение от Сергей812 за движение мыши драйвер мыши отвечал, наверно, все таки.. а вот взаимодействие низкоуровневое с драйвером мыши через регистры было полностью на совести программиста...

Вот несколько примеров по работе с мышкой:

Код:

[Выделить все]

  procedure SaveMousePos;
  begin
    if MouseInstalled then begin
      MX := MouseWhereX;
      MY := MouseWhereY;
    end;
  end;

  procedure RestoreMousePos;
  begin
    if MouseInstalled then
      MouseGotoXY(MX, MY);
  end;

 function Sign(X : Integer) : Integer;
    {-Clamp integer to range -1..+1}
  begin
    if X < 0 then
      Sign := -1
    else if X > 0 then
      Sign := +1
    else
      Sign := 0;
  end;

  function ReadKeyMouseXY : Word;
    {-ReadKeyWord with mouse buttons mapped to <Enter> and <Esc>}
  const
    {Keys to return for various mouse directions}
    ArrowKeys : array[-1..1, -1..1] of Word =
    {DX=-1  DX=0   DX=+1}
    (($4700, $4800, $4900),  {DY = -1}
      ($4B00, $FFFF, $4D00), {DY = 0}
      ($4F00, $5000, $5100)); {DY = +1}
  var
    KW : Word;
    MW : Word;
    InitMX : Byte;
    InitMY : Byte;
    Xdel : Integer;
    Ydel : Integer;
  begin
    SetMickeyToPixelRatio(16, 32);
    InitMX := MouseWhereX;
    InitMY := MouseWhereY;
    KW := $FFFF;
    repeat
      if KeyPressed then
        KW := ReadKeyWord
      else if MousePressed then begin
        MW := MouseKeyWord;
        if MW = MouseLft then
          KW := $1C0D
        else if MW = MouseRt then
          KW := $011B;
      end else begin
        Xdel := Integer(MouseWhereX)-InitMX;
        Ydel := Integer(MouseWhereY)-InitMY;
        if Abs(Xdel) > 2*Abs(Ydel) then
          Ydel := 0
        else if Abs(Ydel) > 2*Abs(Xdel) then
          Xdel := 0;
        KW := ArrowKeys[Sign(Ydel), Sign(Xdel)];
      end;
    until KW <> $FFFF;
    ReadKeyMouseXY := KW;
    SetMickeyToPixelRatio(8, 16);
  end;

Это всего лишь мышка, а далее надо было отслеживать, например её перевод на поле вводы или еще куда.
И это надо было делать в каждой программе. В современных средах программирования ничем подобным и не надо заниматься.