{"id":1129,"date":"2022-05-24T12:17:08","date_gmt":"2022-05-24T11:17:08","guid":{"rendered":"https:\/\/wiskunst.nl\/?page_id=1129"},"modified":"2022-10-17T14:33:20","modified_gmt":"2022-10-17T13:33:20","slug":"lazarus-klokje-finale","status":"publish","type":"page","link":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/","title":{"rendered":"Lazarus-Klokje-Finale"},"content":{"rendered":"<p><strong><span class=\"collapseomatic \" id=\"id69d77405ab520\"  tabindex=\"0\" title=\"Afleveringen\"    >Afleveringen<\/span><div id=\"target-id69d77405ab520\" class=\"collapseomatic_content \"><\/strong><\/p>\n<ul>\n<li><a href=\"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-start\/\">Start<\/a><\/li>\n<li><a href=\"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-zonder-form\/\">Zonder form<\/a><\/li>\n<li><a href=\"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-zichtbaarheid-en-pop\/\">Zichtbaarheid en pop<\/a><\/li>\n<li><a href=\"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-opmaak\/\">Opmaak<\/a><\/li>\n<li><a href=\"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-instellingen-bewaren\/\">Instellingen bewaren<\/a><\/li>\n<li><a href=\"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-analoog\/\">Analoog<\/a><\/li>\n<li><a href=\"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-analoog-opmaak\/\">Analoog opmaak<\/a><\/li>\n<li><a href=\"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-nieuwe-vensters\/\">Nieuwe vensters<\/a><\/li>\n<li><a href=\"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-alarm\/\">Alarm<\/a><\/li>\n<li>Finale <\/div><\/li>\n<\/ul>\n<h2>We gaan de puntjes op de i zetten.<\/h2>\n<p>In deze laatste aflevering gaan we de volgende punten behandelen:<\/p>\n<ul style=\"list-style-type: circle;\">\n<li>Bestaande waarden van het alarm bij opstarten <em>frmAlarmSettings<\/em> meenemen;<\/li>\n<li>Alleen de naam van de externe sound tonen en het pad daarvan in de <em>Hint<\/em>;<\/li>\n<li>De knop <em>Snooze<\/em> van <em>frmAlarm<\/em> implementeren;<\/li>\n<li><em>Hint<\/em> met datum toevoegen aan de klok;<\/li>\n<li>Icoontjes menu uitbreiden;<\/li>\n<li>Reset mogelijkheid inbouwen;<\/li>\n<li>Icoontje toevoegen aan het Project;<\/li>\n<li>Compiler opties minimaliseren voor een &#8220;kleine&#8221; executable.<\/li>\n<\/ul>\n<p>Genoeg te doen dus.<\/p>\n<h4>Alarm-instellingen met de juiste waardes<\/h4>\n<p>Wanneer we via <em>frmAlarmSettings<\/em> zaken hebben veranderd en we keren terug naar de klok, dan worden er allerlei globale variabelen van een waarde voorzien. Keren we echter terug naar het Settings-scherm dan zien we deze waarden niet terug. Dit moeten we dus even aanpassen.<\/p>\n<p><span style=\"font-family: terminal, monaco, monospace;\">&#8211; Ga naar de code van <em>frmAlarmSettings<\/em> (<em>Unit4<\/em>).<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Ga naar <em>FromActivate<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; De eerste twee regels moeten worden omgedraaid en als volgt worden aangepast:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 SoundNameTmp := SoundName;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 lblAlarm.Caption := SoundNameTmp;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Voeg hierna de volgende twee regels toe:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 edtAlarmText.Text := AlarmTekst;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 dtpAlarmTijd.Time := AlarmTijd;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Run het klokje en experimenteer met de instellingen en kijk of deze nu goed staan wanneer <em>Settings<\/em> opnieuw wordt geopend.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Laad tot slot nog even een externe sound en klik daarna op de knop OK.<\/span><\/p>\n<p>Na de laatste handeling staat nu de volledige naam van het externe bestand op het venster, inclusief het pad en onze eigen toevoeging <em>FILE:<\/em>. Dit is niet de bedoeling. We willen alleen de bestandsnaam zien.<\/p>\n<h4>Hints<\/h4>\n<p>De padverwijzing kan dan in de <em>Hint<\/em> (dit is het gele labeltje in Windows als je met de muis iets aanwijst). En uiteraard moet de toevoeging <em>FILE:<\/em> al helemaal niet zichtbaar zijn.<br \/>\nNu wordt <em>lblAlarm<\/em> op drie verschillende plaatsen veranderd. We moeten dus een generieke oplossing voor het <em>Label<\/em> hebben. We zouden hier profijt hebben als er een Label-OnChange event zou bestaan, maar helaas, deze bestaat niet. Dus maar gewoon een procedure maken.<\/p>\n<p><span style=\"font-family: terminal, monaco, monospace;\">&#8211; Ga naar de code van <em>frmAlarmSettings<\/em> (<em>Unit4<\/em>).<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Voeg in de <em>class<\/em>-definitie in de sectie <em>private<\/em> de volgende regel toe:<\/span><br \/>\n&#8211; <span style=\"font-family: 'courier new', courier, monospace; font-size: 10pt;\"><strong><em>\u00a0 procedure HintAan;<\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Ga naar de <em>implementation<\/em>-sectie en voeg na de <em>function StopAlarm<\/em> (na <span style=\"color: #3366ff;\"><em>{ TfrmAlarmSettings }<\/em><\/span>) de volgende code toe:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 procedure TfrmAlarmSettings.HintAan;<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 var<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 s: String;<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 begin<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 if LeftStr(UpperCase(SoundNameTmp),5) = &#8216;FILE:&#8217; then<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 begin<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 s := Copy(SoundNameTmp,6,Length(SoundNameTmp));<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 lblAlarm.Caption := ExtractFileName(s);<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 lblAlarm.Hint := ExtractFilePath(s);<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 lblAlarm.ShowHint := True;<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 end<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 else<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 begin<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 lblAlarm.ShowHint := False;<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 lblAlarm.Caption := SoundNamenTmp;<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 end;<\/span><\/strong><\/em><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 end;<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Ga naar het event <em>btnOtherAlarmClick<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Haal de regel <span style=\"font-size: 10pt;\"><em><span style=\"font-family: 'courier new', courier, monospace;\">lblAlarm.Caption := &#8230;<\/span><\/em><\/span> weg.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Verander de regel <span style=\"font-size: 10pt;\"><em><span style=\"font-family: 'courier new', courier, monospace;\">SoundNameTmp := &#8230;<\/span><\/em><\/span> als volgt:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 SoundNameTmp := &#8216;FILE:&#8217; + dlgOpenFile.FileName;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Voeg hierna de volgende regel toe:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 HintAan;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Ga naar <em>FormActivate<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Vervang de regel <span style=\"font-size: 10pt;\"><em><span style=\"font-family: 'courier new', courier, monospace;\">lblAlarm.Caption := &#8230;<\/span><\/em><\/span> door:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 HintAan;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Ga naar <em>lstAlarmClick<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Vervang de code door de volgende regels:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 SoundNameTmp := lstAlarm.Items[lstAlarm.ItemIndex];<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 HintAan;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Run het klokje en kijk of bovenstaande werkt.<\/span><\/p>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"alignnone wp-image-1648 size-full\" src=\"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_37.jpg\" alt=\"\" width=\"279\" height=\"254\" \/><\/p>\n<p>In de property <em>Hint<\/em> staat wat er in het gele labeltje moet komen te staan. Met de property <em>ShowHint<\/em> activeert of deactiveert u de <em>Hint<\/em>.<\/p>\n<h4>Snooze<\/h4>\n<p>We gaan nu de <em>Snooze<\/em>-knop implementeren. Als het alarm afgaat en de gebruiker klikt op <em>Snooze<\/em> dan moet het alarm na 5 minuten nogmaals afgaan. Uiteraard is deze 5 minuten arbitrair en het staat u natuurlijk vrij om hier een andere tijdseenheid voor te kiezen of deze zelfs variabel te maken. Met al uw kennis die u nu heeft moet dat te doen zijn.<\/p>\n<p><span style=\"font-family: terminal, monaco, monospace;\">&#8211; Ga naar de code van <em>frmAlarm<\/em> (<em>Unit5<\/em>).<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Activeer het event <em>lblSnoozeClick<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Voeg de volgende variabele toe:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 var<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 u,m,s,ms: Word;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Voeg (na <em>begin<\/em>) de volgende regels code toe:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 DecodeTime(Now,u,m,s,ms);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 if (m + 5) &gt;= 60 then<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 begin<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 m := (m + 5) mod 60;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 u := u + 5;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 end<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 else<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 m := m + 5;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 AlarmTijd := EncodeTime(u,m,s,ms);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 AlarmAan := True;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 close;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Run de klok en test de code. (Om &#8220;snel&#8221; te testen kunt u even de regel <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">m := m + 1;<\/span><\/em><\/strong><\/span> voor <span style=\"font-size: 10pt;\"><em><span style=\"font-family: 'courier new', courier, monospace;\">AlarmTijd := &#8230;<\/span><\/em><\/span> toevoegen).<\/span><\/p>\n<h4>Datum als Hint<\/h4>\n<p>Het is ook netjes om de datum weer te geven wanneer de klok wordt aangewezen.<\/p>\n<p><span style=\"font-family: terminal, monaco, monospace; font-size: 12pt;\">&#8211; Ga naar de code van <em>frmKlokje<\/em> (<em>Unit1<\/em>).<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace; font-size: 12pt;\"> &#8211; Ga naar <em>FormActivate<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace; font-size: 12pt;\"> &#8211; Voeg de volgende regel code toe voor de regel <em>LeesIni;<\/em>:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 frmKlokje.Hint := FormatDateTime(&#8216;dddd dd mmmm yyyy&#8217;,Now);<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace; font-size: 12pt;\"> &#8211; Ga naar de <em>Obejct Inspector<\/em> en zet de property <em>ShowHint<\/em> van <em>frmKlokje<\/em> op <strong><em>True<\/em><\/strong>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace; font-size: 12pt;\"> &#8211; Merk op dat nu ook (automatisch) de <em>ShowHint<\/em>-properties van <em>lblTijd<\/em> ene <em>imgFace<\/em> op <em>True<\/em> staan.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace; font-size: 12pt;\"> &#8211; Run de klok en wijs deze aan<\/span>.<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"alignnone wp-image-1649 size-full\" src=\"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_38.jpg\" alt=\"\" width=\"176\" height=\"58\" \/><\/p>\n<p>Dat zowel het <em>Label<\/em> als de <em>ImageBox<\/em> de <em>Hint<\/em> laten zien komt door de property <em>ParentShowHint<\/em> die default op <em>True<\/em> staat en de <em>Hint<\/em> van de <em>Parent<\/em> (hier <em>frmKlokje<\/em>) laat zien.<br \/>\nDit was dus niet moeilijk. Alleen komt er een probleem wanneer de klok <em>00:00:00<\/em> slaat (ofwel op middernacht), want dan verandert de datum. Dit moet worden ondervangen in het <em>Timer<\/em> event <em>tmrTijdTimer<\/em>.<\/p>\n<p><span style=\"font-family: terminal, monaco, monospace; font-size: 12pt;\">&#8211; Ga naar <em>tmrTijdTimer<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace; font-size: 12pt;\"> &#8211; Voeg als laatste regels code toe (dus voor <em>end;<\/em>):<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 if FormatDateTime(&#8216;hh:mm:ss&#8217;,Now) = &#8217;00:00:00&#8242; then<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 frmKlokje.Hint := FormatDateTime(&#8216;dddd dd mmmm yyyy&#8217;,Now);<\/span><\/em><\/strong><\/span><\/p>\n<h4>Menu-optie-icoontjes van een kleur voorzien<\/h4>\n<p>We hebben inmiddels aardig wat menu-opties toegevoegd en velen daarvan hebben nog geen icoontjes. U weet inmiddels hoe u deze kunt toevoegen: Icoontjes toevoegen aan <em>ilstIconen<\/em> en daarna de juiste index toevoegen aan de property <em>ImageIndex<\/em> van de menu opties.<br \/>\nHet zou mooi zijn als de kleur van de opties <em>Hour<\/em>, <em>Minute<\/em> en <em>Second<\/em> ook als icoontje zichtbaar zou zijn. Dit is echter niet zo eenvoudig.<br \/>\nNu heeft een menu optie een property <em>Bitmap<\/em>, waarin een bitmap kan worden geladen als icoontje. En hiervan gaan we gebruik maken.<\/p>\n<p><span style=\"font-family: terminal, monaco, monospace;\">&#8211; Ga naar de code van <em>frmKlokje<\/em> (<em>Unit1<\/em>).<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Ga naar <em>LeesIni<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Voeg de volgende variabele toe:<\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> &#8211;\u00a0 bm: TBitmap;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Ga onder de regels staan waar u de indent <em>ColorHour<\/em> heeft verwerkt.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Voeg daar de volgende regels toe:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 bm := TBitmap.Create;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 bm.Width := 16;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 bm.Height := 16;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 bm.Canvas.Brush.Color := ColorHour;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 bm.Canvas.FloodFill(8,8,bm.Canvas.Pixels[8,8],fsSurface);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 popAnalogColorsHour.Bitmap := bm;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 bm.Free;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> Doe ditzelfde onder de regels voor <em>ColorMinute<\/em> en <em>ColorSecond<\/em>, waarbij <em>ColorHour<\/em> en <em>popAnalogColorsHour<\/em> natuurlijk mee moeten veranderen.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> Run het klokje en wijs in het menu de optie <em>Analog&#8211;&gt;Colors<\/em> aan.<\/span><\/p>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"alignnone wp-image-1650 size-full\" src=\"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_39.jpg\" alt=\"\" width=\"429\" height=\"201\" srcset=\"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_39.jpg 429w, https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_39-300x141.jpg 300w\" sizes=\"auto, (max-width: 429px) 100vw, 429px\" \/><\/p>\n<h4>FloodFill<\/h4>\n<p>De kleurtjes staan er. Met de property <em>Brush<\/em> stelt u, o.a., de kleur in waarmee moet worden &#8220;geschilderd&#8221;. Met de method <em>FloodFill<\/em> schildert u de oppervlakte (16&#215;16) van de bitmap. <em>FloodFill<\/em> heeft 4 paramters. De eerste twee zijn de x- en de y-co\u00f6rdinaat die de positie aangeven vanaf waar geschilderd moet worden. De derde parameter leest de kleur uit op een bepaalde plaats. De vierde parameter bepaalt waar de <em>FloodFill<\/em> moet stoppen. Als deze <em>fsSurface<\/em> is dan wordt er gevuld vanuit het aangegeven punt totdat er een andere kleur dan de derde parameter wordt gevonden. Als deze <em>fsBorder<\/em> is dan wordt er gevuld totdat dezelfde kleur is gevonden.<br \/>\nMet deze methode kan dus een willekeurig figuur met een bepaalde kleur worden gevuld.<\/p>\n<p>De icoontjes moeten natuurlijk van kleur veranderen als er een andere kleur wordt gekozen. Dit gebeurt in het <em>popAnalogColorsClick<\/em> event.<\/p>\n<p><span style=\"font-family: terminal, monaco, monospace;\">&#8211; Ga naar <em>popAnalogColorsClick<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Voeg in het <em>if dlgColor.Execute then<\/em>-blok na de <em>case<\/em>-constructie de volgende regels toe:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 bm := TBitmap.Create;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 bm.Width := 16;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 bm.Height := 16;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 bm.Canvas.Brush.Color := c;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 bm.Canvas.FloodFill(8,8,bm.Canvas.Pixels[8,8],fsSurface);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 (Sender as TMenuItem).Bitmap := bm;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 bm.Free;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Run het klokje en kijk of de kleur van de icoontjes mee veranderen als u de kleur van een wijzer verandert.<\/span><\/p>\n<p><span style=\"font-family: terminal, monaco, monospace;\">Voeg naar smaak nog andere icoontjes voor de menu opties toe, behalve voor de opties met al dan niet een vinkje!<\/span><\/p>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"alignnone wp-image-1651 size-full\" src=\"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_40.jpg\" alt=\"\" width=\"204\" height=\"202\" srcset=\"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_40.jpg 204w, https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_40-150x150.jpg 150w\" sizes=\"auto, (max-width: 204px) 100vw, 204px\" \/><\/p>\n<h4>Reset klokje<\/h4>\n<p>Het kan voorkomen dat bij het starten het klokje niet zichtbaar wordt. Bijvoorbeeld als de laatste keer het klokje op het tweede scherm stond en bij het opnieuw starten het tweede scherm niet actief is.<\/p>\n<h4>Command-line Switch<\/h4>\n<p>We moeten dus een &#8220;<em>reset<\/em>&#8221; mogelijkheid inbouwen. Dit is gelukkig niet zo erg ingewikkeld. We gaan een zogenaamde <em>command-line-switch<\/em> implementeren: <em>-reset<\/em>. Wanneer iemand nu <em>klokje.exe -reset<\/em> gebruikt dan moet het cfg-bestand default-waardes krijgen. Het is dan wel zo netjes om een copy van het bestaande cfg-bestand te bewaren.<br \/>\nEen en ander gaan we implementeren in het <em>FormCreate<\/em>-event. Dit event wordt uitgevoerd bij het aanmaken van het <em>Form<\/em>, dus nog voordat het <em>Form<\/em> is getekend.<\/p>\n<p><span style=\"font-family: terminal, monaco, monospace;\">&#8211; Ga naar de code van <em>frmKlokje<\/em> (<em>Unit1<\/em>).<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Activeer het <em>FormCreate<\/em>-event.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Voeg de volgende variabelen toe:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 var<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 pad: string;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 membuf: TMemoryStream;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 cf: TextFile;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Voeg na <em>begin<\/em> de volgende code toe:<\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 if FindCmdLineSwitch(&#8216;reset&#8217;,[&#8216; &#8216;,&#8217;-&#8216;,&#8217;\\&#8217;,&#8217;\/&#8217;],False) then<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 begin<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 pad := GetAppConfigDir(True);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 if RightStr(pad,1) &lt;&gt; &#8216;\\&#8217; then<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 pad := pad + &#8216;\\&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 if FileExists(pad + &#8216;klokje.cfg&#8217;) then<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 begin<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 membuf := TMemoryStream.Create;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 membuf.LoadFromFile(pad + &#8216;klokje.cfg&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 membuf.SaveToFile(pad + &#8216;klokje_&#8217; + FormatDateTime(&#8216;yyyymmdd_hh_nn_ss&#8217;,Now) + &#8216;.cfg&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 membuf.Free;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 end;<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 AssignFile(cf,pad + &#8216;klokje.cfg&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 ReWrite(cf);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,'[CLOCK]&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;OnTop=-1&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;Position-X=60&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;Position-Y=5&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;Analog=0&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,'[FONT]&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;Name=Microsoft Sans Serif&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;Size=16&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;ForeColor=0&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;BackColor=536870912&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;Style=Standard&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,'[OPACITY]&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;Percentage=75&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,'[ANALOG]&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;ColorHour=32768&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;ColorMinute=16711680&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;ColorSecond=255&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;ClockFace=0&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;ClockSize=Medium&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,'[ALARM]&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;Sound=Alarm01&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;Text=Wake up!&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;Time=12:00:00&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;Fixed=0&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Writeln(cf,&#8217;On=0&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 CloseFile(cf);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 ShowMessage(&#8216;Klokje reset. Start program without switches.&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 Halt(0);<\/span><\/em><\/strong><\/span><br \/>\n&#8211; <span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 end;<\/span><\/em><\/strong><\/span><\/p>\n<p>Even wat uitleg bij de code.<br \/>\nMet <em>FindCmdLineSwitch<\/em> wordt er gekeken of de applicatie met een <em>switch<\/em> is geopend. De <em>eerste<\/em> parameter geeft de <em>naam<\/em> van de <em>switch<\/em> aan, de <em>tweede<\/em> is een verzameling van mogelijke <em>scheidingstekens<\/em> tussen de <em>exe<\/em> en de <em>switch<\/em> en de <em>derde<\/em> geeft aan of er <em>onderscheid<\/em> moet worden gemaakt tussen <em>hoofd<\/em>&#8211; en <em>kleine<\/em> letters.<br \/>\nAls de <em>switch<\/em> <em>reset<\/em> is gebruikt dan wordt er eerste een copy gemaakt van het huidige cfg-bestand. Hiervoor maken we gebruik van de methods <em>LoadFromFile<\/em> en <em>SaveToFile<\/em> van een <em>MemoryStream<\/em>. We gebruiken de <em>MemoryStream<\/em> dus verder niet.<br \/>\nVervolgens maken we een nieuw cgf-bestand aan met default-waardes. Hiervoor gebruiken we een gewone <em>TextFile<\/em>.<br \/>\nAls dit allemaal gedaan is dan laat de applicatie een melding zien.<br \/>\nTot slot wordt de applicatie weer afgesloten met de opdracht <em>Halt<\/em>. De parameter <em>0<\/em> geeft aan dat de applicatie goed (zonder fouten) is afgesloten (in Windows wordt deze waarde in <em>ErrorLevel<\/em> gezet, hiermee kunnen o.a. <em>batch<\/em>-files hun voordeel mee doen).<\/p>\n<h4>Klokje krijgt eigen icoon<\/h4>\n<p>Als het klokje is gestart dan ziet u in de taakbalk een knop met het (standaard) icoontje van Lazarus. Uiteraard wilt u hier uw eigen icoon. En dit gaan we nu doen.<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"alignnone wp-image-1652 size-full\" src=\"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_41.jpg\" alt=\"\" width=\"41\" height=\"27\" \/><\/p>\n<p><span style=\"font-family: terminal, monaco, monospace;\">&#8211; Ga in het <em>Lazarus<\/em> menu naar <em>Project&#8211;&gt;Project Opties&#8230;<\/em> .<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Klik op de knop <em>Load Icon<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Kies een icoon naar keuze (max. 32 x 32 met 32 bits per pixel).<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Klik op de knop <em>OK<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Run het klokje en kijk in de taakbalk.<\/span><\/p>\n<p><img loading=\"lazy\" decoding=\"async\" class=\"alignnone wp-image-1653 size-full\" src=\"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_42.jpg\" alt=\"\" width=\"42\" height=\"27\" \/><\/p>\n<p>Dit was niet het moeilijkste. En het volgende is dat ook niet.<\/p>\n<h4>Exe(cutable) verkleinen<\/h4>\n<p>Wanneer u nu in de <em>Verkenner<\/em> naar de grootte van de executable kijkt dan ziet u dat deze rond de <em>30 MB<\/em> zit. Dit komt mede door de resources die we hebben toegevoegd, zoals de icoontjes, de muziekjes en de klokwijzers, maar ook doordat Lazarus nogal wat <em>debug-informatie<\/em> heeft toegevoegd. Als de applicatie los wordt gebruikt dan heeft u deze <em>debug-informatie<\/em> niet nodig. Via de compiler-opties kunt u deze informatie &#8220;eruit&#8221; gooien.<\/p>\n<p><span style=\"font-family: terminal, monaco, monospace;\">&#8211; Ga in het Lazarus menu naar <em>Project&#8211;&gt;Project Opties&#8230;<\/em> .<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Klik in de linker <em>Listbox<\/em> op de optie <em>Debugging<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Zet het vinkje voor <em>Generate debugging info for GDB<\/em> uit.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Zet het vinkje voor de optie <em>Strip symbols from executable<\/em> aan.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Klik op de knop <em>OK<\/em>.<\/span><br \/>\n<span style=\"font-family: terminal, monaco, monospace;\"> &#8211; Run het klokje.<\/span><\/p>\n<p>In de <em>Verkenner<\/em> kunt u nu zien dat uw klokje nog maar rond de <em>10 MB<\/em> groot is, toch een besparing van zo&#8217;n 60 \u00e0 70%.<\/p>\n<p>We zijn klaar met al onze puntjes.<\/p>\n<p>Ik hoop dat u er veel van geleerd heeft. Het is een eenvoudig projectje, maar met heel veel technieken die u in een groter project ook zeker zal willen gebruiken.<br \/>\nNatuurlijk kunt u het klokje naar believen aanpassen en uitbreiden.<\/p>\n<h4>Code<\/h4>\n<p>Rest mij niets anders dan u nog alle code te geven:<\/p>\n<p>Hieronder de code voor Unit1 t\/m Unit5:<\/p>\n<p><strong><span class=\"collapseomatic \" id=\"id69d77405ab5d6\"  tabindex=\"0\" title=\"Unit1\"    >Unit1<\/span><div id=\"target-id69d77405ab5d6\" class=\"collapseomatic_content \"><\/strong><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">unit\u00a0Unit1;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #ff0000;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">{$mode\u00a0objfpc}{$H+}<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">interface<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">uses<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Classes,\u00a0SysUtils,\u00a0FileUtil,\u00a0Forms,\u00a0Controls,\u00a0Graphics,\u00a0Dialogs,\u00a0StdCtrls,<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0ExtCtrls,\u00a0Menus,\u00a0Unit2,\u00a0Unit3,\u00a0Unit4,\u00a0Unit5;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">type<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0TfrmKlokje\u00a0}<\/span><\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0TfrmKlokje\u00a0=\u00a0class(TForm)<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0dlgColor:\u00a0TColorDialog;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0dlgFont:\u00a0TFontDialog;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ilstIconen:\u00a0TImageList;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ilstFaces:\u00a0TImageList;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0imgFace:\u00a0TImage;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lblTijd:\u00a0TLabel;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAlarmSettings:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogClockface:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popSep2:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAbout:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogColorsSecond:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogColorsMinute:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogColorsHour:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogColors:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogSizeSmall:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogSizeMedium:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogSizeBig:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogSize:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogOn:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalog:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popFontForeColor:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popFontBackColor:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popFontFont:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popFont:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popSluit:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popSep1:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popOpacity25:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popOpacity50:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popOpacity75:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popOpacity100:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popOpacity:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popOnTop:\u00a0TMenuItem;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popMenu:\u00a0TPopupMenu;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0tmrTijd:\u00a0TTimer;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0FormActivate(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0FormClose(Sender:\u00a0TObject;\u00a0var\u00a0CloseAction:\u00a0TCloseAction);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0FormCreate(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0FormPaint(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0lblTijdDblClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0lblTijdMouseDown(Sender:\u00a0TObject;\u00a0Button:\u00a0TMouseButton;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Shift:\u00a0TShiftState;\u00a0X,\u00a0Y:\u00a0Integer);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0lblTijdMouseMove(Sender:\u00a0TObject;\u00a0Shift:\u00a0TShiftState;\u00a0X,<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Y:\u00a0Integer);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0lblTijdMouseUp(Sender:\u00a0TObject;\u00a0Button:\u00a0TMouseButton;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Shift:\u00a0TShiftState;\u00a0X,\u00a0Y:\u00a0Integer);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0lblTijdResize(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popAboutClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popAlarmSettingsClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popAnalogClockfaceClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popAnalogColorsClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popAnalogOnClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popAnalogSizeClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popFontBackColorClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popFontFontClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popFontForeColorClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popOnTopClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popOpacity100Click(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popOpacity25Click(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popOpacity50Click(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popOpacity75Click(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0popSluitClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0tmrTijdTimer(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0private<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0private\u00a0declarations\u00a0}<\/span><\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0LeesIni;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0SchrijfIni;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0public<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0public\u00a0declarations\u00a0}<\/span><\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmKlokje:\u00a0TfrmKlokje;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0FaceIndex:\u00a0integer;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0SoundName:\u00a0String;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0AlarmAan:\u00a0Boolean;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0AlarmTijd:\u00a0TDateTime;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0AlarmTekst:\u00a0String;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0AlarmFixed:\u00a0Boolean;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">implementation<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #ff0000;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">{$R\u00a0*.lfm}<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">Uses<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0IniFiles,\u00a0Math;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0MD,\u00a0Analoog:\u00a0Boolean;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0MyX,\u00a0MyY,\u00a0ClockSize:\u00a0integer;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0ColorHour,\u00a0ColorMinute,\u00a0ColorSecond:\u00a0TColor;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #3366ff;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">{\u00a0TfrmKlokje\u00a0}<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.LeesIni;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0ini:\u00a0TINIFile;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0s,\u00a0h:\u00a0String;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0i:\u00a0integer;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0bm:\u00a0TBitmap;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0ini\u00a0:=\u00a0TINIFile.Create(GetAppConfigFile(True));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0try<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0ini.ReadString(&#8216;CLOCK&#8217;,&#8217;OnTop&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0s\u00a0=\u00a0&#8216;-1&#8217;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.FormStyle\u00a0:=\u00a0fsSystemStayOnTop;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0popOnTop.Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.FormStyle\u00a0:=\u00a0fsNormal;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0popOnTop.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0ini.ReadString(&#8216;CLOCK&#8217;,&#8217;Position-X&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0TryStrToInt(s,i)\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Left\u00a0:=\u00a0i<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Left\u00a0:=\u00a0256;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0ini.ReadString(&#8216;CLOCK&#8217;,&#8217;Position-Y&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0TryStrToInt(s,i)\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Top\u00a0:=\u00a0i<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Top\u00a0:=\u00a0130;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0ini.ReadString(&#8216;CLOCK&#8217;,&#8217;Analog&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0Analoog\u00a0:=\u00a0(s\u00a0=\u00a0&#8216;-1&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogOn.Checked\u00a0:=\u00a0Analoog;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0ini.ReadString(&#8216;FONT&#8217;,&#8217;Name&#8217;,&#8217;Arial&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lblTijd.Font.Name\u00a0:=\u00a0s;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0ini.ReadString(&#8216;FONT&#8217;,&#8217;Size&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0TryStrToInt(s,i)\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblTijd.Font.Size\u00a0:=\u00a0i<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblTijd.Font.Size\u00a0:=\u00a014;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lblTijd.Font.Style\u00a0:=\u00a0[];<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0ini.ReadString(&#8216;FONT&#8217;,&#8217;Style&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0s\u00a0+\u00a0&#8216;,&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0i\u00a0:=\u00a0Pos(&#8216;,&#8217;,\u00a0s);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0while\u00a0i\u00a0&gt;\u00a00\u00a0do<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0h\u00a0:=\u00a0Trim(Copy(s,1,i-1));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0if\u00a0UpperCase(h)\u00a0=\u00a0&#8216;BOLD&#8217;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblTijd.Font.Style\u00a0:=\u00a0lblTijd.Font.Style\u00a0+\u00a0[fsBold];<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0if\u00a0UpperCase(h)\u00a0=\u00a0&#8216;ITALIC&#8217;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblTijd.Font.Style\u00a0:=\u00a0lblTijd.Font.Style\u00a0+\u00a0[fsItalic];<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0if\u00a0UpperCase(h)\u00a0=\u00a0&#8216;STRIKEOUT&#8217;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblTijd.Font.Style\u00a0:=\u00a0lblTijd.Font.Style\u00a0+\u00a0[fsStrikeOut];<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0if\u00a0UpperCase(h)\u00a0=\u00a0&#8216;UNDERLINE&#8217;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblTijd.Font.Style\u00a0:=\u00a0lblTijd.Font.Style\u00a0+\u00a0[fsUnderline];<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0Copy(s,i+1,Length(s));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0i\u00a0:=\u00a0Pos(&#8216;,&#8217;,\u00a0s);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0ini.ReadString(&#8216;FONT&#8217;,&#8217;ForeColor&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0TryStrToInt(s,i)\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblTijd.Font.Color\u00a0:=\u00a0i<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblTijd.Font.Color\u00a0:=\u00a0RGBToColor(0,\u00a00,\u00a00);\u00a0\/\/zwart<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0ini.ReadString(&#8216;FONT&#8217;,&#8217;BackColor&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0TryStrToInt(s,i)\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Color\u00a0:=\u00a0i<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Color\u00a0:=\u00a0RGBToColor(127,\u00a0127,\u00a0127);\u00a0\/\/grijs<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0popOpacity100.Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popOpacity75.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popOpacity50.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popOpacity25.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0frmKlokje.AlphaBlendValue\u00a0:=\u00a0255;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0ini.ReadString(&#8216;OPACITY&#8217;,&#8217;Percentage&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0s\u00a0=\u00a0&#8217;25&#8217;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0popOpacity100.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0popOpacity25.Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.AlphaBlendValue\u00a0:=\u00a064;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0s\u00a0=\u00a0&#8217;50&#8217;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0popOpacity100.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0popOpacity50.Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.AlphaBlendValue\u00a0:=\u00a0128;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0s\u00a0=\u00a0&#8217;75&#8217;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0popOpacity100.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0popOpacity75.Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.AlphaBlendValue\u00a0:=\u00a0191;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0popAnalogSizeSmall.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogSizeMedium.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0popAnalogSizeBig.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0UpperCase(ini.ReadString(&#8216;ANALOG&#8217;,&#8217;ClockSize&#8217;,&#8221;));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0case\u00a0s\u00a0of<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;MEDIUM&#8217;:<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ClockSize\u00a0:=\u00a0160;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0popAnalogSizeMedium.Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;BIG&#8217;:<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ClockSize\u00a0:=\u00a0200;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0popAnalogSizeBig.Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0end<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ClockSize\u00a0:=\u00a0120;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0popAnalogSizeSmall.Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0end;<br \/>\n<\/span><\/em><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 s\u00a0:=\u00a0ini.ReadString(&#8216;ANALOG&#8217;,&#8217;ColorHour&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 if\u00a0TryStrToInt(s,i)\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 ColorHour\u00a0:=\u00a0i<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0ColorHour\u00a0:=\u00a0clGreen;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm\u00a0:=\u00a0TBitmap.Create;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Width\u00a0:=\u00a016;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Height\u00a0:=\u00a016;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Canvas.Brush.Color\u00a0:=\u00a0ColorHour;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Canvas.FloodFill(8,8,bm.Canvas.Pixels[8,8],fsSurface);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 popAnalogColorsHour.Bitmap\u00a0:=\u00a0bm;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Free;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 s\u00a0:=\u00a0ini.ReadString(&#8216;ANALOG&#8217;,&#8217;ColorMinute&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 if\u00a0TryStrToInt(s,i)\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 ColorMinute\u00a0:=\u00a0i<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 ColorMinute\u00a0:=\u00a0clBlue;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm\u00a0:=\u00a0TBitmap.Create;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Width\u00a0:=\u00a016;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Height\u00a0:=\u00a016;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Canvas.Brush.Color\u00a0:=\u00a0ColorMinute;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Canvas.FloodFill(8,8,bm.Canvas.Pixels[8,8],fsSurface);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 popAnalogColorsMinute.Bitmap\u00a0:=\u00a0bm;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Free;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 s\u00a0:=\u00a0ini.ReadString(&#8216;ANALOG&#8217;,&#8217;ColorSecond&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 if\u00a0TryStrToInt(s,i)\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 ColorSecond\u00a0:=\u00a0i<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 ColorSecond\u00a0:=\u00a0clRed;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm\u00a0:=\u00a0TBitmap.Create;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Width\u00a0:=\u00a016;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Height\u00a0:=\u00a016;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Canvas.Brush.Color\u00a0:=\u00a0ColorSecond;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Canvas.FloodFill(8,8,bm.Canvas.Pixels[8,8],fsSurface);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 popAnalogColorsSecond.Bitmap\u00a0:=\u00a0bm;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 bm.Free;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 s\u00a0:=\u00a0ini.ReadString(&#8216;ANALOG&#8217;,&#8217;ClockFace&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 if\u00a0TryStrToInt(s,i)\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 FaceIndex\u00a0:=\u00a0i<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 FaceIndex\u00a0:=\u00a00;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 ilstFaces.GetBitmap(FaceIndex,imgFace.Picture.Bitmap);<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 s\u00a0:=\u00a0ini.ReadString(&#8216;ALARM&#8217;,&#8217;Sound&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 if\u00a0s\u00a0&lt;&gt;\u00a0&#8221;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 SoundName\u00a0:=\u00a0s<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 SoundName\u00a0:=\u00a0&#8216;Alarm01&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 s\u00a0:=\u00a0ini.ReadString(&#8216;ALARM&#8217;,&#8217;Text&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 if\u00a0s\u00a0&lt;&gt;\u00a0&#8221;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 AlarmTekst\u00a0:=\u00a0s<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 AlarmTekst\u00a0:=\u00a0&#8216;Wake\u00a0up!!!&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 s\u00a0:=\u00a0ini.ReadString(&#8216;ALARM&#8217;,&#8217;Time&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 try<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 if\u00a0s\u00a0&lt;&gt;\u00a0&#8221;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 AlarmTijd\u00a0:=\u00a0StrToTime(s)<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 \u00a0 AlarmTijd\u00a0:=\u00a0StrToTime(&#8217;12:00:00&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 except<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 AlarmTijd\u00a0:=\u00a0StrToTime(&#8217;12:00:00&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 s\u00a0:=\u00a0ini.ReadString(&#8216;ALARM&#8217;,&#8217;Fixed&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 AlarmFixed\u00a0:=\u00a0(s\u00a0=\u00a0&#8216;-1&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 s\u00a0:=\u00a0ini.ReadString(&#8216;ALARM&#8217;,&#8217;On&#8217;,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 AlarmAan\u00a0:=\u00a0(s\u00a0=\u00a0&#8216;-1&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0finally<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.Free;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.SchrijfIni;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0ini:\u00a0TINIFile;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0opacperc,\u00a0fstyle,\u00a0cs:\u00a0String;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0ini\u00a0:=\u00a0TINIFile.Create(GetAppConfigFile(True));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0try<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;CLOCK&#8217;,&#8217;OnTop&#8217;,BoolToStr(frmKlokje.FormStyle\u00a0=\u00a0fsSystemStayOnTop));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;CLOCK&#8217;,&#8217;Position-X&#8217;,IntToStr(frmKlokje.Left));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;CLOCK&#8217;,&#8217;Position-Y&#8217;,IntToStr(frmKlokje.Top));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;CLOCK&#8217;,&#8217;Analog&#8217;,BoolToStr(Analoog));<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;FONT&#8217;,&#8217;Name&#8217;,lblTijd.Font.Name);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;FONT&#8217;,&#8217;Size&#8217;,IntToStr(lblTijd.Font.Size));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0fstyle\u00a0:=\u00a0&#8216;Standard,\u00a0&#8216;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0fsBold\u00a0in\u00a0lblTijd.Font.Style\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0fstyle\u00a0:=\u00a0fstyle\u00a0+\u00a0&#8216;Bold,\u00a0&#8216;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0fsItalic\u00a0in\u00a0lblTijd.Font.Style\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0fstyle\u00a0:=\u00a0fstyle\u00a0+\u00a0&#8216;Italic,\u00a0&#8216;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0fsStrikeOut\u00a0in\u00a0lblTijd.Font.Style\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0fstyle\u00a0:=\u00a0fstyle\u00a0+\u00a0&#8216;StrikeOut,\u00a0&#8216;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0fsUnderline\u00a0in\u00a0lblTijd.Font.Style\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0fstyle\u00a0:=\u00a0fstyle\u00a0+\u00a0&#8216;Underline,\u00a0&#8216;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0fstyle\u00a0:=\u00a0Copy(fstyle,1,Length(fstyle)-2);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;FONT&#8217;,&#8217;Style&#8217;,fstyle);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;FONT&#8217;,&#8217;ForeColor&#8217;,IntToStr(lblTijd.Font.Color));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;FONT&#8217;,&#8217;BackColor&#8217;,IntToStr(frmKlokje.Color));<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0if\u00a0popOpacity100.Checked\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0opacperc\u00a0:=\u00a0&#8216;100&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0popOpacity75.Checked\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0opacperc\u00a0:=\u00a0&#8217;75&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0popOpacity50.Checked\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0opacperc\u00a0:=\u00a0&#8217;50&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0popOpacity25.Checked\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0opacperc\u00a0:=\u00a0&#8217;25&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;OPACITY&#8217;,&#8217;Percentage&#8217;,opacperc);<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0case\u00a0ClockSize\u00a0of<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0160:\u00a0cs\u00a0:=\u00a0&#8216;Medium&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0200:\u00a0cs\u00a0:=\u00a0&#8216;Big&#8217;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0cs\u00a0:=\u00a0&#8216;Small&#8217;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;ANALOG&#8217;,&#8217;ClockSize&#8217;,cs);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;ANALOG&#8217;,&#8217;ColorHour&#8217;,IntToStr(ColorHour));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;ANALOG&#8217;,&#8217;ColorMinute&#8217;,IntToStr(ColorMinute));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;ANALOG&#8217;,&#8217;ColorSecond&#8217;,IntToStr(ColorSecond));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;ANALOG&#8217;,&#8217;ClockFace&#8217;,IntToStr(FaceIndex));<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;ALARM&#8217;,&#8217;Sound&#8217;,SoundName);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;ALARM&#8217;,&#8217;Text&#8217;,AlarmTekst);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;ALARM&#8217;,&#8217;Time&#8217;,TimeToStr(AlarmTijd));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;ALARM&#8217;,&#8217;Fixed&#8217;,BoolToStr(AlarmFixed));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.WriteString(&#8216;ALARM&#8217;,&#8217;On&#8217;,BoolToStr(AlarmAan));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0finally<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ini.Free;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.tmrTijdTimer(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> const<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0fhw:\u00a0Real\u00a0=\u00a00.4;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0fmw:\u00a0Real\u00a0=\u00a00.6;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0fsw:\u00a0Real\u00a0=\u00a00.8;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0h,m,s,ms:\u00a0Word;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0wx,\u00a0wy,\u00a0c:\u00a0integer;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0Analoog\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0c\u00a0:=\u00a0ClockSize\u00a0div\u00a02;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Repaint;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0DecodeTime(Now,h,m,s,ms);<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Canvas.Pen.Color\u00a0:=\u00a0ColorHour;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Canvas.Pen.Width\u00a0:=\u00a05;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0wx\u00a0:=\u00a0Round(Cos(DegToRad(h\u00a0*\u00a030\u00a0+\u00a0(m\u00a0div\u00a06)\u00a0*\u00a03\u00a0&#8211;\u00a090))\u00a0*\u00a0c\u00a0*\u00a0fhw)\u00a0+\u00a0c;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0wy\u00a0:=\u00a0Round(Sin(DegToRad(h\u00a0*\u00a030\u00a0+\u00a0(m\u00a0div\u00a06)\u00a0*\u00a03\u00a0&#8211;\u00a090))\u00a0*\u00a0c\u00a0*\u00a0fhw)\u00a0+\u00a0c;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Canvas.Line(c,c,wx,wy);<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Canvas.Pen.Color\u00a0:=\u00a0ColorMinute;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Canvas.Pen.Width\u00a0:=\u00a03;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0wx\u00a0:=\u00a0Round(Cos(DegToRad(m\u00a0*\u00a06\u00a0&#8211;\u00a090))\u00a0*\u00a0c\u00a0*\u00a0fmw)\u00a0+\u00a0c;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0wy\u00a0:=\u00a0Round(Sin(DegToRad(m\u00a0*\u00a06\u00a0&#8211;\u00a090))\u00a0*\u00a0c\u00a0*\u00a0fmw)\u00a0+\u00a0c;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Canvas.Line(c,c,wx,wy);<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Canvas.Pen.Color\u00a0:=\u00a0ColorSecond;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Canvas.Pen.Width\u00a0:=\u00a01;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0wx\u00a0:=\u00a0Round(Cos(DegToRad(s\u00a0*\u00a06\u00a0&#8211;\u00a090))\u00a0*\u00a0c\u00a0*\u00a0fsw)\u00a0+\u00a0c;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0wy\u00a0:=\u00a0Round(Sin(DegToRad(s\u00a0*\u00a06\u00a0&#8211;\u00a090))\u00a0*\u00a0c\u00a0*\u00a0fsw)\u00a0+\u00a0c;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Canvas.Line(c,c,wx,wy);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblTijd.Caption\u00a0:=\u00a0FormatDateTime(&#8216;hh:mm:ss&#8217;,\u00a0Now);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0AlarmAan\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0Time\u00a0&gt;\u00a0AlarmTijd\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0AlarmAan\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmAlarm.ShowModal;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0FormatDateTime(&#8216;hh:mm:ss&#8217;,Now)\u00a0=\u00a0&#8217;00:00:00&#8242;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0frmKlokje.Hint\u00a0:=\u00a0FormatDateTime(&#8216;dddd\u00a0dd\u00a0mmmm\u00a0yyyy&#8217;,Now);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.lblTijdResize(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmKlokje.Width\u00a0:=\u00a0lblTijd.Width;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmKlokje.Height\u00a0:=\u00a0lblTijd.Height;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popAboutClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmAbout.ShowModal;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popAlarmSettingsClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmAlarmSettings.ShowModal;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popAnalogClockfaceClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmFaces.ShowModal;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0ilstFaces.GetBitmap(FaceIndex,imgFace.Picture.Bitmap);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popAnalogColorsClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0s:\u00a0String;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0c:\u00a0TColor;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0bm:\u00a0TBitmap;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0s\u00a0:=\u00a0(Sender\u00a0as\u00a0TMenuItem).Name;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0s\u00a0:=\u00a0UpperCase(Copy(s,16,Length(s)));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0case\u00a0s\u00a0of<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0&#8216;HOUR&#8217;:\u00a0c\u00a0:=\u00a0ColorHour;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0&#8216;MINUTE&#8217;:\u00a0c\u00a0:=\u00a0ColorMinute;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0&#8216;SECOND&#8217;:\u00a0c\u00a0:=\u00a0ColorSecond;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0s\u00a0&lt;&gt;\u00a0&#8221;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0dlgColor.Color\u00a0:=\u00a0c;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0if\u00a0dlgColor.Execute\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0c\u00a0:=\u00a0dlgColor.Color;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0case\u00a0s\u00a0of<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;HOUR&#8217;:\u00a0ColorHour\u00a0:=\u00a0c;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;MINUTE&#8217;:\u00a0ColorMinute\u00a0:=\u00a0c;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0&#8216;SECOND&#8217;:\u00a0ColorSecond\u00a0:=\u00a0c;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0bm\u00a0:=\u00a0TBitmap.Create;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0bm.Width\u00a0:=\u00a016;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0bm.Height\u00a0:=\u00a016;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0bm.Canvas.Brush.Color\u00a0:=\u00a0c;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0bm.Canvas.FloodFill(8,8,bm.Canvas.Pixels[8,8],fsSurface);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0(Sender\u00a0as\u00a0TMenuItem).Bitmap\u00a0:=\u00a0bm;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0bm.Free;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popAnalogOnClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popAnalogOn.Checked\u00a0:=\u00a0not\u00a0popAnalogOn.Checked;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Analoog\u00a0:=\u00a0popAnalogOn.Checked;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmKlokje.Repaint;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popAnalogSizeClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0s:\u00a0String;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popAnalogSizeSmall.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popAnalogSizeMedium.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popAnalogSizeBig.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0(Sender\u00a0as\u00a0TMenuItem).Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0s\u00a0:=\u00a0(Sender\u00a0as\u00a0TMenuItem).Name;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0s\u00a0:=\u00a0Uppercase(Trim(Copy(s,14,Length(s))));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Case\u00a0s\u00a0of<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0&#8216;MEDIUM&#8217;:\u00a0ClockSize\u00a0:=\u00a0160;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0&#8216;BIG&#8217;:\u00a0ClockSize\u00a0:=\u00a0200;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0ClockSize\u00a0:=\u00a0120;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmKlokje.Repaint;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popFontBackColorClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0dlgColor.Color\u00a0:=\u00a0lblTijd.Color;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0dlgColor.Execute\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lblTijd.Color\u00a0:=\u00a0dlgColor.Color;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popFontFontClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0dlgFont.Font\u00a0:=\u00a0lblTijd.Font;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0dlgFont.Execute\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lblTijd.Font\u00a0:=\u00a0dlgFont.Font;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popFontForeColorClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0dlgColor.Color\u00a0:=\u00a0lblTijd.Font.Color;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0dlgColor.Execute\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lblTijd.Font.Color\u00a0:=\u00a0dlgColor.Color;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popOnTopClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOnTop.Checked\u00a0:=\u00a0not\u00a0popOnTop.Checked;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0popOnTop.Checked\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0frmKlokje.FormStyle\u00a0:=\u00a0fsSystemStayOnTop<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0frmKlokje.FormStyle\u00a0:=\u00a0fsNormal;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popOpacity100Click(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity100.Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity75.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity50.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity25.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmKlokje.AlphaBlendValue\u00a0:=\u00a0255;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popOpacity25Click(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity100.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity75.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity50.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity25.Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmKlokje.AlphaBlendValue\u00a0:=\u00a064;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popOpacity50Click(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity100.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity75.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity50.Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity25.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmKlokje.AlphaBlendValue\u00a0:=\u00a0128;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popOpacity75Click(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity100.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity75.Checked\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity50.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0popOpacity25.Checked\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmKlokje.AlphaBlendValue\u00a0:=\u00a0191;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.popSluitClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0close;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.lblTijdDblClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0close;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.FormClose(Sender:\u00a0TObject;\u00a0var\u00a0CloseAction:\u00a0TCloseAction);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0SchrijfIni;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.FormCreate(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0pad:\u00a0string;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0membuf:\u00a0TMemoryStream;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0cf:\u00a0TextFile;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0FindCmdLineSwitch(&#8216;reset&#8217;,[&#8216;\u00a0&#8216;,&#8217;-&#8216;,&#8217;\\&#8217;,&#8217;\/&#8217;],False)\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0pad\u00a0:=\u00a0GetAppConfigDir(True);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0if\u00a0RightStr(pad,1)\u00a0&lt;&gt;\u00a0&#8216;\\&#8217;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0pad\u00a0:=\u00a0pad\u00a0+\u00a0&#8216;\\&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0if\u00a0FileExists(pad\u00a0+\u00a0&#8216;klokje.cfg&#8217;)\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0membuf\u00a0:=\u00a0TMemoryStream.Create;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0membuf.LoadFromFile(pad\u00a0+\u00a0&#8216;klokje.cfg&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0membuf.SaveToFile(pad\u00a0+\u00a0&#8216;klokje_&#8217;\u00a0+\u00a0FormatDateTime(&#8216;yyyymmdd_hh_nn_ss&#8217;,Now)\u00a0+\u00a0&#8216;.cfg&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0membuf.Free;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0AssignFile(cf,pad\u00a0+\u00a0&#8216;klokje.cfg&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ReWrite(cf);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,'[CLOCK]&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;OnTop=-1&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;Position-X=60&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;Position-Y=5&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;Analog=0&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,'[FONT]&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;Name=Microsoft\u00a0Sans\u00a0Serif&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;Size=16&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;ForeColor=0&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;BackColor=536870912&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;Style=Standard&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,'[OPACITY]&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;Percentage=75&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,'[ANALOG]&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;ColorHour=32768&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;ColorMinute=16711680&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;ColorSecond=255&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;ClockFace=0&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;ClockSize=Medium&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8221;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,'[ALARM]&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;Sound=Alarm01&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;Text=Wake\u00a0up!&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;Time=12:00:00&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;Fixed=0&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Writeln(cf,&#8217;On=0&#8242;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0CloseFile(cf);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ShowMessage(&#8216;Klokje\u00a0reset.\u00a0Start\u00a0program\u00a0without\u00a0switches.&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Halt(0);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.FormPaint(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0aBitmap:\u00a0TBitmap;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0Analoog\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0aBitmap\u00a0:=\u00a0TBitmap.Create;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0aBitmap.Width\u00a0:=\u00a0ClockSize;\u00a0\/\/frmKlokje.Width;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0aBitmap.Height\u00a0:=\u00a0ClockSize;\u00a0\/\/frmKlokje.Height;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0aBitmap.Canvas.Brush.Color\u00a0:=\u00a0clWhite;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0aBitmap.Canvas.Ellipse(-1,-1,ClockSize+1,ClockSize+1);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0SetShape(aBitmap);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0aBitmap.Free;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblTijd.Visible\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0imgFace.Width\u00a0:=\u00a0ClockSize;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0imgFace.Height\u00a0:=\u00a0ClockSize;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0imgFace.Visible\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Width\u00a0:=\u00a0ClockSize;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Height\u00a0:=\u00a0ClockSize;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Canvas.Pen.Color\u00a0:=\u00a0clBlack;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Canvas.Pen.Width\u00a0:=\u00a01;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0imgFace.Visible\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Width\u00a0:=\u00a0lblTijd.Width;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Height\u00a0:=\u00a0lblTijd.Height;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0aBitmap\u00a0:=\u00a0TBitmap.Create;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0aBitmap.Width\u00a0:=\u00a0lblTijd.Width;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0aBitmap.Height\u00a0:=\u00a0lblTijd.Height;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0aBitmap.Canvas.Brush.Color\u00a0:=\u00a0clWhite;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0aBitmap.Canvas.Rectangle(0,0,lblTijd.Width,lblTijd.Height);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0SetShape(aBitmap);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0aBitmap.Free;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblTijd.Visible\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.FormActivate(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Analoog\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0ClockSize\u00a0:=\u00a0120;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0imgFace.Left\u00a0:=\u00a00;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0imgFace.Top\u00a0:=\u00a00;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0imgFace.Width\u00a0:=\u00a0ClockSize;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0imgFace.Height\u00a0:=\u00a0ClockSize;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0imgFace.Visible\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0ColorHour\u00a0:=\u00a0clGreen;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0ColorMinute\u00a0:=\u00a0clBlue;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0ColorSecond\u00a0:=\u00a0clRed;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0FaceIndex\u00a0:=\u00a00;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmKlokje.Hint\u00a0:=\u00a0FormatDateTime(&#8216;dddd\u00a0dd\u00a0mmmm\u00a0yyyy&#8217;,Now);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0LeesIni;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.lblTijdMouseDown(Sender:\u00a0TObject;\u00a0Button:\u00a0TMouseButton;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Shift:\u00a0TShiftState;\u00a0X,\u00a0Y:\u00a0Integer);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0MD\u00a0:=\u00a0(Button\u00a0=\u00a0mbLeft);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0MyX\u00a0:=\u00a0X;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0MyY\u00a0:=\u00a0Y;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.lblTijdMouseMove(Sender:\u00a0TObject;\u00a0Shift:\u00a0TShiftState;\u00a0X,<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Y:\u00a0Integer);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0MD\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Left\u00a0:=\u00a0frmKlokje.Left\u00a0+\u00a0(X\u00a0&#8211;\u00a0MyX);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0frmKlokje.Top\u00a0:=\u00a0frmKlokje.Top\u00a0+\u00a0(Y\u00a0-MyY);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmKlokje.lblTijdMouseUp(Sender:\u00a0TObject;\u00a0Button:\u00a0TMouseButton;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Shift:\u00a0TShiftState;\u00a0X,\u00a0Y:\u00a0Integer);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0MD\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">end.<\/span><\/em><\/strong><\/span><\/p>\n<\/div>\n<p><strong><span class=\"collapseomatic \" id=\"id69d77405ab634\"  tabindex=\"0\" title=\"Unit2\"    >Unit2<\/span><div id=\"target-id69d77405ab634\" class=\"collapseomatic_content \"><\/strong><\/p>\n<p><span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">unit\u00a0Unit2;<\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #ff0000;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">{$mode\u00a0objfpc}{$H+}<\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">interface<\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">uses<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Classes,\u00a0SysUtils,\u00a0FileUtil,\u00a0Forms,\u00a0Controls,\u00a0Graphics,\u00a0Dialogs,\u00a0StdCtrls<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0,lclIntf<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0;<\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">type<\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0TfrmAbout\u00a0}<\/span><\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0TfrmAbout\u00a0=\u00a0class(TForm)<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0btnOK:\u00a0TButton;<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0Label1:\u00a0TLabel;<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lblWebsite:\u00a0TLabel;<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0btnOKClick(Sender:\u00a0TObject);<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 procedure\u00a0lblWebsiteClick(Sender:\u00a0TObject);<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0private<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0private\u00a0declarations\u00a0}<\/span><\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0public<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0public\u00a0declarations\u00a0}<\/span><\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0end;<\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">var<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmAbout:\u00a0TfrmAbout;<\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">implementation<\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #ff0000;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">{$R\u00a0*.lfm}<\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #3366ff;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">{\u00a0TfrmAbout\u00a0}<\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAbout.btnOKClick(Sender:\u00a0TObject);<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0close;<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAbout.lblWebsiteClick(Sender:\u00a0TObject);<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0OpenURL(&#8216;https:\/\/hjgsoft.nl&#8217;);<\/span><\/strong><\/em><\/span><br \/>\n<span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/strong><\/em><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><em><strong><span style=\"font-family: 'courier new', courier, monospace;\">end.<\/span><\/strong><\/em><\/span><\/p>\n<\/div>\n<p><strong><span class=\"collapseomatic \" id=\"id69d77405ab661\"  tabindex=\"0\" title=\"Unit3\"    >Unit3<\/span><div id=\"target-id69d77405ab661\" class=\"collapseomatic_content \"><\/strong><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">unit\u00a0Unit3;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #ff0000;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">{$mode\u00a0objfpc}{$H+}<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">interface<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">uses<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Classes,\u00a0SysUtils,\u00a0FileUtil,\u00a0Forms,\u00a0Controls,\u00a0Graphics,\u00a0Dialogs,\u00a0ExtCtrls,<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0StdCtrls;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">type<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0TfrmFaces\u00a0}<\/span><\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0TfrmFaces\u00a0=\u00a0class(TForm)<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0btnLeft:\u00a0TButton;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0btnRight:\u00a0TButton;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0btnOK:\u00a0TButton;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0btnCancel:\u00a0TButton;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0imgFace:\u00a0TImage;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lblIndex:\u00a0TLabel;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0btnCancelClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0btnLeftClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0btnOKClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0btnRightClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0FormActivate(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0private<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0private\u00a0declarations\u00a0}<\/span><\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0public<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0public\u00a0declarations\u00a0}<\/span><\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0BrowseImages;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmFaces:\u00a0TfrmFaces;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">implementation<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #ff0000;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">{$R\u00a0*.lfm}<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">Uses<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Unit1;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0fi:\u00a0integer;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #3366ff;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">{\u00a0TfrmFaces\u00a0}<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmFaces.BrowseImages;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0frmKlokje.ilstFaces.GetBitmap(fi,imgFace.Picture.Bitmap);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0lblIndex.Caption\u00a0:=\u00a0IntToStr(fi);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmFaces.FormActivate(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0fi\u00a0:=\u00a0FaceIndex;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0BrowseImages;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmFaces.btnLeftClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0Dec(fi);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0if\u00a0fi\u00a0&lt;0\u00a0then<br \/>\nfi\u00a0:=\u00a0frmKlokje.ilstFaces.Count\u00a0&#8211;\u00a01;<br \/>\nBrowseImages;<br \/>\nend; <\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmFaces.btnCancelClick(Sender:\u00a0TObject);<br \/>\nbegin<br \/>\nclose;<br \/>\nend;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmFaces.btnOKClick(Sender:\u00a0TObject);<br \/>\nbegin<br \/>\nFaceIndex\u00a0:=\u00a0fi;<br \/>\nclose;<br \/>\nend;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> procedure\u00a0TfrmFaces.btnRightClick(Sender:\u00a0TObject);<br \/>\nbegin<br \/>\nInc(fi);<br \/>\nif\u00a0fi\u00a0&gt;=\u00a0frmKlokje.ilstFaces.Count\u00a0then<br \/>\nfi\u00a0:=\u00a00;<br \/>\nBrowseImages;<br \/>\nend;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">end.<\/span><\/em><\/strong><\/span><\/p>\n<\/div>\n<p><strong><span class=\"collapseomatic \" id=\"id69d77405ab68c\"  tabindex=\"0\" title=\"Unit4\"    >Unit4<\/span><div id=\"target-id69d77405ab68c\" class=\"collapseomatic_content \"><\/strong><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">unit\u00a0Unit4;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #ff0000;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">{$mode\u00a0objfpc}{$H+}<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">interface<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">uses<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Classes,\u00a0SysUtils,\u00a0FileUtil,\u00a0DateTimePicker,\u00a0Forms,\u00a0Controls,\u00a0Graphics,<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Dialogs,\u00a0StdCtrls,\u00a0EditBtn,\u00a0Calendar;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">type<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0TfrmAlarmSettings\u00a0}<\/span><\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0TfrmAlarmSettings\u00a0=\u00a0class(TForm)<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0btnOtherAlarm:\u00a0TButton;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0btnPlay:\u00a0TButton;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0btnOK:\u00a0TButton;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0btnCancel:\u00a0TButton;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0chkAlarmOn:\u00a0TCheckBox;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0chkFixedTime:\u00a0TCheckBox;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0dtpAlarmTijd:\u00a0TDateTimePicker;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0edtAlarmText:\u00a0TEdit;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0Label1:\u00a0TLabel;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0Label2:\u00a0TLabel;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0Label3:\u00a0TLabel;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lblAlarm:\u00a0TLabel;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lstAlarm:\u00a0TListBox;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0dlgOpenFile:\u00a0TOpenDialog;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0btnCancelClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0btnOKClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0btnOtherAlarmClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0btnPlayClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0FormActivate(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0lstAlarmClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0private<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0private\u00a0declarations\u00a0}<\/span><\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0HintAan;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0public<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0public\u00a0declarations\u00a0}<\/span><\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">function\u00a0PlayAlarm(AlarmNaam:\u00a0String):\u00a0Boolean;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> function\u00a0StopAlarm:\u00a0Boolean;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmAlarmSettings:\u00a0TfrmAlarmSettings;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">implementation<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #ff0000;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">{$R\u00a0*.lfm}<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">Uses<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Unit1,\u00a0LResources,\u00a0MMSystem;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0SoundNameTmp:\u00a0String;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">function\u00a0PlayAlarm(AlarmNaam:\u00a0String):\u00a0Boolean;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0s:\u00a0AnsiString;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Result\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0AlarmNaam\u00a0=\u00a0&#8221;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0Result\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0try<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0if\u00a0LeftStr(UpperCase(AlarmNaam),5)\u00a0=\u00a0&#8216;FILE:&#8217;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0PlaySound(PChar(Copy(AlarmNaam,6,Length(AlarmNaam))),\u00a00,Snd_Async\u00a0or\u00a0Snd_FileName\u00a0or\u00a0Snd_NoDefault\u00a0or\u00a0Snd_Loop)<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0end<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0LazarusResources.Find(AlarmNaam).Value;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0if\u00a0s\u00a0&lt;&gt;\u00a0&#8221;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0PlaySound(@s[1],\u00a00,\u00a0Snd_Async\u00a0or\u00a0Snd_Memory\u00a0or\u00a0Snd_Loop)<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Result\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0except<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0Result\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">function\u00a0StopAlarm:\u00a0Boolean;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Result\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0try<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0PlaySound(nil,\u00a00\u00a0,0);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0except<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0Result\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #3366ff;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">{\u00a0TfrmAlarmSettings\u00a0}<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAlarmSettings.HintAan;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0s:\u00a0String;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0LeftStr(UpperCase(SoundNameTmp),5)\u00a0=\u00a0&#8216;FILE:&#8217;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0s\u00a0:=\u00a0Copy(SoundNameTmp,6,Length(SoundNameTmp));<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblAlarm.Caption\u00a0:=\u00a0ExtractFileName(s);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblAlarm.Hint\u00a0:=\u00a0ExtractFilePath(s);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblAlarm.ShowHint\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblAlarm.ShowHint\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lblAlarm.Caption\u00a0:=\u00a0SoundNameTmp;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAlarmSettings.btnCancelClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0close;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAlarmSettings.btnOKClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0SoundName\u00a0:=\u00a0SoundNameTmp;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0AlarmAan\u00a0:=\u00a0chkAlarmOn.Checked;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0AlarmTijd\u00a0:=\u00a0dtpAlarmTijd.Time;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0AlarmTekst\u00a0:=\u00a0\u00a0edtAlarmText.Text;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0AlarmFixed\u00a0:=\u00a0chkFixedTime.Checked;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0close;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAlarmSettings.btnOtherAlarmClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0dlgOpenFile.Filter\u00a0:=\u00a0&#8216;WAV|*.WAV&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0dlgOpenFile.Execute\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lstAlarm.ItemIndex\u00a0:=\u00a0-1;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0SoundNameTmp\u00a0:=\u00a0&#8216;FILE:&#8217;\u00a0+\u00a0dlgOpenFile.FileName;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0HintAan;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAlarmSettings.btnPlayClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0btnPlay.Caption\u00a0=\u00a0&#8216;Play\u00a0alarm&#8217;\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0btnPlay.Caption\u00a0:=\u00a0&#8216;Stop\u00a0alarm&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lstAlarm.Enabled\u00a0:=\u00a0False;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0if\u00a0not\u00a0PlayAlarm(SoundNameTmp)\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0ShowMessage(&#8216;Alarm\u00a0niet\u00a0gevonden&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0btnPlay.Caption\u00a0:=\u00a0&#8216;Play\u00a0alarm&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lstAlarm.Enabled\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0btnPlay.Caption\u00a0:=\u00a0&#8216;Play\u00a0alarm&#8217;;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lstAlarm.Enabled\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0StopAlarm;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAlarmSettings.FormActivate(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0i:\u00a0integer;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0u,m,s,ms:\u00a0Word;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0SoundNameTmp\u00a0:=\u00a0SoundName;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0HintAan;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0edtAlarmText.Text\u00a0:=\u00a0AlarmTekst;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0dtpAlarmTijd.Time\u00a0:=\u00a0AlarmTijd;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0lstAlarm.Clear;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0for\u00a0i\u00a0:=\u00a01\u00a0to\u00a010\u00a0do<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0if\u00a0i\u00a0&lt;\u00a010\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 lstAlarm.Items.Add(&#8216;Alarm0&#8217;\u00a0+\u00a0\u00a0IntToStr(i))<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 lstAlarm.Items.Add(&#8216;Alarm10&#8217;);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0lstAlarm.ItemIndex\u00a0:=\u00a00;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> if\u00a0not\u00a0AlarmAan\u00a0and\u00a0not\u00a0AlarmFixed\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0 \u00a0 \u00a0 DecodeTime(Now,u,m,s,ms);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> ms\u00a0:=\u00a00;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> s\u00a0:=\u00a00;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> if\u00a0m\u00a0&gt;=\u00a030\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0 \u00a0u\u00a0:=\u00a0u\u00a0+\u00a01;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 m\u00a0:=\u00a00;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0 end<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0 else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0 m\u00a0:=\u00a030;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0 dtpAlarmTijd.Time\u00a0:=\u00a0EncodeTime(u,m,s,ms);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0 end;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAlarmSettings.lstAlarmClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0SoundNameTmp\u00a0:=\u00a0lstAlarm.Items[lstAlarm.ItemIndex];<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0HintAan;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">initialization<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0<span style=\"color: #ff0000;\">{$I\u00a0sounds.lrs}<\/span><\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">end.<\/span><\/em><\/strong><\/span><\/p>\n<\/div>\n<p><strong><span class=\"collapseomatic \" id=\"id69d77405ab6b9\"  tabindex=\"0\" title=\"Unit5\"    >Unit5<\/span><div id=\"target-id69d77405ab6b9\" class=\"collapseomatic_content \"><\/strong><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">unit\u00a0Unit5;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #ff0000;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">{$mode\u00a0objfpc}{$H+}<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">interface<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">uses<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Classes,\u00a0SysUtils,\u00a0FileUtil,\u00a0Forms,\u00a0Controls,\u00a0Graphics,\u00a0Dialogs,\u00a0StdCtrls;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">type<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0TfrmAlarm\u00a0}<\/span><\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">\u00a0\u00a0TfrmAlarm\u00a0=\u00a0class(TForm)<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lblSnooze:\u00a0TLabel;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lblOK:\u00a0TLabel;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0lblAlarmText:\u00a0TLabel;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0FormActivate(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0FormClose(Sender:\u00a0TObject;\u00a0var\u00a0CloseAction:\u00a0TCloseAction);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0lblOKClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0procedure\u00a0lblSnoozeClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0private<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0private\u00a0declarations\u00a0}<\/span><\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0public<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0<span style=\"color: #3366ff;\">{\u00a0public\u00a0declarations\u00a0}<\/span><\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0frmAlarm:\u00a0TfrmAlarm;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">implementation<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #ff0000;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">{$R\u00a0*.lfm}<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">Uses<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0Unit4,\u00a0Unit1;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt; color: #3366ff;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">{\u00a0TfrmAlarm\u00a0}<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAlarm.FormActivate(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0lblAlarmText.Caption\u00a0:=\u00a0AlarmTekst;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0PlayAlarm(SoundName);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAlarm.FormClose(Sender:\u00a0TObject;\u00a0var\u00a0CloseAction:\u00a0TCloseAction);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0StopAlarm;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAlarm.lblOKClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0close;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">procedure\u00a0TfrmAlarm.lblSnoozeClick(Sender:\u00a0TObject);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> var<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0u,m,s,ms:\u00a0Word;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0DecodeTime(Now,u,m,s,ms);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0if\u00a0(m\u00a0+\u00a05)\u00a0&gt;=\u00a060\u00a0then<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0begin<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0m\u00a0:=\u00a0(m\u00a0+\u00a05)\u00a0mod\u00a060;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0u\u00a0:=\u00a0u\u00a0+\u00a05;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0end<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0else<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0\u00a0\u00a0m\u00a0:=\u00a0m\u00a0+\u00a05;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0AlarmTijd\u00a0:=\u00a0EncodeTime(u,m,s,ms);<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0AlarmAan\u00a0:=\u00a0True;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> \u00a0\u00a0close;<\/span><\/em><\/strong><\/span><br \/>\n<span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\"> end;<\/span><\/em><\/strong><\/span><\/p>\n<p><span style=\"font-size: 10pt;\"><strong><em><span style=\"font-family: 'courier new', courier, monospace;\">end.<\/span><\/em><\/strong><\/span><\/p>\n<\/div>\n<p><em>Wellicht tot een volgende serie&#8230;<\/em><\/p>\n","protected":false},"excerpt":{"rendered":"<p>We gaan de puntjes op de i zetten. In deze laatste aflevering gaan we de volgende punten behandelen: Bestaande waarden van het alarm bij opstarten frmAlarmSettings meenemen; Alleen de naam van de externe sound tonen en het pad daarvan in de Hint; De knop Snooze van frmAlarm implementeren; Hint met datum toevoegen aan de klok; [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":1121,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"templates\/template-full-width.php","meta":{"_lmt_disableupdate":"","_lmt_disable":"","footnotes":""},"class_list":["post-1129","page","type-page","status-publish","hentry"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v27.3 - https:\/\/yoast.com\/product\/yoast-seo-wordpress\/ -->\n<title>Lazarus-Klokje-Finale - Wiskunst<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/\" \/>\n<meta property=\"og:locale\" content=\"nl_NL\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Lazarus-Klokje-Finale - Wiskunst\" \/>\n<meta property=\"og:description\" content=\"We gaan de puntjes op de i zetten. In deze laatste aflevering gaan we de volgende punten behandelen: Bestaande waarden van het alarm bij opstarten frmAlarmSettings meenemen; Alleen de naam van de externe sound tonen en het pad daarvan in de Hint; De knop Snooze van frmAlarm implementeren; Hint met datum toevoegen aan de klok; [&hellip;]\" \/>\n<meta property=\"og:url\" content=\"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/\" \/>\n<meta property=\"og:site_name\" content=\"Wiskunst\" \/>\n<meta property=\"article:modified_time\" content=\"2022-10-17T13:33:20+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_37.jpg\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Geschatte leestijd\" \/>\n\t<meta name=\"twitter:data1\" content=\"23 minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/wiskunst.nl\\\/index.php\\\/programmeren1\\\/delphi-lazarus\\\/lazarus-klokje-intro\\\/lazarus-klokje-finale\\\/\",\"url\":\"https:\\\/\\\/wiskunst.nl\\\/index.php\\\/programmeren1\\\/delphi-lazarus\\\/lazarus-klokje-intro\\\/lazarus-klokje-finale\\\/\",\"name\":\"Lazarus-Klokje-Finale - Wiskunst\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/wiskunst.nl\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/wiskunst.nl\\\/index.php\\\/programmeren1\\\/delphi-lazarus\\\/lazarus-klokje-intro\\\/lazarus-klokje-finale\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/wiskunst.nl\\\/index.php\\\/programmeren1\\\/delphi-lazarus\\\/lazarus-klokje-intro\\\/lazarus-klokje-finale\\\/#primaryimage\"},\"thumbnailUrl\":\"https:\\\/\\\/wiskunst.nl\\\/wp-content\\\/uploads\\\/2022\\\/10\\\/Lazarus-Klokje_37.jpg\",\"datePublished\":\"2022-05-24T11:17:08+00:00\",\"dateModified\":\"2022-10-17T13:33:20+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/wiskunst.nl\\\/index.php\\\/programmeren1\\\/delphi-lazarus\\\/lazarus-klokje-intro\\\/lazarus-klokje-finale\\\/#breadcrumb\"},\"inLanguage\":\"nl-NL\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/wiskunst.nl\\\/index.php\\\/programmeren1\\\/delphi-lazarus\\\/lazarus-klokje-intro\\\/lazarus-klokje-finale\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"nl-NL\",\"@id\":\"https:\\\/\\\/wiskunst.nl\\\/index.php\\\/programmeren1\\\/delphi-lazarus\\\/lazarus-klokje-intro\\\/lazarus-klokje-finale\\\/#primaryimage\",\"url\":\"https:\\\/\\\/wiskunst.nl\\\/wp-content\\\/uploads\\\/2022\\\/10\\\/Lazarus-Klokje_37.jpg\",\"contentUrl\":\"https:\\\/\\\/wiskunst.nl\\\/wp-content\\\/uploads\\\/2022\\\/10\\\/Lazarus-Klokje_37.jpg\",\"width\":279,\"height\":254},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/wiskunst.nl\\\/index.php\\\/programmeren1\\\/delphi-lazarus\\\/lazarus-klokje-intro\\\/lazarus-klokje-finale\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/wiskunst.nl\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Programmeren\",\"item\":\"https:\\\/\\\/wiskunst.nl\\\/index.php\\\/programmeren1\\\/\"},{\"@type\":\"ListItem\",\"position\":3,\"name\":\"Delphi\\\/Lazarus\",\"item\":\"https:\\\/\\\/wiskunst.nl\\\/index.php\\\/programmeren1\\\/delphi-lazarus\\\/\"},{\"@type\":\"ListItem\",\"position\":4,\"name\":\"Lazarus-Klokje-Intro\",\"item\":\"https:\\\/\\\/wiskunst.nl\\\/index.php\\\/programmeren1\\\/delphi-lazarus\\\/lazarus-klokje-intro\\\/\"},{\"@type\":\"ListItem\",\"position\":5,\"name\":\"Lazarus-Klokje-Finale\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/wiskunst.nl\\\/#website\",\"url\":\"https:\\\/\\\/wiskunst.nl\\\/\",\"name\":\"Wiskunst\",\"description\":\"2\u221e\u2227&gt;\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/wiskunst.nl\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"nl-NL\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Lazarus-Klokje-Finale - Wiskunst","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/","og_locale":"nl_NL","og_type":"article","og_title":"Lazarus-Klokje-Finale - Wiskunst","og_description":"We gaan de puntjes op de i zetten. In deze laatste aflevering gaan we de volgende punten behandelen: Bestaande waarden van het alarm bij opstarten frmAlarmSettings meenemen; Alleen de naam van de externe sound tonen en het pad daarvan in de Hint; De knop Snooze van frmAlarm implementeren; Hint met datum toevoegen aan de klok; [&hellip;]","og_url":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/","og_site_name":"Wiskunst","article_modified_time":"2022-10-17T13:33:20+00:00","og_image":[{"url":"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_37.jpg","type":"","width":"","height":""}],"twitter_card":"summary_large_image","twitter_misc":{"Geschatte leestijd":"23 minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/","url":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/","name":"Lazarus-Klokje-Finale - Wiskunst","isPartOf":{"@id":"https:\/\/wiskunst.nl\/#website"},"primaryImageOfPage":{"@id":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/#primaryimage"},"image":{"@id":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/#primaryimage"},"thumbnailUrl":"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_37.jpg","datePublished":"2022-05-24T11:17:08+00:00","dateModified":"2022-10-17T13:33:20+00:00","breadcrumb":{"@id":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/#breadcrumb"},"inLanguage":"nl-NL","potentialAction":[{"@type":"ReadAction","target":["https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/"]}]},{"@type":"ImageObject","inLanguage":"nl-NL","@id":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/#primaryimage","url":"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_37.jpg","contentUrl":"https:\/\/wiskunst.nl\/wp-content\/uploads\/2022\/10\/Lazarus-Klokje_37.jpg","width":279,"height":254},{"@type":"BreadcrumbList","@id":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/lazarus-klokje-finale\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/wiskunst.nl\/"},{"@type":"ListItem","position":2,"name":"Programmeren","item":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/"},{"@type":"ListItem","position":3,"name":"Delphi\/Lazarus","item":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/"},{"@type":"ListItem","position":4,"name":"Lazarus-Klokje-Intro","item":"https:\/\/wiskunst.nl\/index.php\/programmeren1\/delphi-lazarus\/lazarus-klokje-intro\/"},{"@type":"ListItem","position":5,"name":"Lazarus-Klokje-Finale"}]},{"@type":"WebSite","@id":"https:\/\/wiskunst.nl\/#website","url":"https:\/\/wiskunst.nl\/","name":"Wiskunst","description":"2\u221e\u2227&gt;","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/wiskunst.nl\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"nl-NL"}]}},"_links":{"self":[{"href":"https:\/\/wiskunst.nl\/index.php\/wp-json\/wp\/v2\/pages\/1129","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/wiskunst.nl\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/wiskunst.nl\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/wiskunst.nl\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/wiskunst.nl\/index.php\/wp-json\/wp\/v2\/comments?post=1129"}],"version-history":[{"count":9,"href":"https:\/\/wiskunst.nl\/index.php\/wp-json\/wp\/v2\/pages\/1129\/revisions"}],"predecessor-version":[{"id":1655,"href":"https:\/\/wiskunst.nl\/index.php\/wp-json\/wp\/v2\/pages\/1129\/revisions\/1655"}],"up":[{"embeddable":true,"href":"https:\/\/wiskunst.nl\/index.php\/wp-json\/wp\/v2\/pages\/1121"}],"wp:attachment":[{"href":"https:\/\/wiskunst.nl\/index.php\/wp-json\/wp\/v2\/media?parent=1129"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}