Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

Конкретный вопрос   Найти похожие ветки 

 
B0ard   (2002-06-27 21:29) [0]

В Memo1 имеется последовательность символов:
$00FFCC$00CC00$00CCCC$00FFCC$FFFFFFFF$00FFCC
И имеется Image1 высотой 3 и шириной 2 пикселя. Так нужно преобразовать эту последовательность из Memo1 в цветные пиксели на Image1.

Изначально было так:

For I = 0 to image1.height do
For J = 0 to Image1.Width do
Image1.Canvas.Pixels[I,J] := IntToStr(Copy(Memo1.Text, i*height+9, 7));

Но как вы видите вверху, последовательность не обязательно 6-значная, а есть и 8-значные числа. Вобщем, нужно чтобы при клике на кнопку Image1 закрасилась пикселями.

Если можно, дайте КОНКРЕТНЫЙ ОТВЕТ. Всмысле код :-))


 
B0ard   (2002-06-27 21:43) [1]

+притом, что в Memo1 последовательность НЕ столбиком


 
rhf ©   (2002-06-27 22:15) [2]

попробуй так....каряво конечно...


for i = 0 to image1.height do
for j = 0 to Image1.Width do
begin
dx:=pos("$",copy(memo1.text,x+1,length(memo1.text)));
if dx=0 then dx:=length(memo1.text-x);
image1.canvas.pixels[i,j]:=intToStr(copy(memo1.text,x,dx));
x:=x+dx;
end;


ЗЫ я не проверял....негде :(


 
McSimm ©   (2002-06-28 12:28) [3]


> Изначально было так:
>
> For I = 0 to image1.height do
> For J = 0 to Image1.Width do

Изначально должно было быть так:
For I = 0 to image1.height - 1 do
For J = 0 to Image1.Width - 1 do




Страницы: 1 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
6-47650
DeaDMan_77
2002-05-07 01:05
2002.07.15
Мастера, подскажите как отключить доступ к Интернету


3-47082
Костян
2002-06-20 14:47
2002.07.15
Вычислимое поле во время выполнения


3-47071
Бежечаночка
2002-05-31 12:23
2002.07.15
Кто-нибудь работал с сервером ADS


3-47188
_dron_
2002-06-19 11:19
2002.07.15
Проблема с восприятием года в Dbase


7-47853
XEL
2002-04-24 23:11
2002.07.15
ИЗМЕНЯТЬ СКОРОСТЬ CD-ROM ПРОГРАМНО?