Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127624 Tue, 05 Nov 2002 14:56:36 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127624 vot 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127623 Tue, 05 Nov 2002 14:37:19 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127623 2 melkii: Дык, они же одинаковые: (1) и (2) :-/
2 vot: Может, тогда отдельную сложную тему открыть: "Ищем глюки в TMT"? :)]]> 7in 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127622 Tue, 05 Nov 2002 07:53:57 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127622 Давайте просто собирать их и публиковать,
чтоб другие не наступали на те же грабли.]]> vot 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127621 Mon, 04 Nov 2002 20:53:58 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127621 Тихо шифером шурша, крыша едет... шебурша... ??? ??? ??? ???]]> melkii 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127620 Mon, 04 Nov 2002 20:50:59 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127620 Запускаю на компиляцию и выполнение код(через clipboard) vot'a (1)- работает...
код Jin X (2)(опять же через clipboard) - не работает...
Копмилю так : (1) и (2) висят одновременно - ни один не работает...
                    (1) висит - работает...
                    (2) висит - не работает...
Ща проверю еще раз....]]> melkii 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127619 Mon, 04 Nov 2002 20:45:57 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127619
     boolean

    BOOL

И все будет работать, как часы!]]> melkii 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127618 Mon, 04 Nov 2002 20:29:01 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127618 Цитата vot, 04.11.02, 12:04:41
Решился таки проверить у себя:

это код
    var mybool: boolean;
    begin
      mybool := true;
      case mybool of
      true  : begin writeln('True') end;
      false : begin writeln('False')  end;
      end;
    end.

работает нормально в версиях 3.90 и 4.0

Что именно у вас не работает???
Вот именно это у меня (под 3.90) не работает....
Компилируется, запускается, но ничего не выводит на экран!]]> 7in 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127617 Mon, 04 Nov 2002 17:21:36 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127617 Получайте!!!!
Замените в самом первом исходнике в объекте TButton строчку
    <br>pressed : boolean;

на
    <br>pressed : bool;

и все заработает!!!
странно.... что это за тип такой - bool ????? ???]]> melkii 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127616 Mon, 04 Nov 2002 16:19:33 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127616 Не работает ни в в3.90, ни в 4.0 :(

Переслал разработчикам...]]> vot 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127615 Mon, 04 Nov 2002 16:07:12 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127615
    var mybool: boolean;
    Procedure NotBool;
    begin
    mybool:= not mybool;
    end;
     
    procedure _CaseTest(bool:boolean);
    begin
    case bool of
      true  : begin writeln('True') end;
      false : begin writeln('False')  end;
      end;
    end;
     
    begin
      mybool := true;
      _CaseTest(mybool); {true}
      NotBool;
      _CaseTest(mybool); {false}
      {Ан РАБОТАЕТ!!!!!!!!}
    end.

Так, что CASE неверно работает с глобальными переменными - это факт!]]> melkii 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127614 Mon, 04 Nov 2002 15:46:45 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127614
     
    var mybool: boolean;
    Procedure NotBool;
    begin
    mybool:= not mybool;
    end;
     
    procedure _CaseTest;
    begin
    case mybool of
      true  : begin writeln('True') end;
      false : begin writeln('False')  end;
      end;
    end;
     
    begin
      mybool := true;
      _CaseTest; {true}
      NotBool;
      _CaseTest; {false}
      {Ан не работает!!!!!!!!}
    end.
]]> melkii 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127613 Mon, 04 Nov 2002 14:36:14 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127613
     
     procedure TButton.Draw;
     var strlength : word;
     begin
     case pressed of
     false : begin
              strlength:=length(_label)*8;
              setcolor(_c1);
              rectangle(x,y,x+strlength+16+1,y+8+16+1);
              setcolor(_c2);
              rectangle(x+1,y+1,x+strlength+16,y+8+16);
              setfillstyle(1,_c3);
              bar(x+2,y+2,x+strlength+16-1,y+8+16-1);
              setcolor(_tc);
              OutTextXY(x+8,y+8,_label);
              if selected then
              begin
               setcolor(_sc);
               rectangle(x+5,y+5,x+strlength+16-5,y+8+16-5);
              end;
              setcolor(0);
             end;
     true  : begin
              strlength:=length(_label)*8;
              setcolor(_cp1);
              rectangle(x,y,x+strlength+16+1,y+8+16+1);
              setcolor(_cp2);
              rectangle(x+1,y+1,x+strlength+16,y+8+16);
              setfillstyle(1,_cp3);
              bar(x+2,y+2,x+strlength+16-1,y+8+16-1);
              setcolor(_tcp);
              OutTextXY(x+8,y+8,_label);
              if selected then
              begin
               setcolor(_scp);
               rectangle(x+5,y+5,x+strlength+16-5,y+8+16-5);
              end;
              setcolor(0);
             end;
     end;
     end;

