• Lunes 18 de Noviembre de 2024, 08:50
« anterior próximo »
Páginas: [1]

Autor Tema:  Problema Con Colores  (Leído 2687 veces)

moyo18

  • Nuevo Miembro
  • *
  • Mensajes: 9
    • Ver Perfil
Problema Con Colores
« en: Viernes 23 de Febrero de 2007, 20:27 »
0
casi igual al formulario q puse abajo

bueno ahora tengo otro problema, al elegir los colores desd un combobox, checklistbox, y otros mas q he agregado, no salen, al darle click al boton aplicar se ponen los paneles negros.


este es el codigo q llevo, intente cambiandovaliables a ver si asi salia pero nop, el unico q sirve es el d edit q al escribir red asigna el color rojo pero lo asigna y lo guarda ya no lo cambia no se porq

aki el codigo q llevo

Código: Text
  1.  
  2. unit Unit1;
  3.  
  4. interface
  5.  
  6. uses
  7.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  8.   Dialogs, StdCtrls, CheckLst, ExtCtrls;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Button1: TButton;
  13.     Panel2: TPanel;
  14.     Panel1: TPanel;
  15.     CheckBox1: TCheckBox;
  16.     CheckBox2: TCheckBox;
  17.     RadioGroup2: TRadioGroup;
  18.     Edit1: TEdit;
  19.     GroupBox1: TGroupBox;
  20.     Panel3: TPanel;
  21.     Panel4: TPanel;
  22.     Panel5: TPanel;
  23.     Panel6: TPanel;
  24.     Panel7: TPanel;
  25.     Panel8: TPanel;
  26.     CheckListBox1: TCheckListBox;
  27.     ComboBox1: TComboBox;
  28.     RadioGroup1: TRadioGroup;
  29.     Button3: TButton;
  30.     Button4: TButton;
  31.     Button2: TButton;
  32.  
  33.     procedure Button1Click(Sender: TObject);
  34.     procedure Button2Click(Sender: TObject);
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure RadioGroup1Click(Sender: TObject);
  37.     procedure Panel3Click(Sender: TObject);
  38.     procedure Panel4Click(Sender: TObject);
  39.     procedure Panel5Click(Sender: TObject);
  40.     procedure Panel6Click(Sender: TObject);
  41.     procedure Panel7Click(Sender: TObject);
  42.     procedure Panel8Click(Sender: TObject);
  43.     procedure CheckListBox1Click(Sender: TObject);
  44.     procedure ComboBox1Change(Sender: TObject);
  45.     procedure RadioGroup2Click(Sender: TObject);
  46.     procedure Button3Click(Sender: TObject);
  47.     procedure Button4Click(Sender: TObject);
  48.     procedure Edit1Change(Sender: TObject);
  49.  
  50.   private
  51.     { Private declarations }
  52.   public
  53.     pcolor : Tcolor;
  54.     hola : Tcolor;
  55.     end;
  56.  
  57. var
  58.   Form1: TForm1;
  59.  
  60. implementation
  61.  
  62. {$R *.dfm}
  63.  
  64.  
  65. procedure TForm1.Button1Click(Sender: TObject);
  66. begin
  67.      if checkbox1.checked then
  68.          panel1.color := pcolor;
  69.  
  70.  
  71.      if checkbox2.checked  then
  72.          panel2.color := pcolor;
  73.  
  74.  
  75. end;
  76.  
  77. procedure TForm1.Button2Click(Sender: TObject);
  78. begin
  79.      panel1.Color := clwhite;
  80.      panel2.Color := clwhite;
  81. end;
  82.  
  83. procedure TForm1.FormCreate(Sender: TObject);
  84. begin
  85.  
  86.      panel1.Color := clwhite;
  87.      panel2.Color := clwhite;
  88.      GroupBox1.Visible := false;
  89.      edit1.Visible:= false;
  90.      radiogroup1.Visible := false;
  91.      combobox1.Visible := false;
  92.      checklistbox1.Visible := false;
  93.      radiogroup2.Visible := true;
  94.      button4.Visible := false;
  95.  
  96. end;
  97.  
  98. procedure TForm1.RadioGroup1Click(Sender: TObject);
  99. begin
  100.      case  RadioGroup1.ItemIndex  of
  101.        0 : hola := Tcolor($0000A5FF);
  102.        1 : hola := clyellow;
  103.        2 : hola := clgreen;
  104.        3 : hola := clblue;
  105.        4 : hola := clred;
  106.  
  107.      end;
  108. end;
  109.  
  110. procedure TForm1.Panel3Click(Sender: TObject);
  111. begin
  112.  
  113.    pcolor  := clyellow
  114.  
  115. end;
  116.  
  117. procedure TForm1.Panel4Click(Sender: TObject);
  118. begin
  119.  
  120.    pcolor  := clblue;
  121.  
  122. end;
  123.  
  124. procedure TForm1.Panel5Click(Sender: TObject);
  125. begin
  126.  
  127.   pcolor  := clgreen;
  128.  
  129. end;
  130.  
  131. procedure TForm1.Panel6Click(Sender: TObject);
  132. begin
  133.  
  134.   pcolor  :=  Tcolor($0000A5FF);
  135.  
  136. end;
  137.  
  138. procedure TForm1.Panel7Click(Sender: TObject);
  139. begin
  140.  
  141.  pcolor  :=  clred;
  142.  
  143. end;
  144.  
  145. procedure TForm1.Panel8Click(Sender: TObject);
  146. begin
  147.  
  148.    pcolor := clsilver;
  149.  
  150. end;
  151.  
  152. procedure TForm1.CheckListBox1Click(Sender: TObject);
  153. begin
  154.  
  155.     case  checklistbox1.ItemIndex  of
  156.        0 : pcolor := Tcolor($0000A5FF);
  157.        1 : pcolor:= clyellow;
  158.        2 : pcolor := clgreen;
  159.        3 : pcolor := clblue;
  160.        4 : pcolor := clred;
  161.  
  162.      end;
  163.  
  164. end;
  165.  
  166. procedure TForm1.ComboBox1Change(Sender: TObject);
  167. begin
  168.  
  169.      case  combobox1.ItemIndex  of
  170.        0 : pcolor := Tcolor($0000A5FF);
  171.        1 : pcolor  := clyellow;
  172.        2 : pcolor  := clgreen;
  173.        3 : pcolor  := clblue;
  174.        4 : pcolor  := clred;
  175.  
  176.      end;
  177.  
  178. end;
  179.  
  180. procedure TForm1.RadioGroup2Click(Sender: TObject);
  181. begin
  182.  
  183.   case RadioGroup2.ItemIndex of
  184.  
  185.     0 :  radiogroup1.Visible := true;
  186.     1 :  groupbox1.Visible := true;
  187.     2 :  edit1.Visible := true;
  188.     3 :  checklistbox1.Visible := true;
  189.     4 :  combobox1.Visible := true;
  190.  
  191.   end;
  192.  
  193. end;
  194.  
  195. procedure TForm1.Button3Click(Sender: TObject);
  196. begin
  197.  
  198.  
  199.  
  200.    case RadioGroup2.ItemIndex of
  201.  
  202.     0 :  radiogroup1.Visible := true;
  203.     1 :  groupbox1.Visible := true;
  204.     2 :  edit1.Visible:= true;
  205.     3 :  checklistbox1.Visible := true;
  206.     4 :  combobox1.Visible := true;
  207.  
  208.  
  209.  
  210.   end;
  211.  
  212.       radiogroup2.Visible := false;
  213.       button3.Visible := false;
  214.       button4.Visible := true;
  215.  
  216.  
  217.   end;
  218.  
  219.  
  220. procedure TForm1.Button4Click(Sender: TObject);
  221. begin
  222.  
  223.      button3.Visible := true;
  224.      button4.Visible := false;
  225.      GroupBox1.Visible := false;
  226.      edit1.Visible:= false;
  227.      radiogroup1.Visible := false;
  228.      combobox1.Visible := false;
  229.      checklistbox1.Visible := false;
  230.      radiogroup2.Visible := true;
  231.  
  232. end;
  233.  
  234. procedure TForm1.Edit1Change(Sender: TObject);
  235. begin
  236.  
  237.      LowerCase(edit1.text);
  238.      if(edit1.text='red') then
  239.           pcolor  := clred;
  240.  
  241.  
  242. end;
  243.  
  244. end.
  245.  
  246.  


