Go to most recent revision | 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 TMemoryStreamU›8gTStream.SetPositionÒïf
TComponentƒAfgTComponent.CreateÞa0þcdGraphics gTPicture.GetBitmapL””ƒfTBitmapa+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.TFormT‘‡gTCustomForm.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ÌÙmžgTCustomZipMaster19.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 cœ5 (TForm1.BtnPic3Click€ \nØ‚ 8ˆ !Self !Sender cœE (TForm1.FormCreate€ _nØ‚ €ˆ !Self !Sender cœQ (TForm1.BtnPic1Click€ ]nØ‚