Przełączanie koloru tła


jacnightingale

Rekomendowane odpowiedzi

37 minut temu, gruzin napisał:

(defun c:kolortla ()
(if (= (getvar "bkgcolor") 0)
(setvar "bkgcolor" 7)
(setvar "bkgcolor" 0)
);if
(princ)
);defun kolortla

taka funkcja zmienia z czarnego na białe i odwrotnie

zgrabniej może być tak:

(setvar "BKGCOLOR" (abs (- 7 (getvar "BKGCOLOR"))))

 

Odnośnik do komentarza
Udostępnij na innych stronach

13 godzin temu, Martin_S napisał:

Ja sie dołączę..... zamiast czarnego używam koloru RBG 30,40,48 jak to by było naprzemiennie z białym?

Jeśli zadziała mój kod z linku który podałem powyżej to właśnie tak. Jego działanie polega na zamianie kolorów dwóch elementów: tła ekranu graficznego i krzyża nitek, bowiem przez domniemanie przyjmuje się że są ustawione kontrastowo. Zatem jeśli tło masz RGB 30,40,48 a krzyż biały, polecenie BKG zamieni ten stan rzeczy: tło stanie się białym a kursor RGB 30,40,48. Oczywiście dotyczy to każdej pary kolorów, ustawionych jako tło i krzyż nitek.

Odnośnik do komentarza
Udostępnij na innych stronach

Dołącz do dyskusji

Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Usuń formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.

Ładowanie