wincrt ?

Nqkoi ima li source na wincrt za BP7 ili Delphi 1 ?

Мисля, че имам сорсовете на почти всички библиотеки в Delphi 1. Остави адрес и ако намеря този, който искаш, ще ти го пусна до седмица.

Mixy

davai tuka :
redemption@dir.bg

... ама дискетата даде bad sectors и не пожела да се декомпресира коректно. Единственото което мога да направя за теб е да ти пусна интерфейсната част на модула по-долу:

{****************************************}

{ Delphi Runtime Library }
{ Windows CRT Interface Unit }

{ Copyright (c) 1991,95 Borland International }

{****************************************}

unit WinCrt;

{$S-}

interface

uses SysUtils, WinTypes, WinProcs, Messages;

const
WindowOrg: TPoint = { CRT window origin }
(X: cw_UseDefault; Y: cw_UseDefault);
WindowSize: TPoint = { CRT window size }
(X: cw_UseDefault; Y: cw_UseDefault);
ScreenSize: TPoint = (X: 80; Y: 25); { Screen buffer dimensions }
Cursor: TPoint = (X: 0; Y: 0); { Cursor location }
Origin: TPoint = (X: 0; Y: 0); { Client area origin }
InactiveTitle: PChar = '(Inactive %s)'; { Inactive window title }
AutoTracking: Boolean = True; { Track cursor on Write? }
CheckEOF: Boolean = False; { Allow Ctrl-Z for EOF? }
CheckBreak: Boolean = True; { Allow Ctrl-C for break? }
CrtWindow: HWnd = 0; { CRT window handle }

var
WindowTitle: array[0..79] of Char; { CRT window title }

procedure InitWinCrt;
procedure DoneWinCrt;

procedure WriteBuf(Buffer: PChar; Count: Word);
procedure WriteChar(Ch: Char);

function KeyPressed: Boolean;
function ReadKey: Char;
function ReadBuf(Buffer: PChar; Count: Word): Word;

procedure GotoXY(X, Y: Integer);
function WhereX: Integer;
function WhereY: Integer;
procedure ClrScr;
procedure ClrEol;

procedure CursorTo(X, Y: Integer);
procedure ScrollTo(X, Y: Integer);
procedure TrackCursor;

procedure AssignCrt(var F: Text);

implementation ...

Още веднъж, много съжалявам, че така те подведох :-(

Mixy