(* * CDDL HEADER START * * The contents of this file are subject to the terms of the * Common Development and Distribution License, Version 1.0 only * (the "License"). You may not use this file except in compliance * with the License. * * You can obtain a copy of the license at * http://www.opensource.org/licenses/cddl1.php. * See the License for the specific language governing permissions * and limitations under the License. * * When distributing Covered Code, include this CDDL HEADER in each * file and include the License file at * http://www.opensource.org/licenses/cddl1.php. If applicable, * add the following below this CDDL HEADER, with the fields enclosed * by brackets "[]" replaced with your own identifying * information: * Portions Copyright [yyyy] [name of copyright owner] * * CDDL HEADER END * * * Portions Copyright 2007 Andreas Schneider *) unit UfrmConfirmation; {$mode objfpc}{$H+} interface uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TfrmConfirmation } TfrmConfirmation = class(TForm) btnYes: TButton; btnNo: TButton; procedure FormCreate(Sender: TObject); private { private declarations } public { public declarations } end; var frmConfirmation: TfrmConfirmation; implementation uses Language; { TfrmConfirmation } procedure TfrmConfirmation.FormCreate(Sender: TObject); begin LanguageTranslate(Self); end; initialization {$I UfrmConfirmation.lrs} end.