Даже не знаю как и спросить...

← →
Gerakul (2002-06-26 16:52) [0]

Нужно при клике на кнопку загрузить в Edit1 значение цвета пикселя, в формате #xxxxxx, который находиться в Image1 с координатами 15,6

← →
MBo (2002-06-26 16:58) [1]

edit1.text:="#"+inttohex(image1.canvas.pixels[15,6],6);

← →
McSimm (2002-06-26 17:20) [2]

Но это не сработает, например, для gif. Не всегда доступен массив Pixels. Тогда придется через временный TBitmap делать.

Судя по символу # это для html?
Если я прав, то учти, что порядок следования в html #RRGGBB. Порядок полученный указанным способом - обратный

← →
Gerakul (2002-06-26 17:23) [3]

Спасибо. А ты не подскажешь, вот в Image1 картинка, но я точно не знаю какого она будет размера. И нужно в Memo1, при клике на кнопку, посчитать количество пикселей в первой строчке и внести их одной строчкой. И так далее с другими строчками.

← →
Gerakul (2002-06-26 17:27) [4]

2McSimm
Да всё нормально. Мне именно для BMP

← →
Gerakul (2002-06-26 17:40) [5]

Ну ребята, где вы??

← →
MBo (2002-06-26 17:42) [6]

width

← →
Gerakul (2002-06-26 17:48) [7]

Да я понимаю. А как потом в Memo1 записать цвет в том^^^ формате, но первая строчка в Memo1 должна содержать цвета пикселей первой строчки Image1, вторая - второй и так до конца.

← →
MBo (2002-06-26 17:57) [8]

два вложенных цикла for

← →
Gerakul (2002-06-26 18:03) [9]

А можешь код привести, если не трудно?

← →
MBo (2002-06-26 18:06) [10]

Надо, наверно, книжки почитать, это основы языка.

← →
Gerakul (2002-06-26 18:08) [11]

Да я понимаю. Скоро собираюсь начать. Но всё же, если не трудно, скажи пожалуйста! ПРосто нужно срочно.

← →
McSimm (2002-06-26 18:18) [12]

>Скоро собираюсь начать.
:)

var I, J: Integer;
S: String;
begin
for I := 1 to Image1.Height do
begin
S := "";
for J := 1 to Image1.Width do
S := S + "#"+inttohex(image1.canvas.pixels[J, I],6);
Memo1.Lines.Add(S)
end
end;

← →
Gerakul (2002-06-26 18:20) [13]

Спасибо, McSimm.
Подскажите плиз, с чего начать учить Дельфи? В электронных книг? Если да, то каких и где взять?? И как вы учились?

← →
MBo (2002-06-26 18:28) [14]

чуть поправлю
for I := 0 to Image1.Height - 1 do
begin
S := "";
for J := 0 to Image1.Width - 1 do

← →
McSimm (2002-06-26 18:28) [15]

Мой способ наверное длинный :)

Есть короче - по приоритетам:
1. Книга в бумажном варианте
2. Умение работать с Help
3. Примеры в папке Demos
4. Поиск в FAQ (UBPFD, форум и пр.)
5. Вопросы в форумах

← →
McSimm (2002-06-26 18:32) [16]

← →
Новенький в Делфи (2002-06-26 19:01) [17]

Если я прав, то учти, что порядок следования в html #RRGGBB. Порядок полученный указанным способом - обратный

да и в Делфи цифр 8 а не шесть как в html, первые две укащывают на оттекнок что ли

Даже не знаю как и спросить... Найти похожие ветки