FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
inputMemoBox
hola gente, estaba necesitando algo similar al inputBox, pero que me lea un Memo, asi que como no tenia ganas de buscar los escribi basandome en el inputbox.
y lo quiero dejar a su disposicion si algun dia necesitan algo asi. suerte ... fede. Código:
unit uVarios; //Federico larsen fede@ufasta.edu.ar interface uses forms,StdCtrls,Windows,Dialogs,Graphics, Consts, Controls; function InputMemoBox(const ACaption, APrompt, ADefault: string): string; function InputMemoQuery(const ACaption, APrompt: string; var Value: string): Boolean; implementation function GetAveCharSize(Canvas: TCanvas): TPoint; var I: Integer; Buffer: array[0..51] of Char; begin for I := 0 to 25 do Buffer[i] := Chr(I + Ord('A')); for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a')); GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result)); Result.X := Result.X div 52; end; function InputMemoQuery(const ACaption, APrompt: string; var Value: string): Boolean; var Form: TForm; Prompt: TLabel; memo: TMemo; DialogUnits: TPoint; ButtonTop, ButtonWidth, ButtonHeight: Integer; begin Result := False; Form := TForm.Create(Application); with Form do try Canvas.Font := Font; DialogUnits := GetAveCharSize(Canvas); BorderStyle := bsDialog; Caption := ACaption; ClientWidth := MulDiv(180, DialogUnits.X, 4); Position := poScreenCenter; Prompt := TLabel.Create(Form); with Prompt do begin Parent := Form; Caption := APrompt; Left := MulDiv(8, DialogUnits.X, 4); Top := MulDiv(8, DialogUnits.Y, 8); Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4); WordWrap := True; end; memo := TMemo.Create(form); with memo do begin Parent := Form; Left := Prompt.Left; Top := Prompt.Top + Prompt.Height + 5; Width := MulDiv(164, DialogUnits.X, 4); MaxLength := 255; Text := Value; SelectAll; end; ButtonTop := memo.Top + memo.Height + 15; ButtonWidth := MulDiv(50, DialogUnits.X, 4); ButtonHeight := MulDiv(14, DialogUnits.Y, 8); with TButton.Create(Form) do begin Parent := Form; Caption := SMsgDlgOK; ModalResult := mrOk; Default := True; SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth, ButtonHeight); end; with TButton.Create(Form) do begin Parent := Form; Caption := SMsgDlgCancel; ModalResult := mrCancel; Cancel := True; SetBounds(MulDiv(92, DialogUnits.X, 4), memo.Top + memo.Height + 15, ButtonWidth, ButtonHeight); Form.ClientHeight := Top + Height + 13; end; if ShowModal = mrOk then begin Value := memo.Text; Result := True; end; finally Form.Free; end; end; function InputMemoBox(const ACaption, APrompt, ADefault: string): string; begin Result := ADefault; InputMemoQuery(ACaption, APrompt, Result); end; end.
__________________
El secreto de la libertad está en no tener miedo. |
#2
|
||||
|
||||
Esta noche lo pruebo para ver como funciona, pero ante todo muchísimas gracias por aportarlo al Foro.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
buenisimo ... el feedback es bien recibido siempre....
suludos
__________________
El secreto de la libertad está en no tener miedo. |
#4
|
||||
|
||||
A mi a primera vista (no he estudiado el código a detalle) me parece muy útil, muy práctico, muy profesional y muy generoso.
Realmente me gustó. // Saludos |
#5
|
|||
|
|||
siguiento con el tema de los inputBox, hice uno que es un inputPassBox, que te devuelve un string al igual que el inputBox, pero tiene el passwordChar ='*', asi que sirve para el ingreso de contraseñas.
aqui paso la unit uVarios.pass con el inputMemoBox y el inputPassBox Código:
unit uVarios; interface uses forms,StdCtrls,Windows,Dialogs,Graphics, Consts, Controls; function InputMemoBox(const ACaption, APrompt, ADefault: string): string; function InputMemoQuery(const ACaption, APrompt: string; var Value: string): Boolean; function InputPassBox(const ACaption, APrompt, ADefault: string): string; function InputPassQuery(const ACaption, APrompt: string; var Value: string): Boolean; implementation function GetAveCharSize(Canvas: TCanvas): TPoint; var I: Integer; Buffer: array[0..51] of Char; begin for I := 0 to 25 do Buffer[i] := Chr(I + Ord('A')); for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a')); GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result)); Result.X := Result.X div 52; end; function InputMemoQuery(const ACaption, APrompt: string; var Value: string): Boolean; var Form: TForm; Prompt: TLabel; memo: TMemo; DialogUnits: TPoint; ButtonTop, ButtonWidth, ButtonHeight: Integer; begin Result := False; Form := TForm.Create(Application); with Form do try Canvas.Font := Font; DialogUnits := GetAveCharSize(Canvas); BorderStyle := bsDialog; Caption := ACaption; ClientWidth := MulDiv(180, DialogUnits.X, 4); Position := poScreenCenter; Prompt := TLabel.Create(Form); with Prompt do begin Parent := Form; Caption := APrompt; Left := MulDiv(8, DialogUnits.X, 4); Top := MulDiv(8, DialogUnits.Y, 8); Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4); WordWrap := True; end; memo := TMemo.Create(form); with memo do begin Parent := Form; Left := Prompt.Left; Top := Prompt.Top + Prompt.Height + 5; Width := MulDiv(164, DialogUnits.X, 4); MaxLength := 255; Text := Value; SelectAll; end; ButtonTop := memo.Top + memo.Height + 15; ButtonWidth := MulDiv(50, DialogUnits.X, 4); ButtonHeight := MulDiv(14, DialogUnits.Y, 8); with TButton.Create(Form) do begin Parent := Form; Caption := SMsgDlgOK; ModalResult := mrOk; Default := True; SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth, ButtonHeight); end; with TButton.Create(Form) do begin Parent := Form; Caption := SMsgDlgCancel; ModalResult := mrCancel; Cancel := True; SetBounds(MulDiv(92, DialogUnits.X, 4), memo.Top + memo.Height + 15, ButtonWidth, ButtonHeight); Form.ClientHeight := Top + Height + 13; end; if ShowModal = mrOk then begin Value := memo.Text; Result := True; end; finally Form.Free; end; end; function InputMemoBox(const ACaption, APrompt, ADefault: string): string; begin Result := ADefault; InputMemoQuery(ACaption, APrompt, Result); end; function InputPassBox(const ACaption, APrompt, ADefault: string): string; begin Result := ADefault; InputPassQuery(ACaption, APrompt, Result); end; function InputPassQuery(const ACaption, APrompt: string; var Value: string): Boolean; var Form: TForm; Prompt: TLabel; Edit: TEdit; DialogUnits: TPoint; ButtonTop, ButtonWidth, ButtonHeight: Integer; begin Result := False; Form := TForm.Create(Application); with Form do try Canvas.Font := Font; DialogUnits := GetAveCharSize(Canvas); BorderStyle := bsDialog; Caption := ACaption; ClientWidth := MulDiv(180, DialogUnits.X, 4); Position := poScreenCenter; Prompt := TLabel.Create(Form); with Prompt do begin Parent := Form; Caption := APrompt; Left := MulDiv(8, DialogUnits.X, 4); Top := MulDiv(8, DialogUnits.Y, 8); Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4); WordWrap := True; end; Edit := TEdit.Create(Form); with Edit do begin Parent := Form; Left := Prompt.Left; Top := Prompt.Top + Prompt.Height + 5; Width := MulDiv(164, DialogUnits.X, 4); MaxLength := 255; PasswordChar := '*'; Text := Value; SelectAll; end; ButtonTop := Edit.Top + Edit.Height + 15; ButtonWidth := MulDiv(50, DialogUnits.X, 4); ButtonHeight := MulDiv(14, DialogUnits.Y, 8); with TButton.Create(Form) do begin Parent := Form; Caption := SMsgDlgOK; ModalResult := mrOk; Default := True; SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth, ButtonHeight); end; with TButton.Create(Form) do begin Parent := Form; Caption := SMsgDlgCancel; ModalResult := mrCancel; Cancel := True; SetBounds(MulDiv(92, DialogUnits.X, 4), Edit.Top + Edit.Height + 15, ButtonWidth, ButtonHeight); Form.ClientHeight := Top + Height + 13; end; if ShowModal = mrOk then begin Value := Edit.Text; Result := True; end; finally Form.Free; end; end; end.
__________________
El secreto de la libertad está en no tener miedo. |
|
|
|