А я заменил
     
    case pressed of
     false : begin
              ...
               end;
     true  : begin
              end;
     end;

На
     
    if pressed then begin
                         ...
                         end
                  else begin
                         end;

И все заработало!]]> melkii 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127612 Mon, 04 Nov 2002 09:04:41 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127612
это код
    var mybool: boolean;<br>begin<br>  mybool := true;<br>  case mybool of<br>  true  : begin writeln('True') end;<br>  false : begin writeln('False')  end;<br>  end;<br>end.

работает нормально в версиях 3.90 и 4.0

Что именно у вас не работает???]]> vot 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127611 Sun, 03 Nov 2002 16:21:14 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127611 vot 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127610 Sun, 03 Nov 2002 15:50:21 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127610 И вправду ведь case не работает!!!!!!!!]]> 7in 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127609 Sun, 03 Nov 2002 15:44:50 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127609
конструкция
    <br>case <bool var> of <br>true  : begin end;<br>false : begin end;<br>end;<br>

не работает вообще!
Заменил на
    <br>if <bool var> then begin<br>                         end<br>                  else  begin<br>                         end;<br>

И все заработало!!!]]> melkii 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127608 Sun, 03 Nov 2002 13:49:34 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127608 Ты просто перемудрил с цветами.
(да, и не запускай из-под IDE !)

