Показать сообщение отдельно
Старый 14.12.2006, 21:00   #14  
SilentMove_imported is offline
SilentMove_imported
Участник
 
13 / 10 (1) +
Регистрация: 04.09.2006

выглядит это вот так... а работает оч просто!
по копке вызывается форма как в Tutorial_form_display......
и на ней выполняется вот такой вот код:
Код:
 common  common;
	container c;
   ;
	c = Winapi::RGBint2Con(LSRColor.NumColor);
	c = Winapi::chooseColor(this.hWnd(),conpeek(c,1), conpeek(c,2), conpeek(c,3),NULL);
	if (conlen(c))
	{
		xxx = winapi::RGB2int( conpeek(c,1), conpeek(c,2), conpeek(c,3) );
		Datasource.Color = backcolor;
		button.backgroundColor(xxx);
	}
	super();
Datasource, button, xxx- примерные названия полей кнопок и т.д.
предварительно на кнопке, которая будет служить дисплеем для цвета нужно поставить ColorScheme - RGB.
Border, Enabled = False....
-----------------------------
That's IT!)) если есть какие-то вопросы, отзывы, или предложения.... - пишите!)) мож есть какие-то другие варианты.
__________________
<span style="color:#FF0000">Yes i'm a criminal, my crime is that of curiosity....</span>