TTfva select bitmap form

Descripción

El objeto TTfva_select_bitmap_form (Selección de bitmaps.) permite seleccionar un bitmap de una lista cuando el atributo del campo editado es prxBITMAPID.

Seleccionar un bitmap al crear un nuevo nodo de menú.

Identidad

• Ancestro: TfvsForm
• Carpeta: C:\DevelopPrx\explorer
• Archivo: fva_select_bitmap_form.pas

Declaración

type
  TTfva_select_bitmap_form = class(TTfvsForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button_APLICAR: TButton;
    Button_CANCELAR: TButton;
    prxListView_IMAGENES: TprxListView;
    procedure   FormShow(Sender: TObject);
    procedure   FormActivate(Sender: TObject);
    procedure   FormDestroy(Sender: TObject);
    procedure   Button_APLICARClick(Sender: TObject);
    procedure   Button_CANCELARClick(Sender: TObject);
    procedure   prxListView_IMAGENESKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    Fbitmap_id: String;

    procedure   CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN;
  protected
    function    get_bitmap_id: String;
  public
    property    bitmap_id: String read get_bitmap_id write Fbitmap_id;
  end;

Implementación

procedure FormShow(Sender: TObject)

Carga la lista de bitmaps desde TfvsImageList que tiene todas las imágenes de la carpeta prxImages.

procedure Button_APLICARClick(Sender: TObject)

Retorna la imágen elegida y cierra el form con un ModalResult := mrOk.

procedure TTfva_select_bitmap_form.Button_CANCELARClick(Sender: TObject); Cierra el form con un ModalResult := mrCancel.

Uso

El form es abierto desde la función Tfva_campos_item.EDIT_SELECT solo cuando el atributo es de tipo prxBITMAPID:

if AnsiCompareText(Atributo, 'prxBITMAPID') = 0 then
   begin
   vB           := TTfva_select_bitmap_form.Create(Self);
   vB.bitmap_id := Field.AsString;
   vB.ShowModal;

   if vB.ModalResult = mrOk then
      Field.Value := vB.bitmap_id;

   vB.Release;
   end

Con el siguiente comando lo asigna al campo que estamos editando:

Field.Value := vB.bitmap_id;