Simulera en rotationsgivare i Lazarus/Delphi

[BEEP]

Jag kunde inte öppna ditt projekt i Delphi 6 och orkade inte läsa koden som fanns i filerna så du får fixa resten själv

[lgrfbs]

Det är bara inklistrat från din kodruta, hur som TACK för hjälpen.

[SeniorLemuren]

Hej. Här är en lite mer strippad version som du kan kolla på.

Delphi.zip

Kod: Markera allt

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if (Mouse.CursorPos.Y- 189 >= 0) and (Mouse.CursorPos.Y- 189 < 89) and
   (Mouse.CursorPos.X < 310)and (Mouse.CursorPos.X > 260)then
   begin
    Label1.Caption := IntToStr((Mouse.CursorPos.Y - 189) div 8) ;
   end;
end;

that's all it takes.

[BEEP]

SeniorLemuren. "that's all it takes."
Hjulet får ett nytt värde varje gång som bestäms av muspekarens posistion. Ska den inte behålla det gamla värdet och minska eller öka det när man snurrar på hjulet?

lgrfbs.
Du kan tjusa till det lite med att ändra muspekarn när den är över hjulet.
Image1.Cursor := crHandPoint;
Image1.Cursor := crArrow;

[SeniorLemuren]

"that's all it takes."

Det var ett exempel på hur enkelt man kan få ett värde för varje stegning upp eller ner inom en viss area. Det var det som jag fattade, som själva frågan. Hur man sedan vill spara det gamla värdet, skriver ut andra saker m.m har jag för enkelhetens skull utelämnat i exemplet.

Editerat.

[BEEP]

Okej, jag trodde att du menade att jag hade krånglat till det

[lgrfbs]

jag höll tummarna att de exemplen som kanske dök upp skulle bete sig som mitt, men som sagt jag ska väl göra något också och inte få allt serverat på guldfat

TACK för exempelkoden!
SeniorLemuren och BEEP

[lgrfbs]

Är Lazarus någon typ av Delphi-kopia. Vilken version av Delphi möter den i så fall upp till?

Skulle inte kalla Lazarus för kopia, utan de har varit smarta och insett hur de ska göra för att det ska vara en smidig övergång från Delphi till Lazarus.
Lite bilder, som en virutel julklapp
.
.
.
.
.
.
Inte tjuvtitta, rulla nedåt för att öppna paketet.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.

Lazarus1014.png

Delphi7 and Lazarus1014.png

Datorn kör Windows 7 64 Professional