آرایه ای از رنگ ها؟

[امیر-نا]

چه طور می شود آرایه ای مثلا از 24 رنگ ها تولید کرد و برنامه ای نوشت که مثلا با فشار دادن دکمه ای رنک یک شکل به رنگ هایی که در آرایه است در بیاید.؟

ممنون
امیر

[hps]

سوالت رو خیلى متوجه نشدم ولى شاید یه همچین چیزى منظورته.

var

  ColorArray: array [0 .. [i]Number of Colors[/i] - 1] of TColor;

begin

  ColorArray[0] := clRed;

  ColorArray[1] := clBlack;

  ...



  [i]Shape[/i].Canvas.Brush.Color := ColorArray[[i]Selected Color's Index[/i]];

end;

[مهدی کرامتی]

برادر hps: با محصور کردن کد موردنظر در تگ CODE میتونی کد رو به شکلی که در فوق میبینی در بیاری.

ارادتمند،
DelphiAssistant

[امیر-نا]

با تشکر از توجه شما
ممنون

[hps]

خدا خیرت بده برادر، قبلا با LTR هر کارى مى‌کردم درست نمى‌شد. با CODE قیافه‌اش هم قشنگ‌تره. ممنون.