paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 06:57:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

added two new examples from Michael VC

Browse Source 
git-svn-id: trunk@5812 -
This commit is contained in:
mattias 2004-08-17 19:58:53 +00:00
parent 341ac9b2d1
commit 6af56af31a
25 changed files with 3223 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
.gitattributes vendored
View File

@ -397,6 +397,17 @@ docs/xml/lcl/toolwin.xml svneol=native#text/xml
docs/xml/lcl/utrace.xml svneol=native#text/xml
docs/xml/lcl/vclglobals.xml svneol=native#text/xml
docs/xml/make_all_skel.sh -text svneol=native#application/x-sh
examples/address_book/addrbook.dpr svneol=native#text/pascal
examples/address_book/addrbook.lpi svneol=native#text/plain
examples/address_book/addrbook.lpr svneol=native#text/pascal
examples/address_book/addrbook.res svneol=native#unset
examples/address_book/frmmain.lfm svneol=native#text/plain
examples/address_book/frmmain.lrs svneol=native#text/pascal
examples/address_book/frmmain.pas svneol=native#text/pascal
examples/address_book/mybook.dbf svneol=native#unset
examples/address_book/mybook.mdx svneol=native#unset
examples/address_book/mybook2.dbf svneol=native#unset
examples/address_book/mybook2.mdx svneol=native#unset
examples/bitbtnform.pp svneol=native#text/pascal
examples/bitbutton.pp svneol=native#text/pascal
examples/checkbox.pp svneol=native#text/pascal
@ -423,6 +434,16 @@ examples/gtkglarea/gtkglarea_demo.lpi svneol=native#text/plain
examples/gtkglarea/gtkglarea_demo.pp svneol=native#text/pascal
examples/hello.pp svneol=native#text/pascal
examples/helloform.pp svneol=native#text/pascal
examples/imgviewer/file.bmp -text svneol=native#image/bmp
examples/imgviewer/file.xpm -text svneol=native#image/x-xpixmap
examples/imgviewer/frmmain.lfm svneol=native#text/plain
examples/imgviewer/frmmain.lrs svneol=native#text/pascal
examples/imgviewer/frmmain.pas svneol=native#text/pascal
examples/imgviewer/images.bmp -text svneol=native#image/bmp
examples/imgviewer/imgview.dpr svneol=native#text/pascal
examples/imgviewer/imgview.lpi svneol=native#text/plain
examples/imgviewer/imgview.lpr svneol=native#text/pascal
examples/imgviewer/imgview.res svneol=native#unset
examples/lazintfimage/fadein1.lpi svneol=native#text/plain
examples/lazintfimage/fadein1.lpr svneol=native#text/pascal
examples/lazintfimage/mainunit1.lfm svneol=native#text/plain

14
examples/address_book/addrbook.dpr Normal file
View File

@ -0,0 +1,14 @@
program addrbook;
uses
Forms,
frmmain in 'frmmain.pas' {MainForm};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'Address Book';
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

73
examples/address_book/addrbook.lpi Normal file
View File

@ -0,0 +1,73 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="3"/>
<General>
<ProjectType Value="Application"/>
<Flags>
<SaveClosedFiles Value="False"/>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<ActiveEditorIndexAtStart Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="addrbook"/>
</General>
<Units Count="2">
<Unit0>
<CursorPos X="20" Y="21"/>
<EditorIndex Value="1"/>
<Filename Value="addrbook.lpr"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="addrbook"/>
<UsageCount Value="32"/>
</Unit0>
<Unit1>
<CursorPos X="20" Y="22"/>
<EditorIndex Value="0"/>
<Filename Value="frmmain.pas"/>
<ComponentName Value="MainForm"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="frmmain.lrs"/>
<TopLine Value="1"/>
<UnitName Value="frmmain"/>
<UsageCount Value="32"/>
</Unit1>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="2"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
<CustomOptions Value="-ddsdebug"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

35
examples/address_book/addrbook.lpr Normal file
View File

@ -0,0 +1,35 @@
{
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
}
program addrbook;
{$librarypath /opt/gnome/lib}
{$mode objfpc}{$H+}
uses
Interfaces,
frmmain,
Forms;
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

BIN
examples/address_book/addrbook.res Normal file
View File

Binary file not shown.

490
examples/address_book/frmmain.dfm Normal file
View File

@ -0,0 +1,490 @@
object MainForm: TMainForm
Left = 319
Top = 165
Width = 734
Height = 522
ActiveControl = GDBA
Caption = 'Addressbook'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MMain
OnClose = FormClose
OnCloseQuery = FormCloseQuery
PixelsPerInch = 120
TextHeight = 16
object PTop: TPanel
Left = 0
Top = 0
Width = 726
Height = 33
Align = alTop
BevelOuter = bvLowered
TabOrder = 0
object DBNavigator1: TDBNavigator
Left = 448
Top = 4
Width = 260
Height = 25
DataSource = DSAddress
Anchors = [akTop, akRight]
TabOrder = 0
end
end
object GDBA: TDBGrid
Left = 0
Top = 33
Width = 726
Height = 203
Align = alClient
DataSource = DSAddress
TabOrder = 1
Columns = <
item
FieldName = 'FirstName'
Title.Caption = 'First name'
Width = 117
Visible = True
end
item
FieldName = 'LastName'
Title.Caption = 'Last name'
Width = 127
Visible = True
end
item
FieldName = 'Street'
Title.Caption = 'Street '
Width = 131
Visible = True
end
item
FieldName = 'Zip'
Title.Caption = 'Zip '
Visible = True
end
item
FieldName = 'Town'
Title.Caption = 'Town '
Width = 100
Visible = True
end
item
FieldName = 'Country'
Title.Caption = 'Country '
Visible = True
end
item
FieldName = 'Telephone'
Title.Caption = 'Telephone '
Visible = True
end
item
FieldName = 'Fax'
Title.Caption = 'Fax '
Visible = True
end
item
FieldName = 'Mobile'
Title.Caption = 'Mobile '
Visible = True
end
item
FieldName = 'Email'
Title.Caption = 'Email '
Visible = True
end
item
FieldName = 'WWW'
Title.Caption = 'WWW '
Visible = True
end>
end
object PBottom: TPanel
Left = 0
Top = 236
Width = 726
Height = 230
Align = alBottom
BevelOuter = bvLowered
TabOrder = 2
object LELastName: TLabel
Left = 8
Top = 8
Width = 144
Height = 24
Alignment = taRightJustify
AutoSize = False
Caption = '&Last name'
FocusControl = ELastName
Layout = tlCenter
end
object LEFirstName: TLabel
Left = 8
Top = 32
Width = 144
Height = 24
Alignment = taRightJustify
AutoSize = False
Caption = '&First name'
FocusControl = EFirstName
Layout = tlCenter
end
object LEStreet: TLabel
Left = 8
Top = 64
Width = 144
Height = 24
Alignment = taRightJustify
AutoSize = False
Caption = '&Street'
FocusControl = EStreet
Layout = tlCenter
end
object LEZip: TLabel
Left = 8
Top = 88
Width = 144
Height = 24
Alignment = taRightJustify
AutoSize = False
Caption = '&Zip'
FocusControl = EZip
Layout = tlCenter
end
object LETown: TLabel
Left = 264
Top = 88
Width = 41
Height = 24
Alignment = taRightJustify
AutoSize = False
Caption = 'T&own'
FocusControl = ETown
Layout = tlCenter
end
object LETelephone: TLabel
Left = 8
Top = 144
Width = 144
Height = 24
Alignment = taRightJustify
AutoSize = False
Caption = '&Telephone'
FocusControl = ETelephone
Layout = tlCenter
end
object LECountry: TLabel
Left = 8
Top = 112
Width = 144
Height = 24
Alignment = taRightJustify
AutoSize = False
Caption = 'Countr&y'
FocusControl = ECountry
Layout = tlCenter
end
object LEFax: TLabel
Left = 288
Top = 144
Width = 41
Height = 24
Alignment = taRightJustify
AutoSize = False
Caption = 'Fa&x'
FocusControl = EFax
Layout = tlCenter
end
object LEMobile: TLabel
Left = 472
Top = 144
Width = 41
Height = 24
Alignment = taRightJustify
AutoSize = False
Caption = '&Mobile'
FocusControl = EMobile
Layout = tlCenter
end
object LEEmail: TLabel
Left = 8
Top = 176
Width = 144
Height = 24
Alignment = taRightJustify
AutoSize = False
Caption = '&Email'
FocusControl = EEmail
Layout = tlCenter
end
object LEWWW: TLabel
Left = 8
Top = 200
Width = 144
Height = 24
Alignment = taRightJustify
AutoSize = False
Caption = '&WWW'
FocusControl = EWWW
Layout = tlCenter
end
object ELastName: TDBEdit
Left = 160
Top = 8
Width = 361
Height = 24
DataField = 'LastName'
DataSource = DSAddress
TabOrder = 0
end
object EFirstName: TDBEdit
Left = 160
Top = 32
Width = 361
Height = 24
DataField = 'FirstName'
DataSource = DSAddress
TabOrder = 1
end
object EStreet: TDBEdit
Left = 160
Top = 64
Width = 361
Height = 24
DataField = 'Street'
DataSource = DSAddress
TabOrder = 2
end
object EZip: TDBEdit
Left = 160
Top = 88
Width = 89
Height = 24
DataField = 'Zip'
DataSource = DSAddress
TabOrder = 3
end
object ECountry: TDBEdit
Left = 160
Top = 112
Width = 361
Height = 24
DataField = 'Country'
DataSource = DSAddress
TabOrder = 5
end
object EWWW: TDBEdit
Left = 160
Top = 200
Width = 361
Height = 24
DataField = 'WWW'
DataSource = DSAddress
TabOrder = 10
end
object ETelephone: TDBEdit
Left = 160
Top = 144
Width = 121
Height = 24
DataField = 'Telephone'
DataSource = DSAddress
TabOrder = 6
end
object EFax: TDBEdit
Left = 336
Top = 144
Width = 121
Height = 24
DataField = 'Fax'
DataSource = DSAddress
TabOrder = 7
end
object EMobile: TDBEdit
Left = 520
Top = 144
Width = 121
Height = 24
DataField = 'Mobile'
DataSource = DSAddress
TabOrder = 8
end
object EEmail: TDBEdit
Left = 160
Top = 176
Width = 361
Height = 24
DataField = 'Email'
DataSource = DSAddress
TabOrder = 9
end
object ETown: TDBEdit
Left = 312
Top = 88
Width = 209
Height = 24
DataField = 'Town'
DataSource = DSAddress
TabOrder = 4
end
end
object MMain: TMainMenu
Left = 64
Top = 72
object MFile: TMenuItem
Caption = '&File'
object MINew: TMenuItem
Action = ANew
end
object MIOpen: TMenuItem
Action = AOpen
end
object MIClose: TMenuItem
Action = AClose
end
object N1: TMenuItem
Caption = '-'
end
object MIQuit: TMenuItem
Action = AQuit
end
end
object Record1: TMenuItem
Caption = '&Record'
object MIFirst: TMenuItem
Action = AFirst
end
object MILAst: TMenuItem
Action = ALast
end
object MIPrior: TMenuItem
Action = APrior
end
object MINext: TMenuItem
Action = ANext
end
object N2: TMenuItem
Caption = '-'
end
object MIInsert: TMenuItem
Action = AInsert
end
object MIEdit: TMenuItem
Action = AEdit
end
object MIDelete: TMenuItem
Action = ADelete
end
object MIPost: TMenuItem
Action = APost
end
object MICancel: TMenuItem
Action = ACancel
end
object MIRefresh: TMenuItem
Action = ARefresh
end
end
end
object ALMain: TActionList
Left = 64
Top = 112
object ANew: TAction
Caption = '&New'
OnExecute = ANewExecute
end
object AOpen: TAction
Caption = '&Open'
ShortCut = 16463
OnExecute = AOpenExecute
end
object AClose: TAction
Caption = '&Close'
OnExecute = ACloseExecute
OnUpdate = ACloseUpdate
end
object AQuit: TAction
Caption = '&Quit'
ShortCut = 16465
OnExecute = AQuitExecute
end
object AFirst: TAction
Category = 'Dataset'
Caption = '&First'
ShortCut = 16454
end
object APrior: TAction
Category = 'Dataset'
Caption = '&Prior'
end
object ANext: TAction
Category = 'Dataset'
Caption = '&Next'
end
object ALast: TAction
Category = 'Dataset'
Caption = '&Last'
ShortCut = 16460
end
object AInsert: TAction
Category = 'Dataset'
Caption = '&Insert'
ShortCut = 16462
end
object ADelete: TAction
Category = 'Dataset'
Caption = '&Delete'
ShortCut = 16452
end
object AEdit: TAction
Category = 'Dataset'
Caption = '&Edit'
ShortCut = 113
end
object APost: TAction
Category = 'Dataset'
Caption = 'P&ost'
ShortCut = 16467
end
object ACancel: TAction
Category = 'Dataset'
Caption = '&Cancel'
end
object ARefresh: TAction
Category = 'Dataset'
Caption = '&Refresh'
ShortCut = 116
end
end
object DBA: TDbf
IndexDefs = <>
StoreDefs = True
TableLevel = 4
AfterInsert = DBAAfterInsert
Left = 96
Top = 112
end
object SDDBA: TSaveDialog
DefaultExt = '.dbf'
Filter = 'DBF files|*.dbf|All files|*.*'
Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
Left = 96
Top = 144
end
object ODDBA: TOpenDialog
DefaultExt = '.dbf'
Filter = 'DBF files|*.dbf|All files|*.*'
Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
Left = 64
Top = 144
end
object DSAddress: TDataSource
DataSet = DBA
Left = 128
Top = 112
end
end

547
examples/address_book/frmmain.lfm Normal file
View File