aki les dejo un enlace para bajar el exe q llevo por ahorita para q vean el erro q digo

bajar

moyo18

  • Nuevo Miembro
  • *
  • Mensajes: 9
    • Ver Perfil
Re: Problema Con Colores
« Respuesta #1 en: Sábado 24 de Febrero de 2007, 05:12 »
0
hola ya solucione ese problema d arriba, bueno ahora el problema es q no se como hacer para q se conbinen los colores en un RGB, TENGO Q HACERLO
usando SCROLLBARS pero no se como se haria hasta el momento llevo esto y estoy tratando ver ver .


Código: Text
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls, CheckLst;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Button2: TButton;
  13.     Panel1: TPanel;
  14.     Panel2: TPanel;
  15.     CheckBox1: TCheckBox;
  16.     CheckBox2: TCheckBox;
  17.     RadioGroup1: TRadioGroup;
  18.     ComboBox1: TComboBox;
  19.     GroupBox1: TGroupBox;
  20.     Panel3: TPanel;
  21.     Panel4: TPanel;
  22.     Panel5: TPanel;
  23.     Panel6: TPanel;
  24.     Panel7: TPanel;
  25.     Panel8: TPanel;
  26.     Edit1: TEdit;
  27.     Label1: TLabel;
  28.     Label2: TLabel;
  29.     Button3: TButton;
  30.     RadioGroup2: TRadioGroup;
  31.     Button4: TButton;
  32.     ScrollBar1: TScrollBar;
  33.     ScrollBar2: TScrollBar;
  34.     ScrollBar3: TScrollBar;
  35.     Label3: TLabel;
  36.     Label4: TLabel;
  37.     Label5: TLabel;
  38.     Label6: TLabel;
  39.     Label7: TLabel;
  40.     CheckListBox1: TCheckListBox;
  41.     procedure Button2Click(Sender: TObject);
  42.     procedure RadioGroup1Click(Sender: TObject);
  43.     procedure Button1Click(Sender: TObject);
  44.     procedure ComboBox1Change(Sender: TObject);
  45.     procedure CheckListBox1Click(Sender: TObject);
  46.     procedure Panel3Click(Sender: TObject);
  47.     procedure Panel4Click(Sender: TObject);
  48.     procedure Panel5Click(Sender: TObject);
  49.     procedure Panel6Click(Sender: TObject);
  50.     procedure Panel7Click(Sender: TObject);
  51.     procedure FormCreate(Sender: TObject);
  52.     procedure Edit1Change(Sender: TObject);
  53.     procedure Button3Click(Sender: TObject);
  54.     procedure Button4Click(Sender: TObject);
  55.     procedure ScrollBar1Change(Sender: TObject);
  56.     procedure ScrollBar2Change(Sender: TObject);
  57.     procedure ScrollBar3Change(Sender: TObject);
  58.   private
  59.     { Private declarations }
  60.   public
  61.  
  62.   end;
  63.  
  64. var
  65.   Form1: TForm1;
  66.   acolor : Tcolor;
  67.   lol : String;
  68.  
  69.  
  70. implementation
  71.  
  72. {$R *.dfm}
  73.  
  74. procedure TForm1.Button2Click(Sender: TObject);
  75. begin
  76.   panel1.color := clwhite;
  77.   panel2.color := clwhite;
  78. end;
  79.  
  80. procedure TForm1.RadioGroup1Click(Sender: TObject);
  81. begin
  82.  
  83.    case radiogroup1.Itemindex of
  84.      0 : acolor := Tcolor($0000A5FF);
  85.      1 : acolor := clYellow;
  86.      2 : acolor := clgreen;
  87.      3 : acolor := clblue;
  88.      4 : acolor := clred;
  89.    end;
  90. end;
  91.  
  92. procedure TForm1.Button1Click(Sender: TObject);
  93. begin
  94.  
  95.    if checkbox1.Checked  then
  96.       panel1.Color := acolor;
  97.  
  98.  
  99.    if checkbox2.Checked  then
  100.      panel2.color := acolor;
  101.  
  102.  
  103. end;
  104.  
  105. procedure TForm1.ComboBox1Change(Sender: TObject);
  106. begin
  107.  
  108.    case combobox1.itemindex of
  109.      0 : acolor := Tcolor($0000A5FF);
  110.      1 : acolor := clYellow;
  111.      2 : acolor := clblue;
  112.      3 : acolor := clgreen;
  113.      4 : acolor := clred;
  114.    end;
  115.  
  116. end;
  117.  
  118. procedure TForm1.CheckListBox1Click(Sender: TObject);
  119. begin
  120.    case  Checklistbox1.ItemIndex  of
  121.        0 : acolor := Tcolor($0000A5FF);
  122.        1 : acolor := clyellow;
  123.        2 : acolor := clgreen;
  124.        3 : acolor := clblue;
  125.        4 : acolor := clred;
  126.      end;
  127. end;
  128.  
  129. procedure TForm1.Panel3Click(Sender: TObject);
  130. begin
  131.    acolor := Tcolor($0000A5FF);
  132. end;
  133. procedure TForm1.Panel4Click(Sender: TObject);
  134. begin
  135.   acolor :=  clyellow;
  136. end;
  137.  
  138. procedure TForm1.Panel5Click(Sender: TObject);
  139. begin
  140.   acolor := clgreen;
  141. end;
  142.  
  143. procedure TForm1.Panel6Click(Sender: TObject);
  144. begin
  145.   acolor :=  clblue;
  146. end;
  147.  
  148. procedure TForm1.Panel7Click(Sender: TObject);
  149. begin
  150.   acolor :=  clred;
  151. end;
  152.  
  153. procedure TForm1.FormCreate(Sender: TObject);
  154. begin
  155.   panel3.color := Tcolor($0000A5FF);
  156.   panel4.color := clyellow;
  157.   panel5.color := clgreen;
  158.   panel6.color := clblue;
  159.   panel7.color := clred;
  160.  
  161.   radiogroup2.Itemindex := 0;
  162. end;
  163.  
  164. procedure TForm1.Edit1Change(Sender: TObject);
  165. begin
  166.  
  167.    LowerCase(edit1.text);
  168.    if (edit1.text = 'orange') or (edit1.text = 'ORANGE') then
  169.       acolor := Tcolor($0000A5FF);
  170.  
  171.    if (edit1.text = 'yellow') or (edit1.text = 'YELLOW') then
  172.       acolor := clyellow;
  173.  
  174.    if (edit1.text = 'green') or (edit1.text = 'GREEN') then
  175.       acolor := clgreen;
  176.  
  177.    if (edit1.text = 'blue') or (edit1.text = 'BLUE') then
  178.       acolor := clblue;
  179.  
  180.    if (edit1.text = 'red') or (edit1.text = 'RED') then
  181.       acolor := clred;
  182.  
  183.  
  184. end;
  185.  
  186. procedure TForm1.Button3Click(Sender: TObject);
  187. begin
  188.  
  189.   case radiogroup2.ItemIndex of
  190.     0 : begin
  191.            edit1.Visible := true;
  192.            label3.Visible := true;
  193.            label4.Visible := true;
  194.            label5.Visible := true;
  195.            label6.Visible := true;
  196.            label7.Visible := true;
  197.         end;
  198.     1 : Combobox1.Visible := true;
  199.     2 : checklistbox1.Visible := true;
  200.     3 : groupbox1.Visible := true;
  201.     4 : radiogroup1.Visible := true
  202.   end;
  203.  
  204.    radiogroup2.visible := false;
  205.    checkbox1.visible := true;
  206.    checkbox2.visible := true;
  207.    button1.visible := true;
  208.    button2.visible := true;
  209.    button4.visible := true;
  210.    button3.Visible := false;
  211.  
  212. end;
  213. procedure TForm1.Button4Click(Sender: TObject);
  214. begin
  215.  
  216.  radiogroup2.Visible := true;
  217.  button4.visible := false;
  218.  button3.Visible := true;
  219.  edit1.Visible := false;
  220.  label3.Visible := false;
  221.  label4.Visible := false;
  222.  label5.Visible := false;
  223.  label6.Visible := false;
  224.  label7.Visible := false;
  225.  Combobox1.Visible := false;
  226.  checklistbox1.Visible := false;
  227.  groupbox1.Visible := false;
  228.  radiogroup1.Visible := false;
  229.  checkbox1.visible := false;
  230.  checkbox2.visible := false;
  231.  button1.visible := false;
  232.  button2.visible := false;
  233.  panel1.color := clwhite;
  234.  panel2.color := clwhite;
  235.  
  236.  
  237. end;
  238.  
  239. procedure TForm1.ScrollBar1Change(Sender: TObject);
  240. begin
  241.       lol := '$0000FF'+' $FF0000'+'RGB(0,255,0)' &#59;
  242.       panel1.color := $0000FF
  243. end;
  244.  
  245. procedure TForm1.ScrollBar2Change(Sender: TObject);
  246. begin
  247.  
  248.   panel1.color := $FF0000;
  249.  
  250.  
  251. end;
  252.  
  253. procedure TForm1.ScrollBar3Change(Sender: TObject);
  254. begin
  255.  
  256.    panel1.color := RGB(0,255,0);
  257.  
  258.  
  259. end;
  260.  
  261. end.
  262.  

no se como hacer para mezclar los colores.

ushedipe

  • Miembro activo
  • **
  • Mensajes: 37
    • Ver Perfil
Re: Problema Con Colores
« Respuesta #2 en: Jueves 31 de Enero de 2008, 18:11 »
0
:comp: no se si el objeto del proyecto contemple que se haga de esa manera, pero en la solapa Dialogs se encuentra un objeto llamado TColorDialog, que se ejecuta de la misma manera como los cuadros de diálogo para abrir o salvar archivos, pero por si no lo conoces aquí va el código:

Código: Text
  1.   with ColorDialog do
  2.   begin
  3.     if Execute then
  4.       begin
  5.          //lo que necesites hacer con el color...
  6.       end;
  7.   end;
  8.  

éste código lo puedes incluir en un botón.

suerte  :ph34r:

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Problema Con Colores
« Respuesta #3 en: Sábado 2 de Febrero de 2008, 15:31 »
0
Páginas: [1]
« anterior próximo »