آرایه ای از رنگ ها؟ [بایگانی]

امیر-نا

سه شنبه 24 آذر 1383, 21:40 عصر

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

ممنون
امیر

hps

سه شنبه 24 آذر 1383, 23:52 عصر

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

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;

DelphiAssistant

چهارشنبه 25 آذر 1383, 09:43 صبح

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

ارادتمند،
DelphiAssistant

امیر-نا

چهارشنبه 25 آذر 1383, 10:42 صبح

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

hps

چهارشنبه 25 آذر 1383, 14:05 عصر

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