@ -0,0 +1,547 @@
object MainForm: TMainForm
ActiveControl = GDBA
Caption = 'Addressbook'
ClientHeight = 496
ClientWidth = 734
Font.Height = -13
Font.Name = 'MS Sans Serif'
Menu = MMain
OnClose = FormClose
OnCloseQuery = FormCloseQuery
TextHeight = 16
HorzScrollBar.Page = 735
VertScrollBar.Page = 497
Left = 319
Height = 522
Top = 165
Width = 734
object PTop: TPanel
Align = alTop
BevelOuter = bvLowered
ClientHeight = 33
ClientWidth = 734
FullRepaint = False
TabOrder = 0
Height = 33
Width = 734
object DBNavigator1: TDBNavigator
Anchors = [akTop, akRight]
BevelOuter = bvNone
ClientHeight = 25
ClientWidth = 260
DataSource = DSAddress
TabOrder = 0
Left = 456
Height = 25
Top = 4
Width = 260
end
end
object GDBA: TdbGrid
Align = alClient
Color = clWhite
DataSource = DSAddress
FixedColor = clBtnFace
ReadOnly = True
TabOrder = 1
Height = 203
Top = 33
Width = 734
Columns = <
item
FieldName = 'FirstName'
Title.Caption = 'First name'
Width = 117
end
item
FieldName = 'LastName'
Title.Caption = 'Last name'
Width = 127
end
item
FieldName = 'Street'
Title.Caption = 'Street '
Width = 131
end
item
FieldName = 'Zip'
Title.Caption = 'Zip '
end
item
FieldName = 'Town'
Title.Caption = 'Town '
Width = 100
end
item
FieldName = 'Country'
Title.Caption = 'Country '
end
item
FieldName = 'Telephone'
Title.Caption = 'Telephone '
end
item
FieldName = 'Fax'
Title.Caption = 'Fax '
end
item
FieldName = 'Mobile'
Title.Caption = 'Mobile '
end
item
FieldName = 'Email'
Title.Caption = 'Email '
end
item
FieldName = 'WWW'
Title.Caption = 'WWW '
end>
end
object PBottom: TPanel
Align = alBottom
BevelOuter = bvLowered
ClientHeight = 260
ClientWidth = 734
FullRepaint = False
TabOrder = 2
Height = 260
Top = 236
Width = 734
object LELastName: TLabel
Alignment = taRightJustify
Caption = '&Last name'
FocusControl = ELastName
Layout = tlCenter
Left = 8
Height = 24
Top = 8
Width = 144
end
object LEFirstName: TLabel
Alignment = taRightJustify
Caption = '&First name'
FocusControl = EFirstName
Layout = tlCenter
Left = 8
Height = 24
Top = 32
Width = 144
end
object LEStreet: TLabel
Alignment = taRightJustify
Caption = '&Street'
FocusControl = EStreet
Layout = tlCenter
Left = 8
Height = 24
Top = 64
Width = 144
end
object LEZip: TLabel
Alignment = taRightJustify
Caption = '&Zip'
FocusControl = EZip
Layout = tlCenter
Left = 8
Height = 24
Top = 88
Width = 144
end
object LETown: TLabel
Alignment = taRightJustify
Caption = 'T&own'
FocusControl = ETown
Layout = tlCenter
Left = 264
Height = 24
Top = 88
Width = 41
end
object LETelephone: TLabel
Alignment = taRightJustify
Caption = '&Telephone'
FocusControl = ETelephone
Layout = tlCenter
Left = 8
Height = 24
Top = 144
Width = 144
end
object LECountry: TLabel
Alignment = taRightJustify
Caption = 'Countr&y'
FocusControl = ECountry
Layout = tlCenter
Left = 8
Height = 24
Top = 112
Width = 144
end
object LEFax: TLabel
Alignment = taRightJustify
Caption = 'Fa&x'
FocusControl = EFax
Layout = tlCenter
Left = 288
Height = 24
Top = 144
Width = 41
end
object LEMobile: TLabel
Alignment = taRightJustify
Caption = '&Mobile'
FocusControl = EMobile
Layout = tlCenter
Left = 472
Height = 24
Top = 144
Width = 41
end
object LEEmail: TLabel
Alignment = taRightJustify
Caption = '&Email'
FocusControl = EEmail
Layout = tlCenter
Left = 8
Height = 24
Top = 176
Width = 144
end
object LEWWW: TLabel
Alignment = taRightJustify
Caption = '&WWW'
FocusControl = EWWW
Layout = tlCenter
Left = 8
Height = 24
Top = 200
Width = 144
end
object ELastName: TDBEdit
DataField = 'LastName'
DataSource = DSAddress
DragCursor = 65524
TabOrder = 0
TabOrder = 0
Left = 160
Height = 24
Top = 8
Width = 361
end
object EFirstName: TDBEdit
DataField = 'FirstName'
DataSource = DSAddress
DragCursor = 65524
TabOrder = 1
TabOrder = 1
Left = 160
Height = 24
Top = 32
Width = 361
end
object EStreet: TDBEdit
DataField = 'Street'
DataSource = DSAddress
DragCursor = 65524
TabOrder = 2
TabOrder = 2
Left = 160
Height = 24
Top = 64
Width = 361
end
object EZip: TDBEdit
DataField = 'Zip'
DataSource = DSAddress
DragCursor = 65524
TabOrder = 3
TabOrder = 3
Left = 160
Height = 24
Top = 88
Width = 89
end
object ECountry: TDBEdit
DataField = 'Country'
DataSource = DSAddress
DragCursor = 65524
TabOrder = 5
TabOrder = 5
Left = 160
Height = 24
Top = 112
Width = 361
end
object EWWW: TDBEdit
DataField = 'WWW'
DataSource = DSAddress
DragCursor = 65524
TabOrder = 10
TabOrder = 10
Left = 160
Height = 24
Top = 200
Width = 361
end
object ETelephone: TDBEdit
DataField = 'Telephone'
DataSource = DSAddress
DragCursor = 65524
TabOrder = 6
TabOrder = 6
Left = 160
Height = 24
Top = 144
Width = 121
end
object EFax: TDBEdit
DataField = 'Fax'
DataSource = DSAddress
DragCursor = 65524
TabOrder = 7
TabOrder = 7
Left = 336
Height = 24
Top = 144
Width = 121
end
object EMobile: TDBEdit
DataField = 'Mobile'
DataSource = DSAddress
DragCursor = 65524
TabOrder = 8
TabOrder = 8
Left = 520
Height = 24
Top = 144
Width = 121
end
object EEmail: TDBEdit
DataField = 'Email'
DataSource = DSAddress
DragCursor = 65524
TabOrder = 9
TabOrder = 9
Left = 160
Height = 24
Top = 176
Width = 361
end
object ETown: TDBEdit
DataField = 'Town'
DataSource = DSAddress
DragCursor = 65524
TabOrder = 4
TabOrder = 4
Left = 312
Height = 24
Top = 88
Width = 209
end
end
object MMain: TMainMenu
left = 64
top = 72
object MFile: TMenuItem
Caption = '&File'
object MINew: TMenuItem
Action = ANew
OnClick = ANewExecute
end
object MIOpen: TMenuItem
Action = AOpen
OnClick = AOpenExecute
end
object MIClose: TMenuItem
Action = AClose
OnClick = ACloseExecute
end
object N1: TMenuItem
Caption = '-'
end
object MIQuit: TMenuItem
Action = AQuit
OnClick = AQuitExecute
end
end
object Record1: TMenuItem
Caption = '&Record'
object MIFirst: TMenuItem
Action = AFirst
end
object MILAst: TMenuItem
Action = ALast
end
object MIPrior: TMenuItem
Action = APrior
end
object MINext: TMenuItem
Action = ANext
end
object N2: TMenuItem
Caption = '-'
end
object MIInsert: TMenuItem
Action = AInsert
end
object MIEdit: TMenuItem
Action = AEdit
end
object MIDelete: TMenuItem
Action = ADelete
end
object MIPost: TMenuItem
Action = APost
end
object MICancel: TMenuItem
Action = ACancel
end
object MIRefresh: TMenuItem
Action = ARefresh
end
end
end
object ALMain: TActionList
left = 64
top = 112
object ANew: TAction
Caption = '&New'
HelpType = htKeyword
OnExecute = ANewExecute
end
object AOpen: TAction
Caption = '&Open'
HelpType = htKeyword
OnExecute = AOpenExecute
ShortCut = 16463
end
object AClose: TAction
Caption = '&Close'
HelpType = htKeyword
OnExecute = ACloseExecute
OnUpdate = ACloseUpdate
end
object AQuit: TAction
Caption = '&Quit'
HelpType = htKeyword
OnExecute = AQuitExecute
ShortCut = 16465
end
object AFirst: TAction
Caption = '&First'
HelpType = htKeyword
OnExecute = DoDataAction
OnUpdate = DataOpen
ShortCut = 16454
Category = 'Dataset'
end
object APrior: TAction
Caption = '&Prior'
HelpType = htKeyword
OnExecute = DoDataAction
OnUpdate = DataOpen
Category = 'Dataset'
Tag = 1
end
object ANext: TAction
Caption = '&Next'
HelpType = htKeyword
OnExecute = DoDataAction
OnUpdate = DataOpen
Category = 'Dataset'
Tag = 2
end
object ALast: TAction
Caption = '&Last'
HelpType = htKeyword
OnExecute = DoDataAction
OnUpdate = DataOpen
ShortCut = 16460
Category = 'Dataset'
Tag = 3
end
object AInsert: TAction
Caption = '&Insert'
HelpType = htKeyword
OnExecute = DoDataAction
OnUpdate = DataOpen
ShortCut = 16462
Category = 'Dataset'
Tag = 4
end
object ADelete: TAction
Caption = '&Delete'
HelpType = htKeyword
OnExecute = DoDataAction
OnUpdate = HaveDataNotEmpty
ShortCut = 16452
Category = 'Dataset'
Tag = 5
end
object AEdit: TAction
Caption = '&Edit'
HelpType = htKeyword
OnExecute = DoDataAction
OnUpdate = HaveDataNotEmpty
ShortCut = 113
Category = 'Dataset'
Tag = 6
end
object APost: TAction
Caption = 'P&ost'
HelpType = htKeyword
OnExecute = DoDataAction
OnUpdate = InEditMode
ShortCut = 16467
Category = 'Dataset'
Tag = 7
end
object ACancel: TAction
Caption = '&Cancel'
HelpType = htKeyword
OnExecute = DoDataAction
OnUpdate = InEditMode
Category = 'Dataset'
Tag = 8
end
object ARefresh: TAction
Caption = '&Refresh'
HelpType = htKeyword
OnExecute = DoDataAction
OnUpdate = DataOpen
ShortCut = 116
Category = 'Dataset'
end
end
object DBA: TDbf
IndexDefs = <>
StoreDefs = True
TableLevel = 4
AfterInsert = DBAAfterInsert
left = 96
top = 112
end
object SDDBA: TSaveDialog
Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
Title = 'Save file as'
DefaultExt = '.dbf'
Filter = 'DBF files|*.dbf|All files|*.*'
FilterIndex = 0
left = 96
top = 144
end
object ODDBA: TOpenDialog
Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
Title = 'Open existing file'
DefaultExt = '.dbf'
Filter = 'DBF files|*.dbf|All files|*.*'
FilterIndex = 0
left = 64
top = 144
end
object DSAddress: TDatasource
DataSet = DBA
left = 128
top = 112
end
end

276
examples/address_book/frmmain.lrs Normal file
View File

