object FormAnekdoty: TFormAnekdoty Left = 497 Top = 161 BorderIcons = [] BorderStyle = bsNone Caption = 'Anekdoty' ClientHeight = 531 ClientWidth = 799 Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clGreen Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Visible = True OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnPaint = FormPaint OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Image6: TImage Left = 620 Top = 8 Width = 50 Height = 33 Picture.Data = {} Transparent = True Visible = False end object Shape2: TShape Left = 0 Top = 0 Width = 799 Height = 531 Align = alClient Brush.Style = bsClear end object Image1: TImage Left = 8 Top = 6 Width = 158 Height = 38 AutoSize = True Picture.Data = {} Transparent = True end object Image13: TImage Left = 722 Top = 510 Width = 65 Height = 12 AutoSize = True Picture.Data = {} Transparent = True end object Shape1: TShape Left = 1 Top = 1 Width = 797 Height = 529 Brush.Style = bsClear Pen.Color = 35664096 Pen.Width = 2 OnMouseDown = Shape1MouseDown OnMouseMove = Shape1MouseMove OnMouseUp = Shape1MouseUp end object Image3: TImage Left = 344 Top = 320 Width = 141 Height = 86 AutoSize = True Picture.Data = {} Visible = False end object ImageTl4: TImageTl Left = 767 Top = 4 Width = 26 Height = 26 Hint = 'Zav��t' Posuv = 2 ParentShowHint = False Picture.Data = {07544269746D617000000000}} ShowHint = True Pozadi = ImagePozadi BMS_cislo = 17 BMS_soubor = 'anekdot' MouseClick = ImageTl7MouseClick end object ImageTl10: TImageTl Left = 709 Top = 4 Width = 26 Height = 26 Hint = 'Informace o programu' Posuv = 2 ParentShowHint = False Picture.Data = {07544269746D617000000000}} Visible = False end object ImagePozadi: TImage Left = 464 Top = 40 Width = 57 Height = 49 Picture.Data = {} Visible = False end object Image11: TImage Left = 768 Top = 440 Width = 20 Height = 20 Picture.Data = {} Visible = False end object Image12: TImage Left = 768 Top = 464 Width = 20 Height = 20 Picture.Data = {} Visible = False end object Image2: TImage Left = 64 Top = 320 Width = 8 Height = 8 Picture.Data = {} Visible = False end object Kniha1: TKniha Left = 6 Top = 48 Width = 787 Height = 457 Visible = False OnMouseDown = Kniha1MouseDown PrevraceniStranek = True MouseClick_A = Kniha1MouseClick_A MouseClick_B = Kniha1MouseClick_B MouseClickPrvni = Kniha1MouseClickPrvni MouseClickPosledni = Kniha1MouseClickPosledni end object Sipka: TImage Left = 536 Top = 8 Width = 10 Height = 13 Picture.Data = {} Visible = False end object Label2: TLabel Left = 48 Top = 32 Width = 32 Height = 13 Caption = 'Label3' Color = clSilver Font.Charset = EASTEUROPE_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Visible = False end object Image5: TImage Left = 248 Top = 16 Width = 68 Height = 12 AutoSize = True Picture.Data = {} Visible = False end object ImageTl3: TImageTl Left = 184 Top = 8 Width = 33 Height = 33 Hint = 'Ukon�it program' Posuv = 2 ParentShowHint = False Picture.Data = {07544269746D617000000000}} ShowHint = True Pozadi = ImagePozadi BMS_cislo = 5 BMS_soubor = 'anekdot' MouseClick = ImageTl13MouseClick end object ImageTl12: TImageTl Left = 264 Top = 8 Width = 33 Height = 33 Hint = 'Ru�en� ozna�en�ch anekdot' Posuv = 2 ParentShowHint = False Picture.Data = {07544269746D617000000000}} ShowHint = True Pozadi = ImagePozadi BMS_cislo = 7 BMS_soubor = 'anekdot' MouseClick = ImageTl11MouseClick end object ImageTl18: TImageTl Left = 344 Top = 8 Width = 33 Height = 33 Hint = 'Dne�n� den' Posuv = 2 ParentShowHint = False Picture.Data = {07544269746D617000000000}} ShowHint = True Pozadi = ImagePozadi BMS_cislo = 9 BMS_soubor = 'anekdot' MouseClick = ImageTl14MouseClick end object ImageTl15: TImageTl Left = 424 Top = 8 Width = 33 Height = 33 Hint = 'Hledej dal�� anekdotu' Posuv = 2 ParentShowHint = False Picture.Data = {07544269746D617000000000}} ShowHint = True Pozadi = ImagePozadi BMS_cislo = 11 BMS_soubor = 'anekdot' MouseClick = ImageTl9MouseClick end object ImageTl5: TImageTl Left = 504 Top = 8 Width = 33 Height = 33 Hint = 'J�t na...' Posuv = 2 ParentShowHint = False Picture.Data = {07544269746D617000000000}} ShowHint = True Pozadi = ImagePozadi BMS_cislo = 33 BMS_soubor = 'anekdot' MouseClick = ImageTl1MouseClick end object ImageTl2: TImageTl Left = 544 Top = 8 Width = 33 Height = 33 Hint = 'P�edch�zej�c� str�nka' Posuv = 2 ParentShowHint = False Picture.Data = {07544269746D617000000000}