Whoa - dude, is that MFC or something? Alias
On 1/2/06, Weyert de Boer <[EMAIL PROTECTED]> wrote: > Easy... get the x,y in characters of the memo > > function getCharacterPosition( aMemo: TMemo ): TPoint > begin > Result.X := LongRec( SendMessage( aMemo.Handle, EM_GETSEL, 0, 0 ) ).Hi; > Result.Y := SendMessage( aMemo.Handle, EM_LINEFROMCHAR, Result.X, 0 ); > Result.X := Result.X - SendMessage(aMemo.Handle, EM_LINEINDEX, -1, 0); > return Result; > end; > > and get the x,y in pixels of the memo > > function getCharPositionInPixels( aMemo: TMemo ): TPoint > var result: TPoint; > begin > result := aMemo.Perform( EM_POSFROMCHAR, WPARAM(@result), > aMemo.SelStart); > return result; > end > > Not sure if the code is error free, though but are these api messages ;-) > > Yours, > Weyert de Boer > _______________________________________________ > Flashcoders mailing list > [email protected] > http://chattyfig.figleaf.com/mailman/listinfo/flashcoders > _______________________________________________ Flashcoders mailing list [email protected] http://chattyfig.figleaf.com/mailman/listinfo/flashcoders
