function TScreen.IsColor: Boolean; begin IsColor:=(LastMode <> 7); end; procedure TScreen.Clear; begin FillChar(Mem[FCardAdr:0],SizeOf(TPage),#0); end; Constructor TScreen.Init; begin If IsColor Then FCardAdr:=$B800 Else FCardAdr:=$B000; Clear; .. .. .. end;
33+ years experience, Netle, DocHuman, SAP, BPM, EFatura.*, EDefter.*, EBilet, EArşiv, E-VeryThing.*, Cloud.*, It.Architecture.*, It.Consulting .*, Inposia, RappGames