Прикол с TColor [Решено]

[leo_bsv]

Создаю форму, кидаю кнопку, в обработчике пишу:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var  x: TColor;
begin
  Button1.Color:=x;
end;


нажимаю на кнопку - цвет меняется...
почему?
как сделать чтобы не менялся?
предопределить?
каким образом если это свойство типа?

[Little_Roo]

как сделать чтобы не менялся?

Задать начальное значение глобально?

[leo_bsv]

Задать начальное значение глобально?

хотя-бы... обычно при определении переменной типа она имеет какое-то начальное значение... -1 например или nil... тут же какая-то фигня... ( создаёшь переменную типа TColor и каждый раз разное начальное значение чтоли? Т.е. не nil не что-то другое а именно значение? Разное? а мне нужно вот отследить изменялась ли переменная - как это сделать с переменной этого типа

[Kitayets]

ну есть функции по извлечению из TColor значения компонент RGB и наоборот присваиванию TColor цвета закодированному в компонентах RGB.
Если хочешь, чтобы цвет не менялся, то сделай так:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
const
   R= <значение от 0 до 255>; G= <значение от 0 до 255>; B= <значение от 0 до 255>;
var  x: TColor;
begin
  x:= RGBToColor(R, G, B);
  Button1.Color:=x;
end;


ну и собственно если нужно отследить изменения в цвете, запоминай компоненты и сравнивай их извлекая текущие значения из TColor с помощью функций function Blue(rgb: TColor): BYTE; function Green(rgb: TColor): BYTE; function Red(rgb: TColor): BYTE;

короче вот ссылка: http://wiki.lazarus.freepascal.org/Colors

[Mr.Smart]

leo_bsv в FPC локальные переменные не инициализируются. Если нужно - указываем конкретное значение:

Код: Выделить всё

var  x: TColor = 0;

[leo_bsv]

leo_bsv в FPC локальные переменные не инициализируются. Если нужно - указываем конкретное значение:

Код:
var x: TColor = 0;

я в курсе, как указать конкретное значение если код не такой как выше а такой:

Код: Выделить всё

type
  MyType=record
    x:TColor;
    ...
  end;   


[Brainenjii]

MyType.x := Button1.Color в начале тела метода?

[leo_bsv]

ок.... помогло принудительное присвоение 0 нужному свойству типа TColor перед заполнением переменной типа, т.е. значение установлено в ноль перед предполагаемыми изменениями, т.о. если не изменилось, то остаётся 0.

[Mr.Smart]

Код: Выделить всё

type
  MyType=record
    x:TColor;
    y: Integer;
    ...
  end;   

var
  R: MyType = (x: 0; y: -1; ...);



[leo_bsv]

Mr.Smart » 02.01.2012 12:06:40

тип используется для описания свойства класса, у типа 18 свойств различных типов... использовать предложенный вами способ не представляется возможным но всё-равно спасибо что напомнили

[sign]

Поставьте инициируемые свойства в начале:

Код: Выделить всё

type pp1 = record
       F1, F2, F3, F4, F5, F6: Integer;
     end;

var pp2: pp1 = (F1: 2; F2: 1);       

[Mr.Smart]

у типа 18 свойств различных типов... использовать предложенный вами способ не представляется возможным

Как вариант:

Код: Выделить всё

FillByte(r,SizeOf(MyType),0);

[leo_bsv]

Поставьте инициируемые свойства в начале:

Супер! Спасибо! То что надо!

Добавлено спустя 1 минуту 41 секунду:

Как вариант:

да... тоже вариант