Fatto.
x comodità ho creato due cartelle
1) cartella dfm: contiene tutti i .dfm
2) cartella pas: contiene tutti i .pas
Vediamo il + piccolo tra i .dfm che è diffDlg.dfm
object diffFrm: TdiffFrm
Left = 261
Top = 149
Width = 440
Height = 361
Caption = 'Customized options'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object memoBox: TMemo
Left = 0
Top = 0
Width = 432
Height = 334
Align = alClient
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 0
end
end
occorre tradurre, a parte Caption = 'Customized options' anche Left, Top ..... ?
Per quanto concerne i .pas (es.
unit folderKindDlg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, strUtils, ExtCtrls;
type
TfolderKindFrm = class(TForm)
realLbl: TLabel;
virtuaLbl: TLabel;
realBtn: TBitBtn;
virtuaBtn: TBitBtn;
Label3: TLabel;
hintLbl: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
procedure TfolderKindFrm.FormCreate(Sender: TObject);
begin
realBtn.Font.Style:=[fsBold];
with hintLbl do caption:=ansiReplaceStr(caption,'? ','?'#13);
end;
end.
Sono nel buio + completo
Give me some imput
Ciao
« Last Edit: February 13, 2007, 10:47:52 AM by fabnos »
E allora Dio creò l'uomo, gli diede un cervello ed un pene ma non sangue sufficiente a farli funzionare contemporaneamente.
_______
So, God created the man.
It gave him a brain and a penis.
Unfortunately not enough blood to contemporarily bedew them