Недавно добавленные исходники

•  TDictionary Custom Sort  2 344

•  Fast Watermark Sources  2 230

•  3D Designer  3 852

•  Sik Screen Capture  2 618

•  Patch Maker  2 787

•  Айболит (remote control)  2 630

•  ListBox Drag & Drop  2 224

•  Доска для игры Реверси  72 673

•  Графические эффекты  2 881

•  Рисование по маске  2 280

•  Перетаскивание изображений  1 874

•  Canvas Drawing  1 900

•  Рисование Луны  1 874

•  Поворот изображения  1 462

•  Рисование стержней  1 511

•  Paint on Shape  1 047

•  Генератор кроссвордов  1 612

•  Головоломка Paletto  1 253

•  Теорема Монжа об окружностях  1 604

•  Пазл Numbrix  1 156

•  Заборы и коммивояжеры  1 413

•  Игра HIP  984

•  Игра Go (Го)  934

•  Симулятор лифта  1 068

•  Программа укладки плитки  890

•  Генератор лабиринта  1 164

•  Проверка числового ввода  962

•  HEX View  1 128

•  Физический маятник  967

•  Задача коммивояжера  1 029

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



BotTrade - Заработок на криптовалютах

Автосмена расширения файла в строке ввода OpenDialog при смене типа файла



Автор: Павел Озерский

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Автосмена расширения файла в строке ввода OpenDialog при смене типа файла

Кусок из моей программы, в котором автоматически изменяется расширение файла в
строке редактирования имени файла в OpenDialog (у меня - в его наследнике), если
пользователь изменяет тип файла. Функция CustomOnTypeChange должна быть поставлена
как обработчик события OnTypeChange.

Зависимости: Windows, SysUtils, Forms, Dialogs
Автор:       Павел Озерский, pavel@insect.mail.iephb.ru, Санкт-Петербург
Copyright:   Cобственное написание (Павел Озерский), небольшая коррекция - Игорь Плотников
Дата:        18 апреля 2002 г.
***************************************************** }

type
  tHookParam = packed record
    case integer of
      0: (l: longint);
      1: (
        iDX: byte;
        isOpen: byteBool;
        xtLen: word);
  end;
const
  DX: array[1..5] of string[3] = ('bmp', 'tif', 'jpg', '', '');

function dHook(h: tHandle; param: longint): longbool; stdcall;
var
  ss: shortstring;
  ls: ansistring;
  hp: tHookParam absolute param;
begin
  byte(ss[0]) := GetClassName(h, @ss[1], 255);
  if ss = 'Edit' then
  begin
    if hp.isOpen then
      ls := ''
    else
    begin
      byte(ss[0]) := GetWindowText(h, @ss[1], 255);
      ls := ChangeFileExt(ss, '.' + DX[hp.iDX]);
    end;
    SetWindowText(h, pchar(ls));
    result := false;
  end
  else
    Result := true;
end;
{$O-}

procedure TMultiFormatOpenPictureDialog.CustomOnTypeChange(Sender: tObject);
var
  ext: string;
  SaveStyle: boolean;
  hp: tHookParam;
begin
  hp.isOpen := not (Sender is tSaveDialog);
  hp.iDX := tOpenDialog(Sender).FilterIndex;
  tOpenDialog(Sender).DefaultExt := DX[hp.iDX];
  ext := extractFileExt(tOpenDialog(Sender).filename);
  hp.xtLen := length(ext);
  if (ext <> '') and (DX[tOpenDialog(Sender).FilterIndex] <> '') then
    if ext[1] = '.' then
    begin
      SaveStyle := NewStyleControls;
      NewStyleControls := false;

      tOpenDialog(Sender).filename := copy(tOpenDialog(Sender).filename, 1,
        length(tOpenDialog(Sender).filename) - length(ext)) + '.' +
        tOpenDialog(Sender).DefaultExt;
      EnumChildWindows(GetParent(tOpenDialog(Sender).handle), @dHook, hp.l);
      NewStyleControls := SaveStyle;
    end;
end;
{$O+}




Похожие по теме исходники

Разбиение файла на части

Текст внутри файла

Проверка числового ввода

OpenDialog Style

 

Примеры работы с БД

Примеры оформления DBGrid

Пример использования DBGrid

База предприятий и менеджеров 0.99

 

Консольное DOS приложение

Работа с принтером

Локализация приложений




Copyright © 2004-2023 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте