Delphi

[kompik]

Hejka, mam problem z Delphiaku. Robie programik i wyszukiwanie mam po komponencie TRadioGroup. Problem w tym ze opcje do zaznaczania wyskakuja jedna pod druga, jak zrobic zeby guziczki do zaznaczania byly kolo siebie w 2 albo w 3 rzedach? Oto zrodlo. Z gory Dzieki.
object FrmPublik: TFrmPublik
Left = 189
Top = 107
Width = 610
Height = 517
Caption = 'Publikacje'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 601
Height = 57
BevelInner = bvLowered
TabOrder = 0
object Button1: TButton
Left = 0
Top = 0
Width = 89
Height = 57
Caption = 'Dodaj'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 88
Top = 0
Width = 89
Height = 57
Caption = 'Usuń'
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 176
Top = 0
Width = 89
Height = 57
Caption = 'Edytuj'
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 512
Top = 0
Width = 89
Height = 57
Caption = 'Koniec'
TabOrder = 3
OnClick = Button4Click
end
end
object DBGrid1: TDBGrid
Left = -8
Top = 128
Width = 609
Height = 361
DataSource = DM_Biblioteka.dsPublikacje
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ID'
Visible = True
end
item
Expanded = False
FieldName = 'Imie i Nazwisko'
Visible = True
end
item
Expanded = False
FieldName = 'Tytuł artykułu'
Visible = True
end
item
Expanded = False
FieldName = 'Miejsce publikacji'
Visible = True
end
item
Expanded = False
FieldName = 'Artykuł'
Visible = True
end
item
Expanded = False
FieldName = 'Iloœc stron'
Visible = True
end
item
Expanded = False
FieldName = 'Słowa kluczowe'
Visible = True
end
item
Expanded = False
FieldName = 'Gazeta'
Visible = True
end>
end
object Panel2: TPanel
Left = 0
Top = 56
Width = 601
Height = 73
TabOrder = 2
object RG_1: TRadioGroup
Left = 8
Top = 0
Width = 585
Height = 65
Caption = ' Wyszukiwanie po '
ItemIndex = 0
Items.Strings = (
'Imię i Nazwisko'
'Tytuł artykułu'
'Miejsce publikacji'
'Artykuł'
'Słowa kluczowe'
'Gazeta')
TabOrder = 0
end
object meFind: TMaskEdit
Left = 464
Top = 24
Width = 121
Height = 21
TabOrder = 1
OnChange = meFindChange
end
end
end

 

[kompik]

pleaseee

Prosze pomozcie...

 

[Adzi]

Tu...

...masz numer GG goscia ktory zna sie dobrze na Delphi 924983

____________
GREETZ ADZI

 

[kompik]

Dzieki

Adzi DZIEKS