Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
ВнизДаже не знаю как и спросить... Найти похожие ветки
← →
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]
> MBo © (26.06.02 18:28)
Ой
:)
← →
Новенький в Делфи (2002-06-26 19:01) [17]Если я прав, то учти, что порядок следования в html #RRGGBB. Порядок полученный указанным способом - обратный
да и в Делфи цифр 8 а не шесть как в html, первые две укащывают на оттекнок что ли
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c