Changeset 4 for Main.dfm

Timestamp:

May 15, 2009, 9:08:00 AM (15 years ago)

Author:

george

Message:

• Upraveno: Nyní určeno pro novější verzi Delphi zdarma Turbo Delphi.
• Opraveno: Odkaz na RSS kanál aktualit webu.
• Opraveno: Odkaz na web projektu.
• Opraveno: Chyby uvolňování paměti při práci s bitmapami. Použití Assign namísto := a následně Free.
• Upraveno: Zakomentovány odkazy na uzavřenou komponentu WinSkin. Nejsou dostupné zdrojové kódy, nelze doinstalovat správně do Turbo Delphi.

File:

• Main.dfm (modified) (13 diffs)

Main.dfm

@@ -2 +2 @@
   Left = 334
   Top = 74
-  Width = 356
-  Height = 231
   Caption = 'Heroes of Fantasy - Client'
+  ClientHeight = 254
+  ClientWidth = 389
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -15 +15 @@
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   OnResize = FormResize
   DesignSize = (
-    348
-    177)
+    389
+    254)
   PixelsPerInch = 96
   TextHeight = 13
   object Label1: TLabel
-    Left = 241
+    Left = 282
     Top = 4
     Width = 5
@@ -33 +34 @@
     Font.Style = [fsBold]
     ParentFont = False
+    ExplicitLeft = 241
   end
   object Label2: TLabel
-    Left = 241
+    Left = 282
     Top = 20
     Width = 3
     Height = 13
     Anchors = [akTop, akRight]
+    ExplicitLeft = 241
   end
   object StatusBar1: TStatusBar
     Left = 162
-    Top = 158
-    Width = 186
+    Top = 215
+    Width = 227
     Height = 19
     Align = alNone
@@ -53 +56 @@
   object Panel1: TPanel
     Left = 0
-    Top = 158
+    Top = 215
     Width = 161
     Height = 19
@@ -394 +397 @@
   end
   object RichEdit1: TRichEdit
-    Left = 241
+    Left = 282
     Top = 36
     Width = 105
-    Height = 101
+    Height = 158
     Anchors = [akTop, akRight, akBottom]
     BorderStyle = bsNone
@@ -415 +418 @@
   end
   object Button1: TButton
-    Left = 299
-    Top = 140
+    Left = 340
+    Top = 197
     Width = 46
     Height = 17
@@ -428 +431 @@
     Left = 0
     Top = 0
-    Width = 228
-    Height = 158
+    Width = 269
+    Height = 215
     Hint = 
       'Poklep'#225'n'#237'm se p'#345'ipoj'#237'te na dan'#253' server, uk'#225'z'#225'n'#237'm zobraz'#237'te infor' +
@@ -447 +450 @@
         Width = 120
       end>
-    Items.Data = {
-      6B0000000100000001000000FFFFFFFFFFFFFFFF020000000000000011486572
-      6F6573206F662046616E746173790F776F772E7A646563686F762E6E65742863
-      3A5C50726F6772616D2046696C65735C576F726C644F6657617263726166745C
-      776F772E657865FFFFFFFF}
     LargeImages = ImageList32
     ReadOnly = True
@@ -465 +463 @@
   end
   object Panel2: TPanel
-    Left = 227
+    Left = 268
     Top = 0
     Width = 9
-    Height = 158
+    Height = 215
     Cursor = crHSplit
     Hint = 'K schov'#225'n'#237' detajl'#367' p'#345'et'#225'hn'#283'te k prav'#233'mu okraji'
@@ -817 +815 @@
     end
   end
