Подсказки в строке состояния

Задача: При наведении мыши на определенный контрол, выводить подсказку о его назначении в строке состояния (StatusBar). Решение: С первого взгляда на проблему хочется тут же взяться и начать писать обработчики событий OnMouseEnter и OnMouseLeave вроде этих: void __fastcall TForm::SomeControlMouseEnter(TObject *Sender) { // Выводим сообщение в строку состояния StatusBar1->SimpleText = «Вы навели мышь на вот этот…

Доступ к элементам TRadioGroup

Если вы когда-нибудь пользовались компонентом TRadioGroup, то, пожалуй, знаете, насколько он удобен при динамическом формировании списка переключателей. Всего-то и нужно, что добавлять и удалять строки списка типа TStringList RadioGroup1->Items->Clear(); // удаление всех элементов RadioGroup1->Items->Add(«Первая точка»); // добавление новых RadioGroup1->Items->Add(«Вторая точка»); Ну и конечно же, вы знаете, что определить выбранную точку можно по значению свойства ItemIndex.…

Получить имена файлов в папке

Сканировать определенную папку и получить имена всех или определенных файлов вам позволит следующий код: int ires; TSearchRec SR; AnsiString ext; // Расширение. // Очищаем список файлов в компоненте ListBox List->Clear(); // Задаем параметры поиска: где искать и что. ires = FindFirst(«C:\\*.*», faAnyFile | faArchive, SR); while (ires == 0) { // Если нужны только определенные…

Новая рубрика: Кусочки кода

Давольно давно искал место, куда бы сваливать всякие полезные куски кода. Ведь как бывает: сталкиваешься с новой областью в программировании, начинаешь изучать. Находишь решение. И хочется, чтобы это решение не потерялось, чтобы его можно было быстро взять, если понадобиться в следующем проекте. Сначала хотел создать отдельный сайт, но поленился, и сделал эту рубрику. Встречайте. Code…

Конвертировать JPEG в BMP

Функция конвертирует файл формата jpeg в bmp. На входе полное имя файла, возвращает true в случае успешной конвертации. bool JPEG2BMP(AnsiString FileName) { TJPEGImage *jpg = new TJPEGImage; Graphics::TBitmap *bmp = new Graphics::TBitmap; bool ok = true; // Маркер хорошего поведения. try { jpg->CompressionQuality = 100; // Качество сжатия. jpg->LoadFromFile(FileName); // Загружаем jpeg. try { bmp->Assign(jpg);…