Statusbar bei Editor ( NUM | CAPS)

elundril · Verfasst: Di 22.08.06 17:30

ich hätte eine Frage:

Bei den meisten Texteditoren sieht man ob caps lock / numlock usw aktiviert ist oder nicht. wie kann ich das bei meinem Editor einbauen? und wie kann ich die felder grau machen?

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Regan · Verfasst: Di 22.08.06 18:34

also zum graumachen: nimm einfach ein panel. dort färbst du dann den text in der entsprechenden farbe.

Lannes · Verfasst: Di 22.08.06 19:15

Hallo,

die Funktion gibt einen entsprechenden String zurück, den Du dann weiterverwenden kannst.
Am besten in OnKeyUp und OnCreate der Form einbauen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function CheckCapsNum: String;
const
  CAPS : array [Boolean] of String = ('', 'CAPS');
  NUM  : array [Boolean] of String = ('', 'NUM');
begin
  Result := NUM[GetKeyState(VK_NUMLOCK) <> 0];
  if Result <> '' then
    Result := Result+' | ';
  Result := Result+CAPS[GetKeyState(VK_CAPITAL) <> 0];
end;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

elundril · Verfasst: Do 24.08.06 14:08

danke!!
und wie find ich raus ob "insert" oder "overwrite" beim RE aktiviert ist?

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme