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

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.015 c
14-23779
psibug
2002-05-30 12:11
2002.07.08
создание собственной операционной системы


1-23557
sergn
2002-06-25 21:12
2002.07.08
Очистка TTreeView


1-23666
Mic_2000
2002-06-26 03:39
2002.07.08
Панировщик


14-23781
Новеньки в Делфи
2002-06-08 22:31
2002.07.08
Перспектвы Delphi


4-23839
rog
2002-05-03 07:58
2002.07.08
не получается вытащищить СД!