Вот твой пример в упрощенном и работающем виде:
    program noname;
    uses
      graph,crt;
    type
      TWinObj = object
        selected : boolean;
        X,Y : Integer;
      public
        Constructor  Init(iX,iY:integer);
        procedure    Draw; virtual;
      end;
     
      TButton = object(TWinObj)
        pressed       : boolean;
       {selected      : boolean;}
        Constructor Init(iX,iY:integer);
        procedure Press_UnP;
        procedure Select_UnS;
        procedure Draw; virtual;
        procedure setcolors(c1,c2,c3,cp1,cp2,cp3,tc:word);
        procedure RetDefColors;
        procedure ButtonClear;
      private
        _c1,_cp1     : word;
        _c2,_cp2     : word;
        _c3,_cp3     : word;
        _sc,_scp     : word;
      public
        _label       : string;
        _tc,_tcp     : word;
      end;
     
     
    Constructor TWinObj.Init(iX,iY:integer);
    begin
      OutTextxy(0,20,'TWinObj.Init');
      x:=iX;
      y:=iY;
    end;
     
    Procedure   TWinObj.Draw;
    begin
    end;
     
    Constructor TButton.Init(iX,iY:integer);
    begin
      Inherited Init(iX,iY);
      OutTextxy(0,40,'TButton.Init');
    end;
     
    procedure TButton.Draw;
    var
      strlength : word;
    begin
      OutTextXY(0,60,'TButton.Draw');
      ButtonClear;
      OutTextXY(x+8,y+8,_label);
    end;
     
    Procedure TButton.SetColors(c1,c2,c3,cp1,cp2,cp3,tc:word);
    begin
      _c1:=c1;   _c2:=c2;   _c3:=c3;
      _cp1:=cp1; _cp2:=cp2; _cp3:=cp3;
      _tc:=tc;
    end;
     
    Procedure TButton.RetDefColors;
    begin
      _c1:=clred;        _cp1:=clblue;
      _c2:=clWhite;      _cp2:=_c2;
      _c3:=clDarkGray;   _cp3:=clLightGreen;
      _tc:=clLightGreen; _tcp:=clLightBlue;
      _sc:=clWhite;      _scp:=clWhite;
    end;
     
    procedure TButton.Press_UnP;
    begin
      pressed:= not pressed;
      _label:='TButton.Pree_UnP';
      Draw;
    end;
     
    procedure TButton.Select_UnS;
    begin
      selected:= not selected;
      _label:='TButton.Select_UnS';
      Draw;
    end;
     
    Procedure TButton.ButtonClear;
    var
      oldcolor:dword;
    begin
      oldcolor:=GetColor;
      setcolor(0);
      setfillstyle(1,0);
      bar(x,y,x+length(_label)*8+16+1,y+8+16+1);
      setcolor(oldcolor);
    end;
     
    var
      button1   : TButton;
      strlength : byte;
     
    begin
      SetSVGAMode(800, 600, 15, LfbOrBanked);
      OutTextxy(0,0,'GraphMode');
      button1.Init((GetMaxX div 2)-100,(GetMaxY div 2)-100);
      button1._label:='TButton.Init';
      button1.draw;
      readln;
     
      button1.Select_UnS;
      readln;
     
      button1.Press_UnP;
      readln;
     
      button1.Select_UnS;
      readln;
     
      button1.ButtonClear;
      readln;
     
      closeGraph;
    end.
]]> vot 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127607 Sun, 03 Nov 2002 12:07:20 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127607
    uses graph;
    type TWinObj = object
          selected : boolean;
          X,Y : Integer;
          public
           Constructor  Init(iX,iY:integer);
           procedure    Draw; virtual;
             end;
     
         TButton = object(TWinObj)
          pressed       : boolean;
          Constructor Init(iX,iY:integer);
          procedure Press_UnP;
          procedure Select_UnS;
          procedure Draw; virtual;
          procedure setcolors(c1,c2,c3,cp1,cp2,cp3,tc:word);
          procedure RetDefColors;
          procedure ButtonClear;
          private
           _c1,_cp1     : word;
           _c2,_cp2     : word;
           _c3,_cp3     : word;
           _sc,_scp     : word;
          public
           _label       : string;
           _tc,_tcp     : word;
          end;
     
    var button1   : TButton;
        strlength : byte;
      Constructor TWinObj.Init(iX,iY:integer);
      begin
       x:=iX;
       y:=iY;
      end;
     
      Procedure   TWinObj.Draw;  begin end;
     
      Constructor TButton.Init(iX,iY:integer);
     begin
     Inherited Init(iX,iY);
     pressed:=false;
     selected:= false;
     RetDefColors;
     end;
     
     procedure TButton.Draw;
     var strlength : word;
     begin
     case pressed of
     false : begin
              strlength:=length(_label)*8;
              setcolor(_c1);
              rectangle(x,y,x+strlength+16+1,y+8+16+1);
              setcolor(_c2);
              rectangle(x+1,y+1,x+strlength+16,y+8+16);
              setfillstyle(1,_c3);
              bar(x+2,y+2,x+strlength+16-1,y+8+16-1);
              setcolor(_tc);
              OutTextXY(x+8,y+8,_label);
              if selected then
              begin
               setcolor(_sc);
               rectangle(x+5,y+5,x+strlength+16-5,y+8+16-5);
              end;
              setcolor(0);
             end;
     true  : begin
              strlength:=length(_label)*8;
              setcolor(_cp1);
              rectangle(x,y,x+strlength+16+1,y+8+16+1);
              setcolor(_cp2);
              rectangle(x+1,y+1,x+strlength+16,y+8+16);
              setfillstyle(1,_cp3);
              bar(x+2,y+2,x+strlength+16-1,y+8+16-1);
              setcolor(_tcp);
              OutTextXY(x+8,y+8,_label);
              if selected then
              begin
               setcolor(_scp);
               rectangle(x+5,y+5,x+strlength+16-5,y+8+16-5);
              end;
              setcolor(0);
             end;
     end;
     end;
     
     Procedure TButton.SetColors(c1,c2,c3,cp1,cp2,cp3,tc:word);
     begin
     _c1:=c1;   _c2:=c2;   _c3:=c3;
     _cp1:=cp1; _cp2:=cp2; _cp3:=cp3;
     _tc:=tc;
     end;
     
     Procedure TButton.RetDefColors;
     begin
     _c1:=clred;        _cp1:=clblue;
     _c2:=clWhite;      _cp2:=_c2;
     _c3:=clDarkGray;   _cp3:=clLightGreen;
     _tc:=clLightGreen; _tcp:=clLightBlue;
     _sc:=clWhite;      _scp:=clWhite;
     
     end;
     
     procedure TButton.Press_UnP;
     begin
     pressed:= not pressed;
     Draw;
     end;
     
     procedure TButton.Select_UnS;
     begin
     selected:= not selected;
     Draw;
     end;
     
     Procedure TButton.ButtonClear;
     begin
     setcolor(0);
     setfillstyle(1,0);
     bar(x,y,x+length(_label)*8+16+1,y+8+16+1);
     end;
     
    begin
    SetGraphMode(DetectSVGAMode(1024, 768, 8, LfbOrBanked));
    button1.Init((GetMaxX div 2)-100,(GetMaxY div 2)-100);
    button1._label:='testing creating button';
    button1.draw;
    readln;
    button1.Select_UnS;
    readln;
    button1.Press_UnP;
    readln;
    button1.Select_UnS;
    readln;
    button1.ButtonClear;
    readln;
    end.
]]> melkii 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127606 Sun, 03 Nov 2002 12:03:32 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127606 vot 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127605 Sun, 03 Nov 2002 11:53:22 +0000 objects под TMT https://forum.sources.ru/index.php?showtopic=15264&view=findpost&p=127605 А вот с объектами под TMT - не ясно!
Испоьзовал Constructor, virtual, наследование - не хочет рисовать
Прорисовка-то как раз и virtual.
Без object рисует, а с ними нет! Что такое?
TMT 390d]]> melkii 32-битные компиляторы