-  object SkinData1: TSkinData
-    Active = False
-    DisableTag = 99
-    SkinControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcSpin, xcPanel, xcGroupBox, xcStatusBar, xcTab, xcTrackBar, xcSystemMenu]
-    Options = [xoPreview, xoToolbarBK]
-    Skin3rd.Strings = (
-      'TCategoryButtons=scrollbar'
-      'TPngBitBtn=pngbitbtn'
-      'TVirtualStringTree=scrollbar'
-      'TVirtualDrawTree=scrollbar'
-      'TTBXDockablePanel=Panel'
-      'TAdvPanelGroup=scrollbar'
-      'TComboboxex=combobox'
-      'TRxSpeedButton=speedbutton'
-      'THTMLViewer=scrollbar'
-      'TDBCtrlGrid=scrollbar'
-      'TfrSpeedButton=speedbutton'
-      'TfrTBButton=speedbutton'
-      'TControlBar=Panel'
-      'TTBDock=Panel'
-      'TTBToolbar=Panel'
-      'TImageEnMView=scrollbar'
-      'TImageEnView=scrollbar'
-      'TAdvMemo=scrollbar'
-      'TDBAdvMemo=scrollbar'
-      'TcxDBLookupComboBox=combobox'
-      'TcxDBComboBox=combobox'
-      'TcxDBDateEdit=combobox'
-      'TcxDBImageComboBox=combobox'
-      'TcxDBCalcEdit=combobox'
-      'TcxDBBlobEdit=combobox'
-      'TcxDBPopupEdit=combobox'
-      'TcxDBFontNameComboBox=combobox'
-      'TcxDBShellComboBox=combobox'
-      'TRxLookupEdit=combobox'
-      'TRxDBLookupCombo=combobox'
-      'TRzGroup=panel'
-      'TRzButton=button'
-      'TRzBitbtn=bitbtn'
-      'TRzMenuButton=menubtn'
-      'TRzCheckGroup=CheckGroup'
-      'TRzRadioGroup=Radiogroup'
-      'TRzButtonEdit=Edit'
-      'TRzDBRadioGroup=Radiogroup'
-      'TRzDBRadioButton=Radiobutton'
-      'TRzDateTimeEdit=combobox'
-      'TRzColorEdit=combobox'
-      'TRzDateTimePicker=combobox'
-      'TRzDBDateTimeEdit=combobox'
-      'TRzDbColorEdit=combobox'
-      'TRzDBDateTimePicker=combobox'
-      'TLMDButton=bitbtn'
-      'TLMDGroupBox=Groupbox'
-      'TDBCheckboxEh=Checkbox'
-      'TDBCheckboxEh=Checkbox'
-      'TLMDCHECKBOX=Checkbox'
-      'TLMDDBCHECKBOX=Checkbox'
-      'TLMDRadiobutton=Radiobutton'
-      'TLMDCalculator=panel'
-      'TLMDGROUPBOX=Panel'
-      'TLMDSIMPLEPANEL=Panel'
-      'TLMDDBCalendar=Panel'
-      'TLMDButtonPanel=Panel'
-      'TLMDLMDCalculator=Panel'
-      'TLMDHeaderPanel=Panel'
-      'TLMDTechnicalLine=Panel'
-      'TLMDLMDClock=Panel'
-      'TLMDTrackbar=panel'
-      'TLMDListCombobox=combobox'
-      'TLMDCheckListCombobox=combobox'
-      'TLMDHeaderListCombobox=combobox'
-      'TLMDImageCombobox=combobox'
-      'TLMDColorCombobox=combobox'
-      'TLMDFontCombobox=combobox'
-      'TLMDFontSizeCombobox=combobox'
-      'TLMDFontSizeCombobox=combobox'
-      'TLMDPrinterCombobox=combobox'
-      'TLMDDriveCombobox=combobox'
-      'TLMDCalculatorComboBox=combobox'
-      'TLMDTrackBarComboBox=combobox'
-      'TLMDCalendarComboBox=combobox'
-      'TLMDTreeComboBox=combobox'
-      'TLMDRADIOGROUP=radiogroup'
-      'TLMDCheckGroup=CheckGroup'
-      'TLMDDBRADIOGROUP=radiogroup'
-      'TLMDDBCheckGroup=CheckGroup'
-      'TLMDCalculatorEdit=edit'
-      'TLMDEDIT=Edit'
-      'TLMDMASKEDIT=Edit'
-      'TLMDBROWSEEDIT=Edit'
-      'TLMDEXTSPINEDIT=Edit'
-      'TLMDCALENDAREDIT=Edit'
-      'TLMDFILEOPENEDIT=Edit'
-      'TLMDFILESAVEEDIT=Edit'
-      'TLMDCOLOREDIT=Edit'
-      'TLMDDBEDIT=Edit'
-      'TLMDDBMASKEDIT=Edit'
-      'TLMDDBEXTSPINEDIT=Edit'
-      'TLMDDBSPINEDIT=Edit'
-      'TLMDDBEDITDBLookup=Edit'
-      'TLMDEDITDBLookup=Edit'
-      'TDBLookupCombobox=Combobox'
-      'TWWDBCombobox=Combobox'
-      'TWWDBLookupCombo=Combobox'
-      'TWWDBCombobox=Combobox'
-      'TWWKeyCombo=Combobox'
-      'TWWTempKeyCombo=combobox'
-      'TWWDBDateTimePicker=Combobox'
-      'TWWRADIOGROUP=radiogroup'
-      'TWWDBEDIT=Edit'
-      'TcxButton=bitbtn'
-      'TcxDBRadioGroup=radiogroup'
-      'TcxRadioGroup=radiogroup'
-      'TcxGroupbox=groupbox'
-      'TOVCPICTUREFIELD=Edit'
-      'TOVCDBPICTUREFIELD=Edit'
-      'TOVCSLIDEREDIT=Edit'
-      'TOVCDBSLIDEREDIT=Edit'
-      'TOVCSIMPLEFIELD=Edit'
-      'TOVCDBSIMPLEFIELD=Edit'
-      'TO32DBFLEXEDIT=Edit'
-      'TOVCNUMERICFIELD=Edit'
-      'TOVCDBNUMERICFIELD=Edit')
-    SkinStore = '(none)'
-    SkinFormtype = sfMainform
-    Version = '4.04.04.11'
-    MenuUpdate = True
-    MenuMerge = False
-    Left = 10
-    Top = 10
-    SkinStream = {00000000}
-  end
   object ImageList16default: TImageList
     Left = 40
     Top = 72
     Bitmap = {
-      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C010102000300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000001000000001002000000000000010
       00000000000000000000000000000000000000000000F2F2F200E9E7E400DFDB
@@ -1098 +964 @@
     Top = 72
     Bitmap = {
-      494C010102000400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C010102000300040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000800000002000000001002000000000000040
       0000000000000000000000000000000000000000000000000000F2F2F200F1F1
@@ -1653 +1519 @@
   end
   object IdHTTP1: TIdHTTP
-    MaxLineAction = maException
-    ReadTimeout = 0
     AllowCookies = True
     ProxyParams.BasicAuthentication = False
     ProxyParams.ProxyPort = 0
     Request.ContentLength = -1
-    Request.ContentRangeEnd = 0
-    Request.ContentRangeStart = 0
     Request.ContentType = 'text/html'
     Request.Accept = 'text/html, */*'
@@ -1684 +1546 @@
   object IdIcmpClient1: TIdIcmpClient
     ReceiveTimeout = 3000
+    Protocol = 1
+    ProtocolIPv6 = 58
+    IPVersion = Id_IPv4
+    PacketSize = 1024
     OnReply = IdIcmpClient1Reply
     Left = 48