@ -0,0 +1,276 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TMainForm','FORMDATA',[
'TPF0'#9'TMainForm'#8'MainForm'#13'ActiveControl'#7#4'GDBA'#7'Caption'#6#11'A'
+'ddressbook'#12'ClientHeight'#3#240#1#11'ClientWidth'#3#222#2#11'Font.Height'
+#2#243#9'Font.Name'#6#13'MS Sans Serif'#4'Menu'#7#5'MMain'#7'OnClose'#7#9'Fo'
+'rmClose'#12'OnCloseQuery'#7#14'FormCloseQuery'#10'TextHeight'#2#16#18'HorzS'
+'crollBar.Page'#3#223#2#18'VertScrollBar.Page'#3#241#1#4'Left'#3'?'#1#6'Heig'
+'ht'#3#10#2#3'Top'#3#165#0#5'Width'#3#222#2#0#6'TPanel'#4'PTop'#5'Align'#7#5
+'alTop'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'!'#11'ClientWidth'#3
+#222#2#11'FullRepaint'#8#8'TabOrder'#2#0#6'Height'#2'!'#5'Width'#3#222#2#0#12
+'TDBNavigator'#12'DBNavigator1'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'Bevel'
+'Outer'#7#6'bvNone'#12'ClientHeight'#2#25#11'ClientWidth'#3#4#1#10'DataSourc'
+'e'#7#9'DSAddress'#8'TabOrder'#2#0#4'Left'#3#200#1#6'Height'#2#25#3'Top'#2#4
+#5'Width'#3#4#1#0#0#0#7'TdbGrid'#4'GDBA'#5'Align'#7#8'alClient'#5'Color'#7#7
+'clWhite'#10'DataSource'#7#9'DSAddress'#10'FixedColor'#7#9'clBtnFace'#8'Read'
+'Only'#9#8'TabOrder'#2#1#6'Height'#3#203#0#3'Top'#2'!'#5'Width'#3#222#2#7'Co'
+'lumns'#14#1#9'FieldName'#6#9'FirstName'#13'Title.Caption'#6#10'First name'#5
+'Width'#2'u'#0#1#9'FieldName'#6#8'LastName'#13'Title.Caption'#6#9'Last name'
+#5'Width'#2''#0#1#9'FieldName'#6#6'Street'#13'Title.Caption'#6#7'Street '#5
+'Width'#3#131#0#0#1#9'FieldName'#6#3'Zip'#13'Title.Caption'#6#4'Zip '#0#1#9
+'FieldName'#6#4'Town'#13'Title.Caption'#6#5'Town '#5'Width'#2'd'#0#1#9'Field'
+'Name'#6#7'Country'#13'Title.Caption'#6#8'Country '#0#1#9'FieldName'#6#9'Tel'
+'ephone'#13'Title.Caption'#6#10'Telephone '#0#1#9'FieldName'#6#3'Fax'#13'Tit'
+'le.Caption'#6#4'Fax '#0#1#9'FieldName'#6#6'Mobile'#13'Title.Caption'#6#7'Mo'
+'bile '#0#1#9'FieldName'#6#5'Email'#13'Title.Caption'#6#6'Email '#0#1#9'Fiel'
+'dName'#6#3'WWW'#13'Title.Caption'#6#4'WWW '#0#0#0#0#6'TPanel'#7'PBottom'#5
+'Align'#7#8'alBottom'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#3#4#1#11
+'ClientWidth'#3#222#2#11'FullRepaint'#8#8'TabOrder'#2#2#6'Height'#3#4#1#3'To'
+'p'#3#236#0#5'Width'#3#222#2#0#6'TLabel'#10'LELastName'#9'Alignment'#7#14'ta'
+'RightJustify'#7'Caption'#6#10'&Last name'#12'FocusControl'#7#9'ELastName'#6
+'Layout'#7#8'tlCenter'#4'Left'#2#8#6'Height'#2#24#3'Top'#2#8#5'Width'#3#144#0
+#0#0#6'TLabel'#11'LEFirstName'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6
+#11'&First name'#12'FocusControl'#7#10'EFirstName'#6'Layout'#7#8'tlCenter'#4
+'Left'#2#8#6'Height'#2#24#3'Top'#2' '#5'Width'#3#144#0#0#0#6'TLabel'#8'LEStr'
+'eet'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#7'&Street'#12'FocusCont'
+'rol'#7#7'EStreet'#6'Layout'#7#8'tlCenter'#4'Left'#2#8#6'Height'#2#24#3'Top'
+#2'@'#5'Width'#3#144#0#0#0#6'TLabel'#5'LEZip'#9'Alignment'#7#14'taRightJusti'
+'fy'#7'Caption'#6#4'&Zip'#12'FocusControl'#7#4'EZip'#6'Layout'#7#8'tlCenter'
+#4'Left'#2#8#6'Height'#2#24#3'Top'#2'X'#5'Width'#3#144#0#0#0#6'TLabel'#6'LET'
+'own'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#5'T&own'#12'FocusContro'
+'l'#7#5'ETown'#6'Layout'#7#8'tlCenter'#4'Left'#3#8#1#6'Height'#2#24#3'Top'#2
+'X'#5'Width'#2')'#0#0#6'TLabel'#11'LETelephone'#9'Alignment'#7#14'taRightJus'
+'tify'#7'Caption'#6#10'&Telephone'#12'FocusControl'#7#10'ETelephone'#6'Layou'
+'t'#7#8'tlCenter'#4'Left'#2#8#6'Height'#2#24#3'Top'#3#144#0#5'Width'#3#144#0
+#0#0#6'TLabel'#9'LECountry'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#8
+'Countr&y'#12'FocusControl'#7#8'ECountry'#6'Layout'#7#8'tlCenter'#4'Left'#2#8
+#6'Height'#2#24#3'Top'#2'p'#5'Width'#3#144#0#0#0#6'TLabel'#5'LEFax'#9'Alignm'
+'ent'#7#14'taRightJustify'#7'Caption'#6#4'Fa&x'#12'FocusControl'#7#4'EFax'#6
+'Layout'#7#8'tlCenter'#4'Left'#3' '#1#6'Height'#2#24#3'Top'#3#144#0#5'Width'
+#2')'#0#0#6'TLabel'#8'LEMobile'#9'Alignment'#7#14'taRightJustify'#7'Caption'
+#6#7'&Mobile'#12'FocusControl'#7#7'EMobile'#6'Layout'#7#8'tlCenter'#4'Left'#3
+#216#1#6'Height'#2#24#3'Top'#3#144#0#5'Width'#2')'#0#0#6'TLabel'#7'LEEmail'#9
+'Alignment'#7#14'taRightJustify'#7'Caption'#6#6'&Email'#12'FocusControl'#7#6
+'EEmail'#6'Layout'#7#8'tlCenter'#4'Left'#2#8#6'Height'#2#24#3'Top'#3#176#0#5
+'Width'#3#144#0#0#0#6'TLabel'#5'LEWWW'#9'Alignment'#7#14'taRightJustify'#7'C'
+'aption'#6#4'&WWW'#12'FocusControl'#7#4'EWWW'#6'Layout'#7#8'tlCenter'#4'Left'
+#2#8#6'Height'#2#24#3'Top'#3#200#0#5'Width'#3#144#0#0#0#7'TDBEdit'#9'ELastNa'
+'me'#9'DataField'#6#8'LastName'#10'DataSource'#7#9'DSAddress'#10'DragCursor'
+#4#244#255#0#0#8'TabOrder'#2#0#8'TabOrder'#2#0#4'Left'#3#160#0#6'Height'#2#24
+#3'Top'#2#8#5'Width'#3'i'#1#0#0#7'TDBEdit'#10'EFirstName'#9'DataField'#6#9'F'
+'irstName'#10'DataSource'#7#9'DSAddress'#10'DragCursor'#4#244#255#0#0#8'TabO'
+'rder'#2#1#8'TabOrder'#2#1#4'Left'#3#160#0#6'Height'#2#24#3'Top'#2' '#5'Widt'
+'h'#3'i'#1#0#0#7'TDBEdit'#7'EStreet'#9'DataField'#6#6'Street'#10'DataSource'
+#7#9'DSAddress'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#2#8'TabOrder'#2#2
+#4'Left'#3#160#0#6'Height'#2#24#3'Top'#2'@'#5'Width'#3'i'#1#0#0#7'TDBEdit'#4
+'EZip'#9'DataField'#6#3'Zip'#10'DataSource'#7#9'DSAddress'#10'DragCursor'#4
,#244#255#0#0#8'TabOrder'#2#3#8'TabOrder'#2#3#4'Left'#3#160#0#6'Height'#2#24#3
+'Top'#2'X'#5'Width'#2'Y'#0#0#7'TDBEdit'#8'ECountry'#9'DataField'#6#7'Country'
+#10'DataSource'#7#9'DSAddress'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#5#8
+'TabOrder'#2#5#4'Left'#3#160#0#6'Height'#2#24#3'Top'#2'p'#5'Width'#3'i'#1#0#0
+#7'TDBEdit'#4'EWWW'#9'DataField'#6#3'WWW'#10'DataSource'#7#9'DSAddress'#10'D'
+'ragCursor'#4#244#255#0#0#8'TabOrder'#2#10#8'TabOrder'#2#10#4'Left'#3#160#0#6
+'Height'#2#24#3'Top'#3#200#0#5'Width'#3'i'#1#0#0#7'TDBEdit'#10'ETelephone'#9
+'DataField'#6#9'Telephone'#10'DataSource'#7#9'DSAddress'#10'DragCursor'#4#244
+#255#0#0#8'TabOrder'#2#6#8'TabOrder'#2#6#4'Left'#3#160#0#6'Height'#2#24#3'To'
+'p'#3#144#0#5'Width'#2'y'#0#0#7'TDBEdit'#4'EFax'#9'DataField'#6#3'Fax'#10'Da'
+'taSource'#7#9'DSAddress'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#7#8'Tab'
+'Order'#2#7#4'Left'#3'P'#1#6'Height'#2#24#3'Top'#3#144#0#5'Width'#2'y'#0#0#7
+'TDBEdit'#7'EMobile'#9'DataField'#6#6'Mobile'#10'DataSource'#7#9'DSAddress'
+#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#8#8'TabOrder'#2#8#4'Left'#3#8#2#6
+'Height'#2#24#3'Top'#3#144#0#5'Width'#2'y'#0#0#7'TDBEdit'#6'EEmail'#9'DataFi'
+'eld'#6#5'Email'#10'DataSource'#7#9'DSAddress'#10'DragCursor'#4#244#255#0#0#8
+'TabOrder'#2#9#8'TabOrder'#2#9#4'Left'#3#160#0#6'Height'#2#24#3'Top'#3#176#0
+#5'Width'#3'i'#1#0#0#7'TDBEdit'#5'ETown'#9'DataField'#6#4'Town'#10'DataSourc'
+'e'#7#9'DSAddress'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#4#8'TabOrder'#2
+#4#4'Left'#3'8'#1#6'Height'#2#24#3'Top'#2'X'#5'Width'#3#209#0#0#0#0#9'TMainM'
+'enu'#5'MMain'#4'left'#2'@'#3'top'#2'H'#0#9'TMenuItem'#5'MFile'#7'Caption'#6
+#5'&File'#0#9'TMenuItem'#5'MINew'#6'Action'#7#4'ANew'#7'OnClick'#7#11'ANewEx'
+'ecute'#0#0#9'TMenuItem'#6'MIOpen'#6'Action'#7#5'AOpen'#7'OnClick'#7#12'AOpe'
+'nExecute'#0#0#9'TMenuItem'#7'MIClose'#6'Action'#7#6'AClose'#7'OnClick'#7#13
+'ACloseExecute'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6
+'MIQuit'#6'Action'#7#5'AQuit'#7'OnClick'#7#12'AQuitExecute'#0#0#0#9'TMenuIte'
+'m'#7'Record1'#7'Caption'#6#7'&Record'#0#9'TMenuItem'#7'MIFirst'#6'Action'#7
+#6'AFirst'#0#0#9'TMenuItem'#6'MILAst'#6'Action'#7#5'ALast'#0#0#9'TMenuItem'#7
+'MIPrior'#6'Action'#7#6'APrior'#0#0#9'TMenuItem'#6'MINext'#6'Action'#7#5'ANe'
+'xt'#0#0#9'TMenuItem'#2'N2'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#8'MIInsert'#6
+'Action'#7#7'AInsert'#0#0#9'TMenuItem'#6'MIEdit'#6'Action'#7#5'AEdit'#0#0#9
+'TMenuItem'#8'MIDelete'#6'Action'#7#7'ADelete'#0#0#9'TMenuItem'#6'MIPost'#6
+'Action'#7#5'APost'#0#0#9'TMenuItem'#8'MICancel'#6'Action'#7#7'ACancel'#0#0#9
+'TMenuItem'#9'MIRefresh'#6'Action'#7#8'ARefresh'#0#0#0#0#11'TActionList'#6'A'
+'LMain'#4'left'#2'@'#3'top'#2'p'#0#7'TAction'#4'ANew'#7'Caption'#6#4'&New'#8
+'HelpType'#7#9'htKeyword'#9'OnExecute'#7#11'ANewExecute'#0#0#7'TAction'#5'AO'
+'pen'#7'Caption'#6#5'&Open'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'AOp'
+'enExecute'#8'ShortCut'#3'O@'#0#0#7'TAction'#6'AClose'#7'Caption'#6#6'&Close'
+#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#13'ACloseExecute'#8'OnUpdate'#7#12
+'ACloseUpdate'#0#0#7'TAction'#5'AQuit'#7'Caption'#6#5'&Quit'#8'HelpType'#7#9
+'htKeyword'#9'OnExecute'#7#12'AQuitExecute'#8'ShortCut'#3'Q@'#0#0#7'TAction'
+#6'AFirst'#7'Caption'#6#6'&First'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7
+#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'ShortCut'#3'F@'#8'Category'#6#7
+'Dataset'#0#0#7'TAction'#6'APrior'#7'Caption'#6#6'&Prior'#8'HelpType'#7#9'ht'
+'Keyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'Catego'
+'ry'#6#7'Dataset'#3'Tag'#2#1#0#0#7'TAction'#5'ANext'#7'Caption'#6#5'&Next'#8
+'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8'Da'
+'taOpen'#8'Category'#6#7'Dataset'#3'Tag'#2#2#0#0#7'TAction'#5'ALast'#7'Capti'
+'on'#6#5'&Last'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8
+'OnUpdate'#7#8'DataOpen'#8'ShortCut'#3'L@'#8'Category'#6#7'Dataset'#3'Tag'#2
+#3#0#0#7'TAction'#7'AInsert'#7'Caption'#6#7'&Insert'#8'HelpType'#7#9'htKeywo'
+'rd'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'ShortCut'#3
+'N@'#8'Category'#6#7'Dataset'#3'Tag'#2#4#0#0#7'TAction'#7'ADelete'#7'Caption'
+#6#7'&Delete'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'O'
+'nUpdate'#7#16'HaveDataNotEmpty'#8'ShortCut'#3'D@'#8'Category'#6#7'Dataset'#3
+'Tag'#2#5#0#0#7'TAction'#5'AEdit'#7'Caption'#6#5'&Edit'#8'HelpType'#7#9'htKe'
+'yword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#16'HaveDataNotEmpty'#8
+'ShortCut'#2'q'#8'Category'#6#7'Dataset'#3'Tag'#2#6#0#0#7'TAction'#5'APost'#7
+'Caption'#6#5'P&ost'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataActi'
+'on'#8'OnUpdate'#7#10'InEditMode'#8'ShortCut'#3'S@'#8'Category'#6#7'Dataset'
+#3'Tag'#2#7#0#0#7'TAction'#7'ACancel'#7'Caption'#6#7'&Cancel'#8'HelpType'#7#9
+'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#10'InEditMode'#8'C'
+'ategory'#6#7'Dataset'#3'Tag'#2#8#0#0#7'TAction'#8'ARefresh'#7'Caption'#6#8
+'&Refresh'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUp'
,'date'#7#8'DataOpen'#8'ShortCut'#2't'#8'Category'#6#7'Dataset'#0#0#0#4'TDbf'
+#3'DBA'#9'IndexDefs'#14#0#9'StoreDefs'#9#10'TableLevel'#2#4#11'AfterInsert'#7
+#14'DBAAfterInsert'#4'left'#2'`'#3'top'#2'p'#0#0#11'TSaveDialog'#5'SDDBA'#7
+'Options'#11#14'ofHideReadOnly'#15'ofPathMustExist'#14'ofEnableSizing'#0#5'T'
+'itle'#6#12'Save file as'#10'DefaultExt'#6#4'.dbf'#6'Filter'#6#29'DBF files|'
+'*.dbf|All files|*.*'#11'FilterIndex'#2#0#4'left'#2'`'#3'top'#3#144#0#0#0#11
+'TOpenDialog'#5'ODDBA'#7'Options'#11#14'ofHideReadOnly'#15'ofFileMustExist'
+#14'ofEnableSizing'#0#5'Title'#6#18'Open existing file'#10'DefaultExt'#6#4'.'
+'dbf'#6'Filter'#6#29'DBF files|*.dbf|All files|*.*'#11'FilterIndex'#2#0#4'le'
+'ft'#2'@'#3'top'#3#144#0#0#0#11'TDatasource'#9'DSAddress'#7'DataSet'#7#3'DBA'
+#4'left'#3#128#0#3'top'#2'p'#0#0#0
]);
LazarusResources.Add('TMainForm','FORMDATA',[
'TPF0'#9'TMainForm'#8'MainForm'#13'ActiveControl'#7#4'GDBA'#7'Caption'#6#11'A'
+'ddressbook'#12'ClientHeight'#3#240#1#11'ClientWidth'#3#222#2#11'Font.Height'
+#2#243#9'Font.Name'#6#13'MS Sans Serif'#4'Menu'#7#5'MMain'#7'OnClose'#7#9'Fo'
+'rmClose'#12'OnCloseQuery'#7#14'FormCloseQuery'#10'TextHeight'#2#16#18'HorzS'
+'crollBar.Page'#3#223#2#18'VertScrollBar.Page'#3#241#1#4'Left'#3'?'#1#6'Heig'
+'ht'#3#10#2#3'Top'#3#165#0#5'Width'#3#222#2#0#6'TPanel'#4'PTop'#5'Align'#7#5
+'alTop'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'!'#11'ClientWidth'#3
+#222#2#11'FullRepaint'#8#8'TabOrder'#2#0#6'Height'#2'!'#5'Width'#3#222#2#0#12
+'TDBNavigator'#12'DBNavigator1'#7'Anchors'#11#5'akTop'#7'akRight'#0#10'Bevel'
+'Outer'#7#6'bvNone'#12'ClientHeight'#2#25#11'ClientWidth'#3#4#1#10'DataSourc'
+'e'#7#9'DSAddress'#8'TabOrder'#2#0#4'Left'#3#200#1#6'Height'#2#25#3'Top'#2#4
+#5'Width'#3#4#1#0#0#0#7'TdbGrid'#4'GDBA'#5'Align'#7#8'alClient'#5'Color'#7#7
+'clWhite'#10'DataSource'#7#9'DSAddress'#10'FixedColor'#7#9'clBtnFace'#8'Read'
+'Only'#9#8'TabOrder'#2#1#6'Height'#3#203#0#3'Top'#2'!'#5'Width'#3#222#2#7'Co'
+'lumns'#14#1#9'FieldName'#6#9'FirstName'#13'Title.Caption'#6#10'First name'#5
+'Width'#2'u'#0#1#9'FieldName'#6#8'LastName'#13'Title.Caption'#6#9'Last name'
+#5'Width'#2''#0#1#9'FieldName'#6#6'Street'#13'Title.Caption'#6#7'Street '#5
+'Width'#3#131#0#0#1#9'FieldName'#6#3'Zip'#13'Title.Caption'#6#4'Zip '#0#1#9
+'FieldName'#6#4'Town'#13'Title.Caption'#6#5'Town '#5'Width'#2'd'#0#1#9'Field'
+'Name'#6#7'Country'#13'Title.Caption'#6#8'Country '#0#1#9'FieldName'#6#9'Tel'
+'ephone'#13'Title.Caption'#6#10'Telephone '#0#1#9'FieldName'#6#3'Fax'#13'Tit'
+'le.Caption'#6#4'Fax '#0#1#9'FieldName'#6#6'Mobile'#13'Title.Caption'#6#7'Mo'
+'bile '#0#1#9'FieldName'#6#5'Email'#13'Title.Caption'#6#6'Email '#0#1#9'Fiel'
+'dName'#6#3'WWW'#13'Title.Caption'#6#4'WWW '#0#0#0#0#6'TPanel'#7'PBottom'#5
+'Align'#7#8'alBottom'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#3#4#1#11
+'ClientWidth'#3#222#2#11'FullRepaint'#8#8'TabOrder'#2#2#6'Height'#3#4#1#3'To'
+'p'#3#236#0#5'Width'#3#222#2#0#6'TLabel'#10'LELastName'#9'Alignment'#7#14'ta'
+'RightJustify'#7'Caption'#6#10'&Last name'#12'FocusControl'#7#9'ELastName'#6
+'Layout'#7#8'tlCenter'#4'Left'#2#8#6'Height'#2#24#3'Top'#2#8#5'Width'#3#144#0
+#0#0#6'TLabel'#11'LEFirstName'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6
+#11'&First name'#12'FocusControl'#7#10'EFirstName'#6'Layout'#7#8'tlCenter'#4
+'Left'#2#8#6'Height'#2#24#3'Top'#2' '#5'Width'#3#144#0#0#0#6'TLabel'#8'LEStr'
+'eet'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#7'&Street'#12'FocusCont'
+'rol'#7#7'EStreet'#6'Layout'#7#8'tlCenter'#4'Left'#2#8#6'Height'#2#24#3'Top'
+#2'@'#5'Width'#3#144#0#0#0#6'TLabel'#5'LEZip'#9'Alignment'#7#14'taRightJusti'
+'fy'#7'Caption'#6#4'&Zip'#12'FocusControl'#7#4'EZip'#6'Layout'#7#8'tlCenter'
+#4'Left'#2#8#6'Height'#2#24#3'Top'#2'X'#5'Width'#3#144#0#0#0#6'TLabel'#6'LET'
+'own'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#5'T&own'#12'FocusContro'
+'l'#7#5'ETown'#6'Layout'#7#8'tlCenter'#4'Left'#3#8#1#6'Height'#2#24#3'Top'#2
+'X'#5'Width'#2')'#0#0#6'TLabel'#11'LETelephone'#9'Alignment'#7#14'taRightJus'
+'tify'#7'Caption'#6#10'&Telephone'#12'FocusControl'#7#10'ETelephone'#6'Layou'
+'t'#7#8'tlCenter'#4'Left'#2#8#6'Height'#2#24#3'Top'#3#144#0#5'Width'#3#144#0
+#0#0#6'TLabel'#9'LECountry'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#8
+'Countr&y'#12'FocusControl'#7#8'ECountry'#6'Layout'#7#8'tlCenter'#4'Left'#2#8
+#6'Height'#2#24#3'Top'#2'p'#5'Width'#3#144#0#0#0#6'TLabel'#5'LEFax'#9'Alignm'
+'ent'#7#14'taRightJustify'#7'Caption'#6#4'Fa&x'#12'FocusControl'#7#4'EFax'#6
+'Layout'#7#8'tlCenter'#4'Left'#3' '#1#6'Height'#2#24#3'Top'#3#144#0#5'Width'
+#2')'#0#0#6'TLabel'#8'LEMobile'#9'Alignment'#7#14'taRightJustify'#7'Caption'
+#6#7'&Mobile'#12'FocusControl'#7#7'EMobile'#6'Layout'#7#8'tlCenter'#4'Left'#3
+#216#1#6'Height'#2#24#3'Top'#3#144#0#5'Width'#2')'#0#0#6'TLabel'#7'LEEmail'#9
+'Alignment'#7#14'taRightJustify'#7'Caption'#6#6'&Email'#12'FocusControl'#7#6
+'EEmail'#6'Layout'#7#8'tlCenter'#4'Left'#2#8#6'Height'#2#24#3'Top'#3#176#0#5
+'Width'#3#144#0#0#0#6'TLabel'#5'LEWWW'#9'Alignment'#7#14'taRightJustify'#7'C'
+'aption'#6#4'&WWW'#12'FocusControl'#7#4'EWWW'#6'Layout'#7#8'tlCenter'#4'Left'
+#2#8#6'Height'#2#24#3'Top'#3#200#0#5'Width'#3#144#0#0#0#7'TDBEdit'#9'ELastNa'
+'me'#9'DataField'#6#8'LastName'#10'DataSource'#7#9'DSAddress'#10'DragCursor'
+#4#244#255#0#0#8'TabOrder'#2#0#8'TabOrder'#2#0#4'Left'#3#160#0#6'Height'#2#24
+#3'Top'#2#8#5'Width'#3'i'#1#0#0#7'TDBEdit'#10'EFirstName'#9'DataField'#6#9'F'
+'irstName'#10'DataSource'#7#9'DSAddress'#10'DragCursor'#4#244#255#0#0#8'TabO'
+'rder'#2#1#8'TabOrder'#2#1#4'Left'#3#160#0#6'Height'#2#24#3'Top'#2' '#5'Widt'
+'h'#3'i'#1#0#0#7'TDBEdit'#7'EStreet'#9'DataField'#6#6'Street'#10'DataSource'
+#7#9'DSAddress'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#2#8'TabOrder'#2#2
+#4'Left'#3#160#0#6'Height'#2#24#3'Top'#2'@'#5'Width'#3'i'#1#0#0#7'TDBEdit'#4
+'EZip'#9'DataField'#6#3'Zip'#10'DataSource'#7#9'DSAddress'#10'DragCursor'#4
,#244#255#0#0#8'TabOrder'#2#3#8'TabOrder'#2#3#4'Left'#3#160#0#6'Height'#2#24#3
+'Top'#2'X'#5'Width'#2'Y'#0#0#7'TDBEdit'#8'ECountry'#9'DataField'#6#7'Country'
+#10'DataSource'#7#9'DSAddress'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#5#8
+'TabOrder'#2#5#4'Left'#3#160#0#6'Height'#2#24#3'Top'#2'p'#5'Width'#3'i'#1#0#0
+#7'TDBEdit'#4'EWWW'#9'DataField'#6#3'WWW'#10'DataSource'#7#9'DSAddress'#10'D'
+'ragCursor'#4#244#255#0#0#8'TabOrder'#2#10#8'TabOrder'#2#10#4'Left'#3#160#0#6
+'Height'#2#24#3'Top'#3#200#0#5'Width'#3'i'#1#0#0#7'TDBEdit'#10'ETelephone'#9
+'DataField'#6#9'Telephone'#10'DataSource'#7#9'DSAddress'#10'DragCursor'#4#244
+#255#0#0#8'TabOrder'#2#6#8'TabOrder'#2#6#4'Left'#3#160#0#6'Height'#2#24#3'To'
+'p'#3#144#0#5'Width'#2'y'#0#0#7'TDBEdit'#4'EFax'#9'DataField'#6#3'Fax'#10'Da'
+'taSource'#7#9'DSAddress'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#7#8'Tab'
+'Order'#2#7#4'Left'#3'P'#1#6'Height'#2#24#3'Top'#3#144#0#5'Width'#2'y'#0#0#7
+'TDBEdit'#7'EMobile'#9'DataField'#6#6'Mobile'#10'DataSource'#7#9'DSAddress'
+#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#8#8'TabOrder'#2#8#4'Left'#3#8#2#6
+'Height'#2#24#3'Top'#3#144#0#5'Width'#2'y'#0#0#7'TDBEdit'#6'EEmail'#9'DataFi'
+'eld'#6#5'Email'#10'DataSource'#7#9'DSAddress'#10'DragCursor'#4#244#255#0#0#8
+'TabOrder'#2#9#8'TabOrder'#2#9#4'Left'#3#160#0#6'Height'#2#24#3'Top'#3#176#0
+#5'Width'#3'i'#1#0#0#7'TDBEdit'#5'ETown'#9'DataField'#6#4'Town'#10'DataSourc'
+'e'#7#9'DSAddress'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#4#8'TabOrder'#2
+#4#4'Left'#3'8'#1#6'Height'#2#24#3'Top'#2'X'#5'Width'#3#209#0#0#0#0#9'TMainM'
+'enu'#5'MMain'#4'left'#2'@'#3'top'#2'H'#0#9'TMenuItem'#5'MFile'#7'Caption'#6
+#5'&File'#0#9'TMenuItem'#5'MINew'#6'Action'#7#4'ANew'#7'OnClick'#7#11'ANewEx'
+'ecute'#0#0#9'TMenuItem'#6'MIOpen'#6'Action'#7#5'AOpen'#7'OnClick'#7#12'AOpe'
+'nExecute'#0#0#9'TMenuItem'#7'MIClose'#6'Action'#7#6'AClose'#7'OnClick'#7#13
+'ACloseExecute'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6
+'MIQuit'#6'Action'#7#5'AQuit'#7'OnClick'#7#12'AQuitExecute'#0#0#0#9'TMenuIte'
+'m'#7'Record1'#7'Caption'#6#7'&Record'#0#9'TMenuItem'#7'MIFirst'#6'Action'#7
+#6'AFirst'#0#0#9'TMenuItem'#6'MILAst'#6'Action'#7#5'ALast'#0#0#9'TMenuItem'#7
+'MIPrior'#6'Action'#7#6'APrior'#0#0#9'TMenuItem'#6'MINext'#6'Action'#7#5'ANe'
+'xt'#0#0#9'TMenuItem'#2'N2'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#8'MIInsert'#6
+'Action'#7#7'AInsert'#0#0#9'TMenuItem'#6'MIEdit'#6'Action'#7#5'AEdit'#0#0#9
+'TMenuItem'#8'MIDelete'#6'Action'#7#7'ADelete'#0#0#9'TMenuItem'#6'MIPost'#6
+'Action'#7#5'APost'#0#0#9'TMenuItem'#8'MICancel'#6'Action'#7#7'ACancel'#0#0#9
+'TMenuItem'#9'MIRefresh'#6'Action'#7#8'ARefresh'#0#0#0#0#11'TActionList'#6'A'
+'LMain'#4'left'#2'@'#3'top'#2'p'#0#7'TAction'#4'ANew'#7'Caption'#6#4'&New'#8
+'HelpType'#7#9'htKeyword'#9'OnExecute'#7#11'ANewExecute'#0#0#7'TAction'#5'AO'
+'pen'#7'Caption'#6#5'&Open'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'AOp'
+'enExecute'#8'ShortCut'#3'O@'#0#0#7'TAction'#6'AClose'#7'Caption'#6#6'&Close'
+#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#13'ACloseExecute'#8'OnUpdate'#7#12
+'ACloseUpdate'#0#0#7'TAction'#5'AQuit'#7'Caption'#6#5'&Quit'#8'HelpType'#7#9
+'htKeyword'#9'OnExecute'#7#12'AQuitExecute'#8'ShortCut'#3'Q@'#0#0#7'TAction'
+#6'AFirst'#7'Caption'#6#6'&First'#8'HelpType'#7#9'htKeyword'#8'ShortCut'#3'F'
+'@'#8'Category'#6#7'Dataset'#0#0#7'TAction'#6'APrior'#7'Caption'#6#6'&Prior'
+#8'HelpType'#7#9'htKeyword'#8'Category'#6#7'Dataset'#0#0#7'TAction'#5'ANext'
+#7'Caption'#6#5'&Next'#8'HelpType'#7#9'htKeyword'#8'Category'#6#7'Dataset'#0
+#0#7'TAction'#5'ALast'#7'Caption'#6#5'&Last'#8'HelpType'#7#9'htKeyword'#8'Sh'
+'ortCut'#3'L@'#8'Category'#6#7'Dataset'#0#0#7'TAction'#7'AInsert'#7'Caption'
+#6#7'&Insert'#8'HelpType'#7#9'htKeyword'#8'ShortCut'#3'N@'#8'Category'#6#7'D'
+'ataset'#0#0#7'TAction'#7'ADelete'#7'Caption'#6#7'&Delete'#8'HelpType'#7#9'h'
+'tKeyword'#8'ShortCut'#3'D@'#8'Category'#6#7'Dataset'#0#0#7'TAction'#5'AEdit'
+#7'Caption'#6#5'&Edit'#8'HelpType'#7#9'htKeyword'#8'ShortCut'#2'q'#8'Categor'
+'y'#6#7'Dataset'#0#0#7'TAction'#5'APost'#7'Caption'#6#5'P&ost'#8'HelpType'#7
+#9'htKeyword'#8'ShortCut'#3'S@'#8'Category'#6#7'Dataset'#0#0#7'TAction'#7'AC'
+'ancel'#7'Caption'#6#7'&Cancel'#8'HelpType'#7#9'htKeyword'#8'Category'#6#7'D'
+'ataset'#0#0#7'TAction'#8'ARefresh'#7'Caption'#6#8'&Refresh'#8'HelpType'#7#9
+'htKeyword'#8'ShortCut'#2't'#8'Category'#6#7'Dataset'#0#0#0#4'TDbf'#3'DBA'#9
+'IndexDefs'#14#0#9'StoreDefs'#9#10'TableLevel'#2#4#11'AfterInsert'#7#14'DBAA'
+'fterInsert'#4'left'#2'`'#3'top'#2'p'#0#0#11'TSaveDialog'#5'SDDBA'#7'Options'
+#11#14'ofHideReadOnly'#15'ofPathMustExist'#14'ofEnableSizing'#0#5'Title'#6#12
+'Save file as'#10'DefaultExt'#6#4'.dbf'#6'Filter'#6#29'DBF files|*.dbf|All f'
+'iles|*.*'#11'FilterIndex'#2#0#4'left'#2'`'#3'top'#3#144#0#0#0#11'TOpenDialo'
+'g'#5'ODDBA'#7'Options'#11#14'ofHideReadOnly'#15'ofFileMustExist'#14'ofEnabl'
+'eSizing'#0#5'Title'#6#18'Open existing file'#10'DefaultExt'#6#4'.dbf'#6'Fil'
+'ter'#6#29'DBF files|*.dbf|All files|*.*'#11'FilterIndex'#2#0#4'left'#2'@'#3
,'top'#3#144#0#0#0#11'TDatasource'#9'DSAddress'#7'DataSet'#7#3'DBA'#4'left'#3
+#128#0#3'top'#2'p'#0#0#0
]);

