تعدد وحدات الادخال في consol

[abdelmalek]

السلام عليكم ورحمة الله وبركاته

كيف يمكنني إنشاء مربعات الادخال على البرامج التي تعمل تحت نظام الدوس ؟

مع العلم اني استعمل Lazarus في بناء التطبيقات التي تعمل تحتى نظام الدوس .

لحضو الصورة التالية :

كود :

http://hh7.net/Jul5/hh7.net_13116016631.jpg

اود ان انشئ اكتر من مربع اخضر فكيف لي هدا ؟

مع العلم ان كود سورس البرنامج الضاهر في الصورة هو :

PHP كود :

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes,Crt
  { you can add units after this };

{$R *.res}

begin
  Window(4,4,10,5);
  TextBackground(Green);
  ClrScr;
  Readln;
end. 


بارك الله فيكم وجزاكم خيرا

في امان الله ,,