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

امیر-نا

سه شنبه 24 آذر 1383, 22:10 عصر

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

ممنون
امیر

hps

چهارشنبه 25 آذر 1383, 00:22 صبح

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

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;

مهدی کرامتی

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

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

ارادتمند،
DelphiAssistant

امیر-نا

چهارشنبه 25 آذر 1383, 11:12 صبح

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

hps

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

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