BorderIcons dynamicznie

0

Witam!
Chciałbym znienić właściwości formy tj. BorderIcons w sposób dynamiczny. Mianowicie chcę z pliku ini (ewentualnie z rejsetru) pobrać czy w BorderIcons ma być biMaximize włączone czy nie.
Próbowałem w różne sporoby ale nie mogę sobie poradzić.

Form1.BorderIcons.biMinimize := false;
Form1.BorderIcons := plikOPCJI.ReadString('border','icon','[biSystemMenu,biMinimize,biMaximize]');  <- wywala błąd konwersji TBorderIcon na string</wiki>

Pomocy!

0

A nie możesz każdej z właściwości zapisywać oddzielnie?

Form1.BorderIcons.biMinimize:=plikini.ReadString('borderIcon', 'biMinimize', 'true');
Form1.BorderIcons.biMaximize:=plikini.ReadString('borderIcon', 'biMaximize', 'true');
Form1.BorderIcons.biHelp:=plikini.ReadString('borderIcon', 'biHelp', 'true');
0

Form1.BorderIcons.biMinimize <- nie ma takiej właściwości, jest tylko Form1.BorderIcons, ale nieposiada innych opcji.

0

Heh rzeczywiście...

W takim razie będziesz musiał stworzyć zmienną typu TBorderIcons. Coś takiego :

zmienna:TBorderIcons;
zmienna:= BorderIcons;

Zajrzyj do helpa, hasło : BorderIcons

0

Zrobiłem to w ten sposób (śmiga tak, że Chack nawet nie siada):

if plikOPCJI.ReadBool('bordericon', 'biMaximize', true) = true then
BorderIcons := BorderIcons + [biMaximize];

if plikOPCJI.ReadBool('bordericon', 'biMinimize', true) = true then
BorderIcons := BorderIcons + [biMinimize];

if plikOPCJI.ReadBool('bordericon', 'biSystemMenu', true) = true then
BorderIcons := BorderIcons + [biSystemMenu];

if plikOPCJI.ReadBool('bordericon', 'biHelp', true) = true then
BorderIcons := BorderIcons + [biHelp];

Domyślnie forma ma wszystkie właściwości BorderIcon wyłączone.
Plik ini wygląda np tak:

[bordericon]
biMinimize=1
biMaximize=0
biHelp=0
biSystemMenu=1

Może innym się przyda...

1 użytkowników online, w tym zalogowanych: 0, gości: 1