W8018 Assigning unsigned long to TColor

@Выборг · Регистрация: 24.04.2013

Студворк — интернет-сервис помощи студентам

Доброго дня. Ребята, помогите мне, пожалуйста. Объясните, что у меня не так в коде и как исправить.
Ошибки:
[C++ Warning] Unit1.cpp(44): W8018 Assigning unsigned long to TColor

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
void __fastcall TForm1::ProcessingClick(TObject *Sender)
{
  int J,JH,I,IH,mr,mg,mb;                 
  
  IH=Image1->Picture->Bitmap->Height;     
  JH=Image1->Picture->Bitmap->Width;      
  Image2->Picture->Bitmap->Height=IH;     
  Image2->Picture->Bitmap->Width=JH;      
 
  for(I = 0; I <IH; I++)
    for(J = 0; J < JH; J++) {
      // ïîïèêñåëüíîå ÷òåíèå
      mr=GetRValue(Image1->Canvas->Pixels[J][I]);     
      mg=GetGValue(Image1->Canvas->Pixels[J][I]);     
      mb=GetBValue(Image1->Canvas->Pixels[J][I]);     
      mr=1.5*mr;    mg=1.5*mg;  mb=1.5*mb;            
         
      if (mr>255) mr=255;  else mr=mr;
      if (mr<0)   mr=0;    else mr=mr;
      if (mg>255) mg=255;  else mg=mg;
      if (mg<0)   mg=0;    else mg=mg;
      if (mb>255) mb=255;  else mb=mb;
      if (mb<0)   mb=0;    else mb=mb;
  
      Image2->Picture->Bitmap->Canvas->Pixels[J][I] = RGB(mr, mg, mb); // Ошибка 
      ProgressBar1->Position = I*100/IH;
    }
}

@nick42 · 26.04.2013, 11:33

Просто добавляй перед RGB указание на тип: (TColor*)RGB

@Выборг · 26.04.2013, 11:39 **[ТС]**

Сообщение от nick42

Просто добавляй перед RGB указание на тип: (TColor*)RGB

Не работает

@nick42 · 26.04.2013, 12:15

что именно не работает... - по прежнему Warning ?

Добавлено через 4 минуты
хотя правильно: тогда TColor без звездочки.

@Выборг · 26.04.2013, 12:33 **[ТС]**

Сообщение от nick42

что именно не работает... - по прежнему Warning ?

Добавлено через 4 минуты
хотя правильно: тогда TColor без звездочки.

Спасибо

Добавлено через 1 минуту
Можешь подсказать почему не происходит обработка изображения

@nick42 · 26.04.2013, 13:26

Сообщение от Выборг

Можешь подсказать почему не происходит обработка изображения

Вникать сильно - неохота. Скорее всего ты работаешь не с bmp картинкой, а с jpg, png и.т.д. Если так, то пробуй с bmp, - в этом случае содержимое Image->Picture->Bitmap у тебя перед глазами; можно разбираться, что не так.

@Выборг · 26.04.2013, 13:45 **[ТС]**

Сообщение от nick42

Вникать сильно - неохота. Скорее всего ты работаешь не с bmp картинкой, а с jpg, png и.т.д. Если так, то пробуй с bmp, - в этом случае содержимое Image->Picture->Bitmap у тебя перед глазами; можно разбираться, что не так.

Я разобрался преобразует только маленькие картинки

Добавлено через 3 минуты
Помоги еще такие ошибки

C++
1
2
3
4
5
void __fastcall TForm1::CloseClick(TObject *Sender)
{
Close();
}
}

[C++ Ошибка] Unit1.cpp(75): E2314 Call of nonfunction
[C++ Ошибка] Unit1.cpp(77): E2190 Unexpected }

@nick42 · 26.04.2013, 15:47

Сообщение от Выборг

Unexpected }

- убрать надо лишнюю скобу

@Выборг · 26.04.2013, 22:08 **[ТС]**

Сообщение от nick42

- убрать надо лишнюю скобу

Не работает

