Koetan ajaa täällä http://wiki.freepascal.org/fcl-image olevaa esimerkkiä. Se kääntyy ilman virheitä, mutta ei etene edes ensimmäiselle riville. Assembler-ikkunassa on tyhjää ja siellä se suostuu muutamaan askeleeseen, kunnes tulee virheejäljittäjä ilmoittaa:
The GDB command:
"-data-evaluate-expression $fp"
did not return any result.
Käyttössä on Lazarus 1.4 ja Windows 7. Esimerkin hakupolku on korjattu ('C:\Windows\Fonts')
Edellisen esimerkin tuolta sivulta sain toimimaan, mutta en saanut siitäkään muutettua niin, että olisin saanut tekstiä. Sekin menee samanlaiseen tilaan kun lisään rivin
ftfont.InitEngine;
fontdraw-esimerkki
FontManager
6
150
Vastaukset 6
- lkjhgfder
http://gnuwin32.sourceforge.net/packages/freetype.htm
tuolta ladattava ensin binaries zip-tiedosto ja asenna tai kopioi freetype6.dll ohjelman kansioon. Se on muutettava freetype-6.dll-nimiseksi.- FontManager
En löytänyt tuolta tiedostoa freetype6.dll, mutta sellainen sattui jo olemaan koneella Freeciv'n hakemistossa. Kopioin sen ja muutin nimeä. Nyt toimii!
Mistähän ihmeestä tällainenkin olisi pitänyt tietää? - lkjhgfder
Virhe olisi näkynyt ajamalla käännetty ohjelma päätteeltä.
- FontManager
Samassa esimerkissä annetaan värit col-alkuisilla vakiolla, jotka löytyvät tiedostosta fpcolors.inc. Yritin määrittää värejä samalla tavalla. Värinmääritys onnistuukin, mutta mitä on tehtävä, jotta saisin kuvioista läpikuultavia? Nyt ne ovat aina täysin läpinäkymättömiä alphan arvosta riippumatta:
var C : TFPColor;
. . .
C.Red:= $0000;
C.Green:= $8000;
C.Blue:= $8000;
C.Alpha:= mitätahansa;
ImgCanvas.pen.FPColor:=C - lkjhgfder
Entä coltransparent
- FontManager
Näkyy mustana. Tai, en kokeillut tuota, mutta yo. esimerkillä siten, että värit $0000 ja C.Alpha:=$0000;
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1292079
- 51999
Perhoseni (miehelle)
Miksi et usko, että mun rakkaus sinuun on aitoa ja vilpitöntä? Tai että se oli jo silloin? Miksi ajattelet, ettet ole r160877Myönnetään, tunnen lämpimiä tunteita kohtaasi
Vaikutat tosin liian hyvältä ollaksesi totta. Komeita miehiä on maailma pullollaan mutta sinussa on jotain.....50766- 77720
- 53627
- 67626
- 59616
Onko Sofia jälleen jätetty?
Moni asia viittaisi siihen, että hän on jälleen sinkku.145612Rekat seisovat dieselin hinnan takia . Ala ei kestä tällaista hintatasoa, sanoo yrittäjä .
EU:n kallein diesel on kova paikka kuljetusalalle. Ajoja on jätetty ajamatta kannattavuusongelmien vuoksi, sanoo alan e133570Mies, näetkö minut myös
Seksuaalisena ihmisenä ja naisena? Haluatko minua seksuaalisesti? Vai olenko mielestäsi tyttönen?20520- 52513
- 6504
- 4499
Voiko se ikinä toimia
Voiko meistä ikinä tulla mitään? Näin kauan aikaa on kulunut ja mitään ei tapahdu... En usko, että sinä mietit minua het32498- 34497
- 55488
Nainen, mitä mieltä olet kodittomista?
Ja heistä jotka eivät kykene huolehtimaan asioistaan, itsestään eikä terveydestään? Miten heidän kanssaan tulisi toimia?118486Totta on asia. Jeffrey Cohen on jättänyt Sofian.
Vaimon viesti on paljastanut totuuden.155479Mitä jos...
Susta tykätään poikana enemmän, kun tyttönä? Miten asian käsittelet tai otat tiedon vastaan? T nainen gubetellija herät142463