Blame | Last modification | View Log | RSS feed
# þ g ;=^ñ Unit1 <r Unit1.DFM@ ;=p Unit1.pasf ;= dSystem fstring¶+{f
AnsiString¶+{fTObject|ê®ìgTObject.Dispatchµ
ÄgTObject.NewInstance·
ÄgTObject.FreeInstance¸
Äg@LStrAddRef`Eg @LStrCat3é`pÅg @LStrArrayClrüg@HandleFinallyé`pÅg@LStrAsgÔcdSysInit cdWindows cdMessages cdSysUtils gIntToStrñF¬gIntToStrõÛucdClasses gTComponent.UpdateRegistryÒa0þgTComponent.WriteStateÖa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!Fqf TMemoryStreamU8gTStream.SetPositionÒïf
TComponentAfgTComponent.CreateÞa0þcdGraphics gTPicture.GetBitmapLfTBitmapa+8cdControls gTWinControl.AssignTo<¾ßgTWinControl.CanAutoSize<¾ßgTWinControl.CanResize<¾ßgTWinControl.ConstrainedResize<¾ßgTWinControl.CreateHandle<¾ßg#TWinControl.CustomAlignInsertBefore<¾ßgTWinControl.CustomAlignPosition <¾ßgTWinControl.DestroyWnd$<¾ßg!TWinControl.DockReplaceDockClient'<¾ßgTWinControl.GetClientOrigin5<¾ßgTWinControl.GetControlExtents7<¾ßgTWinControl.GetDeviceContext8<¾ßgTWinControl.SetParentBackgroundW<¾ßgTWinControl.ShowControlY<¾ßg+TWinControl.UpdateControlOriginalParentSize[<¾ßgTWinControl.Invalidate<¾ßgTWinControl.Repaint<¾ßgTWinControl.SetBounds<¾ßgTWinControl.Update<¾ßgTControl.GetActionÄ×ïYgTControl.GetDragImagesÊ×ïYgTControl.GetEnabledË×ïYg!TControl.GetFloatingDockSiteClassÍ×ïYgTControl.SetAutoSizeÞ×ïYgTControl.SetDragModeß×ïYgTControl.SetEnabledà×ïYgTControl.SetNameá×ïYgTControl.SetBiDiModeå×ïYgTControl.InitiateAction(ØïYgTControl.SetTextq×ïYcdForms fTForm!
³5g.TFormTgTCustomForm.AlignControls~C)gTCustomForm.CreateParams~C)gTCustomForm.CreateWindowHandle~C)gTCustomForm.CreateWnd~C)gTCustomForm.DefineProperties~C)gTCustomForm.DestroyHandle~C)gTCustomForm.DestroyWindowHandle~C)gTCustomForm.DoCreate~C)gTCustomForm.DoDestroy ~C)gTCustomForm.GetClientRect%~C)gTCustomForm.GetFloating'~C)gTCustomForm.Loaded*~C)gTCustomForm.Notification+~C)gTCustomForm.PaintWindow-~C)gTCustomForm.QueryInterface/~C)gTCustomForm.ReadState0~C)gTCustomForm.RequestAlign1~C)gTCustomForm.SetParentBiDiMode3~C)gTCustomForm.SetParent5~C)gTCustomForm.UpdateActions6~C)gTCustomForm.ValidateRename8~C)gTCustomForm.WndProc:~C)gTCustomForm.Resizing;~C)gTCustomForm.Createt~C)gTCustomForm.CreateNewu~C)gTCustomForm.Destroyv~C)gTCustomForm.AfterConstructionw~C)gTCustomForm.BeforeDestructionx~C)gTCustomForm.CloseQueryz~C)gTCustomForm.DefaultHandler{~C)gTCustomForm.SetFocus~C)gTCustomForm.SetFocusedControl~C)gTCustomForm.ShowModal~C)gTCustomForm.WantChildKey
~C)g%TScrollingWinControl.AdjustClientRectµ<Åg&TScrollingWinControl.AutoScrollEnabled·<Åg%TScrollingWinControl.AutoScrollInView¸<ÅcdDialogs cdExtCtrls fTImage|}5g.TImage_Q]cdStdCtrls fTStaticText³jþfTButtonä«IÝg.TStaticText>ßOg.TButtonÇ'/cdButtons cd ZipMstr19 fTZipMaster19ÌÙmgTCustomZipMaster19.GetBusyÆ·áõg!TCustomZipMaster19.SetZipFileNameþ·áõgTCustomZipMaster19.GetCountÈ·áõgTCustomZipMaster19.SetPasswordí·áõfTCustomZipMaster19RÌ]g&TCustomZipMaster19.ExtractFileToStream$¸áõg .TZipMaster19¯Kðc5Unit1 _¸Ïc5System c5SysInit c5Windows c5Messages c5SysUtils "c5Classes (c5Graphics :c5Controls @c5Forms ~c5Dialogs Îc5ExtCtrls Ðc5StdCtrls Öc5Buttons àc5 ZipMstr19 âc&.TForm1 "¡< *TForm1 1NÃê Form1æ ?´Üêl7.2F (TForm1.UnzipToImage [nØ !Self !filenamef ø Stream1 c5 (TForm1.BtnPic3Click \nØ 8 !Self !Sender cE (TForm1.FormCreate _nØ !Self !Sender cQ (TForm1.BtnPic1Click ]nØ