ATNEL tech-forum

Re: Zmiana koloru panela

2018-11-22T14:11:05+01:00

Proszę bardzo. Czasami jest to bardzo przydatne.

Statystyki: Napisane przez MarcinG — 22 lis 2018, o 14:11

Re: Zmiana koloru panela

2018-11-08T09:06:30+01:00

Dziękuję wszystkim za podpowiedzi. MarcinG to jest składnia idealna dzękuję.

Statystyki: Napisane przez danielsq — 8 lis 2018, o 09:06

Re: Zmiana koloru panela

2018-11-08T08:19:50+01:00

[syntax=delphi]...
TPanel(FindComponent('Panel' + IntToStr(Zmienna))).Color := clWhite;
...[/syntax]

Coś w tym stylu, piszę z pamięci.

Statystyki: Napisane przez MarcinG — 8 lis 2018, o 08:19

Re: Zmiana koloru panela

2018-11-08T01:18:54+01:00

danielsq napisał(a):

No prawie działa tylko następuje zmiana koloru wszystkich Paneli a ja muszę zmieniać kolor tylko jednego wskazanego przez zmienną, długo z tym już walczę bez efektu.

eeeeh panie panie, dałem ci gotowy klucz a ty nadal nie widzisz jak drzwi otworzyć ....

Można tak jak kolega wyżej napisał albo użyć właściwości TAG komponentu (ponumerować je sobie uprzednio) zamiast NAME ... i poszerzyć IF'a

zbudować z tego procedurę np:

[syntax=delphi]procedure TForm1.MyPanelColor( idx: Integer; color: TColor);
begin
// i tu sobie kolorować
end;[/syntax]

w czym problem?

Statystyki: Napisane przez mirekk36 — 8 lis 2018, o 01:18

Re: Zmiana koloru panela

2018-11-08T00:18:01+01:00

A może tak:[syntax=delphi]for i=0 to Form1.ControlsCount-1 do begin
if Form1.Control[i] is TPanel and Form1.Control[i].Name = 'nazwa_panelu_do_zmiany_koloru' then TPanel(Form1.Control[i]).Color = clRed;
end;[/syntax]Możliwe, że trochę składnia do poprawy, piszę na sucho.

Statystyki: Napisane przez Marhef — 8 lis 2018, o 00:18

Re: Zmiana koloru panela

2018-11-07T21:55:36+01:00

Dzięki zaraz sprawdzę.

-- 20 minutach --

No prawie działa tylko następuje zmiana koloru wszystkich Paneli a ja muszę zmieniać kolor tylko jednego wskazanego przez zmienną, długo z tym już walczę bez efektu.

Statystyki: Napisane przez danielsq — 7 lis 2018, o 21:55

Re: Zmiana koloru panela

2018-11-07T21:47:14+01:00

[syntax=delphi]for i=0 to Form1.ControlsCount-1 do begin
if Form1.Control[i] is TPanel then TPanel(Form1.Control[i]).Color = clRed;
end;[/syntax]

coś w tym stylu

Statystyki: Napisane przez mirekk36 — 7 lis 2018, o 21:47

Zmiana koloru panela

2018-11-07T21:44:42+01:00

Mam taką zagwozdkę a mianowicie zmieniam kolor obiektu Panel1 poprzez instrukcję:
Panel1.Color := clWhite; i jest ok zmienia kolor tak jak chcę ale chciałbym to samo zrobić w taki sposób:
Panel(zmienna).Color := clWhite; gdzie zmmienna odzwierciedla nr panela i tu jest problem nie wiem jak przekazać za pomocą zmiennej nr interesującego mnie panela?

Statystyki: Napisane przez danielsq — 7 lis 2018, o 21:44