Deutsches Lazarusforum

Wenn jemand weiss wie man das möglichst schnell reparieren kann, höre ich gerne zu, aber ich erwarte das eigentlich nicht.

:cry: Da kannst Du wahrscheinlich ewig warten
:twisted: Ich würd ne Bombe draufwerfen :| Hilft aber wahrscheinlich auch nicht

Ich drück Dir jedenfalls die Daumen, daß Du ...

Mann, ist das ein Schrott. Zum Glück brauche ich Windoof nicht mehr wirklich. :P

Dann ist das ja jetzt die beste Gelegenheit sich davon zu trennen :mrgreen:

Hab das zum Glück schon vor langer Zeit getan, nach WIN98 war Schluss für mich; nie wieder!
Muss aber zugeben ich hab vor ein paar Wochen ...

Das sieht sowieso fürchterlich aus :twisted: , Du machst alles doppelt und dreichach
Hier was einfacheres:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
aRect: TRect; aState: TGridDrawState);
var
c : TColor;
s : TTextStyle;
begin
if StringGrid1.Cells[3,Arow ...

Upps, meinFehler
das muss heissen: aState ist ein Set; da gibts dann noch mehrere Möglichkeiten:
http://lazarus-ccr.sourceforge.net/docs ... state.html

Ok, Hier gehts los :idea:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
aRect: TRect; aState: TGridDrawState);
begin
if StringGrid1.Cells[3,Arow]='Eingang' then
begin
if aState=gdSelected then
StringGrid1.Canvas.Brush.Color:=clSkyBlue
else
StringGrid1.Canvas ...

So funktioniert das auch nicht :mrgreen:
Du setzt zwar den Brush, aber der hat keinen Einfluss auf die Hintergrundfarbe des Textes.

Das sollte gehen:

StringGrid1.Canvas.Brush.Color:= clyellow;
StringGrid1.Canvas.FillRect(aRect); // Das füllt den Hintegrund
StringGrid1.Canvas.Font.Color ...

In diser Zeile: Da ist StringGrid1.FixedRows sicher "1"

Hilft das vielleicht weiter?
http://lazarus-ccr.sourceforge.net/docs ... lumns.html

Die Frage kommt nicht so ganz klar rüber, aber ich könnte mir sowas vorstellen:
Das schnappt sich einfach jedes TLabel das gefunden wird und setzt den gleichen Text.

Das ist ein sehr gute Idee
Für Hausaufgaben bin ich eigentlich auch schon zu alt

Irgendwie versteh ich die Umrechnung nicht ganz: Von welchen Koordinaten/Punkten in welche anderen wird umgerechnet :?:
Was ich sehe ist folgendes :? :
PixX=1024 (Monitor-Auflösung in X-Richtung?)
PixY=768 (Monitor-Auflösung in Y-Rchtung?)
xMax=360 und yMax=180 (Größe des Image1 oder virtuelle ...

Also dann stimmt die Koordinatentransformation eben nicht

Zum Testen würde ich in pinn folgendes machen:

if (x>25) and (x<(image1.width-25)) then
if (y>60) and (y<(image1.height-60)) then
// Pin ist sichtbar
else
// Pin nur teilweise oder nicht sichtbar
else
// Pin nur teilweise oder nicht sichtbar

Check mal die Werte von x und y beim Eintritt in ...

Wie oben schon erwähnt, könnten die Koordinaten außerhalb des Images liegen.
Du hast in "pinn" folgendes: image1.canvas.lineto(x+15,y-50);
Wenn jetzt y<50 ist, dann ist das in jedem Fall außerhalb des Images da Ergebnis kleiner 0

Was ganz anderes: Eine Function brauchst Du nur, wenn Du einen Rückgabewert erhalten willst. Anmsonsten ist es sinnvoller ein Procedure zu machen
http://www.freepascal.org/docs-html/ref ... 16400014.2
http://www.freepascal.org/docs-html/ref ... 16300014.1