Có một điều khá đáng tiếc là trong Pascal không hề có câu lệnh nào giúp đổi màu nền toàn bộ màn hình. Câu lệnh setBKcolor(); thực chất chỉ đổi được màu nền chữ. Tuy nhiên, chúng ta vẫn có thể đổi được màu nền thông qua một cách gián tiếp: vẽ một hình chữ nhật che toàn bộ màn hình, rồi tô màu cho hình chữ nhật đó. Nghe thì có vẻ phức tạp nhưng khi gõ lệnh thì bạn sẽ thấy nó rất dễ. Dưới đây là hướng dẫn cụ thể.
B1: Thiết lập chế độ đồ họa:
Mọi chương trình Pascal liên quan đến đồ họa thì đều phải khai báo thư viện Graph. Sau đó, trong thân chương trình các bạn gõ câu lệnh:
initGraph(detect(),0,”);
Câu lệnh này sẽ thiết lập chế độ đồ họa, cho phép các bạn thao tác với đồ họa trong Pascal.
B2: Thiết lập bút tô và vẽ hình chữ nhật:
Câu lệnh dưới đây sẽ tạo cho các bạn nền màn hình màu xanh da trời:
setFillStyle(1,11);
bar(0,0,getMaxX(),getMaxY());
Câu lệnh setFillStyle() đóng vai trò là thủ tục tạo bút tô với 2 tham số:
+ Tham số thứ nhất: kiểu tô (để là 1 thì sẽ tô kín cả hình).
+ Tham số thứ hai: màu tô. Bảng dưới đây cho biết các số ứng với từng màu.
Tổng kết lại, chúng ta có toàn bộ chương trình như sau:
program bluesky;
uses crt, graph;
begin
initGraph(detect(),0,”);
setFillStyle(1,11);
bar(0,0,getMaxX(),getMaxY());
readln;
closeGraph();
end.
Kết quả của chương trình:
Sắp tới, mình sẽ cố gắng đăng thêm nhiều bài viết về Pascal hơn. Hi vọng các bạn tiếp tục ủng hộ blog mình.
Hẹn gặp lại!
Lanus Coder 