pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Lowercase all remaining unit and package names.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6953 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-26 22:58:36 +00:00
parent ad9b3eb976
commit 997c331dda
82 changed files with 142 additions and 201 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
components/jvcllaz/run/JvJans/jvyeargrideditform.pas Normal file
View File

@ -0,0 +1,80 @@
{-----------------------------------------------------------------------------
The contents of this file are subject to the Mozilla Public License
Version 1.1 (the "License"); you may not use this file except in compliance
with the License. You may obtain a copy of the License at
http://www.mozilla.org/MPL/MPL-1.1.html
Software distributed under the License is distributed on an "AS IS" basis,
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
the specific language governing rights and limitations under the License.
The Original Code is: JvYearGridEdit.PAS, released on 2002-06-15.
The Initial Developer of the Original Code is Jan Verhoeven [jan1 dott verhoeven att wxs dott nl]
Portions created by Jan Verhoeven are Copyright (C) 2002 Jan Verhoeven.
All Rights Reserved.
Contributor(s): Robert Love [rlove att slcdug dott org].
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
located at http://jvcl.delphi-jedi.org
Known Issues:
-----------------------------------------------------------------------------}
// $Id$
unit JvYearGridEditForm;
{$mode objfpc}{$H+}
interface
uses
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,
JvComponent;
type
{ TYearGridEditForm }
TYearGridEditForm = class(TForm) //JvForm)
Panel1: TPanel;
BtnOK: TBitBtn;
BitCancel: TBitBtn;
MemoText: TMemo;
BtnLoad: TButton;
BtnSave: TButton;
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
procedure BtnLoadClick(Sender: TObject);
procedure BtnSaveClick(Sender: TObject);
procedure FormShow(Sender: TObject);
public
end;
implementation
{$R *.lfm}
procedure TYearGridEditForm.BtnLoadClick(Sender: TObject);
begin
if OpenDialog.Execute then
MemoText.Lines.LoadFromFile(OpenDialog.FileName);
MemoText.SetFocus;
end;
procedure TYearGridEditForm.BtnSaveClick(Sender: TObject);
begin
if SaveDialog.Execute then
MemoText.Lines.SaveToFile(SaveDialog.FileName);
MemoText.SetFocus;
end;
procedure TYearGridEditForm.FormShow(Sender: TObject);
begin
MemoText.SetFocus;
end;
end.