272
examples/address_book/frmmain.pas Normal file
View File

@ -0,0 +1,272 @@
{
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
}
unit frmmain;
interface
uses
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Dbf, Grids, DBGrids, DBCtrls, ExtCtrls, ActnList, Menus,
StdCtrls,lresources;
type
TDataSetFirst = TAction;
TDataSetPrior = TAction;
TDataSetNext = TAction;
TDataSetLast = TAction;
TDataSetInsert = TAction;
TDataSetDelete = TAction;
TDataSetEdit = TAction;
TDataSetPost = TAction;
TDataSetCancel = TAction;
TDataSetRefresh = TAction;
TMainForm = class(TForm)
MMain: TMainMenu;
MFile: TMenuItem;
ALMain: TActionList;
ANew: TAction;
AOpen: TAction;
AClose: TAction;
AQuit: TAction;
MINew: TMenuItem;
MIOpen: TMenuItem;
PTop: TPanel;
DBNavigator1: TDBNavigator;
GDBA: TDBGrid;
PBottom: TPanel;
DBA: TDbf;
SDDBA: TSaveDialog;
ODDBA: TOpenDialog;
DSAddress: TDataSource;
ELastName: TDBEdit;
EFirstName: TDBEdit;
EStreet: TDBEdit;
EZip: TDBEdit;
ECountry: TDBEdit;
EWWW: TDBEdit;
ETelephone: TDBEdit;
EFax: TDBEdit;
EMobile: TDBEdit;
EEmail: TDBEdit;
ETown: TDBEdit;
LELastName: TLabel;
LEFirstName: TLabel;
LEStreet: TLabel;
LEZip: TLabel;
LETown: TLabel;
LETelephone: TLabel;
LECountry: TLabel;
LEFax: TLabel;
LEMobile: TLabel;
LEEmail: TLabel;
LEWWW: TLabel;
MIClose: TMenuItem;
N1: TMenuItem;
MIQuit: TMenuItem;
AFirst: TDataSetFirst;
APrior: TDataSetPrior;
ANext: TDataSetNext;
ALast: TDataSetLast;
AInsert: TDataSetInsert;
ADelete: TDataSetDelete;
AEdit: TDataSetEdit;
APost: TDataSetPost;
ACancel: TDataSetCancel;
ARefresh: TDataSetRefresh;
Record1: TMenuItem;
MIFirst: TMenuItem;
MILAst: TMenuItem;
MIPrior: TMenuItem;
MINext: TMenuItem;
N2: TMenuItem;
MIEdit: TMenuItem;
MIDelete: TMenuItem;
MIPost: TMenuItem;
MICancel: TMenuItem;
MIRefresh: TMenuItem;
MIInsert: TMenuItem;
procedure ANewExecute(Sender: TObject);
procedure AOpenExecute(Sender: TObject);
procedure ACloseExecute(Sender: TObject);
procedure ACloseUpdate(Sender: TObject);
procedure AQuitExecute(Sender: TObject);
procedure DataOpen(Sender: TObject);
procedure DoDataAction(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure DBAAfterInsert(DataSet: TDataSet);
procedure HaveDataNotEmpty(Sender: TObject);
procedure InEditMode(Sender: TObject);
private
procedure CreateTable(AFileName : String);
procedure OpenTable(AFileName: String);
procedure CloseTable;
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
resourcestring
SSaveData = 'There is still unsaved data. Save now ?';
{ Action handlers }
procedure TMainForm.ANewExecute(Sender: TObject);
begin
With SDDBA do
If Execute then
CreateTable(FileName);
end;
procedure TMainForm.ACloseExecute(Sender: TObject);
begin
CloseTable;
end;
procedure TMainForm.ACloseUpdate(Sender: TObject);
begin
(Sender as Taction).Enabled:=Not (DBA.State in dsEditModes);
end;
procedure TMainForm.CreateTable(AFileName : String);
begin
With DBA do
begin
Close;
with FieldDefs do
begin
Clear;
Add('FirstName',ftString,30);
Add('LastName',ftString,30);
Add('Street',ftString,50);
Add('Zip',ftString,20);
Add('Town',ftString,30);
Add('Country',ftString,30);
Add('Telephone',ftString,15);
Add('Fax',ftString,15);
Add('Mobile',ftString,15);
Add('Email',ftString,100);
Add('WWW',ftString,100);
end;
TableName:=AFileName;
CreateTable;
Exclusive := true;
Open;
AddIndex('LastName', 'LastName', []);
end;
end;
procedure TMainForm.AOpenExecute(Sender: TObject);
begin
With ODDBA do
if Execute then
OpenTable(FileName);
end;
procedure TMainForm.OpenTable(AFileName : String);
begin
With DBA do
begin
Close;
TableName:=AFileName;
Open;
end;
end;
procedure TMainForm.CloseTable;
begin
DBA.Close;
end;
procedure TMainForm.AQuitExecute(Sender: TObject);
begin
Close;
end;
procedure TMainForm.DataOpen(Sender: TObject);
begin
With DBA do
(Sender as Taction).Enabled:=Active;
end;
procedure TMainForm.DoDataAction(Sender: TObject);
begin
Case (Sender as TAction).Tag of
0 : DBA.First;
1 : DBA.Prior;
2 : DBA.Next;
3 : DBA.Last;
4 : DBA.Insert;
5 : DBA.Delete;
6 : DBA.Edit;
7 : DBA.Post;
8 : DBA.Cancel;
9 : DBA.Refresh;
end;
end;
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=Not (DBA.State in dsEditModes);
if Not CanClose then
case MessageDlg(SSaveData,mtWarning,[mbYes,mbNo,mbCancel],0) of
mrYes : begin
DBA.Post;
CanClose:=True;
end;
mrNo : CanClose:=True;
end;
end;
procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
DBA.Close;
end;
procedure TMainForm.DBAAfterInsert(DataSet: TDataSet);
begin
ELastName.SetFocus;
end;
procedure TMainForm.HaveDataNotEmpty(Sender: TObject);
begin
With DBA do
(Sender as Taction).Enabled:=Active and Not (EOF and BOF);
end;
procedure TMainForm.InEditMode(Sender: TObject);
begin
With DBA do
(Sender As Taction).EnAbled:=State in dsEditModes;
end;
initialization
{$i frmmain.lrs}
end.

4
examples/address_book/frmmain.rst Normal file
View File

@ -0,0 +1,4 @@
# hash value = 46139855
frmmain.ssavedata='There is still unsaved data. Save now ?'

BIN
examples/address_book/mybook.dbf Normal file
View File

Binary file not shown.

BIN
examples/address_book/mybook.mdx Normal file
View File

Binary file not shown.

BIN
examples/address_book/mybook2.dbf Normal file
View File

Binary file not shown.

BIN
examples/address_book/mybook2.mdx Normal file
View File

Binary file not shown.

BIN
examples/imgviewer/file.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 822 B

88
examples/imgviewer/file.xpm Normal file
View File

@ -0,0 +1,88 @@
/* XPM */
static char *file[] = {
/* columns rows colors chars-per-pixel */
"16 16 66 1",
" c black",
". c #181418",
"X c #202020",
"o c #292429",
"O c #313031",
"+ c #393439",
"@ c #4A3018",
"# c #523418",
"$ c #523420",
"% c #414041",
"& c #4A444A",
"* c #4A484A",
"= c #4A4C4A",
"- c #524C52",
"; c #52504A",
": c #5A5552",
"> c #6A696A",
", c #737173",
"< c #BD7D41",
"1 c #CD8952",
"2 c #E6A56A",
"3 c #EEAA6A",
"4 c #FFAE62",
"5 c #8B8D8B",
"6 c #949594",
"7 c #9C9594",
"8 c #9C959C",
"9 c #9C999C",
"0 c #A4A1A4",
"q c #A4A5A4",
"w c #ACA5A4",
"e c #ACAAAC",
"r c #ACAEAC",
"t c #B4AEAC",
"y c #B4B2B4",
"u c #B4B6B4",
"i c #BDB6B4",
"p c #BDBABD",
"a c #BDBEBD",
"s c #C5BEBD",
"d c #C5BEC5",
"f c #FFC283",
"g c #FFC683",
"h c #FFC68B",
"j c #FFD69C",
"k c #FFD6A4",
"l c #C5C2C5",
"z c #C5C6C5",
"x c #CDC6C5",
"c c #CDC6CD",
"v c #CDCECD",
"b c #D5CED5",
"n c #D5D2D5",
"m c #D5D6D5",
"M c #DED6DE",
"N c #DEDADE",
"B c gray87",
"V c #E6DEDE",
"C c #E6DEE6",
"Z c #E6E2E6",
"A c #E6E6E6",
"S c #EEEAEE",
"D c #F6EEF6",
"F c #FFF6FF",
"G c #FFFAFF",
"H c gray100",
/* pixels */
"HHHHHH HHHHHHH",
"HHHHH H H HHH",
"HHHH HHHH HHH",
"HHHHHHHHHH HHH",
"HHHHHHHHH HHH",
"H$@#@HHHHHHHHHHH",
"$2kh3#$#$#$HHHHH",
"@jhg4444444 HHHH",
"$f1;GFDAMvcapuOH",
"@g@BVSAZxar06*HH",
"$<:NCZZMzit0>XHH",
"@@vvmMnbpy08*HHH",
"$:nsccclyw0,.HHH",
"@dqrryee975*HHHH",
"o*-=-=-*&%+XHHHH",
"HHHHHHHHHHHHHHHH"
};

553
examples/imgviewer/frmmain.lfm Normal file
View File

@ -0,0 +1,553 @@
object MainForm: TMainForm
ActiveControl = LBFiles
Caption = 'Image viewer'
ClientHeight = 614
ClientWidth = 870
Font.Height = -13
Font.Name = 'MS Sans Serif'
Menu = MainMenu1
OnKeyDown = FormKeyDown
OnShow = FormShow
TextHeight = 16
HorzScrollBar.Page = 871
HorzScrollBar.Range = 165
VertScrollBar.Page = 615
VertScrollBar.Range = 23
Left = 345
Height = 640
Top = 161
Width = 870
object SPImage: TSplitter
Beveled = True
Cursor = 65522
Height = 585
ParentColor = True
ResizeStyle = rsUpdate
Width = 4
Cursor = 65522
Left = 161
Height = 585
Top = 29
Width = 4
end
object ToolBar1: TToolBar
ButtonHeight = 23
Caption = 'ToolBar1'
DragCursor = 65524
Height = 29
Images = ILMain
ParentColor = True
ParentShowHint = False
ShowHint = True
TabOrder = 0
Height = 29
Width = 870
object TBOPen: TToolButton
Action = AOpen
DragCursor = 65524
Left = 1
Height = 23
Top = 2
Width = 23
end
object TBOpenDir: TToolButton
Action = AOpenDir
DragCursor = 65524
Left = 24
Height = 23
Top = 2
Width = 23
end
object TBOpenDirRec: TToolButton
Action = OpenDirRecursively
DragCursor = 65524
Left = 47
Height = 23
Top = 2
Width = 23
end
object ToolButton4: TToolButton
Caption = 'ToolButton4'
DragCursor = 65524
ImageIndex = 3
Style = tbsSeparator
Width = 8
Left = 70
Height = 23
Top = 2
Width = 8
end
object TBPRev: TToolButton
Action = APreviousImage
DragCursor = 65524
Left = 78
Height = 23
Top = 2
Width = 23
end
object TBNext: TToolButton
Action = ANextImage
DragCursor = 65524
Left = 101
Height = 23
Top = 2
Width = 23
end
object TBPRevDir: TToolButton
Action = APrevImageDir
DragCursor = 65524
Left = 124
Height = 23
Hint = 'Jump to last image of previous directory'
Top = 2
Width = 23
end
object TBNextDir: TToolButton
Action = ANextImageDir
DragCursor = 65524
Left = 147
Height = 23
Top = 2
Width = 23
end
object TBDoubleSize: TToolButton
Action = ADoubleSize
DragCursor = 65524
Left = 170
Height = 23
Top = 2
Width = 23
end
object TBHalfSize: TToolButton
Action = AHalfSize
DragCursor = 65524
Left = 193
Height = 23
Top = 2
Width = 23
end
object ToolButton3: TToolButton
Caption = 'ToolButton3'
DragCursor = 65524
ImageIndex = 10
Style = tbsSeparator
Width = 8
Left = 216
Height = 23
Top = 2
Width = 8
end
end
object LBFiles: TListBox
Align = alLeft
ClickOnSelChange = False
Font.Color = clBlack
Font.Height = 15
Font.Name = 'Arial'
Font.Pitch = fpVariable
ItemHeight = 15
OnClick = LBFilesClick
OnKeyDown = FormKeyDown
TabOrder = 1
TopIndex = -1
Height = 585
Top = 29
Width = 161
end
object PImage: TPanel
Align = alClient
ClientHeight = 585
ClientWidth = 705
FullRepaint = False
TabOrder = 2
Left = 165
Height = 585
Top = 29
Width = 705
object ScrollBox1: TScrollBox
Align = alClient
AutoSize = False
BorderStyle = bsNone
DragCursor = 65524
ParentColor = True
TabOrder = 0
HorzScrollBar.Page = 700
VertScrollBar.Page = 580
Left = 1
Height = 583
Top = 1
Width = 703
object IMain: TImage
Align = alClient
Transparent = True
Height = 579
Width = 699
end
end
end
object MainMenu1: TMainMenu
Images = ILMain
left = 32
top = 32
object File1: TMenuItem
Caption = '&File'
object MIOpen: TMenuItem
Action = AOpen
OnClick = AOpenExecute
end
object MIOPenDir: TMenuItem
Action = AOpenDir
OnClick = AOpenDirExecute
end
object MIOpenDirRec: TMenuItem
Action = OpenDirRecursively
OnClick = OpenDirRecursivelyExecute
end
object MIClear: TMenuItem
Action = AClear
OnClick = AClearExecute
end
object N1: TMenuItem
Caption = '-'
end
object MIQuit: TMenuItem
Action = AExit
OnClick = AExitExecute
end
end
object MImage: TMenuItem
Caption = '&Image'
object D1: TMenuItem
Action = ADoubleSize
OnClick = ADoubleSizeExecute
end
object MIHalfSize: TMenuItem
Action = AHalfSize
OnClick = AHalfSizeExecute
end
object N2: TMenuItem
Caption = '-'
end
object MINextImage: TMenuItem
Action = ANextImage
ShortCut = 36882
OnClick = ANextImageExecute
end
object PreviousImage1: TMenuItem
Action = APreviousImage
ShortCut = 36884
OnClick = APreviousImageExecute
end
object Nextimagedirectory1: TMenuItem
Action = ANextImageDir
OnClick = ANextImageDirExecute
end
object Previousimagedirectory1: TMenuItem
Action = APrevImageDir
OnClick = APrevImageDirExecute
end
end
end
object ActionList1: TActionList
Images = ILMain
left = 72
top = 32
object AOpen: TAction
Caption = '&Open'
HelpType = htKeyword
ImageIndex = 0
OnExecute = AOpenExecute
ShortCut = 16463
end
object AOpenDir: TAction
Caption = 'Open &Directory'
HelpType = htKeyword
ImageIndex = 1
OnExecute = AOpenDirExecute
ShortCut = 16452
end
object AExit: TAction
Caption = '&Quit'
HelpType = htKeyword
OnExecute = AExitExecute
ShortCut = 16465
end
object AClear: TAction
Caption = '&Clear list'
HelpType = htKeyword
OnExecute = AClearExecute
ShortCut = 16460
end
object OpenDirRecursively: TAction
Caption = 'Open Directory &Recursively'
HelpType = htKeyword
ImageIndex = 2
OnExecute = OpenDirRecursivelyExecute
ShortCut = 16466
end
object ADoubleSize: TAction
Caption = '&Double size'
HelpType = htKeyword
ImageIndex = 5
OnExecute = ADoubleSizeExecute
ShortCut = 16427
end
object AHalfSize: TAction
Caption = '&Half Size'
HelpType = htKeyword
ImageIndex = 6
OnExecute = AHalfSizeExecute
ShortCut = 16429
end
object ANextImage: TAction
Caption = '&Next image'
HelpType = htKeyword
ImageIndex = 4
OnExecute = ANextImageExecute
end
object APreviousImage: TAction
Caption = '&Previous Image'
HelpType = htKeyword
ImageIndex = 3
OnExecute = APreviousImageExecute
end
object ANextImageDir: TAction
Caption = 'N&ext image directory'
HelpType = htKeyword
ImageIndex = 8
OnExecute = ANextImageDirExecute
ShortCut = 32846
end
object APrevImageDir: TAction
Caption = 'Pre&vious image directory'
HelpType = htKeyword
Hint = 'Jump to last image of previous directory'
ImageIndex = 7
OnExecute = APrevImageDirExecute
ShortCut = 32848
end
end
object ILMain: TImageList
left = 32
top = 64
Bitmap = {
6C69090000001000000010000000840500002F2A2058504D202A2F0A73746174
69632063686172202A66696C655B5D203D207B0A2F2A20636F6C756D6E732072
6F777320636F6C6F72732063686172732D7065722D706978656C202A2F0A2231
362031362036362031222C0A2220206320626C61636B222C0A222E2063202331
3831343138222C0A225820632023323032303230222C0A226F20632023323932
343239222C0A224F20632023333133303331222C0A222B206320233339333433
39222C0A224020632023344133303138222C0A22232063202335323334313822
2C0A222420632023353233343230222C0A222520632023343134303431222C0A
222620632023344134343441222C0A222A20632023344134383441222C0A223D
20632023344134433441222C0A222D20632023353234433532222C0A223B2063
2023353235303441222C0A223A20632023354135353532222C0A223E20632023
364136393641222C0A222C20632023373337313733222C0A223C206320234244
37443431222C0A223120632023434438393532222C0A22322063202345364135
3641222C0A223320632023454541413641222C0A223420632023464641453632
222C0A223520632023384238443842222C0A223620632023393439353934222C
0A223720632023394339353934222C0A223820632023394339353943222C0A22
3920632023394339393943222C0A223020632023413441314134222C0A227120
632023413441354134222C0A227720632023414341354134222C0A2265206320
23414341414143222C0A227220632023414341454143222C0A22742063202342
3441454143222C0A227920632023423442324234222C0A227520632023423442
364234222C0A226920632023424442364234222C0A2270206320234244424142
44222C0A226120632023424442454244222C0A22732063202343354245424422
2C0A226420632023433542454335222C0A226620632023464643323833222C0A
226720632023464643363833222C0A226820632023464643363842222C0A226A
20632023464644363943222C0A226B20632023464644364134222C0A226C2063
2023433543324335222C0A227A20632023433543364335222C0A227820632023
434443364335222C0A226320632023434443364344222C0A2276206320234344
43454344222C0A226220632023443543454435222C0A226E2063202344354432
4435222C0A226D20632023443544364435222C0A224D20632023444544364445
222C0A224E20632023444544414445222C0A2242206320677261793837222C0A
225620632023453644454445222C0A224320632023453644454536222C0A225A
20632023453645324536222C0A224120632023453645364536222C0A22532063
2023454545414545222C0A224420632023463645454636222C0A224620632023
464646364646222C0A224720632023464646414646222C0A2248206320677261
79313030222C0A2F2A20706978656C73202A2F0A224848484848482020204848
4848484848222C0A2248484848482020482020204820484848222C0A22484848
48204848484820202020484848222C0A22484848484848484848482020204848
48222C0A2248484848484848484820202020484848222C0A2248244023404848
484848484848484848222C0A2224326B68332324232423244848484848222C0A
22406A6867343434343434342048484848222C0A222466313B474644414D7663
6170754F48222C0A22406740425653415A78617230362A4848222C0A22243C3A
4E435A5A4D7A6974303E584848222C0A22404076766D4D6E62707930382A4848
48222C0A22243A6E736363636C7977302C2E484848222C0A2240647172727965
653937352A48484848222C0A226F2A2D3D2D3D2D2A26252B5848484848222C0A
2248484848484848484848484848484848220A7D3B0AE00100002F2A2058504D
202A2F0A7374617469632063686172202A6469725B5D203D207B0A2F2A20636F
6C756D6E7320726F777320636F6C6F72732063686172732D7065722D70697865
6C202A2F0A22313620313620342031222C0A2220206320626C61636B222C0A22
2E20632023303030303833222C0A225820632079656C6C6F77222C0A226F2063
2067726179313030222C0A2F2A20706978656C73202A2F0A226F6F6F6F6F6F6F
6F6F6F6F6F6F6F6F6F222C0A226F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F222C0A
226F6F6F6F202020206F6F6F6F6F6F6F6F222C0A226F6F6F20586F586F206F6F
6F6F6F6F6F222C0A226F6F2020202020202020202020206F6F222C0A226F6F20
6F586F586F586F586F58206F6F222C0A226F6F20586F582E582E582E586F206F
6F222C0A226F6F206F586F582E2E2E586F58206F6F222C0A226F6F20586F582E
2E582E2E586F206F6F222C0A226F6F206F586F582E2E2E586F58206F6F222C0A
226F6F20586F582E582E582E586F206F6F222C0A226F6F206F586F586F586F58
6F58206F6F222C0A226F6F2020202020202020202020206F6F222C0A226F6F6F
6F6F6F6F6F6F6F6F6F6F6F6F6F222C0A226F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
6F222C0A226F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F220A7D3B0A1B0600002F2A
2058504D202A2F0A7374617469632063686172202A6469727265635B5D203D20
7B0A2F2A20636F6C756D6E7320726F777320636F6C6F72732063686172732D70
65722D706978656C202A2F0A2231362031362037362031222C0A222020632062
6C61636B222C0A222E20632023303030343030222C0A22582063202330303030
3038222C0A226F20632023303030343038222C0A224F20632023303030383030
222C0A222B20632023303830343030222C0A224020632023303830383030222C
0A22232063206772617933222C0A222420632023303030303130222C0A222520
632023303030303138222C0A222620632023303830303130222C0A222A206320
23313031303130222C0A223D20632023303030303230222C0A222D2063202330
3830383230222C0A223B20632023313031303230222C0A223A20632023374237
443742222C0A223E20632023374237393833222C0A222C206320233742374438
33222C0A223C20632023384230303130222C0A22312063202338423030313822
2C0A223220632023434430303130222C0A223320632023443530303130222C0A
223420632023443530303138222C0A223520632023464630303130222C0A2236
20632023464630303138222C0A223720632023383337443934222C0A22382063
2023383337444143222C0A223920632023383338353742222C0A223020632023
383338353833222C0A227120632023384238443833222C0A2277206320233842
38393842222C0A226520632023383338313934222C0A22722063202338333835
3934222C0A227420632023383338313943222C0A227920632023383338393934
222C0A227520632023384238353943222C0A226920632023384238393934222C
0A227020632023384238443934222C0A226120632023384238393943222C0A22
7320632023393438444143222C0A226420632023424442454234222C0A226620
632023423442324335222C0A226720632023424442414335222C0A2268206320
23424442454435222C0A226A20632023433542454344222C0A226B2063202343
3542454435222C0A226C20632023433543324335222C0A227A20632023433543
364335222C0A227820632023433543364344222C0A2263206320234335434143
35222C0A227620632023434443364344222C0A22622063202343444341433522
2C0A226E20632023434443454335222C0A226D20632023434443414344222C0A
224D20632023434443454344222C0A224E20632023433543324435222C0A2242
20632023433543324445222C0A225620632023434443364435222C0A22432063
2023434443364445222C0A225A20632023434443414435222C0A224120632023
434443414445222C0A225320632023443543454435222C0A2244206320234435
43454445222C0A224620632023443544324344222C0A22472063202344354432
4445222C0A224820632023443544364445222C0A224A20632023443543454536
222C0A224B20632023443543454636222C0A224C20632023444544324536222C
0A225020632023444544414536222C0A224920632023463646324646222C0A22
5520632023463646414646222C0A225920632023464646324646222C0A225420
632023464646364646222C0A225220632023464646414646222C0A2245206320
67726179313030222C0A2F2A20706978656C73202A2F0A224545454545454545
4545454545454545222C0A2245454545453774617961796179612445222C0A22
454545454561313C3432363536352545222C0A22454545454569524545554545
55452045222C0A224545453E657575796172692C6F482E45222C0A2245454573
3C31323335363535254E5845222C0A224545453852595254525245493D422645
222C0A22457479617961796179613D4B245A2045222C0A224574313C34323635
36352D56586D2E45222C0A2245775245454545524552206E202E2045222C0A22
4539457A464D766D6C632E644F454545222C0A224571457A626D6D4E414E5850
20454545222C0A22453A454D536744434A6B24583B454545222C0A2245705256
414A68567847584545454545222C0A224577456A44664C766C7A204545454545
222C0A2245304023202A202B202B204545454545220A7D3B0ACF0100002F2A20
58504D202A2F0A7374617469632063686172202A707265765B5D203D207B0A2F
2A20636F6C756D6E7320726F777320636F6C6F72732063686172732D7065722D
706978656C202A2F0A22313620313620332031222C0A2220206320626C61636B
222C0A222E206320726564222C0A225820632067726179313030222C0A2F2A20
706978656C73202A2F0A2258585858585858585858585858585858222C0A2258
585858585858585858585858585858222C0A2258585858585858585858585858
585858222C0A2258585858585858585858585858585858222C0A225858585858
5858582020585858585858222C0A2258585858585820202E2058585858585822
2C0A225858585820202E2E2E20585858585858222C0A22585820202E2E2E2E2E
20202020202020222C0A2220202E2E2E2E2E2E2E2E2E2E2E2E2E20222C0A2258
5820202E2E2E2E2E20202020202020222C0A225858585820202E2E2E20585858
585858222C0A2258585858585820202E20585858585858222C0A225858585858
5858582020585858585858222C0A225858585858585858585858585858585822
2C0A2258585858585858585858585858585858222C0A22585858585858585858
58585858585858220A7D3B0ACF0100002F2A2058504D202A2F0A737461746963
2063686172202A6E6578745B5D203D207B0A2F2A20636F6C756D6E7320726F77
7320636F6C6F72732063686172732D7065722D706978656C202A2F0A22313620
313620332031222C0A2220206320626C61636B222C0A222E206320726564222C
0A225820632067726179313030222C0A2F2A20706978656C73202A2F0A225858
5858585858585858585858585858222C0A225858585858585858585858585858
5858222C0A2258585858585858585858585858585858222C0A22585858585858
20205858585858585858222C0A22585858585858202E2020585858585858222C
0A22585858585858202E2E2E202058585858222C0A22202020202020202E2E2E
2E2E20205858222C0A22202E2E2E2E2E2E2E2E2E2E2E2E2E2020222C0A222020
20202020202E2E2E2E2E20205858222C0A22585858585858202E2E2E20205858
5858222C0A22585858585858202E2020585858585858222C0A22585858585858
20205858585858585858222C0A2258585858585858585858585858585858222C
0A2258585858585858585858585858585858222C0A2258585858585858585858
585858585858222C0A2258585858585858585858585858585858220A7D3B0A1B
0200002F2A2058504D202A2F0A7374617469632063686172202A7A6F6F6D696E
5B5D203D207B0A2F2A20636F6C756D6E7320726F777320636F6C6F7273206368
6172732D7065722D706978656C202A2F0A22313620313620382031222C0A2220
206320626C61636B222C0A222E20632023374237443742222C0A225820632072
6564222C0A226F20632023383337443833222C0A224F20632079656C6C6F7722
2C0A222B20632023383338313833222C0A224020632023433543324335222C0A
222320632067726179313030222C0A2F2A20706978656C73202A2F0A22232323
2B2020202B2323232323232323222C0A222323202B6F2B2E2B20232323232323
23222C0A2223202B23402340232B20232323232323222C0A222E2B2340235823
40232B6F2323232323222C0A22202B402340584023402B202323232323222C0A
22202B235858585858232B202323232323222C0A22202B402340584023402B20
2323232323222C0A222E2B234023582340232B6F2323232323222C0A2223202B
23402340232B20232323232323222C0A222323202B6F2B2E2B20204F23232323
23222C0A222323232B2020202B234F2B2023232323222C0A2223232323232323
232323202020232323222C0A2223232323232323232323232020202323222C0A
2223232323232323232323232320202023222C0A222323232323232323232323
2323202020222C0A2223232323232323232323232323232023220A7D3B0A3B02
00002F2A2058504D202A2F0A7374617469632063686172202A7A6F6F6D6F7574
5B5D203D207B0A2F2A20636F6C756D6E7320726F777320636F6C6F7273206368
6172732D7065722D706978656C202A2F0A2231362031362031302031222C0A22
20206320626C61636B222C0A222E20632023374237443742222C0A2258206320
726564222C0A226F20632023383337443833222C0A224F20632079656C6C6F77
222C0A222B20632023383338313833222C0A224020632023424442454244222C
0A222320632023433542454335222C0A222420632023433543324335222C0A22
2520632067726179313030222C0A2F2A20706978656C73202A2F0A222525252B
2020202B2525252525252525222C0A222525202B6F2B2E2B2025252525252525
222C0A2225202B24252425242B20252525252525222C0A222E2B232540252325
402B6F2525252525222C0A22202B252425242524252B202525252525222C0A22
202B405858585858232B202525252525222C0A22202B252425242524252B2025
25252525222C0A222E2B232540252325402B6F2525252525222C0A2225202B24
252425242B20252525252525222C0A222525202B6F2B2E2B20204F2525252525
222C0A222525252B2020202B254F2B2025252525222C0A222525252525252525
2525202020252525222C0A2225252525252525252525252020202525222C0A22
25252525252525252525252520202025222C0A22252525252525252525252525
25202020222C0A2225252525252525252525252525252025220A7D3B0A000200
002F2A2058504D202A2F0A7374617469632063686172202A707265766469725B
5D203D207B0A2F2A20636F6C756D6E7320726F777320636F6C6F727320636861
72732D7065722D706978656C202A2F0A22313620313620362031222C0A222020
6320626C61636B222C0A222E20632023374237443742222C0A22582063206379
616E222C0A226F20632023383337443833222C0A224F20632023383338313833
222C0A222B20632067726179313030222C0A2F2A20706978656C73202A2F0A22
5858585858585858585858585858582B222C0A22582020202020202020202020
2020582B222C0A2258202B2B2B2B2B2B2B2B2B2B2B20582B222C0A2258202B2B
2B2B2B2B2B2B2B2B2E20582B222C0A2258202B2B2B2B2B2B2B2B2B2B4F20582B
222C0A2258202B2B2B2B202B20202B2B6F20582B222C0A2258202B2B2B20202B
20202B2B4F20582B222C0A2258202B2B2020202B20202B2B2E20582B222C0A22
58202B2B2B20202B20202B2B4F20582B222C0A2258202B2B2B2B202B20202B2B
6F20582B222C0A2258202B2B2B2B2B2B2B2B2B2B4F20582B222C0A2258202B2B
2B2B2B2B2B2B2B2B2E20582B222C0A2258202B4F4F4F4F4F4F4F4F4F4F20582B
222C0A225820202020202020202020202020582B222C0A225858585858585858
585858585858582B222C0A222B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B220A7D3B
0A000200002F2A2058504D202A2F0A7374617469632063686172202A6E657874
6469725B5D203D207B0A2F2A20636F6C756D6E7320726F777320636F6C6F7273
2063686172732D7065722D706978656C202A2F0A22313620313620362031222C
0A2220206320626C61636B222C0A222E20632023374237443742222C0A225820
63206379616E222C0A226F20632023383337443833222C0A224F206320233833
38313833222C0A222B20632067726179313030222C0A2F2A20706978656C7320
2A2F0A225858585858585858585858585858582B222C0A225820202020202020
202020202020582B222C0A2258202B2B2B2B2B2B2B2B2B2B2B20582B222C0A22
58202B2B2B2B2B2B2B2B2B2B2E20582B222C0A2258202B2B2B2B2B2B2B2B2B2B
4F20582B222C0A2258202B2B2B20202B202B2B2B6F20582B222C0A2258202B2B
2B20202B20202B2B4F20582B222C0A2258202B2B2B20202B2020202B2E20582B
222C0A2258202B2B2B20202B20202B2B4F20582B222C0A2258202B2B2B20202B
202B2B2B6F20582B222C0A2258202B2B2B2B2B2B2B2B2B2B4F20582B222C0A22
58202B2B2B2B2B2B2B2B2B2B2E20582B222C0A2258202B4F4F4F4F4F4F4F4F4F
4F20582B222C0A225820202020202020202020202020582B222C0A2258585858
58585858585858585858582B222C0A222B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B
220A7D3B0A
}
end
object ODImage: TOpenDialog
Options = [ofAllowMultiSelect, ofEnableSizing, ofViewDetail]
FilterIndex = 0
left = 72
top = 64
end
object OpenDialog1: TOpenDialog
FilterIndex = 0
left = 72
top = 104
end
end

207
examples/imgviewer/frmmain.lrs Normal file
View File

@ -0,0 +1,207 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TMainForm','FORMDATA',[
'TPF0'#9'TMainForm'#8'MainForm'#13'ActiveControl'#7#7'LBFiles'#7'Caption'#6#12
+'Image viewer'#12'ClientHeight'#3'f'#2#11'ClientWidth'#3'f'#3#11'Font.Height'
+#2#243#9'Font.Name'#6#13'MS Sans Serif'#4'Menu'#7#9'MainMenu1'#9'OnKeyDown'#7
+#11'FormKeyDown'#6'OnShow'#7#8'FormShow'#10'TextHeight'#2#16#18'HorzScrollBa'
+'r.Page'#3'g'#3#19'HorzScrollBar.Range'#3#165#0#18'VertScrollBar.Page'#3'g'#2
+#19'VertScrollBar.Range'#2#23#4'Left'#3'Y'#1#6'Height'#3#128#2#3'Top'#3#161#0
+#5'Width'#3'f'#3#0#9'TSplitter'#7'SPImage'#7'Beveled'#9#6'Cursor'#4#242#255#0
+#0#6'Height'#3'I'#2#11'ParentColor'#9#11'ResizeStyle'#7#8'rsUpdate'#5'Width'
+#2#4#6'Cursor'#4#242#255#0#0#4'Left'#3#161#0#6'Height'#3'I'#2#3'Top'#2#29#5
+'Width'#2#4#0#0#8'TToolBar'#8'ToolBar1'#12'ButtonHeight'#2#23#7'Caption'#6#8
+'ToolBar1'#10'DragCursor'#4#244#255#0#0#6'Height'#2#29#6'Images'#7#6'ILMain'
+#11'ParentColor'#9#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#0#6'Heig'
+'ht'#2#29#5'Width'#3'f'#3#0#11'TToolButton'#6'TBOPen'#6'Action'#7#5'AOpen'#10
+'DragCursor'#4#244#255#0#0#4'Left'#2#1#6'Height'#2#23#3'Top'#2#2#5'Width'#2
+#23#0#0#11'TToolButton'#9'TBOpenDir'#6'Action'#7#8'AOpenDir'#10'DragCursor'#4
+#244#255#0#0#4'Left'#2#24#6'Height'#2#23#3'Top'#2#2#5'Width'#2#23#0#0#11'TTo'
+'olButton'#12'TBOpenDirRec'#6'Action'#7#18'OpenDirRecursively'#10'DragCursor'
+#4#244#255#0#0#4'Left'#2'/'#6'Height'#2#23#3'Top'#2#2#5'Width'#2#23#0#0#11'T'
+'ToolButton'#11'ToolButton4'#7'Caption'#6#11'ToolButton4'#10'DragCursor'#4
+#244#255#0#0#10'ImageIndex'#2#3#5'Style'#7#12'tbsSeparator'#5'Width'#2#8#4'L'
+'eft'#2'F'#6'Height'#2#23#3'Top'#2#2#5'Width'#2#8#0#0#11'TToolButton'#6'TBPR'
+'ev'#6'Action'#7#14'APreviousImage'#10'DragCursor'#4#244#255#0#0#4'Left'#2'N'
+#6'Height'#2#23#3'Top'#2#2#5'Width'#2#23#0#0#11'TToolButton'#6'TBNext'#6'Act'
+'ion'#7#10'ANextImage'#10'DragCursor'#4#244#255#0#0#4'Left'#2'e'#6'Height'#2
+#23#3'Top'#2#2#5'Width'#2#23#0#0#11'TToolButton'#9'TBPRevDir'#6'Action'#7#13
+'APrevImageDir'#10'DragCursor'#4#244#255#0#0#4'Left'#2'|'#6'Height'#2#23#4'H'
+'int'#6'(Jump to last image of previous directory'#3'Top'#2#2#5'Width'#2#23#0
+#0#11'TToolButton'#9'TBNextDir'#6'Action'#7#13'ANextImageDir'#10'DragCursor'
+#4#244#255#0#0#4'Left'#3#147#0#6'Height'#2#23#3'Top'#2#2#5'Width'#2#23#0#0#11
+'TToolButton'#12'TBDoubleSize'#6'Action'#7#11'ADoubleSize'#10'DragCursor'#4
+#244#255#0#0#4'Left'#3#170#0#6'Height'#2#23#3'Top'#2#2#5'Width'#2#23#0#0#11
+'TToolButton'#10'TBHalfSize'#6'Action'#7#9'AHalfSize'#10'DragCursor'#4#244
+#255#0#0#4'Left'#3#193#0#6'Height'#2#23#3'Top'#2#2#5'Width'#2#23#0#0#11'TToo'
+'lButton'#11'ToolButton3'#7'Caption'#6#11'ToolButton3'#10'DragCursor'#4#244
+#255#0#0#10'ImageIndex'#2#10#5'Style'#7#12'tbsSeparator'#5'Width'#2#8#4'Left'
+#3#216#0#6'Height'#2#23#3'Top'#2#2#5'Width'#2#8#0#0#0#8'TListBox'#7'LBFiles'
+#5'Align'#7#6'alLeft'#16'ClickOnSelChange'#8#10'Font.Color'#7#7'clBlack'#11
+'Font.Height'#2#15#9'Font.Name'#6#5'Arial'#10'Font.Pitch'#7#10'fpVariable'#10
+'ItemHeight'#2#15#7'OnClick'#7#12'LBFilesClick'#9'OnKeyDown'#7#11'FormKeyDow'
+'n'#8'TabOrder'#2#1#8'TopIndex'#2#255#6'Height'#3'I'#2#3'Top'#2#29#5'Width'#3
+#161#0#0#0#6'TPanel'#6'PImage'#5'Align'#7#8'alClient'#12'ClientHeight'#3'I'#2
+#11'ClientWidth'#3#193#2#11'FullRepaint'#8#8'TabOrder'#2#2#4'Left'#3#165#0#6
+'Height'#3'I'#2#3'Top'#2#29#5'Width'#3#193#2#0#10'TScrollBox'#10'ScrollBox1'
+#5'Align'#7#8'alClient'#8'AutoSize'#8#11'BorderStyle'#7#6'bsNone'#10'DragCur'
+'sor'#4#244#255#0#0#11'ParentColor'#9#8'TabOrder'#2#0#18'HorzScrollBar.Page'
+#3#188#2#18'VertScrollBar.Page'#3'D'#2#4'Left'#2#1#6'Height'#3'G'#2#3'Top'#2
+#1#5'Width'#3#191#2#0#6'TImage'#5'IMain'#5'Align'#7#8'alClient'#11'Transpare'
+'nt'#9#6'Height'#3'C'#2#5'Width'#3#187#2#0#0#0#0#9'TMainMenu'#9'MainMenu1'#6
+'Images'#7#6'ILMain'#4'left'#2' '#3'top'#2' '#0#9'TMenuItem'#5'File1'#7'Capt'
+'ion'#6#5'&File'#0#9'TMenuItem'#6'MIOpen'#6'Action'#7#5'AOpen'#7'OnClick'#7
+#12'AOpenExecute'#0#0#9'TMenuItem'#9'MIOPenDir'#6'Action'#7#8'AOpenDir'#7'On'
+'Click'#7#15'AOpenDirExecute'#0#0#9'TMenuItem'#12'MIOpenDirRec'#6'Action'#7
+#18'OpenDirRecursively'#7'OnClick'#7#25'OpenDirRecursivelyExecute'#0#0#9'TMe'
+'nuItem'#7'MIClear'#6'Action'#7#6'AClear'#7'OnClick'#7#13'AClearExecute'#0#0
+#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6'MIQuit'#6'Action'#7
+#5'AExit'#7'OnClick'#7#12'AExitExecute'#0#0#0#9'TMenuItem'#6'MImage'#7'Capti'
+'on'#6#6'&Image'#0#9'TMenuItem'#2'D1'#6'Action'#7#11'ADoubleSize'#7'OnClick'
+#7#18'ADoubleSizeExecute'#0#0#9'TMenuItem'#10'MIHalfSize'#6'Action'#7#9'AHal'
+'fSize'#7'OnClick'#7#16'AHalfSizeExecute'#0#0#9'TMenuItem'#2'N2'#7'Caption'#6
+#1'-'#0#0#9'TMenuItem'#11'MINextImage'#6'Action'#7#10'ANextImage'#8'ShortCut'
+#4#18#144#0#0#7'OnClick'#7#17'ANextImageExecute'#0#0#9'TMenuItem'#14'Previou'
+'sImage1'#6'Action'#7#14'APreviousImage'#8'ShortCut'#4#20#144#0#0#7'OnClick'
+#7#21'APreviousImageExecute'#0#0#9'TMenuItem'#19'Nextimagedirectory1'#6'Acti'
+'on'#7#13'ANextImageDir'#7'OnClick'#7#20'ANextImageDirExecute'#0#0#9'TMenuIt'
,'em'#23'Previousimagedirectory1'#6'Action'#7#13'APrevImageDir'#7'OnClick'#7
+#20'APrevImageDirExecute'#0#0#0#0#11'TActionList'#11'ActionList1'#6'Images'#7
+#6'ILMain'#4'left'#2'H'#3'top'#2' '#0#7'TAction'#5'AOpen'#7'Caption'#6#5'&Op'
+'en'#8'HelpType'#7#9'htKeyword'#10'ImageIndex'#2#0#9'OnExecute'#7#12'AOpenEx'
+'ecute'#8'ShortCut'#3'O@'#0#0#7'TAction'#8'AOpenDir'#7'Caption'#6#15'Open &D'
+'irectory'#8'HelpType'#7#9'htKeyword'#10'ImageIndex'#2#1#9'OnExecute'#7#15'A'
+'OpenDirExecute'#8'ShortCut'#3'D@'#0#0#7'TAction'#5'AExit'#7'Caption'#6#5'&Q'
+'uit'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'AExitExecute'#8'ShortCut'
+#3'Q@'#0#0#7'TAction'#6'AClear'#7'Caption'#6#11'&Clear list'#8'HelpType'#7#9
+'htKeyword'#9'OnExecute'#7#13'AClearExecute'#8'ShortCut'#3'L@'#0#0#7'TAction'
+#18'OpenDirRecursively'#7'Caption'#6#27'Open Directory &Recursively'#8'HelpT'
+'ype'#7#9'htKeyword'#10'ImageIndex'#2#2#9'OnExecute'#7#25'OpenDirRecursively'
+'Execute'#8'ShortCut'#3'R@'#0#0#7'TAction'#11'ADoubleSize'#7'Caption'#6#12'&'
+'Double size'#8'HelpType'#7#9'htKeyword'#10'ImageIndex'#2#5#9'OnExecute'#7#18
+'ADoubleSizeExecute'#8'ShortCut'#3'+@'#0#0#7'TAction'#9'AHalfSize'#7'Caption'
+#6#11'&Half Size'#8'HelpType'#7#9'htKeyword'#10'ImageIndex'#2#6#9'OnExecute'
+#7#16'AHalfSizeExecute'#8'ShortCut'#3'-@'#0#0#7'TAction'#10'ANextImage'#7'Ca'
+'ption'#6#11'&Next image'#8'HelpType'#7#9'htKeyword'#10'ImageIndex'#2#4#9'On'
+'Execute'#7#17'ANextImageExecute'#0#0#7'TAction'#14'APreviousImage'#7'Captio'
+'n'#6#15'&Previous Image'#8'HelpType'#7#9'htKeyword'#10'ImageIndex'#2#3#9'On'
+'Execute'#7#21'APreviousImageExecute'#0#0#7'TAction'#13'ANextImageDir'#7'Cap'
+'tion'#6#21'N&ext image directory'#8'HelpType'#7#9'htKeyword'#10'ImageIndex'
+#2#8#9'OnExecute'#7#20'ANextImageDirExecute'#8'ShortCut'#4'N'#128#0#0#0#0#7
+'TAction'#13'APrevImageDir'#7'Caption'#6#25'Pre&vious image directory'#8'Hel'
+'pType'#7#9'htKeyword'#4'Hint'#6'(Jump to last image of previous directory'
+#10'ImageIndex'#2#7#9'OnExecute'#7#20'APrevImageDirExecute'#8'ShortCut'#4'P'
+#128#0#0#0#0#0#10'TImageList'#6'ILMain'#4'left'#2' '#3'top'#2'@'#6'Bitmap'#10
+#165#25#0#0'li'#9#0#0#0#16#0#0#0#16#0#0#0#132#5#0#0'/* XPM */'#10'static cha'
+'r *file[] = {'#10'/* columns rows colors chars-per-pixel */'#10'"16 16 66 1'
+'",'#10'" c black",'#10'". c #181418",'#10'"X c #202020",'#10'"o c #292429"'
+','#10'"O c #313031",'#10'"+ c #393439",'#10'"@ c #4A3018",'#10'"# c #523418'
+'",'#10'"$ c #523420",'#10'"% c #414041",'#10'"& c #4A444A",'#10'"* c #4A484'
+'A",'#10'"= c #4A4C4A",'#10'"- c #524C52",'#10'"; c #52504A",'#10'": c #5A55'
+'52",'#10'"> c #6A696A",'#10'", c #737173",'#10'"< c #BD7D41",'#10'"1 c #CD8'
+'952",'#10'"2 c #E6A56A",'#10'"3 c #EEAA6A",'#10'"4 c #FFAE62",'#10'"5 c #8B'
+'8D8B",'#10'"6 c #949594",'#10'"7 c #9C9594",'#10'"8 c #9C959C",'#10'"9 c #9'
+'C999C",'#10'"0 c #A4A1A4",'#10'"q c #A4A5A4",'#10'"w c #ACA5A4",'#10'"e c #'
+'ACAAAC",'#10'"r c #ACAEAC",'#10'"t c #B4AEAC",'#10'"y c #B4B2B4",'#10'"u c '
+'#B4B6B4",'#10'"i c #BDB6B4",'#10'"p c #BDBABD",'#10'"a c #BDBEBD",'#10'"s c'
+' #C5BEBD",'#10'"d c #C5BEC5",'#10'"f c #FFC283",'#10'"g c #FFC683",'#10'"h '
+'c #FFC68B",'#10'"j c #FFD69C",'#10'"k c #FFD6A4",'#10'"l c #C5C2C5",'#10'"z'
+' c #C5C6C5",'#10'"x c #CDC6C5",'#10'"c c #CDC6CD",'#10'"v c #CDCECD",'#10'"'
+'b c #D5CED5",'#10'"n c #D5D2D5",'#10'"m c #D5D6D5",'#10'"M c #DED6DE",'#10
+'"N c #DEDADE",'#10'"B c gray87",'#10'"V c #E6DEDE",'#10'"C c #E6DEE6",'#10
+'"Z c #E6E2E6",'#10'"A c #E6E6E6",'#10'"S c #EEEAEE",'#10'"D c #F6EEF6",'#10
+'"F c #FFF6FF",'#10'"G c #FFFAFF",'#10'"H c gray100",'#10'/* pixels */'#10'"'
+'HHHHHH HHHHHHH",'#10'"HHHHH H H HHH",'#10'"HHHH HHHH HHH",'#10'"HHH'
+'HHHHHHH HHH",'#10'"HHHHHHHHH HHH",'#10'"H$@#@HHHHHHHHHHH",'#10'"$2kh3#'
+'$#$#$HHHHH",'#10'"@jhg4444444 HHHH",'#10'"$f1;GFDAMvcapuOH",'#10'"@g@BVSAZx'
+'ar06*HH",'#10'"$<:NCZZMzit0>XHH",'#10'"@@vvmMnbpy08*HHH",'#10'"$:nsccclyw0,'
+'.HHH",'#10'"@dqrryee975*HHHH",'#10'"o*-=-=-*&%+XHHHH",'#10'"HHHHHHHHHHHHHHH'
+'H"'#10'};'#10#224#1#0#0'/* XPM */'#10'static char *dir[] = {'#10'/* columns'
+' rows colors chars-per-pixel */'#10'"16 16 4 1",'#10'" c black",'#10'". c '
+'#000083",'#10'"X c yellow",'#10'"o c gray100",'#10'/* pixels */'#10'"oooooo'
+'oooooooooo",'#10'"oooooooooooooooo",'#10'"oooo oooooooo",'#10'"ooo XoXo '
+'ooooooo",'#10'"oo oo",'#10'"oo oXoXoXoXoX oo",'#10'"oo XoX.X.X.X'
+'o oo",'#10'"oo oXoX...XoX oo",'#10'"oo XoX..X..Xo oo",'#10'"oo oXoX...XoX o'
+'o",'#10'"oo XoX.X.X.Xo oo",'#10'"oo oXoXoXoXoX oo",'#10'"oo oo",'
+#10'"oooooooooooooooo",'#10'"oooooooooooooooo",'#10'"oooooooooooooooo"'#10'}'
+';'#10#27#6#0#0'/* XPM */'#10'static char *dirrec[] = {'#10'/* columns rows '
+'colors chars-per-pixel */'#10'"16 16 76 1",'#10'" c black",'#10'". c #0004'
+'00",'#10'"X c #000008",'#10'"o c #000408",'#10'"O c #000800",'#10'"+ c #080'
+'400",'#10'"@ c #080800",'#10'"# c gray3",'#10'"$ c #000010",'#10'"% c #0000'
+'18",'#10'"& c #080010",'#10'"* c #101010",'#10'"= c #000020",'#10'"- c #080'
,'820",'#10'"; c #101020",'#10'": c #7B7D7B",'#10'"> c #7B7983",'#10'", c #7B'
+'7D83",'#10'"< c #8B0010",'#10'"1 c #8B0018",'#10'"2 c #CD0010",'#10'"3 c #D'
+'50010",'#10'"4 c #D50018",'#10'"5 c #FF0010",'#10'"6 c #FF0018",'#10'"7 c #'
+'837D94",'#10'"8 c #837DAC",'#10'"9 c #83857B",'#10'"0 c #838583",'#10'"q c '
+'#8B8D83",'#10'"w c #8B898B",'#10'"e c #838194",'#10'"r c #838594",'#10'"t c'
+' #83819C",'#10'"y c #838994",'#10'"u c #8B859C",'#10'"i c #8B8994",'#10'"p '
+'c #8B8D94",'#10'"a c #8B899C",'#10'"s c #948DAC",'#10'"d c #BDBEB4",'#10'"f'
+' c #B4B2C5",'#10'"g c #BDBAC5",'#10'"h c #BDBED5",'#10'"j c #C5BECD",'#10'"'
+'k c #C5BED5",'#10'"l c #C5C2C5",'#10'"z c #C5C6C5",'#10'"x c #C5C6CD",'#10
+'"c c #C5CAC5",'#10'"v c #CDC6CD",'#10'"b c #CDCAC5",'#10'"n c #CDCEC5",'#10
+'"m c #CDCACD",'#10'"M c #CDCECD",'#10'"N c #C5C2D5",'#10'"B c #C5C2DE",'#10
+'"V c #CDC6D5",'#10'"C c #CDC6DE",'#10'"Z c #CDCAD5",'#10'"A c #CDCADE",'#10
+'"S c #D5CED5",'#10'"D c #D5CEDE",'#10'"F c #D5D2CD",'#10'"G c #D5D2DE",'#10
+'"H c #D5D6DE",'#10'"J c #D5CEE6",'#10'"K c #D5CEF6",'#10'"L c #DED2E6",'#10
+'"P c #DEDAE6",'#10'"I c #F6F2FF",'#10'"U c #F6FAFF",'#10'"Y c #FFF2FF",'#10
+'"T c #FFF6FF",'#10'"R c #FFFAFF",'#10'"E c gray100",'#10'/* pixels */'#10'"'
+'EEEEEEEEEEEEEEEE",'#10'"EEEEE7tayayaya$E",'#10'"EEEEEa1<426565%E",'#10'"EEE'
+'EEiREEUEEUE E",'#10'"EEE>euuyari,oH.E",'#10'"EEEs<1235655%NXE",'#10'"EEE8RY'
+'RTRREI=B&E",'#10'"Etyayayaya=K$Z E",'#10'"Et1<426565-VXm.E",'#10'"EwREEEERE'
+'R n . E",'#10'"E9EzFMvmlc.dOEEE",'#10'"EqEzbmmNANXP EEE",'#10'"E:EMSgDCJk$X'
+';EEE",'#10'"EpRVAJhVxGXEEEEE",'#10'"EwEjDfLvlz EEEEE",'#10'"E0@# * + + EEEE'
+'E"'#10'};'#10#207#1#0#0'/* XPM */'#10'static char *prev[] = {'#10'/* column'
+'s rows colors chars-per-pixel */'#10'"16 16 3 1",'#10'" c black",'#10'". c'
+' red",'#10'"X c gray100",'#10'/* pixels */'#10'"XXXXXXXXXXXXXXXX",'#10'"XXX'
+'XXXXXXXXXXXXX",'#10'"XXXXXXXXXXXXXXXX",'#10'"XXXXXXXXXXXXXXXX",'#10'"XXXXXX'
+'XX XXXXXX",'#10'"XXXXXX . XXXXXX",'#10'"XXXX ... XXXXXX",'#10'"XX .....'
+' ",'#10'" ............. ",'#10'"XX ..... ",'#10'"XXXX ... XX'
+'XXXX",'#10'"XXXXXX . XXXXXX",'#10'"XXXXXXXX XXXXXX",'#10'"XXXXXXXXXXXXXXX'
+'X",'#10'"XXXXXXXXXXXXXXXX",'#10'"XXXXXXXXXXXXXXXX"'#10'};'#10#207#1#0#0'/* '
+'XPM */'#10'static char *next[] = {'#10'/* columns rows colors chars-per-pix'
+'el */'#10'"16 16 3 1",'#10'" c black",'#10'". c red",'#10'"X c gray100",'
+#10'/* pixels */'#10'"XXXXXXXXXXXXXXXX",'#10'"XXXXXXXXXXXXXXXX",'#10'"XXXXXX'
+'XXXXXXXXXX",'#10'"XXXXXX XXXXXXXX",'#10'"XXXXXX . XXXXXX",'#10'"XXXXXX ..'
+'. XXXX",'#10'" ..... XX",'#10'" ............. ",'#10'" .....'
+' XX",'#10'"XXXXXX ... XXXX",'#10'"XXXXXX . XXXXXX",'#10'"XXXXXX XXXXXXX'
+'X",'#10'"XXXXXXXXXXXXXXXX",'#10'"XXXXXXXXXXXXXXXX",'#10'"XXXXXXXXXXXXXXXX",'
+#10'"XXXXXXXXXXXXXXXX"'#10'};'#10#27#2#0#0'/* XPM */'#10'static char *zoomin'
+'[] = {'#10'/* columns rows colors chars-per-pixel */'#10'"16 16 8 1",'#10'"'
+' c black",'#10'". c #7B7D7B",'#10'"X c red",'#10'"o c #837D83",'#10'"O c y'
+'ellow",'#10'"+ c #838183",'#10'"@ c #C5C2C5",'#10'"# c gray100",'#10'/* pix'
+'els */'#10'"###+ +########",'#10'"## +o+.+ #######",'#10'"# +#@#@#+ #####'
+'#",'#10'".+#@#X#@#+o#####",'#10'" +@#@X@#@+ #####",'#10'" +#XXXXX#+ #####",'
+#10'" +@#@X@#@+ #####",'#10'".+#@#X#@#+o#####",'#10'"# +#@#@#+ ######",'#10
+'"## +o+.+ O#####",'#10'"###+ +#O+ ####",'#10'"########## ###",'#10'"##'
+'######### ##",'#10'"############ #",'#10'"############# ",'#10'"#####'
+'######### #"'#10'};'#10';'#2#0#0'/* XPM */'#10'static char *zoomout[] = {'
+#10'/* columns rows colors chars-per-pixel */'#10'"16 16 10 1",'#10'" c bla'
+'ck",'#10'". c #7B7D7B",'#10'"X c red",'#10'"o c #837D83",'#10'"O c yellow",'
+#10'"+ c #838183",'#10'"@ c #BDBEBD",'#10'"# c #C5BEC5",'#10'"$ c #C5C2C5",'
+#10'"% c gray100",'#10'/* pixels */'#10'"%%%+ +%%%%%%%%",'#10'"%% +o+.+ %%'
+'%%%%%",'#10'"% +$%$%$+ %%%%%%",'#10'".+#%@%#%@+o%%%%%",'#10'" +%$%$%$%+ %%%'
+'%%",'#10'" +@XXXXX#+ %%%%%",'#10'" +%$%$%$%+ %%%%%",'#10'".+#%@%#%@+o%%%%%"'
+','#10'"% +$%$%$+ %%%%%%",'#10'"%% +o+.+ O%%%%%",'#10'"%%%+ +%O+ %%%%",'
+#10'"%%%%%%%%%% %%%",'#10'"%%%%%%%%%%% %%",'#10'"%%%%%%%%%%%% %",'#10
+'"%%%%%%%%%%%%% ",'#10'"%%%%%%%%%%%%%% %"'#10'};'#10#0#2#0#0'/* XPM */'#10
+'static char *prevdir[] = {'#10'/* columns rows colors chars-per-pixel */'#10
+'"16 16 6 1",'#10'" c black",'#10'". c #7B7D7B",'#10'"X c cyan",'#10'"o c #'
+'837D83",'#10'"O c #838183",'#10'"+ c gray100",'#10'/* pixels */'#10'"XXXXXX'
+'XXXXXXXXX+",'#10'"X X+",'#10'"X +++++++++++ X+",'#10'"X +++++++'
+'+++. X+",'#10'"X ++++++++++O X+",'#10'"X ++++ + ++o X+",'#10'"X +++ + ++'
+'O X+",'#10'"X ++ + ++. X+",'#10'"X +++ + ++O X+",'#10'"X ++++ + ++o X'
+'+",'#10'"X ++++++++++O X+",'#10'"X ++++++++++. X+",'#10'"X +OOOOOOOOOO X+",'
+#10'"X X+",'#10'"XXXXXXXXXXXXXXX+",'#10'"++++++++++++++++"'#10'}'
+';'#10#0#2#0#0'/* XPM */'#10'static char *nextdir[] = {'#10'/* columns rows '
,'colors chars-per-pixel */'#10'"16 16 6 1",'#10'" c black",'#10'". c #7B7D7'
+'B",'#10'"X c cyan",'#10'"o c #837D83",'#10'"O c #838183",'#10'"+ c gray100"'
+','#10'/* pixels */'#10'"XXXXXXXXXXXXXXX+",'#10'"X X+",'#10'"X +'
+'++++++++++ X+",'#10'"X ++++++++++. X+",'#10'"X ++++++++++O X+",'#10'"X +++ '
+' + +++o X+",'#10'"X +++ + ++O X+",'#10'"X +++ + +. X+",'#10'"X +++ + '
+' ++O X+",'#10'"X +++ + +++o X+",'#10'"X ++++++++++O X+",'#10'"X ++++++++++'
+'. X+",'#10'"X +OOOOOOOOOO X+",'#10'"X X+",'#10'"XXXXXXXXXXXXXXX'
+'+",'#10'"++++++++++++++++"'#10'};'#10#0#0#11'TOpenDialog'#7'ODImage'#7'Opti'
+'ons'#11#18'ofAllowMultiSelect'#14'ofEnableSizing'#12'ofViewDetail'#0#11'Fil'
+'terIndex'#2#0#4'left'#2'H'#3'top'#2'@'#0#0#11'TOpenDialog'#11'OpenDialog1'
+#11'FilterIndex'#2#0#4'left'#2'H'#3'top'#2'h'#0#0#0
]);

