--> Archiwum Forum
luk11 [ Generaďż˝ ]
[DELPHI] Pomoc dla zielonego
Witam, ktos potrzebuje pomocy (czyt. potrzebuje gotowca) a jako ze ja jestem kompletnie zielony w tej kwestii moze ktos z forumowiczow mógłby pomoc. Do rzeczy, potrzebny jest program a oto informacje jakie posiadam na jego temat:
w komponencie ComboBox program bedzie mial panel sterujacy kolorami - tak zeby sie rozwijalo menu z boku, uzytkownik musi miec prawo do wyboru czy chce zeby zmienial sie kolor etykiety czy przycisku. Czyli po lewej musi byc takie rozwijane menu z kolorami piecioma, po prawej ma byc do wyboru przycisk lub etykieta (wybor co ma sie zapalac) i pod spodem przycisk lub etykieta. W zaleznosci co po prawej sie nacisnie i jaki kolor po lewej tak ma sie wyswietlac na dole.
Czy ktos cos z tego rozumie? :)
Narmo [ nikt ]
Bardzo prosty program. 10 minut roboty, gdybym miał zainstalowane Delphi. Robiliśmy to kiedyś na ćwiczeniach.
Sprawdź, może gdzieś znajdziesz w materiałach z programowania:
luk11 [ Generaďż˝ ]
Chyba mam rzeczywista tresc programu ;p
Napisz program który w komponencie ComboBox będzie miał panel sterujący kolorami wybranych elementow. Kolor: Czerwony, Zielony, Niebieski, Brak Koloru. Oprócz tego użytkownik musi mieć prawo wyboru czy chce zmienić kolor przycisku czy etykiety.
Narmo dzieki, szukam :)
luk11 [ Generaďż˝ ]
Niestety Narmo, nie znalazłem nic :/
Slasher11 [ Scharfschütze ]
Kiedyś programowałem w Delphi
To jest absolutny banał, chętnie bym zrobił ale nie mam teraz zainstalowanego. BTW Delphi działa na Viście?
Ramz [ Generaďż˝ ]
Slasher11 - Vista 64bit miałem kiedyś zainstalowane Delphi 7 (czyli jeszcze nie to oparte o .net) działało bez najmniejszych problemów :)
Slasher11 [ Scharfschütze ]
Fakt, udało się zainstalować ale otrzymałem komunikat że program jest niezgodny z tą wersją systemu:)
Zaraz wyślę programik na jakiś serwer
edit:
Ramz [ Generaďż˝ ]
Slasher11 - miałem to samo, ale to tylko komunikat :D
luk11 [ Generaďż˝ ]
Slasher11---> a mógłbyś przedstawić program tekstowo tutaj?
Slasher11 [ Scharfschütze ]
Mogę:)
Wartości dla combobox'ów podałem w inspektorze obiektów (properties>>Items>>"trzy kropki")
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Label1: TLabel;
BitBtn1: TBitBtn;
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
private
‹ Private declarations ›
public
‹ Public declarations ›
end;
var
Form1: TForm1;
implementation
‹$R *.dfm›
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
If (ComboBox1.ItemIndex=0) and (ComboBox2.ItemIndex=0) then
label1.font.color:=clred;
If (ComboBox1.ItemIndex=1) and (ComboBox2.ItemIndex=0) then
label1.font.color:=clgreen;
If (ComboBox1.ItemIndex=2) and (ComboBox2.ItemIndex=0) then
label1.font.color:=clblue;
If (ComboBox1.ItemIndex=3) and (ComboBox2.ItemIndex=0) then
label1.font.color:=clblack;
If (ComboBox1.ItemIndex=0) and (ComboBox2.ItemIndex=1) then
bitbtn1.font.color:=clred;
If (ComboBox1.ItemIndex=1) and (ComboBox2.ItemIndex=1) then
bitbtn1.font.color:=clgreen;
If (ComboBox1.ItemIndex=2) and (ComboBox2.ItemIndex=1) then
bitbtn1.font.color:=clblue;
If (ComboBox1.ItemIndex=3) and (ComboBox2.ItemIndex=1) then
bitbtn1.font.color:=clblack;
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
If (ComboBox1.ItemIndex=0) and (ComboBox2.ItemIndex=0) then
label1.font.color:=clred;
If (ComboBox1.ItemIndex=1) and (ComboBox2.ItemIndex=0) then
label1.font.color:=clgreen;
If (ComboBox1.ItemIndex=2) and (ComboBox2.ItemIndex=0) then
label1.font.color:=clblue;
If (ComboBox1.ItemIndex=3) and (ComboBox2.ItemIndex=0) then
label1.font.color:=clblack;
If (ComboBox1.ItemIndex=0) and (ComboBox2.ItemIndex=1) then
bitbtn1.font.color:=clred;
If (ComboBox1.ItemIndex=1) and (ComboBox2.ItemIndex=1) then
bitbtn1.font.color:=clgreen;
If (ComboBox1.ItemIndex=2) and (ComboBox2.ItemIndex=1) then
bitbtn1.font.color:=clblue;
If (ComboBox1.ItemIndex=3) and (ComboBox2.ItemIndex=1) then
bitbtn1.font.color:=clblack;
end;
end.
luk11 [ Generaďż˝ ]
Jestes wielki. Piwo Ci sie należy :)