home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1999 mARCH
/
PCWK3A99.iso
/
Polskie
/
Malabibl
/
_SETUP.1
/
biblio.exe
/
0
/
RCDATA
/
TFRMGENEROWANIEFISZEK
/
TFRMGENEROWANIEFISZEK.txt
Wrap
Text File
|
1998-07-13
|
12KB
|
348 lines
object frmGenerowanieFiszek: TfrmGenerowanieFiszek
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Generowanie fiszek'
ClientHeight = 391
ClientWidth = 630
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
Scaled = False
OnCreate = FormCreate
PixelsPerInch = 120
TextHeight = 16
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 630
Height = 385
Align = alTop
TabOrder = 0
object Label1: TLabel
Left = 6
Top = 11
Width = 90
Height = 16
Caption = 'Nazwa skryptu:'
end
object cmdLeft: TSpeedButton
Left = 368
Top = 18
Width = 30
Height = 31
GroupIndex = 1
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
04000000000068000000CE0E0000C40E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
A000A00000000000A000AAAAAAAAAAAAA000A00000000AAAA000AAAAAAAAAAAA
A000A00000000000A000AAAAAAAAAAAAA000A00000000AAAA000AAAAAAAAAAAA
A000A00000000000A000AAAAAAAAAAAAA000A00000000AAAA000AAAAAAAAAAAA
A000}
OnClick = cmdLeftClick
end
object cmdCenter: TSpeedButton
Left = 397
Top = 18
Width = 31
Height = 31
GroupIndex = 1
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
04000000000068000000CE0E0000C40E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
A000A00000000000A000AAAAAAAAAAAAA000AAAA00000AAAA000AAAAAAAAAAAA
A000A00000000000A000AAAAAAAAAAAAA000AAA0000000AAA000AAAAAAAAAAAA
A000A00000000000A000AAAAAAAAAAAAA000AAAA00000AAAA000AAAAAAAAAAAA
A000}
OnClick = cmdCenterClick
end
object cmdRight: TSpeedButton
Left = 427
Top = 18
Width = 31
Height = 31
GroupIndex = 1
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
04000000000068000000CE0E0000C40E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
A000A00000000000A000AAAAAAAAAAAAA000AAAA00000000A000AAAAAAAAAAAA
A000A00000000000A000AAAAAAAAAAAAA000AAAA00000000A000AAAAAAAAAAAA
A000A00000000000A000AAAAAAAAAAAAA000AAAA00000000A000AAAAAAAAAAAA
A000}
OnClick = cmdRightClick
end
object cmdBold: TSpeedButton
Left = 465
Top = 18
Width = 31
Height = 31
AllowAllUp = True
GroupIndex = 2
Glyph.Data = {
CE000000424DCE0000000000000076000000280000000B0000000B0000000100
04000000000058000000CE0E0000C40E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAA0
0000A00000000AA00000AA000AA000A00000AA000AA000A00000AA000AA000A0
0000AA0000000AA00000AA000AA000A00000AA000AA000A00000AA000AA000A0
0000A00000000AA00000AAAAAAAAAAA00000}
OnClick = cmdBoldClick
end
object cmdUnderline: TSpeedButton
Left = 497
Top = 18
Width = 31
Height = 31
AllowAllUp = True
GroupIndex = 2
Glyph.Data = {
EE000000424DEE0000000000000076000000280000000B0000000F0000000100
04000000000078000000CE0E0000C40E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAA0
0000A000000000A00000AAAAAAAAAAA00000AAA00000AAA00000AA00AAA00AA0
0000AA00AAA00AA00000AA00AAA00AA00000AA00AAA00AA00000AA00AAA00AA0
0000AA00AAA00AA00000AA00AAA00AA00000A0000A0000A00000AAAAAAAAAAA0
0000AAAAAAAAAAA00000AAAAAAAAAAA00000}
OnClick = cmdUnderlineClick
end
object labNazwaSkryptu: TStaticText
Left = 6
Top = 28
Width = 341
Height = 19
AutoSize = False
BorderStyle = sbsSunken
Caption = 'labNazwaSkryptu'
TabOrder = 0
end
object cmdAkceptuj: TBitBtn
Left = 544
Top = 129
Width = 79
Height = 25
Caption = 'Akceptuj'
Default = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = cmdAkceptujClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object cmdPomin: TBitBtn
Left = 544
Top = 156
Width = 79
Height = 25
Caption = 'Pomi�'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = cmdPominClick
Glyph.Data = {
42010000424D4201000000000000760000002800000013000000110000000100
040000000000CC000000CE0E0000C40E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDD00000DDDDDDA0000DDDDDDDD00000DDDDDDA2220DDDDDDDD00000DDDD
DDA2220DDDDDDDD00000DDDDDDA2220DDDDDDDD00000DDDDDDAAAAADDDDDDDD0
0000DDDDDDDDDDDDDDDDDDD00000DDDDDDDDDDDDDDDDDDD00000DDDDDDDDDDDD
444444D00000DA444DDDDDDA222224D00000DA224DDDDDDDA22224D00000DDA2
24DDDDD4422224D00000DDA222444442222224D00000DDDA2222222222AA24D0
0000DDDDAA222222AADDADD00000DDDDDDAAAAAADDDDDDD00000DDDDDDDDDDDD
DDDDDDD00000}
end
object rtFiszka: TDBRichEdit
Left = 7
Top = 56
Width = 530
Height = 323
DataField = 'Fiszka'
DataSource = dsFiszki
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 3
OnSelectionChange = rtFiszkaSelectionChange
end
object panLogo: TPanel
Left = 344
Top = 58
Width = 191
Height = 156
BevelOuter = bvNone
Color = clWindow
TabOrder = 4
Visible = False
object imgLogo: TImage
Left = 0
Top = 0
Width = 191
Height = 156
Align = alClient
Stretch = True
end
end
end
object cmdPrzerwij: TBitBtn
Left = 544
Top = 188
Width = 79
Height = 25
Caption = 'Przerwij'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = cmdPrzerwijClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object cmdOk: TBitBtn
Left = 544
Top = 300
Width = 79
Height = 25
Caption = 'Ok'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Visible = False
Kind = bkOK
end
object cmdAnuluj: TBitBtn
Left = 544
Top = 326
Width = 79
Height = 25
Caption = 'Anuluj'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
Visible = False
Kind = bkCancel
end
object cmdPokazKsiazke: TBitBtn
Left = 544
Top = 18
Width = 79
Height = 45
Caption = 'Poka� ksi��k�'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = cmdPokazKsiazkeClick
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
04000000000078000000CE0E0000C40E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEE000EEE
EEEEEEEEE0C0800EEEEEEEEE0CC0FFF00EEEEEE0CCC08FFFF00EEE0CCCC7008F
FF00E0CCCC7CCC008F8E0CCCC7CCCCCC008E0CCC7CCCCCCCCC000CC7CCCCCCCC
CC0E0C7CCCCCCCCCC0EE07CCCCCCCCCC0EEEE00CCCCCCCC0EEEEEEE00CCCCC0E
EEEEEEEEE00CC0EEEEEEEEEEEEE00EEEEEEE}
Layout = blGlyphTop
end
object cmdPomoc: TBitBtn
Left = 544
Top = 352
Width = 79
Height = 25
Caption = 'Pomoc'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = cmdPomocClick
Kind = bkHelp
end
object sqlKsiazkiDoFiszek: TQuery
DatabaseName = 'Biblioteka'
Left = 96
Top = 164
end
object tableFiszki: TTable
DatabaseName = 'Biblioteka'
TableName = 'Fiszki.DB'
Left = 64
Top = 166
end
object dsFiszki: TDataSource
DataSet = tableFiszki
Left = 38
Top = 166
end
end