C++
1
2
3
4
5
void __fastcall TForm1::CloseClick(TObject *Sender)
{
Close();
}
//--

-------------------------------------------------------------------------

Ошибка [C++ Ошибка] Unit1.cpp(77): E2314 Call of nonfunction

@nick42 · 26.04.2013, 22:42

.. ну, значит называть клавиши нужно благозвучно (желательно с цифровыми индексами). А то назовут клавишу например: Close - и потом на форум с претензиями. А как компилятору со всем эти париться?!

@Выборг · 26.04.2013, 23:01 **[ТС]**

Вот код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
#include <jpeg.hpp>
void __fastcall TForm1::Open1Click(TObject *Sender)
{
if(OpenPictureDialog1-> Execute()) //Оператор чтения изображения из файла
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::ProcessingClick(TObject *Sender)
{
int J,JH,I,IH,mr,mg,mb;                 // объявляем необходимые переменные
 
IH=Image1->Picture->Bitmap->Height;     // определяем высоту исходного изображения
JH=Image1->Picture->Bitmap->Width;      // определяем ширину исходного изображения
Image2->Picture->Bitmap->Height=JH;     // присваиваем значение высоты результирующему изображению
Image2->Picture->Bitmap->Width=IH;      // присваиваем значение ширины результирующему изображению
 
// исключаем возможность выхода за 8-и разрядную сетку новых значений интенсивностей.
// Тем самым предотвращаем искажения, связанные с перегрузкой
// Цикл считывания значений интенсивности трех компонентов (красной, зеленой, синий)
for(I = 0; I <IH; I++)
for(J = 0; J < JH; J++)
{
// попиксельное чтение
mr=GetRValue(Image1->Canvas->Pixels[J][I]);     // чтение интенсивности компоненты красного
mg=GetGValue(Image1->Canvas->Pixels[J][I]);     // чтение интенсивности компоненты зеленого
mb=GetBValue(Image1->Canvas->Pixels[J][I]);     // чтение интенсивности компоненты синего
mr=1.5*mr;    mg=1.5*mg;  mb=1.5*mb;            // преобразование
 
// Ограничение динамического диапазона
if (mr>255) mr=255;  else mr=mr;
if (mr<0)   mr=0;    else mr=mr;
if (mg>255) mg=255;  else mg=mg;
if (mg<0)   mg=0;    else mg=mg;
if (mb>255) mb=255;  else mb=mb;
if (mb<0)   mb=0;    else mb=mb;
 
// запись в обработанное изображение новых значений интенсивностей
Image2->Picture->Bitmap->Canvas->Pixels[J][I] = (TColor)RGB(mr, mg, mb);
// Подключаем прогресс-бар
ProgressBar1->Position = I*100/IH;
}
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Save1Click(TObject *Sender)
{
if(SaveDialog1->Execute())
Image2->Picture->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::CloseClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        
}
//---------------------------------------------------------------------------

@nick42 · 26.04.2013, 23:17

Што "код"? Я ж сказал: назовите клавишу, скажем, Close1 или Close66 и пишите себе на событие Close1Click()...

Добавлено через 4 минуты
.. встретив Close компилятор в первую очередь ищет среди пользовательских объявлений (а там "это" уже есть как TButton) и только потом среди стандартных функций. Поэтому нужно с осторожностью - и это общее правило! - придумывать названия своим переменным.

@Avazart · 27.04.2013, 01:10

Сообщение от nick42

.. встретив Close компилятор в первую очередь ищет среди пользовательских объявлений (а там "это" уже есть как TButton) и только потом среди стандартных функций.

Ну это не так ...

@nick42 · 27.04.2013, 01:14

Сообщение от nick42

Поэтому нужно с осторожностью - и это общее правило! - придумывать названия своим переменным.

- но против этого, надеюсь, возражать не станешь?

@Выборг · 27.04.2013, 09:46 **[ТС]**

Сообщение от nick42

- но против этого, надеюсь, возражать не станешь?

Можешь подправить код что я неправильно сделал

@nick42 · 27.04.2013, 12:52

Прежде всего переименовать клавишу Close (хотя бы на Close1, аналогично Open1); потом - ошибочно вот так вдруг умножать целое (mb, mr) на вещественное (дробное) число: 1.5. Если коэффициент не будет меняться, лучше прибавлять половину - mb += mb/2; вообще в твоем "ограничении диапазона" лучше обходиться такой записью:__

C++
1
if ((mb = (int)mb*1.5)>255) mb = 255;

@Выборг · 27.04.2013, 13:38 **[ТС]**

Сообщение от nick42

Прежде всего переименовать клавишу Close (хотя бы на Close1, аналогично Open1); потом - ошибочно вот так вдруг умножать целое (mb, mr) на вещественное (дробное) число: 1.5. Если коэффициент не будет меняться, лучше прибавлять половину - mb += mb/2; вообще в твоем "ограничении диапазона" лучше обходиться такой записью:__

C++
1
if ((mb = (int)mb*1.5)>255) mb = 255;

Хочешь вот такой код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
#include <jpeg.hpp>
void __fastcall TForm1::Open1Click(TObject *Sender)
{
if(OpenPictureDialog1-> Execute()) //Оператор чтения изображения из файла
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::ProcessingClick(TObject *Sender)
{
int J,JH,I,IH,mr,mg,mb;                 // объявляем необходимые переменные
 
IH=Image1->Picture->Bitmap->Height;     // определяем высоту исходного изображения
JH=Image1->Picture->Bitmap->Width;      // определяем ширину исходного изображения
Image2->Picture->Bitmap->Height=JH;     // присваиваем значение высоты результирующему изображению
Image2->Picture->Bitmap->Width=IH;      // присваиваем значение ширины результирующему изображению
 
// исключаем возможность выхода за 8-и разрядную сетку новых значений интенсивностей.
// Тем самым предотвращаем искажения, связанные с перегрузкой
// Цикл считывания значений интенсивности трех компонентов (красной, зеленой, синий)
for(I = 0; I <IH; I++)
for(J = 0; J < JH; J++)
{
// попиксельное чтение
mr=GetRValue(Image1->Canvas->Pixels[J][I]);     // чтение интенсивности компоненты красного
mg=GetGValue(Image1->Canvas->Pixels[J][I]);     // чтение интенсивности компоненты зеленого
mb=GetBValue(Image1->Canvas->Pixels[J][I]);     // чтение интенсивности компоненты синего
mr=1.5*mr;    mg=1.5*mg;  mb=1.5*mb;            // преобразование
 
// Ограничение динамического диапазона
 if ((mb = (int)mb*1.5)>255) mb = 255;
 
 
// запись в обработанное изображение новых значений интенсивностей
Image2->Picture->Bitmap->Canvas->Pixels[J][I] = (TColor)RGB(mr, mg, mb);
// Подключаем прогресс-бар
ProgressBar1->Position = I*100/IH;
}
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Save1Click(TObject *Sender)
{
if(SaveDialog1->Execute())
Image2->Picture->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------

Добавлено через 5 минут
Не работает сохранение и выход из приложения
Когда сохраняешь изображение нету выбора типа файла

Добавлено через 14 минут
Выход настроил Только не работает сохранение. Только нету выбора типа файла

@nick42 · 27.04.2013, 16:18

Тип файла ты сможешь выбирать, когда в Инспекторе Объектов распишешь строчки для Filter. Но это вряд ли поможет. (что-то у меня сегодня лирическое настроение...). Если бы ты загружал в Image bmp-картинку, то её битмап был бы заполнен этой картинкой, имел бы ширину-высоту и с ним можно было работать на пиксельном уровне (с Канвой). Для jpg-файла все не так, - картинку ты видишь, но битмап не заполнен, обрабатывать Канву бессмысленно так как и Image->Picture->Bitmap ни ширины, ни высоты не имеет. Далее: ты применил OpenPictureDialog, так логично было бы использовать вместо SaveDialog SavePictureDialog. И, наконец, я рекомендовал строчку кода для "ограничения динамического диапазона", ты ее вставил, но только для одного цвета; нужно еще для двух остальных. Используя советы, полученные на форуме, нужно бы понимать, что та или иная строчка кода делает, иначе мало толку от такой "помощи".

@Выборг · 27.04.2013, 17:35 **[ТС]**

Сообщение от nick42

Тип файла ты сможешь выбирать, когда в Инспекторе Объектов распишешь строчки для Filter. Но это вряд ли поможет. (что-то у меня сегодня лирическое настроение...). Если бы ты загружал в Image bmp-картинку, то её битмап был бы заполнен этой картинкой, имел бы ширину-высоту и с ним можно было работать на пиксельном уровне (с Канвой). Для jpg-файла все не так, - картинку ты видишь, но битмап не заполнен, обрабатывать Канву бессмысленно так как и Image->Picture->Bitmap ни ширины, ни высоты не имеет. Далее: ты применил OpenPictureDialog, так логично было бы использовать вместо SaveDialog SavePictureDialog. И, наконец, я рекомендовал строчку кода для "ограничения динамического диапазона", ты ее вставил, но только для одного цвета; нужно еще для двух остальных. Используя советы, полученные на форуме, нужно бы понимать, что та или иная строчка кода делает, иначе мало толку от такой "помощи".

Можешь подправить код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
#include <jpeg.hpp>
void __fastcall TForm1::Open1Click(TObject *Sender)
{
if(OpenPictureDialog1-> Execute()) //Îïåðàòîð ÷òåíèÿ èçîáðàæåíèÿ èç ôàéëà
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::ProcessingClick(TObject *Sender)
{
int J,JH,I,IH,mr,mg,mb;                 // îáúÿâëÿåì íåîáõîäèìûå ïåðåìåííûå
 
IH=Image1->Picture->Bitmap->Height;     // îïðåäåëÿåì âûñîòó èñõîäíîãî èçîáðàæåíèÿ
JH=Image1->Picture->Bitmap->Width;      // îïðåäåëÿåì øèðèíó èñõîäíîãî èçîáðàæåíèÿ
Image2->Picture->Bitmap->Height=JH;     // ïðèñâàèâàåì çíà÷åíèå âûñîòû ðåçóëüòèðóþùåìó èçîáðàæåíèþ
Image2->Picture->Bitmap->Width=IH;      // ïðèñâàèâàåì çíà÷åíèå øèðèíû ðåçóëüòèðóþùåìó èçîáðàæåíèþ
 
// èñêëþ÷àåì âîçìîæíîñòü âûõîäà çà 8-è ðàçðÿäíóþ ñåòêó íîâûõ çíà÷åíèé èíòåíñèâíîñòåé.
// Òåì ñàìûì ïðåäîòâðàùàåì èñêàæåíèÿ, ñâÿçàííûå ñ ïåðåãðóçêîé
// Öèêë ñ÷èòûâàíèÿ çíà÷åíèé èíòåíñèâíîñòè òðåõ êîìïîíåíòîâ (êðàñíîé, çåëåíîé, ñèíèé)
for(I = 0; I <IH; I++)
for(J = 0; J < JH; J++)
{
// ïîïèêñåëüíîå ÷òåíèå
mr=GetRValue(Image1->Canvas->Pixels[J][I]);     // ÷òåíèå èíòåíñèâíîñòè êîìïîíåíòû êðàñíîãî
mg=GetGValue(Image1->Canvas->Pixels[J][I]);     // ÷òåíèå èíòåíñèâíîñòè êîìïîíåíòû çåëåíîãî
mb=GetBValue(Image1->Canvas->Pixels[J][I]);     // ÷òåíèå èíòåíñèâíîñòè êîìïîíåíòû ñèíåãî
mr=1.5*mr;    mg=1.5*mg;  mb=1.5*mb;            // ïðåîáðàçîâàíèå
 
// Îãðàíè÷åíèå äèíàìè÷åñêîãî äèàïàçîíà
if ((mb = (int)mb*1.5)>255) mb = 255;
if ((mb = (int)mb*1.5)<0) mb = 0;
if ((mr = (int)mr*1.5)>255) mr = 255;
if ((mr = (int)mr*1.5)<0) mr=0;
if ((mg = (int)mg*1.5)>255) mg = 255;
if ((mg = (int)mg*1.5)<0) mg = 0;
 
 
// çàïèñü â îáðàáîòàííîå èçîáðàæåíèå íîâûõ çíà÷åíèé èíòåíñèâíîñòåé
Image2->Picture->Bitmap->Canvas->Pixels[J][I] = (TColor)RGB(mr, mg, mb);
// Ïîäêëþ÷àåì ïðîãðåññ-áàð
ProgressBar1->Position = I*100/IH;
}
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Save1Click(TObject *Sender)
{
if(SaveDialog1->Execute())
Image2->Picture->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Close1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

@nick42 · 27.04.2013, 18:00

GetBValue(Image1->Canvas->Pixels[J][I]) возвращает 8-и битное значение (байт). Ты помещаешь это значение в 32-битную ячейку (int); эта величина уже заведомо положительная ( < 256). Вот эта запись...

C++
1
if ((mb = (int)mb*1.5)>255) mb = 255;

умножает величину mb на 1.5 и при этом анализирует: если произведение не более 255, оно не меняется, если же больше - заменяется на 255; незачем было писать строчку умножения mb, mg, mr перед этим! И анализировать на < 0 тоже ни к чему... - умножая положительную величину на положительную, минус получить трудно (разве что коэффициент многомиллионный; так тогда можно объявлять mb и др. как беззнаковый int. Так в общем в коде больше ничего менять и не надо, с файлами bmp он нормально отрабатывает. Если же нужно работать с картинками jpg, то потребуются дополнительные "приседания". Поиском по форуму можно найти соотв. тему для изучения этой проблемы, - здесь об этом не раз писалось.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	26.04.2013, 11:33
	Просто добавляй перед RGB указание на тип: (TColor*)RGB 1

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	26.04.2013, 12:15
	что именно не работает... - по прежнему Warning ? Добавлено через 4 минуты хотя правильно: тогда TColor без звездочки. 2

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	26.04.2013, 22:42
	.. ну, значит называть клавиши нужно благозвучно (желательно с цифровыми индексами). А то назовут клавишу например: Close - и потом на форум с претензиями. А как компилятору со всем эти париться?! 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	26.04.2013, 23:17
	Што "код"? Я ж сказал: назовите клавишу, скажем, Close1 или Close66 и пишите себе на событие Close1Click()... Добавлено через 4 минуты .. встретив Close компилятор в первую очередь ищет среди пользовательских объявлений (а там "это" уже есть как TButton) и только потом среди стандартных функций. Поэтому нужно с осторожностью - и это общее правило! - придумывать названия своим переменным. 1

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	27.04.2013, 16:18
	Тип файла ты сможешь выбирать, когда в Инспекторе Объектов распишешь строчки для Filter. Но это вряд ли поможет. (что-то у меня сегодня лирическое настроение...). Если бы ты загружал в Image bmp-картинку, то её битмап был бы заполнен этой картинкой, имел бы ширину-высоту и с ним можно было работать на пиксельном уровне (с Канвой). Для jpg-файла все не так, - картинку ты видишь, но битмап не заполнен, обрабатывать Канву бессмысленно так как и Image->Picture->Bitmap ни ширины, ни высоты не имеет. Далее: ты применил OpenPictureDialog, так логично было бы использовать вместо SaveDialog SavePictureDialog. И, наконец, я рекомендовал строчку кода для "ограничения динамического диапазона", ты ее вставил, но только для одного цвета; нужно еще для двух остальных. Используя советы, полученные на форуме, нужно бы понимать, что та или иная строчка кода делает, иначе мало толку от такой "помощи". 0