504
examples/imgviewer/frmmain.pas Normal file
View File

@ -0,0 +1,504 @@
{
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
}
unit frmmain;
{$MODE Delphi}
interface
uses
LCLIntf,SysUtils, Types, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ImgList, ComCtrls, ExtCtrls, ActnList, Menus,
ToolWin, LResources;
type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
ToolBar1: TToolBar;
ActionList1: TActionList;
AOpen: TAction;
AOpenDir: TAction;
AExit: TAction;
LBFiles: TListBox;
SPImage: TSplitter;
File1: TMenuItem;
MIOpen: TMenuItem;
MIOPenDir: TMenuItem;
N1: TMenuItem;
MIQuit: TMenuItem;
TBOPen: TToolButton;
TBOpenDir: TToolButton;
ILMain: TImageList;
ODImage: TOpenDialog;
AClear: TAction;
MIOpenDirRec: TMenuItem;
MIClear: TMenuItem;
OpenDirRecursively: TAction;
TBOpenDirRec: TToolButton;
ADoubleSize: TAction;
MImage: TMenuItem;
D1: TMenuItem;
AHalfSize: TAction;
MIHalfSize: TMenuItem;
PImage: TPanel;
ScrollBox1: TScrollBox;
IMain: TImage;
ANextImage: TAction;
APreviousImage: TAction;
ANextImageDir: TAction;
APrevImageDir: TAction;
MINextImage: TMenuItem;
PreviousImage1: TMenuItem;
Nextimagedirectory1: TMenuItem;
Previousimagedirectory1: TMenuItem;
ToolButton4: TToolButton;
TBPRev: TToolButton;
TBNext: TToolButton;
TBPRevDir: TToolButton;
TBNextDir: TToolButton;
TBDoubleSize: TToolButton;
TBHalfSize: TToolButton;
ToolButton3: TToolButton;
N2: TMenuItem;
OpenDialog1: TOpenDialog;
procedure AOpenExecute(Sender: TObject);
procedure LBFilesClick(Sender: TObject);
procedure AOpenDirExecute(Sender: TObject);
procedure AExitExecute(Sender: TObject);
procedure OpenDirRecursivelyExecute(Sender: TObject);
procedure AClearExecute(Sender: TObject);
procedure ADoubleSizeExecute(Sender: TObject);
procedure AHalfSizeExecute(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormShow(Sender: TObject);
procedure ANextImageExecute(Sender: TObject);
procedure APreviousImageExecute(Sender: TObject);
procedure ANextImageDirExecute(Sender: TObject);
procedure APrevImageDirExecute(Sender: TObject);
private
FImageScale : Double;
procedure AddFile(FileName: String; ShowFile: Boolean);
procedure ShowFile(Index: Integer);
procedure AddDir(Directory: String; Recurse: Boolean);
procedure RescaleImage(NewScale: Double);
procedure NextImage;
procedure PreviousImage;
procedure NextImageDir;
procedure PreviousImageDir;
Function NextDirIndex(Direction : Integer) : Integer;
procedure ShiftImageIndex(MoveBy: Integer);
procedure ProcessCommandLine;
procedure DoError(Msg: String; Args: array of const);
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
uses filectrl,lazjpeg,lcltype;
Const
ImageTypes = '.jpg.jpeg.bmp.xpm.png';
resourcestring
SSelectImageDir = 'Select directory to add images from';
SSelectImageDirRec = 'Select directory to recursively add images from';
SImageViewer = 'Image viewer';
SErrNeedArgument = 'Option at position%d (%s) needs an argument';
{ [] }
procedure TMainForm.AOpenExecute(Sender: TObject);
Var
I : Integer;
begin
With ODImage do
begin
If Execute then
for I:=0 to Files.Count-1 do
AddFile(Files[I],(I=0))
end;
end;
procedure TMainForm.AddFile(FileName :String; ShowFile : Boolean);
Var
Index : Integer;
begin
ShowFile:=ShowFile or (LBFiles.Items.Count=0);
Index:=LBFiles.Items.Add(FileName);
If ShowFile then
self.ShowFile(Index);
end;
procedure TMainForm.ShowFile(Index : Integer);
Var
LoadOK : Boolean;
begin
If Index=-1 then
begin
IMain.Picture:=Nil;
Caption:=SImageViewer;
end
else
Repeat
Try
LoadOK:=False;
IMain.Align:=AlClient;
Imain.Stretch:=False;
FImageScale:=1.0;
IMain.Picture.LoadFromFile(LBFiles.Items[Index]);
Caption:=SImageViewer+'('+LBFiles.Items[Index]+')';
LoadOK:=True;
Except
If Index<LBFiles.Items.Count-1 then
inc(Index)
else
Index:=-1;
end
Until LoadOK or (Index=-1);
With LBFiles do
begin
If Index<>ItemIndex then
LBFiles.Itemindex:=Index;
{ If Not ItemVisible(ItemIndex) then
MakeCurrentVisible;}
end;
end;
procedure TMainForm.LBFilesClick(Sender: TObject);
begin
ShowFile(LBFiles.ItemIndex);
end;
procedure TMainForm.AOpenDirExecute(Sender: TObject);
Var
Dir : String;
begin
if SelectDirectory(SSelectImageDir,'/',Dir) then
// if SelectDirectory(SSelectImageDir,'/',Dir,True) then
AddDir(Dir,False);
end;
procedure TMainForm.AddDir(Directory :String; Recurse : Boolean);
Var
Info : TSearchRec;
Ext : String;
begin
LBFiles.Items.BeginUpdate;
Try
Directory:=IncludeTrailingBackslash(Directory);
if FindFirst(Directory+'*.*',0,Info)=0 then
try
Repeat
Ext:=ExtractFileExt(Info.Name);
If Pos(Ext,ImageTypes)<>0 then
AddFile(Directory+Info.Name,False);
until (FindNext(Info)<>0)
Finally
FindClose(Info);
end;
If Recurse then
if FindFirst(Directory+'*',faDirectory,Info)=0 then
try
Repeat
If (Info.Name<>'.') and
(info.name<>'..') and
((Info.Attr and faDirectory)<>0) then
AddDir(Directory+Info.name,True);
until (FindNext(Info)<>0)
finally
FindClose(Info);
end;
Finally
LBFiles.Items.EndUpdate;
end;
end;
procedure TMainForm.AExitExecute(Sender: TObject);
begin
Close;
end;
procedure TMainForm.OpenDirRecursivelyExecute(Sender: TObject);
Var
Dir : String;
begin
if SelectDirectory(SSelectImageDirRec,'/',Dir) then
AddDir(Dir,True);
end;
procedure TMainForm.AClearExecute(Sender: TObject);
begin
LBFiles.ItemIndex:=-1;
ShowFile(-1);
LBFiles.Items.Clear;
end;
procedure TMainForm.ADoubleSizeExecute(Sender: TObject);
begin
RescaleImage(2.0);
end;
procedure TMainForm.RescaleImage(NewScale : Double);
Var
OrgWidth,OrgHeight : Integer;
Rect : TRect;
begin
OrgWidth:=IMain.Picture.Bitmap.Width;
OrgHeight:=IMain.Picture.Bitmap.Height;
FImageScale:=FImageScale*NewScale;
Rect:=IMain.BoundsRect;
Rect.Right:=Rect.Left+Round(OrgWidth*FImageScale);
Rect.Bottom:=Rect.Top+Round(OrgHeight*FImageScale);
Imain.Align:=AlNone;
IMain.BoundsRect:=Rect;
Imain.Stretch:=True;
end;
procedure TMainForm.AHalfSizeExecute(Sender: TObject);
begin
RescaleImage(0.5);
end;
procedure TMainForm.NextImage;
begin
ShiftImageIndex(1);
end;
procedure TMainForm.PreviousImage;
begin
ShiftImageIndex(-1);
end;
procedure TMainForm.ShiftImageIndex(MoveBy : Integer);
Var
ImageIndex : Integer;
begin
ImageIndex:=LBFiles.ItemIndex;
ImageIndex:=ImageIndex+MoveBy;
If ImageIndex<0 then
ImageIndex:=LBFiles.Items.Count-1;
If ImageIndex>=LBFiles.Items.Count then
begin
ImageIndex:=0;
If LBFiles.Items.Count=0 then
ImageIndex:=-1;
end;
ShowFile(ImageIndex);
end;
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (shift=[ssShift]) or (shift=[ssAlt]) then
begin
if (key=VK_Prior) then
begin
RescaleImage(2.0);
Key:=0;
end
else if (key=VK_Next) then
begin
RescaleImage(0.5);
Key:=0;
end
else if (key=VK_Left) then
begin
PreviousImage;
Key:=0;
end
else if (key=VK_right) then
begin
NextImage;
Key:=0;
end
end
else if (shift=[]) then
begin
if Key=VK_UP then
Previousimage
else if Key=VK_DOWN then
NextImage;
end;
end;
procedure TMainForm.DoError(Msg : String; Args : Array Of const);
begin
ShowMessage(Format(Msg,Args));
end;
procedure TMainForm.ProcessCommandLine;
Function CheckOption(Index : Integer;Short,Long : String): Boolean;
var
O : String;
begin
O:=Paramstr(Index);
Result:=(O='-'+short) or (copy(O,1,Length(Long)+3)=('--'+long+'='));
end;
Function OptionArg(Var Index : Integer) : String;
Var
P : Integer;
begin
if (Length(ParamStr(Index))>1) and (Paramstr(Index)[2]<>'-') then
begin
If Index<ParamCount then
begin
Inc(Index);
Result:=Paramstr(Index);
end
else
DoError(SErrNeedArgument,[Index,ParamStr(Index)]);
end
else If length(ParamStr(Index))>2 then
begin
P:=Pos('=',Paramstr(Index));
If (P=0) then
DoError(SErrNeedArgument,[Index,ParamStr(Index)])
else
begin
Result:=Paramstr(Index);
Delete(Result,1,P);
end;
end;
end;
Var
I : Integer;
S : String;
FRecursive : Boolean;
begin
FRecursive:=False;
I:=0;
While (I<ParamCount) do
begin
Inc(I);
If CheckOption(I,'r','recursive') then
FRecursive:=True
else
begin
S:=ParamStr(I);
If DirectoryExists(S) then
AddDir(ExpandFileName(S),FRecursive)
else if FileExists(S) then
AddFile(ExpandFileName(S),LBFiles.Items.Count=0);
end;
end;
end;
procedure TMainForm.FormShow(Sender: TObject);
begin
ProcessCommandLine;
end;
procedure TMainForm.NextImageDir;
Var
Index : Integer;
begin
Index:=NextDirIndex(1);
If (Index<>-1) then
ShowFile(Index);
end;
Function TMainForm.NextDirIndex(Direction: Integer) : integer;
Var
Dir : String;
begin
Result:=-1;
If LBFiles.Itemindex=-1 then
Exit;
Result:=LBFiles.Itemindex;
Dir:=ExtractFilePath(LBFiles.Items[Result]);
Repeat
Result:=Result+Direction;
Until ((Result=-1) or (Result>=LBFiles.Items.Count)) or (Dir<>ExtractFilePath(LBFiles.Items[Result]));
If Result>=LBFiles.Items.Count then
Result:=-1;
end;
procedure TMainForm.PreviousImageDir;
Var
Index : Integer;
begin
Index:=NextDirIndex(-1);
If (Index<>-1) then
ShowFile(Index);
end;
procedure TMainForm.ANextImageExecute(Sender: TObject);
begin
NextImage;
end;
procedure TMainForm.APreviousImageExecute(Sender: TObject);
begin
PreviousImage
end;
procedure TMainForm.ANextImageDirExecute(Sender: TObject);
begin
NextImageDir;
end;
procedure TMainForm.APrevImageDirExecute(Sender: TObject);
begin
PreviousImageDir;
end;
initialization
{$i frmmain.lrs}
end.

17
examples/imgviewer/frmmain.rst Normal file
View File

@ -0,0 +1,17 @@
# hash value = 209687725
frmmain.sselectimagedir='Select directory to add images from'
# hash value = 42634461
frmmain.sselectimagedirrec='Select directory to recursively add images fr'+
'om'
# hash value = 46969010
frmmain.simageviewer='Image viewer'
# hash value = 109953028
frmmain.serrneedargument='Option at position%d (%s) needs an argument'

BIN
examples/imgviewer/images.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 822 B

13
examples/imgviewer/imgview.dpr Normal file
View File

@ -0,0 +1,13 @@
program imgview;
uses
Forms,
frmmain in 'frmmain.pas' {MainForm};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

75
examples/imgviewer/imgview.lpi Normal file
View File

@ -0,0 +1,75 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="3"/>
<General>
<ProjectType Value="Application"/>
<Flags>
<SaveClosedFiles Value="False"/>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<ActiveEditorIndexAtStart Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="imgview"/>
</General>
<Units Count="2">
<Unit0>
<CursorPos X="1" Y="21"/>
<EditorIndex Value="1"/>
<Filename Value="imgview.lpr"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="imgview"/>
<UsageCount Value="22"/>
</Unit0>
<Unit1>
<CursorPos X="21" Y="25"/>
<EditorIndex Value="0"/>
<Filename Value="frmmain.pas"/>
<ComponentName Value="MainForm"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="frmmain.lrs"/>
<TopLine Value="1"/>
<UnitName Value="frmmain"/>
<UsageCount Value="22"/>
</Unit1>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="JPEGForLazarus"/>
</Item2>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="2"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

34
examples/imgviewer/imgview.lpr Normal file
View File

@ -0,0 +1,34 @@
{
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
}
program imgview;
{$librarypath /opt/gnome/lib}
{$mode objfpc}{$H+}
uses
Interfaces,
Forms, frmmain;
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

BIN
examples/imgviewer/imgview.res Normal file
View File

Binary file not shown.