Parent Directory | Revision Log
Silence warnings
1 | M bG/M Mains <rMain.dfmrGpMain.pas`G dSystem f UnicodeString,fRefAttributeCfstring,fIntegersfBoolean8bfTDate۳fPCharD?f TDateTimeWfCharo?1f PWideCharD?fTObject3gTObject.EqualsIQgTObject.GetHashCodeIQgTObject.ToStringIQgTObject.DispatchIQgTObject.NewInstanceIQgTObject.FreeInstanceIQf |
2 | NativeUIntMjfCardinalfByte&g @UStrCatN`pg @UStrArrayClrg@HandleFinally`pgCopy g @UStrCopyDg@UStrAddRef9ug @UStrCat3cg@UStrClr\>gTrue*gFalse*gLength g@DynArrayLength=+fPointer~f NativeIntv6fPBytef |
3 | PNativeInt(}g |
4 | @UStrEqual`pg@UStrAsgZ3g@UStrCatZ3gChr gParamStr0g SetLength g@UStrLen0 |
5 | gExit gTObject.FreeIQfPInteger%Mh0g@HandleAnyException`pg@DoneExcept`pg@DynArraySetLength`pg @UStrToPWChar-g@TryFinallyExit`pg @UStrLAsgZ3fExtended魤gVal g@ValExt`pgPosQKgPos g @CallDynaInst`pg@HandleOnException`pg@UStrFromWChar0g |
6 | @IntfClearg@RaiseExcept`pgConcat gInc fLongBoolyg@InitializeRecordYg@FinalizeRecordYgDec gPred gHigh g @DynArrayHigh7xӉgSucc gBreak g@DynArrayClearf |
7 | WideStringݗgOdd g@AsClassqTJfWord~gGetMem g@GetMemgFreeMem g@FreeMemTgStr g @Str0Long) @g@UStrFromString(f |
8 | OleVariantg@FinalizeArray4cfInt64vg@UStrCmp`pgDelete g@UStrDeletefTextFileg |
9 | AssignFile g@AssignTexttqgReset g |
10 | @ResetTextz$gEof g@EofTextgReadln g@ReadUStringAg@ReadLnAg CloseFile g@Closez$g@_IOTest`pgAppend g@Appendz$gWriteln g@Write0UStringAg@WriteLn)QEqgRewrite g@RewritTextz$gAssigned gAllocMemg@UStrFromPWChar223cdSysInit g HInstancecdWinapi.Windows fTHandleMjf TFileTimeufTRect=Lf _FILETIMEufTOwnerDrawState<g GetRValueޓTbg GetGValueޓ2g GetBValueޓR: gRGBA~?fTSystemTime`;gFileTimeToLocalFileTime[nd`gFileTimeToSystemTime @e7FCgFileTimeToLocalFileTimeMŹf_SYSTEMTIME`;gFileTimeToSystemTimeN f_WIN32_FIND_DATAW/ b^g |
11 | MessageBox5sgMB_OK}1f:1Ng |
12 | odSelectedN |
13 | gFillRecthg SW_SHOWNORMAL}1fDWORDgGetFileVersionInfoSizeJ̐gGetFileVersionInfoA=jg VerQueryValuegHiWordQȵ'fPVSFixedFileInfo2ftagVS_FIXEDFILEINFOEiyBfLOWORD~gHKEY_LOCAL_MACHINEcgfHRGNMjgCreateRoundRectRgn;fLPARAMv6gInflateRectU&XgSetWindowRgnDcdWinapi.Messages g |
14 | EM_GETRECTB1gEM_SETRECTNPH1cdSystem.SysUtils f TStringHelperafTIntegerHelperagIntToHex7~gStrToIntfweg StringReplace4xf:75grfReplaceAll~uvgrfIgnoreCaseuvgDirectoryExists#g ChangeFileExtgFormatDateTime, g%EgNow{1ogFormatѭ;gTrim^g |
15 | FileExists#fTFormatSettingsgFormatDateTimeLgFormatSettingsNf ExceptionIDg |
16 | .Exception"HgExtractFileName^gIntToStrT|gException.CreateFmtjYg TimeToStrseg TimeToStrIgSystemTimeToDateTime3[0f |
17 | TSearchRectuLg FindFirstdgcg faAnyFile*1gfaDirectory}1gFileDateToDateTimeMg |
18 | DeleteFile gFindNextfg FindCloseǠ0g GetModuleName XfTBooleanHelper)agStrToIntDefDAg GetCurrentDirP!cg CreateDir g StrToDateTimes&tg StrToDateTimeug DayOfWeekZ\fTNativeUIntHelper1 gRaiseLastWin32Error`pgIntToStr2g LowerCaseWcdSystem.Variants g VarIsNullNg@OleVarFromIntA'g |
19 | @VarToUStrg@VarClrXRcdSystem.Classes fTStrings[צgTComponent.CanObservegTComponent.ObserverAddedgTComponent.GetObserversgTComponent.UpdateRegistrygTComponent.WriteStategTComponent.SafeCallExceptiongTComponent.UpdateActiongTPersistent.AssignڊfTStringListz g.TStringList]}agTStringList.CreategTStrings.GetValue{>gTStrings.SetValue{>cdVcl.Graphics g clBtnFacea6fTFont/sgTFont.SetColorDgclWindowTextڋa6gclWhitea<gclGreenc9gclInactiveCaptionˋa6gclReda9fTCanvasg TFont.SetSizeDfTBrush'7zg.TBrush |
20 | g TBrush.CreateVMgclSilverΣ;gclBlacka9gTBrush.SetStyleUMfTBrushStyle@(gbsSolid%AgTBrush.SetColorQMgTCanvas.GetHandle݉gTBrush.GetHandleRMgbsClear%Af TCustomCanvas/gTCustomCanvas.TextWidthMcdVcl.Controls fTWinControlUvKgTWinControl.UpdateStyleElements.`gTWinControl.AsyncSchedule/`gTWinControl.AssignTo2`gTWinControl.CanAutoSize7`gTWinControl.CanResize8`gTWinControl.ConstrainedResize:`gTWinControl.CreateHandle=`g#TWinControl.CustomAlignInsertBeforeA`gTWinControl.CustomAlignPositionB`gTWinControl.DestroyWndF`g!TWinControl.DockReplaceDockClientI`gTWinControl.GetClientOriginW`gTWinControl.GetControlExtentsY`gTWinControl.GetDeviceContextZ`gTWinControl.SetParentBackgroundz`g#TWinControl.SetParentDoubleBuffered{`gTWinControl.ShowControl}`g+TWinControl.UpdateControlOriginalParentSize`gTWinControl.UpdateTIPStatus`gTWinControl.Invalidate`gTWinControl.Repaint`gTWinControl.SetBounds×`gTWinControl.UpdateƗ`gTControl.CreateTouchManager2gTControl.GetAction2gTControl.GetEnabled2g!TControl.GetFloatingDockSiteClass2gTControl.DefaultScalingFlags2gTControl.SetAutoSize2gTControl.SetDragMode2gTControl.SetEnabled 3gTControl.SetName3gTControl.SetBiDiMode3gTControl.GetDragImages 3gTControl.InitiateActionH3gTControl.SetText2gTControl.SetColoru2gTControl.SetVisible2fTControl}agTControl.BringToFront:3gTControl.GetText2gTWinControl.GetHandle`gTControl.PerformN3cd Vcl.Forms fTFormDYgTCustomForm.AlignControls~WgTCustomForm.ClientWndProc~WgTCustomForm.CreateParams~WgTCustomForm.CreateWindowHandle~WgTCustomForm.CreateWnd ~WgTCustomForm.DefineProperties~WgTCustomForm.DestroyHandle~WgTCustomForm.DestroyWindowHandle ~WgTCustomForm.DoCreate~WgTCustomForm.DoDestroy~WgTCustomForm.DoThumbButtonNotify~Wg"TCustomForm.DoWindowPreviewRequest~Wg!TCustomForm.DoThumbPreviewRequest~WgTCustomForm.GetClientRect~WgTCustomForm.GetFloating~WgTCustomForm.Loaded~WgTCustomForm.Notification~WgTCustomForm.PaintWindow ~WgTCustomForm.ReadState"~WgTCustomForm.RequestAlign#~WgTCustomForm.SetParentBiDiMode%~WgTCustomForm.SetParent'~WgTCustomForm.UpdateActions(~WgTCustomForm.ValidateRename*~WgTCustomForm.WndProc,~WgTCustomForm.Resizing-~WgTCustomForm.QueryInterface1~WgTCustomForm.Createj~WgTCustomForm.CreateNewk~WgTCustomForm.Destroyl~WgTCustomForm.CloseQueryn~WgTCustomForm.DefaultHandlero~WgTCustomForm.SetFocus}~WgTCustomForm.SetFocusedControl~~WgTCustomForm.ShowModal~WgTCustomForm.WantChildKey~WgTCustomForm.AfterConstruction~WgTCustomForm.BeforeDestruction~Wg%TScrollingWinControl.AdjustClientRect)&g&TScrollingWinControl.AutoScrollEnabled+&g%TScrollingWinControl.AutoScrollInView,&gTScrollingWinControl.DoGesture1&g(TScrollingWinControl.DoGetGestureOptions2&g.TForm'tgApplicationfTApplicationqgTApplication.SetShowHint?gTCustomForm.SetClientWidth}WgTCustomForm.SetClientHeight}WgTApplication.GetExeName?gTApplication.TerminateI?gTCustomForm.FocusControlr~WcdVcl.Dialogs gShowMessagelg |
21 | InputQueryGg |
22 | InputQuerycg |
23 | MessageDlgZ硟=gmtConfirmation}B65g |
24 | mbOKCancelgMessageDlgPosHelpABfTOpenDialog \g.TOpenDialogqgTOpenDialog.CreateUgTOpenDialog.SetInitialDirGgofFileMustExistgTOpenDialog.GetFileName@cdVcl.StdCtrls fTStaticText$If TCheckBoxKfTRadioButtonfTButtonjhfTListBox5'xg.TStaticTextg |
25 | .TCheckBoxvg .TRadioButtonYg.TButtonM^F5g .TListBox~fTCustomCheckBoxqOf TCustomButtonQ{fTCheckBoxStateg cbCheckeduE3gTCustomCheckBox.SetStategcbUncheckedrE3fTCustomListBoxڗ'gTCustomListBox.SetScrollWidth9<g TCustomStaticText.SetTransparent賄OcdVcl.Printers gPrinter |
26 | _$fTPrinter{JgTPrinter.GetPrinters$_$gTPrinter.SetPrinterIndex#_$gTPrinter.BeginDoc._$gTPrinter.GetCanvas_$gTPrinter.EndDoc/_$gTPrinter.GetPrinter2_$cdIdBaseComponent cdIdComponent cdIdTCPConnection gTIdTCPConnection.DisconnectocdIdTCPClient fTIdTCPClientCustomocdIdHTTP fTIdHTTP3Qhg.TIdHTTP%gTIdCustomHTTP.GetS cd |
27 | Xml.xmldom cdXml.XMLIntf fIXMLNodefIXMLNodeList |
28 | f TNodeTypeug ntElement ]cdXml.Win.msxmldom cd |
29 | Xml.XMLDoc fTXMLDocumente㸁g .TXMLDocumentHgTXMLDocument.LoadFromXMLgTXMLDocument.GetChildNodesgTXMLDocument.GetDocumentElementcdSystem.IniFiles fTIniFileֵˍfTCustomIniFile/I g .TIniFilegTCustomIniFile.CreateWicdVcl.AppEvnts fTApplicationEventsg.TApplicationEventscd Vcl.Menus f TMainMenu6rx{f TMenuItemg |
30 | .TMainMenuFVg |
31 | .TMenuItemȼigTMenuItem.SetEnabled^ gTMenuItem.SetChecked[ gTMenuItem.SetVisibled cdVcl.ExtCtrls fTPanelPfTImageRYfTTimerCg.TPanelu$ g.TImage5Tg.TTimer}!jcdVcl.ComCtrls fTOwnerDrawState<cdSystem.StrUtils gRightStr=gRightStrە1gLeftStr=gLeftStrە1gPosExbE"9#cdWinapi.MMSystem gsndPlaySoundLg SND_NODEFAULT}1g SND_ASYNC}1cdSystem.DateUtils gDaysBetweenh'yVgIncDayGtN0M>gIncHourwcdIdExplicitTLSClientServerBase cdIdFTP fTIdFTP4Jg.TIdFTPigTIdFTP.SetPassivejg |
32 | TIdFTP.GetjgTIdFTP.ChangeDirjg |
33 | TIdFTP.PutkcdVcl.Imaging.pngimage cdVcl.Imaging.GIFImg cdIdException fEIdConnClosedGracefullyd$4g.EIdConnClosedGracefullyGcdWinapi.WinSpool gOpenPrinterY"Zf |
34 | JOB_INFO_1HshgEnumJobsÄdf_JOB_INFO_1WHshgClosePrinterKp2cdSystem.Win.Registry f TRegistryg |
35 | .TRegistry`XgTRegistry.Create69gTRegistry.SetRootKey,9gTRegistry.KeyExistsE9cdWinapi.ShellAPI gShellExecute[K!cdVcl.Clipbrd g Clipboard.Lf |
36 | TClipboard ڴgTClipboard.GetAsText(.LcdVcl.Buttons cdWinapi.WinInet f HINTERNET~gInternetOpenzgINTERNET_OPEN_TYPE_PRECONFIG}1gInternetOpenUrlY&gINTERNET_FLAG_RELOADԍrbg HttpQueryInfop9gHTTP_QUERY_STATUS_CODE}1gInternetCloseHandle2TcdSystem.UITypes fTColorIcfTMsgDlgType8f |
37 | TMsgDlgBtn˅9 gmrOk}1fTMsgDlgButtons5t,fTOpenOption,cdSystem.Types fTRect=Lc5Main _c5System 5Types c5UITypes c5Win 5Registry icc5 DateUtils c5StrUtils c5IniFiles c5Classes Mc5Variants 9c5SysUtils }cc5SysInit c5Windows c5Messages qc5SysUtils }c5Variants 9c5Classes Mc5Graphics c5Controls c5Forms c5Dialogs yc5StdCtrls c5Printers c5IdBaseComponent %c5IdComponent )c5IdTCPConnection -c5IdTCPClient 5c5IdHTTP =c5xmldom Mc5XMLIntf Qc5msxmldom ec5XMLDoc ic5IniFiles c5AppEvnts c5Menus c5ExtCtrls c5ComCtrls c5StrUtils c5MMSystem c5 DateUtils c5IdExplicitTLSClientServerBase c5IdFTP !c5pngimage =c5GIFImg Ac5IdException Ec5Winspool Qc5Registry ic5ShellApi c5ClipBrd c5Buttons c5wininet c5UITypes c* TStrArray * :TMainForm.:1 |
38 | Gʜ * :TMainForm.:2 |
39 | GΜ & |
40 | .TMainForm 6b * TMainForm S2 MainForm aK9*:2 R ruteHverdagArray %E*:3 R ruteLordagArray %I*:4 R ruteArray %M*:5 R korelisteArray %Q*:6 R stregkoderMedTjekkodeArray %U7.7F (TMainForm.TColorToHex îGL i!Self !Color #Result |
41 | c T (TMainForm.HexToTColor ĮGL A!Self !sColorf Result . .f . c (TMainForm.InitForm ծGL a*!Self !Farvef !Titelf !Urlf .b . .b . c) (%TMainForm.Altidprintepakkelabel1Click GL \!Self !Sender cM ( TMainForm.ApplicationEvents1Idle خGL $!Self !Sender "Done |
42 | cY ()TMainForm.Automatisktjekkodestyring1Click GL !Self !Sender ci (TMainForm.Automatiskvalg1Click GL j!Self !Sender cu (TMainForm.FormCreate GL !Selff !Sender %crlf |
43 |