Luciano Carou: Página creada con «=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= Category:MANUAL/PROGRAMADOR Category:CONTROLES/FORMS Ancestro: TfvsForm Carpeta: C:\DevelopPrx\explorer *Arch…»

2025-05-29T13:43:12Z

Página creada con «=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'''. miniaturadeimagen|no|Seleccionar un bitmap al crear un nuevo nodo de menú. =Identidad= Category:MANUAL/PROGRAMADOR Category:CONTROLES/FORMS *Ancestro: TfvsForm *Carpeta: C:\DevelopPrx\explorer *Arch…»

Página nueva

=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'''.

[[Archivo:20250529 1042 SELECCIONAR UN BITMAP.png|miniaturadeimagen|no|Seleccionar un bitmap al crear un nuevo nodo de menú.]]

=[[QUEESESTO/IDENTIDAD|Identidad]]=
[[Category:MANUAL/PROGRAMADOR]]
[[Category:CONTROLES/FORMS]]
*Ancestro: [[TfvsForm]]
*Carpeta: C:\DevelopPrx\explorer
*Archivo: fva_select_bitmap_form.pas

=Declaración=
<pre>
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;

</pre>

=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''':
<pre>
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
</pre>

Con el siguiente comando lo asigna al campo que estamos editando:
<pre>
Field.Value := vB.bitmap_id;
</pre>

TTfva select bitmap form - Historial de revisiones